Produced by Araxis Merge on 11/9/2018 12:33:43 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 | CHCMS1010.m | Mon Nov 5 16:39:42 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMS1010.m | Tue Nov 6 22:07:05 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 3 | 162 |
Changed | 2 | 4 |
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 | CHCMS1010 ;DP;read t he new for mat of cms file;Clea r all opti on;5/19/20 10 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;TST00583 2: Auto p opulate da tes of dea th in APP from the C MS reply f ile | |
4 | ;DEF01655 4 SBB 10/2 4/13 - Mo dified EOF handling as per VHA standard. | |
5 | ;DEF01655 4 SBB 07/3 0/15 - Ad ding chang es for DEC NET | |
6 | ; | |
7 | RFILE1 ;re adin ssn f ile | |
8 | ;DEF01655 4 SBB 11/2 6/13 - Co nverting f rom DECNET to FTP. | |
9 | ;S FILE=" HACFS3"" DNS HACdec741! ""::D:[FS3 BIG.cms100 9]NSSN.TXT " | |
10 | N POP,CNT R | |
11 | S FILE="N SSN.TXT" | |
12 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
13 | I UCI="HA C" S FOLDE R="HAC_HFS $:[SCR.TEM P_FILES]" | |
14 | I UCI'="H AC" S FOLD ER="HAC_HF S$:[DSMMAN AG.CHAMPVA ]" | |
15 | S FILE=FO LDER_FILE | |
16 | D FTPFILE ^CHTFLIB9( FILE," DNS . DNS ","/FS3BIG /cms1009", "GET") | |
17 | S UP="^" S NTPN=1,$ ZE="" | |
18 | ;DEF01655 4-10/24/13 -SBB call OPEN^%ZISH to open t he file | |
19 | ;O FILE:" RS" U FILE G:$ZE["EN DOFFILE" R FILE2 U FI LE | |
20 | ;SBB 07/3 0/15 DEF01 6554 | |
21 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
22 | S POP=0,C NTR=0 | |
23 | F S CNTR =CNTR+1 Q: (CNTR>5)!P OP D | |
24 | . S POP=$ $OPENFIRD^ CHTFLIB9(. FILE,"FILE ") | |
25 | . Q | |
26 | I 'POP G RFILE2 | |
27 | ;DEF01655 4-10/24/13 -SBB use S TATUS^%ZIS H to check for EOF | |
28 | ;F U FIL E R TMPX:5 G:NTPN=0 RFILE2 G:$ ZE["ENDOFF ILE" RFILE 2 D | |
29 | F U FILE R TMPX:5 G:NTPN=0 R FILE2 G:$$ STATUS^%ZI SH RFILE2 D | |
30 | .S CHBID= $E(TMPX,1, 15) | |
31 | .S CHHICN =$E(TMPX,1 6,27) Q:CH BID="" | |
32 | .S CHSSN= $E(TMPX,85 ,93) Q:CHS SN="" Q:C HSSN'?9N | |
33 | .S CHSEX= $E(TMPX,84 ) | |
34 | .S LNAME= $E(TMPX,28 ,51) | |
35 | .S FNAME= $E(TMPX,52 ,66) | |
36 | .S MNAME= $E(TMPX,67 ) | |
37 | .S DOB=$E (TMPX,68,7 5),Z1=3 S: $E(DOB,1)= 1 Z1=2 S D OB=Z1_$E(D OB,3,99) | |
38 | .S DOD=$E (TMPX,76,8 3),Z1=3 S: $E(DOD,1)= 1 Z1=2 S D OD=Z1_$E(D OD,3,99) | |
39 | .S CHSSN= $E(TMPX,85 ,93) | |
40 | .S CHMASD T=$E(TMPX, 94,101),Z1 =3 S:$E(CH MASDT,1)=1 Z1=2 S CH MASDT=Z1_$ E(CHMASDT, 3,99) | |
41 | .S CHMAED T=$E(TMPX, 102,109),Z 1=3 S:$E(C HMAEDT,1)= 1 Z1=2 S C HMAEDT=Z1_ $E(CHMAEDT ,3,99) | |
42 | .S CHMBSD T=$E(TMPX, 112,119),Z 1=3 S:$E(C HMBSDT,1)= 1 Z1=2 S C HMBSDT=Z1_ $E(CHMBSDT ,3,99) | |
43 | .S CHMBED T=$E(TMPX, 120,127),Z 1=3 S:$E(C HMBEDT,1)= 1 Z1=2 S C HMBEDT=Z1_ $E(CHMBEDT ,3,99) | |
44 | .D STT,RE SET | |
45 | Q | |
46 | RFILE2 | |
47 | ;DEF01655 4-10/24/13 -SBB use C LOSE^%ZISH to close file | |
48 | D CLOSEF^ CHTFLIB9(F ILE,"FILE" ) | |
49 | ;SBB 07/3 0/15 DEF01 6554 | |
50 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
51 | S X=$ZF(- 1,"DELETE "_FILE_";* ") | |
52 | ;C FILE | |
53 | Q | |
54 | STT | |
55 | S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN | |
56 | I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q | |
57 | S (DFN,BF N)="" | |
58 | S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S CHNOSSN=1 Q | |
59 | S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q | |
60 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) S CHNOSSN =1 Q | |
61 | S:'$D(^CH MZHOLD("CM S_RESET")) ^("CMS_RE SET")=$H | |
62 | S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
63 | S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6) | |
64 | Q | |
65 | RESET | |
66 | S %=$O(^A HCHVA(DFN, 101,""),-1 ) | |
67 | S %1=$O(^ AHCHVA(DFN ,101,%),-1 ) | |
68 | I $P(%,". ")=$P(%1," .") S %=%1 | |
69 | Q:'$D(^AH CHVA(DFN,1 01,%,100,B FN,99)) | |
70 | Q:$P(^AHC HVA(DFN,10 1,%,100,BF N,99),"^", 3)'="DOD E DIT" | |
71 | ;U 0 W !, $G(^AHCHVA (DFN,101,% ,100,BFN,9 9)) R XXX | |
72 | S $P(^AHC HVA(DFN,10 0,BFN,0)," ^",6)="" | |
73 | K ^AHCHVA (DFN,101,% ,100,BFN) | |
74 | ;Get rema ining vari ables for Auto Calc: | |
75 | S (CHCD1, CHPD1)=$G( ^AHCHVA(DF N,100,BFN, 1)) | |
76 | S CHCD5=$ G(^AHCHVA( DFN,100,BF N,5)) | |
77 | S (CHCD9, CHPD9)=$G( ^AHCHVA(DF N,100,BFN, 0)),DT=$P( CHCD9,U,6) S:'$D(DUZ ) DUZ=1 | |
78 | K ^CHMZHO LD("CMS_RE SET",DFN) | |
79 | ;Auto Cal c: | |
80 | ;D ^CHMEA E9 D:CHCD' =CHPD ^CHM EAE8 S CHP D=CHCD D ^ CHMEAE81,^ CHMEAE9 D: CHCD'=CHPD ^CHMEAE8 | |
81 | ||
82 | ||
83 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.