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 | CHCMSRFR.m | Mon Nov 5 16:44:08 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHCMSRFR.m | Tue Nov 6 22:10:38 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 11 | 986 |
Changed | 10 | 22 |
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 | CHCMSRFR ; HAC/SKD;CM S REPLY FI LE READIN AND GENERA TE DISCREP ANCY REPOR T MODULE;0 6/24/08 | |
2 | ;;1.0;CHA MPVA SYSTE M;;JULY 4, 1990; | |
3 | ;;DEV0042 23-01: Add Medicare Part D Fie ld and HIC Number (p art 2) | |
4 | ;;DEV??? Added expo rt version of the re port to a file..see variable F ILEOUT2 | |
5 | ;;;^CHMZH OLD("ZSKD_ CMSREPLY", "NAME",CHL NAME,CHFNA ME,CHMI,CH SSN)=^CHMZ HOLD("ZSKD _CMSREPLY" ,BID)= | |
6 | ;;COMMENT ED OFF DUE $$GETDT F UNCTION TO KEEP DATE S IN FILEM AN FORMAT - AEB 4/27 /2011 | |
7 | ;;P1=SSN | |
8 | ;;P2=SEX | |
9 | ;;P3=DOB | |
10 | ;;P4=DOD | |
11 | ;;P5=FNAM E | |
12 | ;;P6=MI | |
13 | ;;P7=LNAM E | |
14 | ;;P8=CHMA SDT | |
15 | ;;P9=CHMA EDT | |
16 | ;;P10=CHM BSDT | |
17 | ;;P11=CHM BEDT | |
18 | ;;P13=DIS CREPANCY E RROR CODES | |
19 | ;;P12=HIC N | |
20 | ; | |
21 | ;JSG;DEV0 05832-02;0 2/10/09;Au to populat e DODs fro m the CMS Reply File | |
22 | ;DP; TST0 08413: 5/2 5/2010; CM S Data Mat ch - Codin g change t o load the CMS data ; | |
23 | ;JEH; DEV 013737-11/ 14/11;CMS End of Fil e clean up | |
24 | ;SBB; DEF 018404-06/ 27/13 - In itializing variable CHBNAME to "Not Foun d", that w ay when a | |
25 | ;; r ecord is n ot found i n ^AHCHVA it wont di splay prev ious name. | |
26 | ;SBB; DEF 016554-11/ 19/13 - Mo dified Wri ting to a file as pe r VHA stan dard. | |
27 | ;SBB; DEF 016554-07/ 30/15 - Ad ding chang es for DEC NET | |
28 | ;; | |
29 | D ^CHMFSE T X CHRES ET | |
30 | ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********" | |
31 | ;U 0 W !, "For the s ystem to g enerate th e CMS disc repancy re port, five files lis ted below " ;DP; The next 3 li nes are no t needed | |
32 | ;U 0 W !, "must exis t in the DNS \cms\CMSRe plyFiles d irectory: " ;DP; | |
33 | ;U 0 W !! ," BENENAM E.TXT, HIC N.TXT, MED A.TXT, MED B.TXT, SSN .TXT." ;DP ; | |
34 | ;U 0 W !! ,"The disc repancy re port name is CMS_DIS CREPANCY_R EPORT_MMYY .TXT and w ill be " | |
35 | ;U 0 W !, "output to the DNS \CMS\CMS_D iscrepanci es directo ry." | |
36 | ;U 0 W !! ,"In addit ion a disc repancy ex port file will be cr eated for the Web Tr acker" | |
37 | ;U 0 W !, "Utility. It is stor ed in HAC_ HFS$:[KERM IT.CMS.OUT ] director y with a n ame of " | |
38 | ;U 0 W !, "CMS_DISCR EPANCY_EXP ORT_MMYY.T XT and is moved to t he network using Mov eIt Script " | |
39 | ;U 0 W !, "********* ********** ********** ********** ********** ********** ********** *********" | |
40 | ;U 0 W !! ,"O.K. con tinue (Y/N ) ? " | |
41 | ;U 0 D CS BRS^CHSC2 | |
42 | ;Q:$D(DFO UT) Q:$D( DUOUT) | |
43 | ;I $P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY")),"^ ",3)'=1 S ANS=0 D ME SS,STRT Q | |
44 | ||
45 | /* ;JEH; DEV013737- 11/14/11 - NOT USED AT THIS TI ME - BEGIN | |
46 | U 0 W !!, "Select Op tion: 1. F ull Run" | |
47 | U 0 W !," 2. Re set" | |
48 | U 0 W !," 3. Te st Run" | |
49 | U 0 W !," 4. Pr int Full R un" | |
50 | U 0 W !," 5. Re set All" | |
51 | U 0 W !," 6. Ju lia" | |
52 | U 0 W !!, " Opti on #: " R ANS#2 | |
53 | Q:ANS="" I (ANS<1! (ANS>6)) Q | |
54 | I ANS=6 D PRINT^CHC MS1009 Q | |
55 | I ANS=5 D ^CHCMS101 0 Q | |
56 | I ANS=4 D PRINT1 Q | |
57 | K:ANS'=2 ^CHMZHOLD( "CMS_RESET ") | |
58 | I ANS=2 D RESET^CHC MS1009 Q | |
59 | I ANS=3 U 0 R " Number of test patie nts: ",NTP #3 S NTP1= 1 | |
60 | */ ;JEH; DEV013737- 11/14/11 - NOT USED AT THIS TI ME - END | |
61 | S ANS=1 ; JEH; DEV01 3737-11/14 /11 - GIVI NG USER ON LY 1 OPTIO N {Full Ru n} | |
62 | STRT | |
63 | S CHRPTNM ="" | |
64 | I $P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY")),"^" ,1)'="" S CHRPTNM=$P ($G(^VA(20 0,$P(^CHMZ HOLD("ZSKD _CMSREPLY" ),"^",1),0 )),U,1) | |
65 | ;I CHRPTN M'="" W !! ,"*"_$E(CH RPTNM,1,12 )_" is run ning the r eport. Con tinue and overwrite the report (Y/N)? " D CSBRS^CH SC2 Q:$D(D FOUT) Q:$ D(DUOUT) Q:$$UP^XLF STR(Y)'="Y " | |
66 | S CHPTSK= "",CHPTSK= $P($G(^CHM ZHOLD("ZSK D_CMSREPLY ")),"^",2) | |
67 | I CHPTSK' ="",$D(^%Z TSCH("TASK ",CHPTSK)) K ^%ZTSCH ("TASK",CH PTSK) | |
68 | K ^CHMZHO LD("ZSKD_C MSREPLY") | |
69 | I ANS=3 U 0 W !!,"R emember to change yo u terminal setting t o 132 char acters wid e",! r x:2 | |
70 | ; | |
71 | QUE ; | |
72 | I '$G(DUZ ) S DUZ=1 | |
73 | S CHFIO=" ",ZTDTH=$H | |
74 | S ZTRTN=" START^CHCM SRFR",ZTDE SC="HAC CM S CROSS-MA TCH DISCRE PANCY REPO RT" | |
75 | S ZTIO="" ,ZTSAVE("C HFIO")="", ZTSAVE("CH *")="",ZTS AVE("^CHMZ HOLD(""ZSK D_CMSREPLY "",")="" | |
76 | S ZTSAVE( "ANS")="" ;JEH; DEV013737- 11/14/11 | |
77 | ;I ANS=3 D RFILE1 Q | |
78 | ;D RFILE1 Q:ANS=3 ;JEH; DEV013737- 11/14/11 - NOT USED AT THIS TI ME. | |
79 | D ^%ZTLOA D ;JEH ; DEV01373 7-11/14/11 | |
80 | Q | |
81 | I ANS=1 D ^%ZTLOAD ;JEH; DEV013737- 11/14/11 - NOT USED AT THIS TI ME. | |
82 | END ; | |
83 | Q | |
84 | ; | |
85 | START ; | |
86 | I ANS<3 D | |
87 | .S:'$D(ZT SK) ZTSK=1 S ^CHMZHO LD("ZSKD_C MSREPLY")= DUZ_"^"_ZT SK | |
88 | .S $ZE="" ,$ZT="PROC ESS1^CHCMS RFR" | |
89 | RFILE1 ;re adin ssn f ile | |
90 | U 0 W !!, "..." | |
91 | D ^CHCMS1 009 ;DP;R EAD IN CMS 1009 VERSI ON | |
92 | ;D PRINT^ CHCMS1009, | |
93 | P U 0 W !! ,"..." D P ROCESS1 ;DP;SKIP OLD FILE R EADIN | |
94 | Q | |
95 | S $ZE="", $ZT="RFILE 2^CHCMSRFR " | |
96 | S READFIL 1="HACFS3" "
|
|
97 | O READFIL 1:"R":5 G: $ZE["ENDOF FILE" RFIL E2 | |
98 | F U READ FIL1 R TMP X G:$ZE["E NDOFFILE" RFILE2 D | |
99 | .S (CHBID ,CHSSN,CHS EX)="" | |
100 | .Q:$E(TMP X,1)="B" | |
101 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
102 | .S CHSSN= $P(TMPX,", ",2) Q:CHS SN="" Q:C HSSN'?9N | |
103 | .S CHSEX= $P(TMPX,", ",3),CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "") | |
104 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",1)=CHS SN | |
105 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",2)=CHS EX | |
106 | RFILE2 ;re adin benen ame file | |
107 | S $ZE="", $ZT="RFILE 3^CHCMSRFR " | |
108 | S READFIL 2="HACFS3" "
|
|
109 | O READFIL 2:"R":5 G: $ZE["ENDOF FILE" RFIL E3 | |
110 | F U READ FIL2 R TMP X G:$ZE["E NDOFFILE" RFILE3 D | |
111 | .S (CHBID ,CHDOB,CHD OD,CHFNAME ,CHMI,CHLN AME,CHHICN )="" | |
112 | .Q:$E(TMP X,1)="B" | |
113 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
114 | .S CHDOB= $P(TMPX,", ",2) I CHD OB'="" S C HDOB=$$CON VDT(CHDOB) | |
115 | .S CHDOD= $P(TMPX,", ",3) I CHD OD'="" S C HDOD=$$CON VDT(CHDOD) | |
116 | .S CHFNAM E=$P(TMPX, ",",4),CHF NAME=$$TRI M^CHTFLIB( CHFNAME),C HFNAME=$$L TRIM^CHTFL IB(CHFNAME ) | |
117 | .S CHMI=$ P(TMPX,"," ,5),CHMI=$ $TRIM^CHTF LIB(CHMI), CHMI=$$LTR IM^CHTFLIB (CHMI) | |
118 | .S CHLNAM E=$P(TMPX, ",",6),CHL NAME=$$TRI M^CHTFLIB( CHLNAME),C HLNAME=$$L TRIM^CHTFL IB(CHLNAME ) | |
119 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",3)=CHD OB | |
120 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",4)=CHD OD | |
121 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",5)=CHF NAME | |
122 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",6)=CHM I | |
123 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",7)=CHL NAME | |
124 | RFILE3 ;re adin MEDA file | |
125 | S $ZE="", $ZT="RFILE 4^CHCMSRFR " | |
126 | S READFIL 3="HACFS3" "
|
|
127 | O READFIL 3:"R":5 G: $ZE["ENDOF FILE" RFIL E4 | |
128 | F U READ FIL3 R TMP X G:$ZE["E NDOFFILE" RFILE4 D | |
129 | .S (CHBID ,CHMASDT,C HMAEDT,CHM ARNCD,CHMA STCD)="" | |
130 | .Q:$E(TMP X,1)="B" | |
131 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
132 | .S CHMASD T=$P(TMPX, ",",2) I C HMASDT'="" S CHMASDT =$$CONVDT( CHMASDT) | |
133 | .S CHMAED T=$P(TMPX, ",",3) I C HMAEDT'="" S CHMAEDT =$$CONVDT( CHMAEDT) | |
134 | .S CHMARN CD=$P(TMPX ,",",4) | |
135 | .S CHMAST CD=$P(TMPX ,",",5) | |
136 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",8)=CHM ASDT | |
137 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",9)=CHM AEDT | |
138 | RFILE4 ;re adin MEDB file | |
139 | S $ZE="", $ZT="RFILE 5^CHCMSRFR " | |
140 | S READFIL 4="HACFS3" "
|
|
141 | O READFIL 4:"R":5 G: $ZE["ENDOF FILE" RFIL E5 | |
142 | F U READ FIL4 R TMP X G:$ZE["E NDOFFILE" RFILE5 D | |
143 | .S (CHBID ,CHMBSDT,C HMBEDT,CHM BRNCD,CHMB STCD)="" | |
144 | .Q:$E(TMP X,1)="B" | |
145 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
146 | .S CHMBSD T=$P(TMPX, ",",2) I C HMBSDT'="" S CHMBSDT =$$CONVDT( CHMBSDT) | |
147 | .S CHMBED T=$P(TMPX, ",",3) I C HMBEDT'="" S CHMBEDT =$$CONVDT( CHMBEDT) | |
148 | .S CHMBRN CD=$P(TMPX ,",",4) | |
149 | .S CHMBST CD=$P(TMPX ,",",5) | |
150 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",10)=CH MBSDT | |
151 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",11)=CH MBEDT | |
152 | RFILE5 ;re adin HICN file | |
153 | S $ZE="", $ZT="PROCE SS^CHCMSRF R" | |
154 | S READFIL 5="HACFS3" "
|
|
155 | O READFIL 5:"R":5 G: $ZE["ENDOF FILE" PROC ESS | |
156 | F U READ FIL5 R TMP X G:$ZE["E NDOFFILE" PROCESS D | |
157 | .S (CHBID ,CHHICN)=" " | |
158 | .Q:$E(TMP X,1)="B" | |
159 | .S CHBID= $P(TMPX,", ",1) Q:CHB ID="" | |
160 | .S CHHICN =$P(TMPX," ,",2) | |
161 | .S $P(^CH MZHOLD("ZS KD_CMSREPL Y",CHBID), "^",12)=CH HICN | |
162 | PROCESS ; | |
163 | S $ZE="", $ZT="",$EC ODE=$ZE | |
164 | I $D(READ FIL1) C RE ADFIL1 | |
165 | I $D(READ FIL2) C RE ADFIL2 | |
166 | I $D(READ FIL3) C RE ADFIL3 | |
167 | I $D(READ FIL4) C RE ADFIL4 | |
168 | PROCESS1 ; DP;new sta rting poin t | |
169 | ;compare CMS data a gainst the HAC's | |
170 | D NOW^%DT C S CHDTTM =% | |
171 | S (CHTDSC RE,CHTSSN, CHTNAME,CH TDOB,CHTDO D,CHTHICN, CHTMABD,CH TMAED,CHTM BBD,CHTMBE D)=0 | |
172 | S CHBID=0 | |
173 | F S CHBI D=$O(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID)) G :'CHBID PR INT D | |
174 | .S (CHSSN ,CHSEX,CHD OB,CHDOD,C HFNAME,CHM I,CHLNAME, CHMASDT,CH MAEDT,CHMB SDT,CHMBED T,CHHICN)= "" | |
175 | .S CHSSN= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 1) | |
176 | .I CHSSN' ="" S CHTS SN=CHTSSN+ 1 | |
177 | .S CHSEX= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 2) ;,CHSEX =$S(CHSEX= 1:"M",CHSE X=2:"F",1: "");DP | |
178 | .S CHDOB= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 3) | |
179 | .S CHDOD= $P(^CHMZHO LD("ZSKD_C MSREPLY",C HBID),"^", 4) | |
180 | .S CHFNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",5) | |
181 | .S CHMI=$ P(^CHMZHOL D("ZSKD_CM SREPLY",CH BID),"^",6 ) | |
182 | .S CHLNAM E=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",7) | |
183 | .S CHMASD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",8) | |
184 | .S CHMAED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",9) | |
185 | .S CHMBSD T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",10) | |
186 | .S CHMBED T=$P(^CHMZ HOLD("ZSKD _CMSREPLY" ,CHBID),"^ ",11) | |
187 | .S CHHICN =$P(^CHMZH OLD("ZSKD_ CMSREPLY", CHBID),"^" ,12) | |
188 | .S CHNOSS N=0,CHERR= "" | |
189 | .D GHACDA TA | |
190 | .;Set NO HAC SSN MA TCH error to error c ode "I" | |
191 | .;I CHNOS SN S CHERR ="NO HAC S SN MATCH" D SETERR Q | |
192 | .I CHNOSS N S CHERR= "I" D SETE RR Q | |
193 | .;I CHLNA ME'=CHHLNA ME!(CHMI'= CHHMI)!(CH FNAME'=CHH FNAME) S C HERR="A,", CHTNAME=CH TNAME+1,CH TDSCRE=CHT DSCRE+1 | |
194 | .I $$UP^X LFSTR(CHLN AME)'=$$UP ^XLFSTR(CH HLNAME) S CHERR="A," ,CHTNAME=C HTNAME+1,C HTDSCRE=CH TDSCRE+1 | |
195 | .;S:CHHDO B'="" CHHD OB=$$GETDT (CHHDOB) ;COMMENTE D OFF DUE TO DATE FO RMAT ISSUE MUST BE F ILEMAN AE B 4/27/201 1 | |
196 | .I CHDOB' =CHHDOB S CHERR=CHER R_"B,",CHT DOB=CHTDOB +1,CHTDSCR E=CHTDSCRE +1 | |
197 | .;S:CHHDO D?7N CHHDO D=$$GETDT( CHHDOD) ; COMMENTED OFF DUE TO DATE FORM AT ISSUE M UST BE FIL EMAN AEB 4/27/2011 | |
198 | .I CHDOD' =CHHDOD S CHERR=CHER R_"C,",CHT DOD=CHTDOD +1,CHTDSCR E=CHTDSCRE +1 | |
199 | .;I CHHHI CN'="" D | |
200 | .I $$UP^X LFSTR(CHHI CN)'=$$UP^ XLFSTR(CHH HICN) S CH ERR=CHERR_ "D,",CHTHI CN=CHTHICN +1,CHTDSCR E=CHTDSCRE +1 | |
201 | .;S:CHHMA SDT'="" CH HMASDT=$$G ETDT(CHHMA SDT) ;COM MENTED OFF DUE TO DA TE FORMAT ISSUE MUST BE FILEMA N AEB 4/2 7/2011 | |
202 | .I CHMASD T'=CHHMASD T S CHERR= CHERR_"E," ,CHTMABD=C HTMABD+1,C HTDSCRE=CH TDSCRE+1 | |
203 | .;S:CHHMA EDT'="" CH HMAEDT=$$G ETDT(CHHMA EDT) ;COM MENTED OFF DUE TO DA TE FORMAT ISSUE MUST BE FILEMA N AEB 4/2 7/2011 | |
204 | .I CHMAED T'=CHHMAED T S CHERR= CHERR_"F," ,CHTMAED=C HTMAED+1,C HTDSCRE=CH TDSCRE+1 | |
205 | .;S:CHHMB SDT CHHMBS DT=$$GETDT (CHHMBSDT) ;COMMENT ED OFF DUE TO DATE F ORMAT ISSU E MUST BE FILEMAN A EB 4/27/20 11 | |
206 | .I CHMBSD T'=CHHMBSD T S CHERR= CHERR_"G," ,CHTMBBD=C HTMBBD+1,C HTDSCRE=CH TDSCRE+1 | |
207 | .;S:CHHMB EDT'="" CH HMBEDT=$$G ETDT(CHHMB EDT) ;COM MENTED OFF DUE TO DA TE FORMAT ISSUE MUST BE FILEMA N AEB 4/2 7/2011 | |
208 | .I CHMBED T'=CHHMBED T S CHERR= CHERR_"H", CHTMBED=CH TMBED+1,CH TDSCRE=CHT DSCRE+1 | |
209 | .D SETERR | |
210 | .D DODCHK ^CHCMSAP1( CHDOD,CHHD OD,CHDOB,C HHDOB,DFN, BFN,CHSSN, CHBNAME) ;JSG;DEV00 5832;2/20/ 09 | |
211 | .;U 0 W ! ,CHHICN," ",CHHHICN R XXX | |
212 | .I CHERR= "D," D ;DEV01 4327 EW 12 /14/12 | |
213 | ..S $P(^A HCHVA(DFN, 100,BFN,0) ,"^",39)=$ $UP^XLFSTR (CHHICN) | |
214 | ..I $D(CH HHICNK) K ^AHCHVA("M ",CHHHICN, DFN,BFN) ;DEV 014327 EW 12/14/12 | |
215 | ..S ^AHCH VA("M",CHH ICN,DFN,BF N)="" ;DEV014327 EW 12/14/ 12 | |
216 | ..Q:'$D(^ AHCHVA(DFN ,100,BFN)) | |
217 | ..S CHK=9 99999,CHK= $O(^AHCHVA (DFN,100,B FN,110,CHK ),-1) | |
218 | ..I 'CHK S CHK=1 | |
219 | ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",28)=1 | |
220 | ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",29)=1 | |
221 | ..S $P(^A HCHVA(DFN, 100,BFN,11 0,CHK,0)," ^",30)=CHD TTM | |
222 | PRINT ; | |
223 | S IOF="#, *27,*91,*5 0,*74,*27, *91,*72" | |
224 | X ^%ZOSF( "UCI") S U CI=$P(Y,", ",1) | |
225 | D GETDATE | |
226 | I ANS=3 S (FILEOUT, FILEOUT2)= 0 D PRINT1 Q | |
227 | ;HIPAA Re ady Team T rack #: 53 10 Begin | |
228 | ;Added ex port versi on of the report see variable FILEOUT2 | |
229 | S:'$D(MMY Y) MMYY=08 10 | |
230 | ;SBB-DEF0 16554-11/1 9/13 - Mod ified from DECNET to FTP as pe r VHA stan dard. | |
231 | ;S FILEOU T="HACFS3" "
|
|
232 | ;I UCI'=" HAC" S FIL EOUT="HACF S3""
|
|
233 | S FILEOUT ="HAC_HFS$ :[SCR.TEMP _FILES]CMS _DISCREPAN CY_REPORT_ "_MMYY_".T XT" | |
234 | I UCI'="H AC" S FILE OUT="HAC_H FS$:[DSMMA NAG.CHAMPV A]CMS_DISC REPANCY_RE PORT_"_MMY Y_"_"_UCI_ ".TXT" | |
235 | ; | |
236 | S FILEOUT 2="HAC_HFS $:[KERMIT. CMS.OUT]CM S_"_MMYY_" _DATA.TXT" | |
237 | I UCI'="H AC" S FILE OUT2="HAC_ HFS$:[KERM IT.CMS.OUT ]CMS_"_MMY Y_"_"_UCI_ "_DATA.TXT " | |
238 | ;SBB-DEF0 16554-11/1 9/13 - Mod ified open to follow VHA stand ard. | |
239 | ;O FILEOU T C FILEOU T:"D" | |
240 | ;O FILEOU T:"NWS" | |
241 | ;O FILEOU T2 C FILEO UT2:"D" | |
242 | ;O FILEOU T2:"NWS" | |
243 | ;SBB 07/3 0/15 DEF01 6554 | |
244 | X "D $SYS TEM.Proces s.SetZEOF( 1)" | |
245 | I '$$OPEN FIWR^CHTFL IB9(.FILEO UT,"FILEOU T") X "D $ SYSTEM.Pro cess.SetZE OF(0)" Q | |
246 | I '$$OPEN FIWR^CHTFL IB9(.FILEO UT2,"FILEO UT2") X "D $SYSTEM.P rocess.Set ZEOF(0)" Q | |
247 | ; | |
248 | ;HIPAA Re ady Team T rack #: 53 10 END | |
249 | PRINT1 | |
250 | S PG=1 | |
251 | D HEAD | |
252 | D DETAIL | |
253 | D TAIL | |
254 | ;C FILEOU T | |
255 | ;C FILEOU T2 | |
256 | D CLOSEF^ CHTFLIB9(F ILEOUT,"FI LEOUT") | |
257 | D CLOSEF^ CHTFLIB9(F ILEOUT2,"F ILEOUT2") | |
258 | ;SBB 07/3 0/15 DEF01 6554 | |
259 | X "D $SYS TEM.Proces s.SetZEOF( 0)" | |
260 | D FTPFILE ^CHTFLIB9( FILEOUT," DNS . DNS ","/CMS/CM S_Discrepa ncies","PU T") | |
261 | D KILLVAR | |
262 | DODPOP ;JS G;DEV00583 2;2/20/09; | |
263 | ;S ZTRTN= "DODAUTO^C HCMSAP1",Z TDESC="AUT O POPULATE CMS DODs" ,ZTIO="",Z TDTH=$H ;J SG;DEV0058 32;2/20/09 ;JEH; D EV013737-1 1/14/11 - NOT NEEDED , TASKED E ARLIER & C AUSED DUPL ICATE FILE S ON FS3BI G | |
264 | ;I $D(AND ) I ANS<3 D ^%ZTLOAD ;JEH; D EV013737-1 1/14/11 - NOT NEEDED , TASKED E ARLIER & C AUSED DUPL ICATE FILE S ON FS3BI G | |
265 | D DODAUTO ^CHCMSAP1 ;JS G;DEV00583 2;2/20/09; Start DOD auto popul ate job | |
266 | D MMMSG ;SENDING MM MESSAG E THAT CMS DISCREPAN CY REPORT IS READY ;JEH; DEV 013737-11/ 14/11 | |
267 | Q | |
268 | ; | |
269 | SETERR ; | |
270 | S $P(^CHM ZHOLD("ZSK D_CMSREPLY ",CHBID)," ^",13)=$S( $E(CHERR,$ L(CHERR))= ",":$E(CHE RR,1,$L(CH ERR)-1),1: CHERR) | |
271 | I CHFNAME ="" S CHFN AME="XXX" | |
272 | I CHMI="" S CHMI="X XX" | |
273 | I CHLNAME ="" S CHLN AME="XXX" | |
274 | I CHERR=" D," S CHTH ICN=CHTHIC N-1,CHTDSC RE=CHTDSCR E-1 ;DEV 014327 EW 12/14/12 | |
275 | I CHERR'= "D," S ^CH MZHOLD("ZS KD_CMSREPL Y","NAME", CHLNAME,CH FNAME,CHMI ,CHSSN)=^C HMZHOLD("Z SKD_CMSREP LY",CHBID) ;DEV0143 27 EW 12/1 4/12 | |
276 | Q | |
277 | ; | |
278 | GHACDATA ; get data f rom the HA C Bene fil e | |
279 | S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN)="" | |
280 | S CHNOSSN =0 | |
281 | S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN | |
282 | I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q | |
283 | S (DFN,BF N)="" | |
284 | S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S CHNOSSN=1 Q | |
285 | S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q | |
286 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) S CHNOSSN =1 Q | |
287 | S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
288 | S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6) | |
289 | S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1) | |
290 | S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME) | |
291 | S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI) | |
292 | S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME) | |
293 | D HACMEDA ,HACMEDB | |
294 | S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39) | |
295 | S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN) | |
296 | Q | |
297 | ; | |
298 | HACMEDA ; | |
299 | Q:'$D(^AH CHVA(DFN,1 00,BFN,111 )) | |
300 | S CHHMADT P=99999999 99 | |
301 | S CHHMADT P=$O(^AHCH VA(DFN,100 ,BFN,111,C HHMADTP),- 1) | |
302 | I CHHMADT P D | |
303 | .S CHHMAS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 1) | |
304 | .S CHHMAE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 11,CHHMADT P,0)),"^", 4) | |
305 | Q | |
306 | ; | |
307 | HACMEDB ; | |
308 | Q:'$D(^AH CHVA(DFN,1 00,BFN,112 )) | |
309 | S CHHMBDT P=99999999 99 | |
310 | S CHHMBDT P=$O(^AHCH VA(DFN,100 ,BFN,112,C HHMBDTP),- 1) | |
311 | I CHHMBDT P D | |
312 | .S CHHMBS DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 1) | |
313 | .S CHHMBE DT=$P($G(^ AHCHVA(DFN ,100,BFN,1 12,CHHMBDT P,0)),"^", 4) | |
314 | Q | |
315 | ; | |
316 | CONVDT(D) ;Converts external date (01SE P2007) to FileMan da te (307090 1) | |
317 | S X=D D ^ %DT K X,%D T | |
318 | Q Y | |
319 | ; | |
320 | KILLVAR ; | |
321 | S $ZE="", $ZT="" | |
322 | ;K ^CHMZH OLD("ZSKD_ CMSREPLY") | |
323 | K CHRPTNM ,Y | |
324 | K CHCMS,R EADFIL1,RE ADFIL2,REA DFIL3,READ FIL4,TMPX, CHBID,CHSS N,CHSEX,CH DOB,CHDOD, CHFNAME,CH MI,CHLNAME ,CHHICN | |
325 | K CHMASDT ,CHMAEDT,C HMARNCD,CH MASTCD,CHM BSDT,CHMBE DT,CHMBRNC D,CHMBSTCD ,CHERR,CHN OSSN | |
326 | K CHHSEX, CHHDOB,CHH DOD,CHHFNA ME,CHHMI,C HHLNAME,CH HMASDT,CHH MAEDT,CHHM BSDT,CHHMB EDT,CHHHIC N,DFN,BFN, BNAME,CHSS N | |
327 | K CHHMADT P,CHHMBDTP ,CHTDSCRE, CHTSSN,CHT NAME,CHTDO B,CHTDOD,C HTHICN,CHT MABD,CHTMA ED,CHTMBBD ,CHTMBED | |
328 | Q | |
329 | ; | |
330 | HEAD ; | |
331 | I '$G(DUZ ) S DUZ=1 | |
332 | S TITLE1= "HEALTH AD MINISTRATI ON CENTER" | |
333 | S TITLE2= "HAC CMS C ROSS-MATCH DISCREPAN CIES REPOR T" | |
334 | S:'$D(MMY YYY) MMYYY Y=$ZD($H) ;S:ANS=4 F ILEOUT=0 | |
335 | S TITLE3= "For Time Period "_M MYYYY | |
336 | S TITLE4= "Discrepan t Name, DO B, DOD, HI CN & Medic are Enroll ment Dates " | |
337 | U FILEOUT W !,DUZ,? 55,TITLE1, ?123,"page : ",PG | |
338 | U FILEOUT W !,$$FMT E^XLFDT(DT ,"5D"),?49 ,TITLE2 | |
339 | U FILEOUT I $D(M) W !,H_":"_M ,?56,TITLE 3 | |
340 | U FILEOUT W !!,?37, TITLE4 | |
341 | U FILEOUT W !!,?116 ,"ERROR" | |
342 | U FILEOUT W !,"SSN" ,?12,"NAME ",?30,"DOB ",?42,"DOD ",?54,"HIC N",?68,"A BEG",?80," A END",?92 ,"B BEG",? 104,"B END ",?116,"CO DE(S)" | |
343 | U FILEOUT W !,"---- -----",?12 ,"-------- -------",? 30,"------ ----",?42, "--------- -",?54,"-- --------", ?68,"----- -----",?80 ,"-------- --",?92,"- ---------" ,?104,"--- -------",? 116,"----- -----" | |
344 | U FILEOUT W ! | |
345 | S PG=PG+1 | |
346 | Q | |
347 | ; | |
348 | DETAIL ; | |
349 | S DL="^", ANS=1 | |
350 | S CHLNAME ="" F S C HLNAME=$O( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME )) Q:CHLNA ME="" D | |
351 | .S CHFNAM E="" F S CHFNAME=$O (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME) ) Q:CHFNAM E="" D | |
352 | ..S CHMI= "" F S CH MI=$O(^CHM ZHOLD("ZSK D_CMSREPLY ","NAME",C HLNAME,CHF NAME,CHMI) ) Q:CHMI=" " D | |
353 | ...S CHSS N=0 F S C HSSN=$O(^C HMZHOLD("Z SKD_CMSREP LY","NAME" ,CHLNAME,C HFNAME,CHM I,CHSSN)) Q:'CHSSN D | |
354 | ....S (CH NAME,CHDOB ,CHDOD,CHH ICN,CHMASD T,CHMAEDT, CHMBSDT,CH MBEDT,CHER R)="" | |
355 | ....S CHN AME=$S(CHL NAME="XXX" :"",1:CHLN AME)_", "_ $S(CHFNAME ="XXX":"", 1:CHFNAME) _" "_$S(CH MI="XXX":" ",1:CHMI) | |
356 | ....S CHD OB=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",3) | |
357 | ....S CHD OD=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",4) | |
358 | ....S CHM ASDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",8) | |
359 | ....S CHM AEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",9) S:+CHMAEDT =3 CHMAEDT ="" | |
360 | ....S CHM BSDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",10) | |
361 | ....S CHM BEDT=$P($G (^CHMZHOLD ("ZSKD_CMS REPLY","NA ME",CHLNAM E,CHFNAME, CHMI,CHSSN )),"^",11) S:+CHMBED T=3 CHMBED T="" | |
362 | ....S CHH ICN=$P($G( ^CHMZHOLD( "ZSKD_CMSR EPLY","NAM E",CHLNAME ,CHFNAME,C HMI,CHSSN) ),"^",12) | |
363 | ....S CHE RR=$P($G(^ CHMZHOLD(" ZSKD_CMSRE PLY","NAME ",CHLNAME, CHFNAME,CH MI,CHSSN)) ,"^",13) Q :CHERR="" | |
364 | ....U FIL EOUT I $Y> 56 R:ANS=4 XXX W !!! ,# D HEAD | |
365 | ....;I AN S>2 | |
366 | ....;SPLI T LONG LIN ES CJM 201 70718 | |
367 | ....U FIL EOUT W !,C HSSN,?12,$ E(CHLNAME_ ", "_CHFNA ME_" "_CHM I,1,15),?3 0,$$FMTE^X LFDT(CHDOB ,"5D"),?42 ,$$FMTE^XL FDT(CHDOD, "5D"),?54, CHHICN,?68 ,$$FMTE^XL FDT(CHMASD T,"5D"),?8 0,$$FMTE^X LFDT(CHMAE DT,"5D") | |
368 | ....W ?92 ,$$FMTE^XL FDT(CHMBSD T,"5D"),?1 04,$$FMTE^ XLFDT(CHMB EDT,"5D"), ?116,CHERR | |
369 | ....;I AN S>2 | |
370 | ....U FIL EOUT D DAT A W !,CHHS SN,?12,$E( CHBNAME,1, 15),?30,$$ FMTE^XLFDT (CHHDOB,"5 D"),?42,$$ FMTE^XLFDT (CHHDOD,"5 D") | |
371 | ....W ?54 ,CHHHICN,? 68,$$FMTE^ XLFDT(CHHM ASDT,"5D") ,?80,$$FMT E^XLFDT(CH HMAEDT,"5D "),?92,$$F MTE^XLFDT( CHHMBSDT," 5D"),?104, $$FMTE^XLF DT(CHHMBED T,"5D"),! | |
372 | ....;HIPA A Ready Te am Track # : 5310 Beg in | |
373 | ....;Adde d export v ersion of the report see varia ble FILEOU T2 | |
374 | ....I FIL EOUT2'=0 D ;SPLIT LO NG LINES C JM 2017071 8 | |
375 | .....U FI LEOUT2 W ! ,CHSSN_DL_ $E(CHNAME, 1,15)_DL_$ $FMTE^XLFD T(CHDOB,"5 D")_DL_$$F MTE^XLFDT( CHDOD,"5D" )_DL_CHHIC N_DL_$$FMT E^XLFDT(CH MASDT,"5D" )_DL_$$FMT E^XLFDT(CH MAEDT,"5D" )_DL_$$FMT E^XLFDT(CH MBSDT,"5D" )_DL_$$FMT E^XLFDT(CH MBEDT,"5D" )_DL_CHERR ,! | |
376 | ....;HIPA A Ready Te am Track # : 5310 End | |
377 | Q | |
378 | DATA ;get data from the HAC Be ne file | |
379 | S (CHHSEX ,CHHDOB,CH HDOD,CHHFN AME,CHHMI, CHHLNAME,C HHMASDT,CH HMAEDT,CHH MBSDT,CHHM BEDT,CHHHI CN,CHHSSN) ="" | |
380 | S CHNOSSN =0 | |
381 | S CHBNAME ="Not Foun d" ;;DEF0 18404;SBB; 06/27/13 | |
382 | S CHSSN=$ E("0000000 00",1,9-$L (CHSSN))_C HSSN | |
383 | I '$D(^AH CHVA("G",C HSSN)) S C HNOSSN=1 Q | |
384 | S (DFN,BF N)="" | |
385 | S DFN=$O( ^AHCHVA("G ",CHSSN,0) ) I 'DFN S CHNOSSN=1 Q | |
386 | S BFN=$O( ^AHCHVA("G ",CHSSN,DF N,0)) I 'B FN S CHNOS SN=1 Q | |
387 | I '$D(^AH CHVA(DFN,1 00,BFN,0)) S CHNOSSN =1 Q | |
388 | S CHHDOB= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",3) | |
389 | S CHHDOD= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",6) | |
390 | S CHHSSN= $P($G(^AHC HVA(DFN,10 0,BFN,0)), "^",9) | |
391 | S CHBNAME ="",CHBNAM E=$P($G(^A HCHVA(DFN, 100,BFN,0) ),"^",1) | |
392 | S CHHFNAM E=$P($P(CH BNAME,",", 2)," ",1), CHHFNAME=$ $TRIM^CHTF LIB(CHHFNA ME),CHHFNA ME=$$LTRIM ^CHTFLIB(C HHFNAME) | |
393 | S CHHMI=$ P($P(CHBNA ME,",",2), " ",2),CHH MI=$$TRIM^ CHTFLIB(CH HMI),CHHMI =$$LTRIM^C HTFLIB(CHH MI) | |
394 | S CHHLNAM E=$P(CHBNA ME,",",1), CHHLNAME=$ $TRIM^CHTF LIB(CHHLNA ME),CHHLNA ME=$$LTRIM ^CHTFLIB(C HHLNAME) | |
395 | D HACMEDA ,HACMEDB | |
396 | S CHHHICN =$P($G(^AH CHVA(DFN,1 00,BFN,0)) ,"^",39) | |
397 | S CHHHICN =$$TRIM^CH TFLIB(CHHH ICN) | |
398 | Q | |
399 | TAIL ; | |
400 | Q:ANS=4 | |
401 | U FILEOUT | |
402 | W !!!,"To tal Number of Possib le Discrep ancies: ", $G(CHTDSCR E) | |
403 | W !,"Tota l Number o f SSNs: ", $G(CHTSSN) | |
404 | W !,"Tota l Number o f Name Dis crepancies : ",$G(CHT NAME) | |
405 | W !,"Tota l Number o f DOB Disc repancies: ",$G(CHTD OB) | |
406 | W !,"Tota l Number o f DOD Disc repancies: ",$G(CHTD OD) | |
407 | W !,"Tota l Number o f HICN Dis crepancies : ",$G(CHT HICN) | |
408 | W !,"Tota l Number o f A Begin Date Discr epancies: ",$G(CHTMA BD) | |
409 | W !,"Tota l Number o f A End Da te Discrep ancies: ", $G(CHTMAED ) | |
410 | W !,"Tota l Number o f B Begin Date Discr epancies: ",$G(CHTMB BD) | |
411 | W !,"Tota l Number o f B End Da te Discrep ancies: ", $G(CHTMBED ) | |
412 | W !,"Tota l Number o f records sent in fi nder file: ",$G(^CHM ZHOLD("ZSK DCMS_LASTF NDRFILECT" )) | |
413 | W !!!,"ER ROR CODE L EGEND:" | |
414 | W !,"A = Name Discr epancy" | |
415 | W !,"B = Date of Bi rth Discre pancy" | |
416 | W !,"C = Date of De ath Discre pancy" | |
417 | W !,"D = Health Ins urance Cla im Number (HICN) Dis crepancy" | |
418 | W !,"E = Medicare A Begin Dat e Discrepa ncy" | |
419 | W !,"F = Medicare A End Date Discrepanc y" | |
420 | W !,"G = Medicare B Begin Dat e Discrepa ncy" | |
421 | W !,"H = Medicare B End Date Discrepanc y" | |
422 | Q | |
423 | ; | |
424 | GETDATE ; | |
425 | I '$D(DT) D NOW^%DT C S DT=X | |
426 | S X=DT D DTPRT S CH DT=Y | |
427 | S H=$P($H ,",",2)\36 00,M=$P($H ,",",2)#36 00\60 S:H< 10 H=0_H S :M<10 M=0_ M | |
428 | S (YY,MM, PMM)="" | |
429 | S YY=$E(D T,1,3),MM= $E(DT,4,5) | |
430 | I MM="01" S YY=YY-1 | |
431 | S PMM=$S( MM="01":"1 2",MM="02" :"01",MM=" 03":"02",M M="04":"03 ",MM="05": "04",MM="0 6":"05",MM ="07":"06" ,MM="08":" 07",MM="09 ":"08",MM= "10":"09", MM="11":"1 0",MM="12" :"11",1:"" ) | |
432 | Q:PMM="" | |
433 | S MMYY=PM M_$E(YY,2, 3) | |
434 | S MMYYYY= PMM_"/"_(Y Y+1700) | |
435 | Q | |
436 | ; | |
437 | DTPRT S Y= "" Q:X'?7N S Y=$E(X ,1,3)+1700 ,%M=+$E(X, 4,5),%D=+$ E(X,6,7) | |
438 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
439 | Q | |
440 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
441 | Q | |
442 | ; | |
443 | GETDT(D1) ;;Convert filman dat e to MM/DD /YYYY | |
444 | ;; In some i nstances t he year 20 00 indicat ion is mis sing and I need to | |
445 | ;; concatenat e it to th e rest of the date. | |
446 | S (D1,X)=$P( D1,".",1) | |
447 | S: D1?6N D1=3 _D1 Q:D1'? 7N | |
448 | S (YY,MM,DD) ="" | |
449 | S YY=20 S:$E (X,1)=2 YY =19 | |
450 | S MM=$E(X,4, 5),DD=$E(X ,6,7),YY=Y Y_$E(X,2,3 ) | |
451 | Q YY_MM_DD | |
452 | Q | |
453 | MESS ; | |
454 | U 0 W !," Initializa tion will take about 90 min an d will run in the ba ckground." | |
455 | R X:10 | |
456 | Q | |
457 | MMMSG ;GEN ERATE MM M ESSAGE ;JE H; DEV0137 37-11/14/1 1 | |
458 | S CNT=1,^ TMP($J,"CH CMSRFR",CN T)="",CNT= CNT+1 | |
459 | S ^TMP($J ,"CHCMSRFR ",CNT)="DI SCREPANCY REPORT MOD ULE HAS CO MPLETED.", CNT=CNT+1 | |
460 | S ^TMP($J ,"CHCMSRFR ",CNT)="", CNT=CNT+1 | |
461 | S ^TMP($J ,"CHCMSRFR ",CNT)="PL EASE CHECK .",CNT=CNT +1 | |
462 | S ^TMP($J ,"CHCMSRFR ",CNT)="", CNT=CNT+1 | |
463 | S XMTEXT= "^TMP($J," "CHCMSRFR" "," | |
464 | S XMDUZ=. 5 | |
465 | S XMY(DUZ )="" | |
466 | S XMSUB=" DISCREPANC Y REPORT M ODULE-CMPL TD" D ^XMD | |
467 | Q | |
468 | ; | |
469 | ;SBB-DEF0 16554-11/1 9/13 - New Tag to ft p files fr om VMS to Windows. | |
470 | ; Impleme nted since DECNET is going awa y. | |
471 | ; I/P Par ameters | |
472 | ; : FI LENAME - Filename t o FTP from VMS to WI NDOWS | |
473 | ; EX : HAC_HFS$ :[SCR.TEMP _FILES]CMS _DISCREPAN CY_REPORT. TXT for HA C | |
474 | ; HAC_HFS$ :[DSMMANAG .CHAMPVA]C MS_DISCREP ANCY_REPOR T_UCI_.TXT for non H AC areas | |
475 | ; : SE RVER - Server to connect to for FTP | |
476 | ; EX: DNS . DNS fully Qual ified Dns Name(FQDN) | |
477 | ; : FO LDER - PATH to pl ace the fi le @ on WI NDOWS | |
478 | ; EX : /FS3BIG or /CMS/CM S_Discrepa ncies etc | |
479 | ; : DI RECTION - 'PUT' or ' GET' | |
480 | ; EX : PUT or G ET dependi ng on Writ e or Read | |
481 | ; | |
482 | FTPFILE(FI LENAME,SER VER,FOLDER ,DIRECTION ) ; | |
483 | ; | |
484 | N CHUCI,L OCALDIR,FI LENAME1,PU TFILE,GETF ILE,PARAMS ,CMD,X | |
485 | S LOCALDI R=$S(FILEN AME["]":$P (FILENAME, "]")_"]",1 :$P(FILENA ME,":")_": ") | |
486 | S FILENAM E1=$S(FILE NAME["]":$ P(FILENAME ,"]",2),1: $P(FILENAM E,":",2)) | |
487 | S PUTFILE ="FTP_FILE _PUT.COM" | |
488 | S GETFILE ="FTP_FILE _GET.COM" | |
489 | S CMD="SU BMIT "_LOC ALDIR | |
490 | ; | |
491 | I DIRECTI ON="PUT" D | |
492 | . S CHTMP ="SET PROT ECTION=(W: RWED) "_FI LENAME | |
493 | . S X=$ZF (-1,CHTMP) | |
494 | . S CMD=C MD_PUTFILE | |
495 | . S PARAM S=""""_FIL ENAME_""", """_SERVER _""","""_F OLDER_"""" | |
496 | . Q | |
497 | I DIRECTI ON="GET" D | |
498 | . S CMD=C MD_GETFILE | |
499 | . S PARAM S=""""_FIL ENAME1_""" ,"""_SERVE R_""","""_ FOLDER_""" " | |
500 | . Q | |
501 | S CMD=CMD _"/PARAMET ERS=("_PAR AMS_")" | |
502 | I DIRECTI ON="PUT" H 5 | |
503 | S X=$ZF(- 1,CMD) | |
504 | Q |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.