Produced by Araxis Merge on 11/9/2018 12:33:55 AM Central Standard Time. See www.araxis.com for information about Merge. This report uses XHTML and CSS2, and is best viewed with a modern standards-compliant browser. For optimum results when printing this report, use landscape orientation and enable printing of background images and colours in your browser.
# | Location | File | Last Modified |
---|---|---|---|
1 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMEDU41.m | Mon Nov 5 16:43:19 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMEDU41.m | Mon Nov 5 17:44:13 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 184 |
Changed | 1 | 8 |
Inserted | 0 | 0 |
Removed | 0 | 0 |
Whitespace | |
---|---|
Character case | Differences in character case are significant |
Line endings | Differences in line endings (CR and LF characters) are ignored |
CR/LF characters | Not shown in the comparison detail |
No regular expressions were active.
1 | CHMEDU41 ; HAC/CSW;WR ITE SSN CH ANGES TO T APE;10/13/ 94 9:45 A M | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;;HAC/RKN CPTS 1571 9 BY RKN 1 1/22/2000 @ 1004AM | |
4 | ;;MODIFIE D TO REMOV E FTP AND TAPE WRITE S --RVS 1/ 14/10 | |
5 | ;IO="HAC_ HFS$:[DEER S]DEERSSN. DAT | |
6 | ;DEERS EM AIL NOTIFI CATIONs FR OM VISTA - ADDED 1/2 2/2010 RVS | |
7 | ;DEERS EM AIL NOTIFI CATIONs FR OM VISTA - ADDED 1/2 2/2010 RVS | |
8 | ;update d eers email - MTN0196 17 DPT -11 /8/13 | |
9 | ;POC chan ge - MTN02 3373 DPT 5 /22/15 | |
10 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
11 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
12 | I '$D(IOZ ) S %IS="N ",IOP=$I D ^%ZIS K I OP S IOZ=I O,IOZL=IOS L,IOZW=IOM ,IOZF=IOF, IOZT=IOST, IOZN=ION,I OZS=IOS | |
13 | ZNAM ; | |
14 | A0 S Y="F" | |
15 | ;S:Y="t" Y="T" S:Y= "f" Y="F" | |
16 | S CHDEST= "F" | |
17 | ;W:CHDEST ="T" !!,"D eers Tape Process - Write SSN/ NAME Chang es to Tape " -- remov ed RVS 1/1 4/10 | |
18 | W:CHDEST= "F" !!,"De ers File P rocess - W rite SSN/N AME Change s to File" ,!!,"(Plea se wait, f ile proces sing may t ake approx imately 10 minutes!) " | |
19 | ;I CHDEST ="T" D Q: '$T | |
20 | ;.W !!,"W hen tape i s ready hi t ",$C(155 ,49,109)," RETURN",$C (155,50,50 ,109)," to start: " R Y Q:Y["^ " | |
21 | ;.O "TAPE 1$":(FORMA T="ELF5":R ECORDSIZE= 84:BLOCKSI ZE=8064):5 | |
22 | ;.I '$T U 0 W $C(7) ,$C(7),!!, "Tape driv e not avai lable! Ex iting..." Q | |
23 | ;.U "TAPE 1$" W *5 | |
24 | A01 | |
25 | I CHDEST= "F" D F1 G A0:$D(DUO UT),A0:$D( DFOUT),A01 :$D(DQOUT) ,A0:'$D(IO ) O IO:"NW U" ; JEH 8/11/05 | |
26 | K FILL S $P(FILL," ",80)=" ", NNAM=$E(FI LL,1,27) | |
27 | S CT=0,OS SN="" | |
28 | A1 S OSSN= $O(^AHCHVA ("SSN-CHG" ,OSSN)),NA ME="" G NA ME:OSSN="" | |
29 | A2 S NAME= $O(^AHCHVA ("SSN-CHG" ,OSSN,NAME )),NSSN="" G A1:NAME ="" | |
30 | A3 S NSSN= $O(^AHCHVA ("SSN-CHG" ,OSSN,NAME ,NSSN)) G A2:NSSN="" | |
31 | S L=$P(NA ME,","),F= $P($P(NAME ,",",2)," "),M=$P($P (NAME,",", 2)," ",2) | |
32 | S X="" F I=1:1:$L(L ) S:$E(L,I )?1U X=X_$ E(L,I) | |
33 | S L=$E(X_ FILL,1,16) ,X="" F I= 1:1:$L(F) S:$E(F,I)? 1U X=X_$E( F,I) | |
34 | S F=$E(X_ FILL,1,10) S M=$E(M) S:M'?1U M =" " S ONA M=L_F_M | |
35 | S REC=" " _OSSN_" "_ ONAM_" " _NNAM_" "_ NSSN_" " | |
36 | I $L(REC) '=84 S $P( ^AHCHVA("S SN-CHG",OS SN,NAME,NS SN),"^",2) ="BAD" G A 3 | |
37 | ;I CHDEST ="T" U "TA PE1$" W RE C | |
38 | I CHDEST= "F" D ZWCH AR^CHMSNUT L(IO,REC) ;U IO W REC,! ;SKD,7-19- 05 | |
39 | S CT=CT+1 | |
40 | G A3 | |
41 | NAME D ^CH MEDU71 ;write N ame Change s to file, DEERSSN.D AT | |
42 | END ;I CHD EST="T" C "TAPE1$":D ISMOUNT | |
43 | I CHDEST= "F" C IO D ZWCLOSE^C HMSNUTL(IO ,84,512) ;SKD, 7-1 9-05 | |
44 | W @IOF,$C (7),!!,"Fi le write c ompleted. ",CT," re cords sent ." | |
45 | W !!,"Dir ectory and filename: ",IO | |
46 | W !!,"Hit ",$C(155, 49,109),"R ETURN",$C( 155,50,50, 109)," to exit: " R Y | |
47 | K OSSN,FI LL,NNAM,NA ME,NSSN,L, F,M,X,I,ON AM,REC | |
48 | G NOTIFY | |
49 | Q | |
50 | F1 | |
51 | S Y="DEER SSN.DAT" | |
52 | S CHC=Y,I O="HAC_HFS $:[DEERS]" _Y ; JEH 8/11/05 - CHANGED D IR - RVS 1 /14/2010 | |
53 | FTPOUT ;C IO -- remo ved RVS 1/ 14/10 | |
54 | ;H 600 ;wait 1 0 minutes for file t o be close d | |
55 | ;H 200 ;wait 2 minutes for file t o be close d ;SKD - - removed RVS 1/14/1 0 | |
56 | ;D ^CHMED U42 -- re moved RVS 1/14/10 | |
57 | Q | |
58 | ; | |
59 | NOTIFY ;SE ND DEERS N OTIFICATIO N EMAILS F ROM VISTA - ADDED 1/ 22/2010 RV S | |
60 | ; | |
61 | S XMSUB=" DEERS Spon sor SSN/Na me change file " | |
62 | S XMDUZ=. 5 | |
63 | ;S XMY(98 87)="" S X MY(23249)= "" S XMY(3 53244)="" ;MTN019617 DPT | |
64 | ;S XMY(35 3244)="" | |
65 | ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( " PII ")="" | |
66 | S XMY(" PII ")="" | |
67 | D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" PII ")="" | |
68 | ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( " P I I ")="" | |
69 | ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "cindy.ful tz@osd.pen tagon.mil" )="" | |
70 | ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "jennifer. a.bench.ct r@mail.mil ")="" ;MTN 019617 DPT | |
71 | D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" 'patti.k.n ortham.ctr @mail.mil' ")="" ;DP T 5/22/15 MTN023373 | |
72 | D UCI^%ZO SV I $P(Y, ",",1)="HA C" S XMY(" production .support@o sd.pentago n.mil")="" | |
73 | ;D UCI^%Z OSV I $P(Y ,",",1)="H AC" S XMY( "richard.b urton@osd. pentagon.m il")="" | |
74 | S TEXT(1) ="Greeting s;" | |
75 | S TEXT(2) =" " | |
76 | S TEXT(3) ="We have generated a file on the HAC Pr oduction s ystem whic h will be rename to DMDCP.DRS3 4W.TR.DRSC VA dated " _$$FMTE^XL FDT(DT,"5D ") | |
77 | S TEXT(4) ="and move d to your system via our MoveI t Applicat ion." | |
78 | S TEXT(5) =" " | |
79 | S TEXT(6) ="This fil e contains "_CT_" re cords." | |
80 | S TEXT(7) =" " | |
81 | S TEXT(8) ="You will receive a nother ema il confirm ing the su ccessful m ovement of the file from our s ystem to y ours" | |
82 | S TEXT(9) =" " | |
83 | S TEXT(10 )="If ther e are any questions please fee l free to contact HA C PST or T ammy Byrum ." | |
84 | S TEXT(11 )=" " | |
85 | S TEXT(12 )="Thank Y ou and hav e a Great Day" | |
86 | S XMTEXT= "TEXT(" | |
87 | D ^XMD | |
88 | K XMY,XMD UZ,TEXT,XM TEXT,XMSUB | |
89 | Q | |
90 | SBRS D CSB RS^CHSC2 Q | |
91 | R Y:$S($D (DTIME):DT IME,1:60) | |
92 | I '$T W $ C(7) R Y:5 G SBRS:Y= "." S:'$T Y=IOZFO | |
93 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
94 | I IOZFO=Y W:$D(IOZF ) @IOZF S (DFOUT,Y)= "" Q | |
95 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
96 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.