Produced by Araxis Merge on 11/9/2018 12:34:11 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 | CHMXMFU2.m | Mon Nov 5 16:40:51 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMFU2.m | Mon Nov 5 17:52:53 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 380 |
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 | CHMXMFU2 ;HAC /RKN;Full Ntly Updt MMI-Calc/P rt;03/03/0 5 10:00 AM | |
2 | ;; V1.0;;PROJ # 1241 03 /03/2005 R KN | |
3 | ;; CALLED BY ^CHMXMFU1 | |
4 | ;; CALLS NONE | |
5 | ;; | |
6 | ;; AJM 07-03- 07 DEV0026 59 FIXED D ATE FORMAT TING FOR D ATES PAST 2099 | |
7 | ;D EV012841 B MJ added C aregiver a s choice f or the Rel ationship | |
8 | ;; | |
9 | CORRADD I $D(CHREC3) D | |
10 | .S CHBADC1=$ E($P(CHREC 3,"^",1),1 ,30),CHBAD C2=$E($P(C HREC3,"^", 2),1,30) | |
11 | .S CHBADC3=$ E($P(CHREC 3,"^",3),1 ,30),CHBAD C4=$E($P(C HREC3,"^", 4),1,30) | |
12 | .S CHCCTY=$E ($P(CHREC3 ,"^",6),1, 20),CHBCST E=$E($P(CH REC3,"^",7 ),1,2) | |
13 | .S CHBCZIP=$ E($P(CHREC 3,"^",8),1 ,10) | |
14 | I CHBCSTE'=" " I $D(^DI C(5,CHBCST E,0)) S CH BCSTE=$P(^ DIC(5,CHBC STE,0),"^" ,2) | |
15 | S CHMAXL=30, CHXAL=CHBA DC1 D PADB LKS S CHBA DC1=CHXAL | |
16 | S CHXAL=CHBA DC2 D PADB LKS S CHBA DC2=CHXAL | |
17 | S CHXAL=CHBA DC3 D PADB LKS S CHBA DC3=CHXAL | |
18 | S CHXAL=CHBA DC4 D PADB LKS S CHBA DC4=CHXAL | |
19 | S CHMAXL=20, CHXAL=CHCC TY D PADBL KS S CHCCT Y=CHXAL | |
20 | S CHMAXL=2,C HXAL=CHBCS TE D PADBL KS S CHBCS TE=CHXAL | |
21 | Q | |
22 | RMITADD I $D(CHREC2) D | |
23 | .S CHBADR1=$ E($P(CHREC 2,"^",1),1 ,30),CHBAD R2=$E($P(C HREC2,"^", 2),1,30) | |
24 | .S CHRCTY=$E ($P(CHREC2 ,"^",3),1, 20),CHBRST E=$E($P(CH REC2,"^",4 ),1,2) | |
25 | .S CHBRZIP=$ E($P(CHREC 2,"^",5),1 ,10) | |
26 | I CHBRSTE'=" " I $D(^DI C(5,CHBRST E,0)) S CH BRSTE=$P(^ DIC(5,CHBR STE,0),"^" ,2) | |
27 | S CHBNAME=$P (CHREC1,"^ ",1),CHBLN AM=$E($P(C HBNAME,"," ,1),1,20), CHBFNAM=$E ($P(CHBNAM E,",",2),1 ,15),CHBSE X=$E($P(CH REC1,"^",2 ),1,1) | |
28 | I (CHBSEX="" )!(CHBSEX' ="M") S CH BSEX="F" | |
29 | S CHBSSN=$E( $P(CHREC1, "^",9),1,9 ),CHBDOB=$ E($P(CHREC 1,"^",3),1 ,7) | |
30 | S: $D(CHBDOB) CHBDOB=$$ FMTOYYYYMM DD^CHEDILI B(CHBDOB) ;AJM 07-03 -07 DEV002 659 | |
31 | S CHBCPH=$E( $P(CHREC3, "^",10),1, 20),CHBRPH =$E($P(CHR EC2,"^",6) ,1,20),CHB REL=$E($P( CHREC1,"^" ,4),1,9) | |
32 | S: CHBREL="" CHBREL="C" ;corre cts SB w/n il for rel ation rkn 09/27/04 | |
33 | S: CHBREL'="" CHBREL=$S (CHBREL="C ":"CHILD", CHBREL="S" :"SPOUSE", CHBREL="XS ":"EX-SPOU SE",CHBREL ="CG":"CAR EGIVER",1: "UNKNOWN") ;DEV01284 1 BMJ | |
34 | S CHMAXL=30, CHXAL=CHBA DR1 D PADB LKS S CHBA DR1=CHXAL | |
35 | S CHMAXL=30, CHXAL=CHBA DR2 D PADB LKS S CHBA DR2=CHXAL | |
36 | S CHMAXL=20, CHXAL=CHRC TY D PADBL KS S CHRCT Y=CHXAL | |
37 | S CHMAXL=2,C HXAL=CHBRS TE D PADBL KS S CHBRS TE=CHXAL | |
38 | S CHMAXL=20, CHXAL=CHBL NAM D PADB LKS S CHBL NAM=CHXAL | |
39 | S CHMAXL=15, CHXAL=CHBF NAM D PADB LKS S CHBF NAM=CHXAL | |
40 | S CHMAXL=9,C HNUM=CHBSS N D STRPIT D PADZROS S CHBSSN= CHX4 | |
41 | S CHMAXL=8,C HNUM=CHBDO B D STRPIT D PADZROS S CHBDOB= CHX4 | |
42 | S CHMAXL=20, CHNUM=CHBC PH D STRPP H D STRPIT D PADZROS S CHBCPH= CHX4 | |
43 | S CHMAXL=20, CHNUM=CHBR PH D STRPP H D STRPIT D PADZROS S CHBRPH= CHX4 | |
44 | S CHMAXL=10, CHNUM=CHBC ZIP D STRP IT D PADRZ RO S CHBCZ IP=CHX4 | |
45 | S CHMAXL=10, CHNUM=CHBR ZIP D STRP IT D PADRZ RO S CHBRZ IP=CHX4 | |
46 | S CHMAXL=9,C HXAL=CHBRE L D PADBLK S S CHBREL =CHXAL | |
47 | S CHDNAME=$P (^AHCHVA(C HDFN,0),"^ ",1),CHDLN AM=$E($P(C HDNAME,"," ,1),1,20), CHDFNAM=$E ($P(CHDNAM E,",",2),1 ,15) | |
48 | S CHMAXL=20, CHXAL=CHDL NAM D PADB LKS S CHDL NAM=CHXAL | |
49 | S CHMAXL=15, CHXAL=CHDF NAM D PADB LKS S CHDF NAM=CHXAL | |
50 | S CHDFSSN=$E ($P(^AHCHV A(CHDFN,0) ,"^",9),1, 9) | |
51 | ;S CHMAXL=9, CHXAL=CHDF SSN D PADZ ROS S CHDF SSN=CHX4 | |
52 | Q | |
53 | WRGLOB S WRFLAG=0,^ CHMXRX("MM X_NTLY_UPD T",FMDATE, CHDFN,CHBF N,0)=CHBAD C1_CHBADC2 _CHBADC3_C HBADC4_CHB ADR1_CHBAD R2_CHCCTY_ CHRCTY_CHB DED1_CHBDE D2_CHBDOB_ CHBELDT1 | |
54 | S ^CHMXRX("M MX_NTLY_UP DT",FMDATE ,CHDFN,CHB FN,1)=CHBE LDT2_CHBEL STA_CHBLNA M_CHBFNAM_ CHBSEX_CHB OSDT_CHBOE DT_CHBODES _CHBOPH_CH BCPH_CHBRE L_CHBRPH_C HBSSN | |
55 | S ^CHMXRX("M MX_NTLY_UP DT",FMDATE ,CHDFN,CHB FN,2)=CHBC STE_CHBCZI P_CHBRSTE_ CHBRZIP_CH DLNAM_CHDF NAM_CHDFSS N_CHFCTCP1 _CHFCTCP2_ CHFDED1_CH FDED2_CHBO HIC1_CHBOH IC2_CHCSFL AG_CHBDEDA _CHFCTCPA_ CHFDEDA | |
56 | ; | |
57 | K ^CHMXRX("M MX_NTLY_FC K") | |
58 | S ^CHMXRX("M MX_NTLY_FC K",FMDATE) ="" | |
59 | ; | |
60 | ;/ ////////// ////////// ////////// ////////// | |
61 | I FMPDATE'=" " D ; *** * TO FORCE A COMPLET E FILE COM MENT OFF N EXT 4 LINE S **** | |
62 | .; I '$D(^CHM XRX("MMX_N TLY_UPDT", FMPDATE,CH DFN,CHBFN) ) S WRFLAG =1 Q | |
63 | .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,0)) '=(CHBADC1 _CHBADC2_C HBADC3_CHB ADC4_CHBAD R1_CHBADR2 _CHCCTY_CH RCTY_CHBDE D1_CHBDED2 _CHBDOB_CH BELDT1) S WRFLAG=1 | |
64 | .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,1)) '=(CHBELDT 2_CHBELSTA _CHBLNAM_C HBFNAM_CHB SEX_CHBOSD T_CHBOEDT_ CHBODES_CH BOPH_CHBCP H_CHBREL_C HBRPH_CHBS SN) S WRFL AG=1 | |
65 | .; I (^CHMXRX ("MMX_NTLY _UPDT",FMP DATE,CHDFN ,CHBFN,2)) '=(CHBCSTE _CHBCZIP_C HBRSTE_CHB RZIP_CHDLN AM_CHDFNAM _CHDFSSN_C HFCTCP1_CH FCTCP2_CHF DED1_CHFDE D2_CHBOHIC 1_CHBOHIC2 _CHCSFLAG_ CHBDEDA_CH FCTCPA_CHF DEDA) S WR FLAG=1 | |
66 | .; S WRFLAG=1 ; ** TO F ORCE COMPL ETE FILE U N-COMMENT THIS LINE ** | |
67 | ;/ ////////// ////////// ////////// ////////// | |
68 | ; | |
69 | WRTMPJ I FMPDATE="" S WRFLAG= 1 | |
70 | I WRFLAG=0 Q | |
71 | S ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,0)= CHBADC1_CH BADC2_CHBA DC3_CHBADC 4_CHBADR1_ CHBADR2_CH CCTY_CHRCT Y_CHBDED1_ CHBDED2_CH BDOB_CHBEL DT1 | |
72 | S ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,1)= CHBELDT2_C HBELSTA_CH BLNAM_CHBF NAM_CHBSEX _CHBOSDT_C HBOEDT_CHB ODES_CHBOP H_CHBCPH_C HBREL_CHBR PH_CHBSSN | |
73 | S ^CHMXRX("M MX_NTLY_UP DTX",CHDFN ,CHBFN,2)= CHBCSTE_CH BCZIP_CHBR STE_CHBRZI P_CHDLNAM_ CHDFNAM_CH DFSSN_CHFC TCP1_CHFCT CP2_CHFDED 1_CHFDED2_ CHBOHIC1_C HBOHIC2_CH CSFLAG_CHB DEDA_CHFCT CPA_CHFDED A | |
74 | K WRFLAG | |
75 | Q | |
76 | EMPTYMM S CHNB=2,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE: Prior hol d file mis sing for t he Nightly MMX Updat e!" | |
77 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;MMIFILES GROUP LIV E | |
78 | D ^XMD | |
79 | Q | |
80 | VMSFILE S IO="HAC_HF S$:[KERMIT .MATRIX]"_ "NU"_CHFMD TE_".DAT", $ZTRAP="VM SERR",(CHD FN,CHBFN)= 0,CHRECT1= "",CHRECT2 ="",CHRECT 3="" | |
81 | ; | |
82 | C IO | |
83 | S CHVMSFL="F ILE: "_IO | |
84 | O IO:"NWS" | |
85 | U IO | |
86 | D GETTMP | |
87 | C IO | |
88 | Q | |
89 | GETTMP S CHDFN=$O(^ CHMXRX("MM X_NTLY_UPD TX",CHDFN) ) G:'CHDFN WRCNT | |
90 | S CHBFN=0 | |
91 | GETTMP1 S CHBFN=$O(^ CHMXRX("MM X_NTLY_UPD TX",CHDFN, CHBFN)) G: 'CHBFN GET TMP | |
92 | S CHRECT1=^C HMXRX("MMX _NTLY_UPDT X",CHDFN,C HBFN,0),CH RECT2=^CHM XRX("MMX_N TLY_UPDTX" ,CHDFN,CHB FN,1),CHRE CT3=^CHMXR X("MMX_NTL Y_UPDTX",C HDFN,CHBFN ,2) | |
93 | W CHRECT1_CH RECT2_CHRE CT3,! | |
94 | S CHRECCNT=C HRECCNT+1 | |
95 | G GETTMP1 | |
96 | WRCNT D NOW^%DTC S CHDT=$E(% ,1,7) | |
97 | I $E(CHDT,1, 1)="1" S C ENDTE="18" | |
98 | I $E(CHDT,1, 1)="2" S C ENDTE="19" | |
99 | I $E(CHDT,1, 1)="3" S C ENDTE="20" | |
100 | W "///////// ///////// [End Of Fi le - Tot R ec Cnt = " _CHRECCNT_ " - "_$E(C HDT,4,5)_" /"_$E(CHDT ,6,7)_"/"_ CENDTE_$E( CHDT,2,3)_ "("_$E(%,9 ,14)_")] / /" | |
101 | Q | |
102 | VMSERR C IO | |
103 | ; | |
104 | ;S X=$&ZLIB. %SUBMIT("H AC_HFS$:[D SMMANAG]CH V_DELETE_M M_NU.COM", "/NOPRINT/ USER=HACCA CHEMGR",CH FMDTE) ; D ELETE ABOR TED FILE I N LIVE | |
105 | ; | |
106 | ERRMM S CHERRMSG=1 ,CHNB=2,ZM L(CHNB)="" ,ZML(CHNB) =CHVMSFL | |
107 | S CHNB=CHNB+ 1,ZML(CHNB )="",CHNB= CHNB+1,ZML (CHNB)="NO TICE: An e rror has o ccurred in writing t he Nightly Update fo r the" | |
108 | S CHNB=CHNB+ 1,ZML(CHNB )=" MMI FULL FILE!" | |
109 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;MMIFILES GROUP LIV E | |
110 | S XMTEXT="ZM L(",XMSUB= "Ntly Up M M..Error.. "_FMDATE | |
111 | D ^XMD | |
112 | Q | |
113 | AUTOMM S CHNB=2,ZML (CHNB)="", ZML(CHNB)= CHVMSFL_" (Total Re cords = "_ CHRECCNT_" )",CHNB=CH NB+1,ZML(C HNB)="",CH NB=CHNB+1 | |
114 | S ZML(CHNB)= "NOTICE: S uccessful CREATION M MX FULL NI GHTLY file !" | |
115 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;MMIFILES GROUP LIV E | |
116 | S XMY(" PII ")="" | |
117 | S XMY("
|
|
118 | S XMY("
|
|
119 | S XMY(" P I
|
|
120 | S XMTEXT="ZM L(",XMSUB= "Ntly Up M M..Success .."_FMDATE | |
121 | D ^XMD | |
122 | Q | |
123 | SDADM1 K ZMREC,ZM1, ZM2,ZM3,ZM 4,ZML,ZM1L ,ZM2L,ZM3L ,ZM4L,NB,X MDUZ,XMTEX T,XMSUB,ZM DATE,ZOHIX CNT,ZDFN,Z BFN | |
124 | D NOW^%DTC S ZMDATE=$E (%,1,7) | |
125 | S ZOHIXCNT=0 ,NB=1,ZML( NB)="",NB= NB+1,ZML(N B)="NOTE: Corrected OHI Excep tions will automatic ally drop from next report!" | |
126 | S NB=NB+1,ZM L(NB)="",N B=NB+1,ZML (NB)="Bene ficiary Bene SSN Spons or Spon S SN",NB=NB+ 1 | |
127 | S ZML(NB)="- ---------- ---------- ------- -- ------- -- ---------- ---------- ------ --- ------",NB =NB+1,ZBFN =0 | |
128 | SDADM2 S ZBFN=$O(^C HMZHOLD("O HIEXCEP_TM P",ZBFN)) G:ZBFN="" SDADSD | |
129 | S ZMREC=^CHM ZHOLD("OHI EXCEP_TMP" ,ZBFN) | |
130 | S ZM1=$P(ZMR EC,"^",3), ZM1L=28 ;BFN NAME | |
131 | F I=1:1:(ZM1 L-$L(ZM1)) S ZM1=ZM1 _" " ;BFN NAME | |
132 | S ZM2=$P(ZMR EC,"^",4), ZM2L=9 ;BFN SSN | |
133 | F I=1:1:(ZM2 L-$L(ZM2)) S ZM2=ZM2 _" " ;BFN SSN | |
134 | S ZM3=$P(ZMR EC,"^",5), ZM3L=28 ;DFN NAME | |
135 | F I=1:1:(ZM3 L-$L(ZM3)) S ZM3=ZM3 _" " ;DFN NAME | |
136 | S ZM4=$P(ZMR EC,"^",6), ZM4L=9 ;DFN SSN | |
137 | F I=1:1:(ZM4 L-$L(ZM4)) S ZM4=ZM4 _" " ;DFN SSN | |
138 | S ZML(NB)=ZM 1_" "_ZM2_ " "_ZM3_" "_ZM4 | |
139 | S NB=NB+1,ZO HIXCNT=ZOH IXCNT+1 | |
140 | G SDADM2 | |
141 | SDADSD S XMDUZ=.5,X MY("G.OHI EXCEPTIONS ")="" | |
142 | S XMTEXT="ZM L(",XMSUB= "OHI Excep tions"_" ( Total: "_Z OHIXCNT_") (Date: "_ $E(ZMDATE, 1,7)_" )" | |
143 | D ^XMD | |
144 | K ZMREC,ZM1, ZM2,ZM3,ZM 4,ZML,ZM1L ,ZM2L,ZM3L ,ZM4L,NB,X MDUZ,XMTEX T,XMSUB,ZM DATE,ZOHIX CNT,ZDFN,Z BFN | |
145 | Q | |
146 | ; | |
147 | END K CHBADC1,CH BADC2,CHBA DC3,CHBADC 4,CHBADR1, CHBADR2,CH CCTY,CHRCT Y,CHBDED1, CHBDED2,CH BDOB,CHBEL DT,CHBELDT 1,CHBELDT2 ,CHBELSTA, CHBFN,CHBN AME,CHBLNA M,CHBFNAM, CHBSEX,CHB OSDT,CHBOE DT,CHBODES ,CHBOPH,CH BCPH,CHBRP H | |
148 | K CHBREL,CHB SSN,CHRECC NT,CHBCSTE ,CHBRSTE,C HBCZIP,CHB RZIP,CHDT, CHLDT,CHDF N,CHDNAME, CHDFSSN,CH FCTCP1,CHF CTCP2,CHFD ED1,CHFDED 2,CHBOHIC1 ,CHBOHIC2, CHCSFLAG | |
149 | K CHFMDTE,CH FLDT,CHIVL ,CHJVL,CHK VL,CHREC1, CHREC2,CHR EC3,CHREC4 ,CHRECT1,C HRECT2,CHR ECT3,CHVMS FL,CHX1,CH X2,CHX3,CH X4,CHXAL,C HMAXL,CHNU M | |
150 | K CHERRMSG,C HDLNAM,CHD FNAM,CHLG1 ,CHLG2,DOL FLG,TDFNNA M,TDFNSSN, TBFNNAM,TB FNSSN,CHBD EDA,CHFCTC PA,CHFDEDA | |
151 | ;I FMPDATE'= "" K ^CHMX RX("MMX_NT LY_UPDT",F MPDATE) | |
152 | K ^CHMXRX("M MX_NTLY_UP DT"),^CHMX RX("MMX_NT LY_UPDTX") ,FMDATE,FM PDATE,WRFL AG,CHFILE, CHFTPTIM,C HFTPWT,QFL AG | |
153 | Q | |
154 | ; | |
155 | STRPIT S CHNUM2="" | |
156 | F X=1:1:$L(C HNUM) D | |
157 | .S CHAR=$E(C HNUM,X) I CHAR?1N S CHNUM2=CHN UM2_CHAR | |
158 | S CHX4=CHNUM 2 | |
159 | Q | |
160 | STRPDL I $E(CHNUM,1 ,1)=0 D G STRPIT ;str ip leading 0's | |
161 | .S $E(CHNUM, 1,1)="" | |
162 | I $E(CHNUM,$ F(CHNUM,". "),$F(CHNU M,".")+1)= "" D ;Dec only | |
163 | .S CHNUM=CHN UM_"00" | |
164 | S CHX1=$L(CH NUM) | |
165 | I '$F(CHNUM, ".") D Q ;No Dec | |
166 | .S CHX4=CHNU M | |
167 | .I $D(DOLFLG ) S CHX4=C HNUM_"00" | |
168 | .S CHX4=$E(C HX4,1,CHMA XL) | |
169 | .K DOLFLG | |
170 | S CHX2=$F(CH NUM,"."),C HX3=CHX2-2 ,CHX4=$E(C HNUM,1,CHX 3)_$E(CHNU M,CHX2,CHX 2+1) | |
171 | I CHX1=CHX2 S CHX4=CHX 4_"0" | |
172 | STRPPH S CHLG1=$L(C HNUM) | |
173 | I ($E(CHNUM, 1,1)=0)!($ E(CHNUM,1, 1)=" ")!($ E(CHNUM,1, 1)="(") D G STRPPH | |
174 | .S $E(CHNUM, 1,1)="" | |
175 | I $F(CHNUM," )") D G S TRPPH | |
176 | .S CHLG2=($F (CHNUM,")" )-1) | |
177 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
178 | I $F(CHNUM," ") D G S TRPPH | |
179 | .S CHLG2=($F (CHNUM," " )-1) | |
180 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
181 | I $F(CHNUM," -") D G S TRPPH | |
182 | .S CHLG2=($F (CHNUM,"-" )-1) | |
183 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
184 | Q | |
185 | PADZROS F I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 ="0"_CHX4 | |
186 | S CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL )) | |
187 | Q | |
188 | PADBLKS F I=1:1:(CHM AXL-$L(CHX AL)) S CHX AL=CHXAL_" " | |
189 | S CHXAL=$E(C HXAL,1,CHM AXL) | |
190 | Q | |
191 | PADRZRO F I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 =CHX4_"0" | |
192 | S CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL )) | |
193 | Q | |
194 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.