Produced by Araxis Merge on 11/9/2018 12:34:16 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 | CHSBDATA.m | Mon Nov 5 16:45:04 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHSBDATA.m | Fri Nov 9 03:49:04 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 11 | 458 |
Changed | 10 | 36 |
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 | CHSBDATA | |
2 | ;HAC/AEB; DRIVER TO GENERATE A SCII FILE FOR CDC;05 /28/04 11 :34 AM | |
3 | ;;V1.0;CH AMPVA SYST EM;;JUNE 2 5, 2015 | |
4 | ;JAJ/01/1 6/2009 DEV 004565-02 MODIFY SPI NA BIFIDA DATA TRANS FER WITH C DC | |
5 | ;DEF01655 4 REPLACE DECNET WIT H FTP 06/25/2015 DRW | |
6 | INIT ;INIT IALIZING A LL VARIABL ES ; JAJ 0 1/21/2009 DEV004565- 02 | |
7 | S (DFNPT, BFNPT,CDFN PT,CLMPT,D FN,CLMCT,B ENECT,CHMD FN,CHMBFN, BGEND,BIND EX,BSSN,BD OB,BDOD,BS SN,BST,BZI P,MARR,SDO B,SZIP,AWA RDCD,AWARD DAT,AMTBEN EPD,AMTPAI D,TOTOHIPM T)="" | |
8 | CALC ; | |
9 | K ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ) ; JAJ BU G004565-01 2/24/2009 KILLS CHM ZHOLD $J S TUFF TO CL EAR IT OUT EACH TIME | |
10 | K ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC") ; JAJ BUG 004565-01 2/24/2009 | |
11 | S DFN=0,C LMCT=0,BEN ECT=0 ; SE T THESE VA RIABLES TO 0 | |
12 | ; | |
13 | CALC1 S DF N=$O(^AHCH VA("SB",DF N)) G:'DFN CEND ; OR DER THROUG H THE FILE FOR SB DF N | |
14 | I DFN=523 419 G CALC 1 ;REJECTE D 523419 C REATES LOG IC LOOP | |
15 | I DFN=520 478 G CALC 1 | |
16 | I DFN=526 052 G CALC 1 ; STUCK IN LOOP (L IVE) JAJ 3 /9/2009 | |
17 | I DFN=528 009 G CALC 1 | |
18 | I DFN=524 432 G CALC 1 ; STUCK IN LOOP JA J 2/12/200 9 | |
19 | I DFN=533 182 G CALC 1 | |
20 | S BFN=0 | |
21 | CALC2 S BF N=$O(^AHCH VA("SB",DF N,BFN)) G: 'BFN CALC1 ; ORDER T HROUGH THE FILE FOR SB BFN | |
22 | ; | |
23 | ;TEST ONL Y NEXT LIN E <<<<<<<< <<<<<<< | |
24 | ;G:BENECT >20 CEND ; FOR TEST ING, LET'S JUST LOOK AT 20! | |
25 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) G CALC2 | |
26 | S ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ,DFN,BFN)= "" ; PUT THIS STUF F INTO CHM ZHOLD? | |
27 | S BENECT= BENECT+1 ; INCREMENT S BENEFICI ARY COUNT | |
28 | D CLMCT | |
29 | G CALC2 | |
30 | CLMCT S DF NPT=0 | |
31 | CALC3 S DF NPT=$O(^CH MDFN("B",D FN,DFNPT)) Q:'DFNPT | |
32 | S BFNPT=0 | |
33 | CALC4 S BF NPT=$O(^CH MDFN(DFNPT ,100,"B",B FN,BFNPT)) G:'BFNPT CALC3 | |
34 | I '$D(^CH MDFN(DFNPT ,100,BFNPT ,100,0)) Q | |
35 | S CDFNPT= 0 | |
36 | CALC5 S CD FNPT=$O(^C HMDFN(DFNP T,100,BFNP T,100,CDFN PT)) G:'CD FNPT CALC4 | |
37 | G:'$D(^CH MDFN(DFNPT ,100,BFNPT ,100,CDFNP T,0)) CALC 5 | |
38 | S CLMPT=$ P(^CHMDFN( DFNPT,100, BFNPT,100, CDFNPT,0), "^",1) | |
39 | S X1=CLMP T D PROGTY P^CHFCD001 | |
40 | G:'$D(@(G LPAY_"CLMP T,1)")) CA LC5 | |
41 | G:'$D(@(G LPAY_"CLMP T,0)")) CA LC5 | |
42 | G:'$D(@(G LPAY_"CLMP T,""COMMON "")")) CAL C5 | |
43 | S ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC", DFN,BFN,CL MPT)=DFNPT _"^"_BFNPT | |
44 | S CLMCT=C LMCT+1 | |
45 | ;Q:CLMCT= 70 | |
46 | ;W !,CLMP T," DFN =",DFN," C OUNT=",CLM CT | |
47 | G CALC5 | |
48 | CEND ; | |
49 | W !,"SB B ENE COUNT = ",BENECT | |
50 | W !,"CLAI M COUNT = ",CLMCT | |
51 | D TASKMAN | |
52 | K DFN | |
53 | Q | |
54 | TASKMAN S CHFIO="" | |
55 | I CHFIO'[ "W" S CHFI O=CHFIO_"/ W" | |
56 | S ZTRTN=" FILEC^CHSB DATA",ZTIO ="" | |
57 | S ZTSAVE ("CHFIO")= "",ZTSAVE( "^CHMZHOLD ($J,")="" | |
58 | ;D ^%ZTLO AD | |
59 | D FILEC^C HSBDATA | |
60 | Q | |
61 | FILEC ;CRE ATE FILES | |
62 | ;S PFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CPERSON.DA T" ; MODIF Y TO COMME NT OUT OR REMOVE - U SE FS3BIG | |
63 | ;S CFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CCLAIM.DAT " ; MODIF Y TO COMME NT OUT OR REMOVE - U SE FS3BIG | |
64 | ;S DFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CPROC.DAT" ; MODIFY TO COMMEN T OUT OR R EMOVE - US E FS3BIG | |
65 | ;S VFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CVENDOR.DA T" ; MODI FY TO COMM ENT OUT OR REMOVE - USE FS3BIG | |
66 | ;S AFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CCLAIMDOD. DAT" ; MO DIFY TO CO MMENT OUT OR REMOVE - USE FS3B IG | |
67 | ;S ZFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CINPATIENT .DAT" ; M ODIFY TO C OMMENT OUT OR REMOVE - USE FS3 BIG | |
68 | ;S GFILEI O="HAC_HFS $:[ARC.TEM P_FILES]CD CDIAGNOSIS .DAT" ; JA J DEV00456 5-02 01/16 /2009 | |
69 | ;S PFILEI O="CDCPERS ON.DAT" | |
70 | ;S CFILEI O="CDCCLAI M.DAT" | |
71 | ;S DFILEI O="CDCPROC .DAT" | |
72 | ;S VFILEI O="CDCVEND OR.DAT" | |
73 | ;S PFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCPERSON. TXT" ; JAJ DEV004565 -02 01/16/ 2009 | |
74 | ;S CFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCCLAIM.T XT" ; JAJ DEV004565- 02 01/16/2 009 | |
75 | ;S DFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCPROC.TX T" ; JAJ D EV004565-0 2 01/16/20 09 | |
76 | ;S VFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCVENDOR. TXT" ; JAJ DEV004565 -02 01/16/ 2009 | |
77 | ;S AFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCCLAIMDO D.TXT" ; J AJ DEV0045 65-02 01/1 6/2009 | |
78 | ;S ZFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCINPATIE NT.TXT" ; JAJ DEV004 565-02 01/ 16/2009 | |
79 | ;S GFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCDIAGNOS ISOPT.TXT" ; JAJ DEV 004565-02 01/16/2009 | |
80 | ;S XFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] AWARD.TXT" ; JAJ BUG 004565-02 02/19/2009 | |
81 | ;S IFILEI O="HACFS3" " DNS HACdec741 !""::D:[FS 3BIG.BPO.C DC_REPORT] CDCDIAGNOS ISIPT.TXT" ; JAJ BUG 004565-02 02/19/2009 | |
82 | ;O PFILEI O:"RWE":5 C PFILEIO: "D" O PFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
83 | ;O CFILEI O:"RWE":5 C CFILEIO: "D" O CFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
84 | ;O DFILEI O:"RWE":5 C DFILEIO: "D" O DFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
85 | ;O VFILEI O:"RWE":5 C VFILEIO: "D" O VFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
86 | ;O ZFILEI O:"RWE":5 C ZFILEIO: "D" O ZFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
87 | ;O AFILEI O:"RWE":5 C AFILEIO: "D" O AFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
88 | ;O GFILEI O:"RWE":5 C GFILEIO: "D" O GFIL EIO:"RWE": 5 ; JAJ DE V004565-02 01/16/200 9 | |
89 | ;O XFILEI O:"RWE":5 C XFILEIO: "D" O XFIL EIO:"RWE": 5 ; JAJ BU G004565-02 02/19/200 9 | |
90 | ;O IFILEI O:"RWE":5 C IFILEIO: "D" O IFIL EIO:"RWE": 5 ; JAJ BU G004565-02 02/19/200 9 | |
91 | S DFN=0,B CT=0 | |
92 | D FILESET ;;FILESET IS TO REPL ACE ABOVE OPEN FOR E ACH FILE P RESENT DE F016554 07 /01/2015 | |
93 | D HEADER ;JAJ 02/24 /2009 BUG0 04565-01 | |
94 | FILEC1 S D FN=$O(^CHM ZHOLD($J," SB_PERSON_ DATA_FOR_C DC",DFN)) G:'DFN FEN D | |
95 | ; | |
96 | ;NEXT LIN E FOR TEST ONLY<<<<< <<<<<<<<<< <<< LIMITS NUMBER OF ITEMS PUL LED | |
97 | ;I BCT>20 G FEND | |
98 | X ^%ZOSF( "UCI") S C HUCI=$P(Y, ",",1) ;CH ECKS UCI | |
99 | I CHUCI'= "HAC" U 0 W !,"DFN = ",DFN,! ; JAJ 01/27 /09 DEV004 565-02 | |
100 | S BFN=0 | |
101 | FILEC2 S B FN=$O(^CHM ZHOLD($J," SB_PERSON_ DATA_FOR_C DC",DFN,BF N)) G:'BFN FILEC1 | |
102 | D PERSON | |
103 | I $D(^CHM ZHOLD($J," SB_CLAIM_D ATA_FOR_CD C",DFN,BFN )) D CLAIM ^CHSBDAT1 | |
104 | S BCT=BCT +1 | |
105 | G FILEC2 | |
106 | HEADER ; W RITES OUT FILE HEADE R INFORMAT ION JAJ 0 2/24/2009 BUG004565- 01 | |
107 | S TITLE=" CDCPERSON" ;JAJ 02/ 24/2009 BU G004565-01 | |
108 | U PFILEIO W !!,TITL E ;JAJ 02 /24/2009 B UG004565-0 1 | |
109 | S HEADP=" B-INDEX_VA LUE^BSSN^G ENDER^B_DO B^B_DOD^MA RRIED^B_ST ATE^B_ZIP^ S_DOB^S_ZI P" ;JAJ 02 /24/2009 B UG004565-0 1 | |
110 | U PFILEIO W !!,HEAD P,! ;JAJ 0 2/24/2009 BUG004565- 01 | |
111 | S TITLE1= "CDCCLAIMS " ;JAJ 02/ 24/2009 BU G004565-01 | |
112 | U CFILEIO W !!,TITL E1 ;JAJ 02 /24/2009 B UG004565-0 1 | |
113 | S HEADC=" BINDEX_VAL UE^CLAIM_N UMBER^VEND OR_POINTER ^CLAIM_STA TUS^TYPE_O F_SVC^PLAC E_OF_SVC^D ATE_OF_SVC ^DATE_COMP LETED^DISC HARGE_DATE ^CLAIM_DRG ^AMT_PD^AM T_BILLED^A MT_ALLOWED " ;JAJ 02/ 24/2009 BU G004565-01 | |
114 | U CFILEIO W !!,HEAD C,! ;JAJ 0 2/24/2009 BUG004565- 01 | |
115 | S TITLE2= "CDCVENDOR " ;JAJ 02/ 24/2009 BU G004565-01 | |
116 | U VFILEIO W !!,TITL E2 ;JAJ 02 /24/2009 B UG004565-0 1 | |
117 | S HEADT=" VENDOR_POI NTER^VENDO R_STATE^VE NDOR_ZIP^V ENDOR_SPEC IALTY_CODE ^VENDOR_SP ECIALITY_C ODE_DESC" ;JAJ 02/24 /2009 BUG0 04565-01 | |
118 | U VFILEIO W !!,HEAD T,! ;JAJ 0 2/24/2009 BUG004565- 01 | |
119 | S TITLE3= "CDCDIAGNO SIS_OPT" ; JAJ 02/24/ 2009 BUG00 4565-01 | |
120 | U GFILEIO W !!,TITL E3 ;JAJ 02 /24/2009 B UG004565-0 1 | |
121 | S HEADD=" CLAIM_NUMB ER^DIAGNOS IS^DIAGNOS IS_DESC" ; JAJ 02/24/ 2009 BUG00 4565-01 | |
122 | U GFILEIO W !!,HEAD D,! ;JAJ 0 2/24/2009 BUG004565- 01 | |
123 | S TITLE4= "CDCDIAGNO SIS_IPT" ; JAJ 02/24 /2009 BUG0 04565-01 | |
124 | U IFILEIO W !!,TITL E4 ; JAJ 0 2/24/2009 BUG004565- 01 | |
125 | S HEADI=" CLAIM_NUMB ER^ADMIT_D IAGNOSIS^A DMIT_DIAGN OSIS_DESC^ OTHER_DIAG NOSES^OTHE R_DIAGNOSE S_DESC" ; JAJ 02/24/ 2009 BUG00 4565-01 | |
126 | U IFILEIO W !!,HEAD I,! ; JAJ 02/24/2009 BUG004565 -01 | |
127 | S TITLE5= "CDCPROCED URE" ; JAJ 02/24/200 9 BUG00456 5-01 | |
128 | U DFILEIO W !!, TIT LE5 ; JAJ 02/24/2009 BUG004565 -01 | |
129 | S HEADPR= "CLAIM_NUM BER^PROC_C ODE^PROC_C ODE_DESC" ; ; JAJ 02 /24/2009 B UG004565-0 1 | |
130 | U DFILEIO W !!, HEA DPR,! ; JA J 02/24/20 09 BUG0045 65-01 | |
131 | S TITLE6= "TO_GET_AW ARD_INFORM ATION - DO NOT SEND TO CDC!!" ; JAJ 02/2 4/2009 BUG 004565-01 | |
132 | U XFILEIO W !!, TIT LE6 ; JAJ 02/24/2009 BUG004565 -01 | |
133 | S HEADAW= "BINDEX^SS N" ; JAJ 0 2/24/2009 BUG004565- 01 | |
134 | U XFILEIO W !!, HEA DAW,! ; JA J 02/24/20 09 BUG0045 65-01 | |
135 | S TITLE7= "CDCINPATI ENT" ; JAJ 02/24/200 9 BUG00456 5-01 | |
136 | U ZFILEIO W !!,TITL E7 ; JAJ 0 2/24/2009 BUG004565- 01 | |
137 | S HEADIPT ="CLAIM_NU MBER^ADMIT _DX^ADMIT_ DX_DESC^DI SCH_STATUS ^DISCHAGE_ DX_CODE^DI SCHARGE_DX _DESC^DRG/ C-T-C^BILL ED_AMT^PAI D_AMT" ; J AJ 02/24/2 009 BUG004 565-01 | |
138 | U ZFILEIO W !!,HEAD IPT,! ; JA J 02/24/20 09 BUG0045 65-01 | |
139 | S TITLE8= "CDC_INPT_ CLAIMS_DOD " ; JAJ 02 /24/2009 B UG004565-0 1 | |
140 | U AFILEIO W !!,TITL E8 ; JAJ 0 2/24/2009 BUG004565- 01 | |
141 | S HEADDOD ="B_INDEX^ CLAIM_NUMB ER^CVA_VEN _POINTER^C H_STATUS^T YPE_OF_SVC ^PLACE_OF_ SVC^DATE_S VC_^DATE_D ISCHARGE^C LAIM_DRG^P D_AMT^BILL ED_AMT^ALL OWED^AMT" ; JAJ 02/2 4/2009 BUG 004565-01 | |
142 | U AFILEIO W !!,HEAD DOD,! ; JA J 02/24/20 09 BUG0045 65-01 | |
143 | Q ;JAJ 02 /24/2009 B UG004565-0 1 | |
144 | PERSON ;CR EATES PERS ON DATA | |
145 | Q:'$D(^AH CHVA(DFN,1 00,BFN,0)) S BREC=^ AHCHVA(DFN ,100,BFN,0 ) | |
146 | Q:'$D(^AH CHVA(DFN,1 00,BFN,1)) S BADD=^ AHCHVA(DFN ,100,BFN,1 ) | |
147 | S BGEND=$ P(BREC,"^" ,2) | |
148 | S BINDEX= DFN_BFN | |
149 | S BDOB=$P (BREC,"^", 3) | |
150 | S BDOD=$P (BREC,"^", 6) ;JAJ D EV004565-0 2 01/16/20 09 DT OF D EATH | |
151 | S BSSN=$P (BREC,"^", 9) | |
152 | S BST=$P( BADD,"^",4 ) | |
153 | S:BST'="" BST=$P(^D IC(5,BST,0 ),"^",2) ; JAJ DEV004 565-02 01/ 16/2009 ST ATE ABBR | |
154 | S BZIP=$P (BADD,"^", 5) | |
155 | S BMARR=$ P(BREC,"^" ,19) | |
156 | I BMARR=" " S BMARR= "0" | |
157 | S BDOB=$$ FMTE^XLFDT (BDOB,"5D" ) | |
158 | S BDOD=$$ FMTE^XLFDT (BDOD,"5D" ) ;JAJ DE V004565-02 01/16/200 9 DT OF DE ATH READAB LE | |
159 | Q:'$D(^AH CHVA(DFN,0 )) S SREC 0=^AHCHVA( DFN,0) | |
160 | Q:'$D(^AH CHVA(DFN,1 )) S SREC 1=^AHCHVA( DFN,1) | |
161 | S SDOB=$P (SREC0,"^" ,3) | |
162 | S SDOB=$$ FMTE^XLFDT (SDOB,"5D" ) | |
163 | S SZIP=$P (SREC1,"^" ,5) | |
164 | ; NEXT 4 LINES ADDE D BY AHJ T O INCLUDE LEVEL OF D ISABILITY AWARDED 1- 3 ; JAJ 2/ 19/2009 BU G0465-01 D O NOT COLL ECT IN VIS TA | |
165 | ;S AWARDC D=0 ;JAJ 0 2/19/2009 BUG004565- 01 | |
166 | ;I $D(^CH MZHOLD($J, "CDC-AWARD -SSN",BSSN )) S AWARD DAT=^CHMZH OLD("CDC-A WARD-SSN", BSSN) ; JA J DEV00456 5-02 1/21/ 09 ADDED $ J ONLY ;JA J 02/19/20 09 BUG0045 65-01 | |
167 | ;I $D(^CH MZHOLD($J, "CDC-AWARD -SSN",BSSN )) S AWARD CD=$P(AWAR DDAT,"^",2 ) ; JAJ DE V004565-02 1/21/09 A DDED $J ON LY ;JAJ 02 /19/2009 B UG004565-0 1 | |
168 | U PFILEIO W BINDEX_ "^"_BSSN_" ^"_BGEND_" ^"_BDOB_"^ "_BDOD_"^" _BMARR_"^" _BST_"^"_B ZIP_"^"_SD OB_"^"_SZI P,! ;JAJ D EV004565-0 2 01/16/20 09 (ADDED BDOD) ;JAJ 02/19/200 9 BUG00456 5-01 (REMO VED AWARD, MOVED BDOD ) | |
169 | D AWARDIN F ; JAJ 2/ 25/2009 BU G004565-01 AWARD INF ORMATION F OR HAC ONL Y | |
170 | Q ;JAJ 2/25/2009 BUG004565- 01 AWARD I NFORMATION FOR HAC O NLY | |
171 | AWARDINF ; JAJ 2/25/ 2009 BUG00 4565-01 AW ARD INFORM ATION FOR HAC ONLY | |
172 | U XFILEIO W BINDEX_ "^"_BSSN,! ;JAJ 2/2 5/2009 BUG 004565-01 AWARD INFO RMATION FO R HAC ONLY | |
173 | Q | |
174 | FEND ; | |
175 | ;C CFILEI O | |
176 | ;C PFILEI O | |
177 | ;C DFILEI O | |
178 | ;C VFILEI O | |
179 | ;C ZFILEI O | |
180 | ;C AFILEI O ; JAJ DE V004565-02 1/21/09 | |
181 | ;C GFILEI O ; JAJ DE V004565-02 1/21/09 | |
182 | ;C XFILEI O ; JAJ BU G004565-01 2/19/2009 | |
183 | ;C IFILEI O ; JAJ BU G004565-01 2/19/2009 | |
184 | S FLDER=" /FS3BIG/BP O/CDC_REPO RT/" ; ;USE THIS INSTEAD OF THE CLOSE TO SEND F ILES OUT T O FS3BIG DEF016554 07/01/2015 | |
185 | D CLOSEF^ CHTFLIB9(P FILEIO,"PF ILEIO") | |
186 | D FTPFILE ^CHTFLIB9( PFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
187 | D CLOSEF^ CHTFLIB9(C FILEIO,"CF ILEIO") | |
188 | D FTPFILE ^CHTFLIB9( CFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
189 | D CLOSEF^ CHTFLIB9(D FILEIO,"DF ILEIO") | |
190 | D FTPFILE ^CHTFLIB9( DFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
191 | D CLOSEF^ CHTFLIB9(V FILEIO,"VF ILEIO") | |
192 | D FTPFILE ^CHTFLIB9( VFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
193 | D CLOSEF^ CHTFLIB9(A FILEIO,"AF ILEIO") | |
194 | D FTPFILE ^CHTFLIB9( AFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
195 | D CLOSEF^ CHTFLIB9(Z FILEIO,"ZF ILEIO") | |
196 | D FTPFILE ^CHTFLIB9( ZFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
197 | D CLOSEF^ CHTFLIB9(G FILEIO,"GF ILEIO") | |
198 | D FTPFILE ^CHTFLIB9( GFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
199 | D CLOSEF^ CHTFLIB9(X FILEIO,"XF ILEIO") | |
200 | D FTPFILE ^CHTFLIB9( XFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
201 | D CLOSEF^ CHTFLIB9(I FILEIO,"IF ILEIO") | |
202 | D FTPFILE ^CHTFLIB9( IFILEIO," DNS fs3. DNS ",FLDER,"P UT") | |
203 | X "D $SYS TEM.Proces s.SetZEOF( 0)" ; ;DEF016554 CLOSE MOD IFIED 07/3 0/2015 | |
204 | K DFNPT,B FNPT,CDFNP T,CLMPT,DF N,BFN,CLMC T,BENECT,C HMDFN,CLMN UM,CHMBFN, BSSN,BGEND ,BINDEX,BD OB,BDOD,BS T,BZIP,MAR R,SDOB,SZI P,AWARDCD, AWARDDAT,C ODE,DES,CH G,AMT,ODIA G,ODIAGD,C HDIAG,CHDI AGD ; JAJ DEV004565- 02 1/21/09 | |
205 | K ^CHMZHO LD($J,"SB_ PERSON_DAT A_FOR_CDC" ) ; JAJ BU G004565-01 2/24/2009 KILLS CHM ZHOLD $J S TUFF TO CL EAR IT OUT EACH TIME | |
206 | K ^CHMZHO LD($J,"SB_ CLAIM_DATA _FOR_CDC") ; JAJ BUG 004565-01 2/24/2009 | |
207 | Q | |
208 | FILESET; INSTEAD OF USING DEC NET -- USE FTPFILE I N CHTFLIB9 TO SEND T HE FILES | |
209 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
210 | S FILENM= "CDCPERSON .TXT" | |
211 | S PFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM | |
212 | I UCI'="H AC" S PFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM | |
213 | X "D $SYS TEM.Proces s.SetZEOF( 1)" ;;DEF01655 4 OPEN AND CLOSE MOD IFIED 07/ 30/2015 | |
214 | I '$$OPEN FIWR^CHTFL IB9(.PFILE IO,"PFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
215 | S FILENM1 ="CDCCLAIM .TXT" | |
216 | S CFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM1 | |
217 | I UCI'="H AC" S CFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 1 | |
218 | I '$$OPEN FIWR^CHTFL IB9(.CFILE IO,"CFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
219 | S FILENM2 ="CDCPROC. TXT" | |
220 | S DFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM2 | |
221 | I UCI'="H AC" S DFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 2 | |
222 | I '$$OPEN FIWR^CHTFL IB9(.DFILE IO,"DFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
223 | S FILENM3 ="CDCVENDO R.TXT" | |
224 | S VFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM3 | |
225 | I UCI'="H AC" S VFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 3 | |
226 | I '$$OPEN FIWR^CHTFL IB9(.VFILE IO,"VFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
227 | S FILENM4 ="CDCCLAIM DOD.TXT" | |
228 | S AFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM4 | |
229 | I UCI'="H AC" S AFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 4 | |
230 | I '$$OPEN FIWR^CHTFL IB9(.AFILE IO,"AFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
231 | S FILENM5 ="CDCINPAT IENT.TXT" | |
232 | S ZFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM5 | |
233 | I UCI'="H AC" S ZFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 5 | |
234 | I '$$OPEN FIWR^CHTFL IB9(.ZFILE IO,"ZFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
235 | S FILENM6 ="CDCDIAGN OSISOPT.TX T" | |
236 | S GFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM6 | |
237 | I UCI'="H AC" S GFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 6 | |
238 | I '$$OPEN FIWR^CHTFL IB9(.GFILE IO,"GFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
239 | S FILENM7 ="AWARD.TX T" | |
240 | S XFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM7 | |
241 | I UCI'="H AC" S XFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 7 | |
242 | I '$$OPEN FIWR^CHTFL IB9(.XFILE IO,"XFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
243 | S FILENM8 ="CDCDIAGN OSISIPT.TX T" | |
244 | S IFILEIO ="HAC_HFS$ :[SCR.TEMP _FILES]"_F ILENM8 | |
245 | I UCI'="H AC" S IFIL EIO="HAC_H FS$:[DSMMA NAG.CHAMPV A]"_FILENM 8 | |
246 | I '$$OPEN FIWR^CHTFL IB9(.IFILE IO,"IFILEI O") W "FIL E NOT AVAI LABLE AT T HIS MOMENT " | |
247 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.