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 | CHMXMFU6.m | Mon Nov 5 16:43:16 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMXMFU6.m | Mon Nov 5 17:52:55 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 364 |
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 | CHMXMFU6 ;JBM ;SXC Eligi bility;03/ 03/05 10:0 0 AM | |
2 | ;; V1.0;;copy of routin ^CHMXMFU2 ;;Build 1 | |
3 | ;; | |
4 | ;D EV012841 B MJ added C aregiver a s choice f or the Rel ationship | |
5 | ;; | |
6 | CORRADD I $D(CHREC3) D | |
7 | .S CHBADC1=$ E($P(CHREC 3,"^",1),1 ,30),CHBAD C2=$E($P(C HREC3,"^", 2),1,30) | |
8 | .S CHBADC3=$ E($P(CHREC 3,"^",3),1 ,30),CHBAD C4=$E($P(C HREC3,"^", 4),1,30) | |
9 | .S CHCCTY=$E ($P(CHREC3 ,"^",6),1, 20),CHBCST E=$E($P(CH REC3,"^",7 ),1,2) | |
10 | .S CHBCZIP=$ E($P(CHREC 3,"^",8),1 ,10) | |
11 | I CHBCSTE'=" " I $D(^DI C(5,CHBCST E,0)) S CH BCSTE=$P(^ DIC(5,CHBC STE,0),"^" ,2) | |
12 | S CHMAXL=30, CHXAL=CHBA DC1 D PADB LKS S CHBA DC1=CHXAL | |
13 | S CHXAL=CHBA DC2 D PADB LKS S CHBA DC2=CHXAL | |
14 | S CHXAL=CHBA DC3 D PADB LKS S CHBA DC3=CHXAL | |
15 | S CHXAL=CHBA DC4 D PADB LKS S CHBA DC4=CHXAL | |
16 | S CHMAXL=20, CHXAL=CHCC TY D PADBL KS S CHCCT Y=CHXAL | |
17 | S CHMAXL=2,C HXAL=CHBCS TE D PADBL KS S CHBCS TE=CHXAL | |
18 | Q | |
19 | RMITADD I $D(CHREC2) D | |
20 | .S CHBADR1=$ E($P(CHREC 2,"^",1),1 ,30),CHBAD R2=$E($P(C HREC2,"^", 2),1,30) | |
21 | .S CHRCTY=$E ($P(CHREC2 ,"^",3),1, 20),CHBRST E=$E($P(CH REC2,"^",4 ),1,2) | |
22 | .S CHBRZIP=$ E($P(CHREC 2,"^",5),1 ,10) | |
23 | I CHBRSTE'=" " I $D(^DI C(5,CHBRST E,0)) S CH BRSTE=$P(^ DIC(5,CHBR STE,0),"^" ,2) | |
24 | 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) | |
25 | I (CHBSEX="" )!(CHBSEX' ="M") S CH BSEX="F" | |
26 | S CHBSSN=$E( $P(CHREC1, "^",9),1,9 ),CHBDOB=$ P(CHREC1," ^",3) | |
27 | S: $D(CHBDOB) CHBDOB=$$ FMTOYYYYMM DD^CHEDILI B(CHBDOB) ;AJM 07-03 -07 DEV002 659 | |
28 | S CHBCPH=$E( $P(CHREC3, "^",10),1, 20),CHBRPH =$E($P(CHR EC2,"^",6) ,1,20),CHB REL=$E($P( CHREC1,"^" ,4),1,9) | |
29 | S: CHBREL="" CHBREL="C" ;corre cts SB w/n il for rel ation rkn 09/27/04 | |
30 | S: CHBREL'="" CHBREL=$S (CHBREL="C ":"CHILD", CHBREL="S" :"SPOUSE", CHBREL="XS ":"EX-SPOU SE",CHBREL ="CG":"CAR EGIVER",1: "UNKNOWN") ;DEV01284 1 BMJ | |
31 | S CHMAXL=30, CHXAL=CHBA DR1 D PADB LKS S CHBA DR1=CHXAL | |
32 | S CHMAXL=30, CHXAL=CHBA DR2 D PADB LKS S CHBA DR2=CHXAL | |
33 | S CHMAXL=20, CHXAL=CHRC TY D PADBL KS S CHRCT Y=CHXAL | |
34 | S CHMAXL=2,C HXAL=CHBRS TE D PADBL KS S CHBRS TE=CHXAL | |
35 | S CHMAXL=20, CHXAL=CHBL NAM D PADB LKS S CHBL NAM=CHXAL | |
36 | S CHMAXL=15, CHXAL=CHBF NAM D PADB LKS S CHBF NAM=CHXAL | |
37 | S CHMAXL=9,C HNUM=CHBSS N D STRPIT D PADZROS S CHBSSN= CHX4 | |
38 | S CHMAXL=8,C HNUM=CHBDO B D STRPIT D PADZROS S CHBDOB= CHX4 | |
39 | S CHMAXL=20, CHNUM=CHBC PH D STRPP H D STRPIT D PADZROS S CHBCPH= CHX4 | |
40 | S CHMAXL=20, CHNUM=CHBR PH D STRPP H D STRPIT D PADZROS S CHBRPH= CHX4 | |
41 | S CHMAXL=10, CHNUM=CHBC ZIP D STRP IT D PADRZ RO S CHBCZ IP=CHX4 | |
42 | S CHMAXL=10, CHNUM=CHBR ZIP D STRP IT D PADRZ RO S CHBRZ IP=CHX4 | |
43 | S CHMAXL=9,C HXAL=CHBRE L D PADBLK S S CHBREL =CHXAL | |
44 | 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) | |
45 | S CHMAXL=20, CHXAL=CHDL NAM D PADB LKS S CHDL NAM=CHXAL | |
46 | S CHMAXL=15, CHXAL=CHDF NAM D PADB LKS S CHDF NAM=CHXAL | |
47 | S CHDFSSN=$E ($P(^AHCHV A(CHDFN,0) ,"^",9),1, 9) | |
48 | ;S CHMAXL=9, CHXAL=CHDF SSN D PADZ ROS S CHDF SSN=CHX4 | |
49 | Q | |
50 | WRGLOB ; | |
51 | S: CHBOSDT=18 401231 CHB OSDT="0000 0000" | |
52 | S: CHBOEDT=18 401231 CHB OEDT="0000 0000" | |
53 | S: CHBDOB=184 01231 CHBD OB="000000 00" | |
54 | S: CHBELDT1=1 8401231 CH BELDT1="00 000000" | |
55 | S: CHBELDT2=1 8401231 CH BELDT2="00 000000" | |
56 | S WRFLAG=0,^ CHMXRX("SX C_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 | |
57 | S ^CHMXRX("S XC_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 | |
58 | S ^CHMXRX("S XC_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 | |
59 | ; | |
60 | ; | |
61 | WRTMPJ I FMPDATE="" S WRFLAG= 1 | |
62 | I WRFLAG=0 Q | |
63 | S ^CHMXRX("S XC_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 | |
64 | S ^CHMXRX("S XC_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 | |
65 | S ^CHMXRX("S XC_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 | |
66 | K WRFLAG | |
67 | Q | |
68 | EMPTYMM S CHNB=2,ZML (CHNB)="", CHNB=CHNB+ 1,ZML(CHNB )="NOTICE: Prior hol d file mis sing for t he Nightly SXC Updat e!" | |
69 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;SXCFILES GROUP LIV E | |
70 | D ^XMD | |
71 | Q | |
72 | VMSFILE ; | |
73 | S IO="HAC_HF S$:[KERMIT .PBM]"_"SN U"_CHFMDTE _".DAT",$Z TRAP="VMSE RR",(CHDFN ,CHBFN)=0, CHRECT1="" ,CHRECT2=" ",CHRECT3= "" | |
74 | ; | |
75 | C IO | |
76 | S CHVMSFL="F ILE: "_IO | |
77 | O IO:"NWS" | |
78 | U IO | |
79 | D GETTMP | |
80 | C IO | |
81 | Q | |
82 | GETTMP S CHDFN=$O(^ CHMXRX("SX C_NTLY_UPD TX",CHDFN) ) G:'CHDFN WRCNT | |
83 | S CHBFN=0 | |
84 | GETTMP1 S CHBFN=$O(^ CHMXRX("SX C_NTLY_UPD TX",CHDFN, CHBFN)) G: 'CHBFN GET TMP | |
85 | S CHRECT1=^C HMXRX("SXC _NTLY_UPDT X",CHDFN,C HBFN,0),CH RECT2=^CHM XRX("SXC_N TLY_UPDTX" ,CHDFN,CHB FN,1),CHRE CT3=^CHMXR X("SXC_NTL Y_UPDTX",C HDFN,CHBFN ,2) | |
86 | W CHRECT1_CH RECT2_CHRE CT3,! | |
87 | S CHRECCNT=C HRECCNT+1 | |
88 | G GETTMP1 | |
89 | WRCNT D NOW^%DTC S CHDT=$E(% ,1,7) | |
90 | I $E(CHDT,1, 1)="1" S C ENDTE="18" | |
91 | I $E(CHDT,1, 1)="2" S C ENDTE="19" | |
92 | I $E(CHDT,1, 1)="3" S C ENDTE="20" | |
93 | 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)_")] / /" | |
94 | Q | |
95 | VMSERR C IO | |
96 | ; | |
97 | ; | |
98 | ERRMM S CHERRMSG=1 ,CHNB=2,ZM L(CHNB)="" ,ZML(CHNB) =CHVMSFL | |
99 | 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" | |
100 | S CHNB=CHNB+ 1,ZML(CHNB )=" SXC FULL FILE!" | |
101 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;SXCFILES GROUP LIV E | |
102 | S XMTEXT="ZM L(",XMSUB= "Ntly Up S XC..Error. ."_FMDATE | |
103 | D ^XMD | |
104 | Q | |
105 | AUTOMM S CHNB=2,ZML (CHNB)="", ZML(CHNB)= CHVMSFL_" (Total Re cords = "_ CHRECCNT_" )",CHNB=CH NB+1,ZML(C HNB)="",CH NB=CHNB+1 | |
106 | S ZML(CHNB)= "NOTICE: S uccessful CREATION S XC FULL NI GHTLY file !" | |
107 | S XMDUZ=.5,X MY("G.MMIF ILES")="" ;SXC FILE S GROUP LI VE | |
108 | S XMY(" PII ")="" | |
109 | S XMY("
|
|
110 | S XMY("
|
|
111 | S XMY(" P I
|
|
112 | S XMTEXT="ZM L(",XMSUB= "Ntly Up S XC..Succes s.."_FMDAT E | |
113 | D ^XMD | |
114 | Q | |
115 | 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 | |
116 | D NOW^%DTC S ZMDATE=$E (%,1,7) | |
117 | 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!" | |
118 | 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 | |
119 | S ZML(NB)="- ---------- ---------- ------- -- ------- -- ---------- ---------- ------ --- ------",NB =NB+1,ZBFN =0 | |
120 | SDADM2 S ZBFN=$O(^C HMZHOLD("O HIEXCEP_TM P",ZBFN)) G:ZBFN="" SDADSD | |
121 | S ZMREC=^CHM ZHOLD("OHI EXCEP_TMP" ,ZBFN) | |
122 | S ZM1=$P(ZMR EC,"^",3), ZM1L=28 ;BFN NAME | |
123 | F I=1:1:(ZM1 L-$L(ZM1)) S ZM1=ZM1 _" " ;BFN NAME | |
124 | S ZM2=$P(ZMR EC,"^",4), ZM2L=9 ;BFN SSN | |
125 | F I=1:1:(ZM2 L-$L(ZM2)) S ZM2=ZM2 _" " ;BFN SSN | |
126 | S ZM3=$P(ZMR EC,"^",5), ZM3L=28 ;DFN NAME | |
127 | F I=1:1:(ZM3 L-$L(ZM3)) S ZM3=ZM3 _" " ;DFN NAME | |
128 | S ZM4=$P(ZMR EC,"^",6), ZM4L=9 ;DFN SSN | |
129 | F I=1:1:(ZM4 L-$L(ZM4)) S ZM4=ZM4 _" " ;DFN SSN | |
130 | S ZML(NB)=ZM 1_" "_ZM2_ " "_ZM3_" "_ZM4 | |
131 | S NB=NB+1,ZO HIXCNT=ZOH IXCNT+1 | |
132 | G SDADM2 | |
133 | SDADSD S XMDUZ=.5,X MY("G.OHI EXCEPTIONS ")="" | |
134 | S XMTEXT="ZM L(",XMSUB= "OHI Excep tions"_" ( Total: "_Z OHIXCNT_") (Date: "_ $E(ZMDATE, 1,7)_" )" | |
135 | D ^XMD | |
136 | 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 | |
137 | Q | |
138 | ; | |
139 | 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 | |
140 | 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 | |
141 | 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 | |
142 | K CHERRMSG,C HDLNAM,CHD FNAM,CHLG1 ,CHLG2,DOL FLG,TDFNNA M,TDFNSSN, TBFNNAM,TB FNSSN,CHBD EDA,CHFCTC PA,CHFDEDA | |
143 | ;I FMPDATE'= "" K ^CHMX RX("SXC_NT LY_UPDT",F MPDATE) | |
144 | K ^CHMXRX("S XC_NTLY_UP DT"),^CHMX RX("SXC_NT LY_UPDTX") ,FMDATE,FM PDATE,WRFL AG,CHFILE, CHFTPTIM,C HFTPWT,QFL AG | |
145 | Q | |
146 | ; | |
147 | STRPIT S CHNUM2="" | |
148 | F X=1:1:$L(C HNUM) D | |
149 | .S CHAR=$E(C HNUM,X) I CHAR?1N S CHNUM2=CHN UM2_CHAR | |
150 | S CHX4=CHNUM 2 | |
151 | Q | |
152 | STRPDL I $E(CHNUM,1 ,1)=0 D G STRPIT ;str ip leading 0's | |
153 | .S $E(CHNUM, 1,1)="" | |
154 | I $E(CHNUM,$ F(CHNUM,". "),$F(CHNU M,".")+1)= "" D ;Dec only | |
155 | .S CHNUM=CHN UM_"00" | |
156 | S CHX1=$L(CH NUM) | |
157 | I '$F(CHNUM, ".") D Q ;No Dec | |
158 | .S CHX4=CHNU M | |
159 | .I $D(DOLFLG ) S CHX4=C HNUM_"00" | |
160 | .S CHX4=$E(C HX4,1,CHMA XL) | |
161 | .K DOLFLG | |
162 | S CHX2=$F(CH NUM,"."),C HX3=CHX2-2 ,CHX4=$E(C HNUM,1,CHX 3)_$E(CHNU M,CHX2,CHX 2+1) | |
163 | I CHX1=CHX2 S CHX4=CHX 4_"0" | |
164 | STRPPH S CHLG1=$L(C HNUM) | |
165 | I ($E(CHNUM, 1,1)=0)!($ E(CHNUM,1, 1)=" ")!($ E(CHNUM,1, 1)="(") D G STRPPH | |
166 | .S $E(CHNUM, 1,1)="" | |
167 | I $F(CHNUM," )") D G S TRPPH | |
168 | .S CHLG2=($F (CHNUM,")" )-1) | |
169 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
170 | I $F(CHNUM," ") D G S TRPPH | |
171 | .S CHLG2=($F (CHNUM," " )-1) | |
172 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
173 | I $F(CHNUM," -") D G S TRPPH | |
174 | .S CHLG2=($F (CHNUM,"-" )-1) | |
175 | .S CHNUM=$E( CHNUM,1,CH LG2-1)_$E( CHNUM,CHLG 2+1,CHLG1) | |
176 | Q | |
177 | PADZROS F I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 ="0"_CHX4 | |
178 | S CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL )) | |
179 | Q | |
180 | PADBLKS F I=1:1:(CHM AXL-$L(CHX AL)) S CHX AL=CHXAL_" " | |
181 | S CHXAL=$E(C HXAL,1,CHM AXL) | |
182 | Q | |
183 | PADRZRO F I=1:1:(CHM AXL-$L(CHX 4)) S CHX4 =CHX4_"0" | |
184 | S CHX4=$RE($ E($RE(CHX4 ),1,CHMAXL )) | |
185 | Q | |
186 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.