Produced by Araxis Merge on 11/9/2018 12:33:55 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 | CHMERSN1.m | Mon Nov 5 16:43:02 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMERSN1.m | Mon Nov 5 17:44:29 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 318 |
Changed | 1 | 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 | CHMERSN1 ; HAC/SKD; G enerates t he Stubbed Named ben e/sponsor report; 10 -6-08 | |
2 | ;;V1.0 | |
3 | ;;new rou tine per D EV004340-0 2/DEV00582 2-01: Repo rt request ed for (SN ) records | |
4 | ;;Generat es the rep ort that l ists all S N records that have any claims paid. | |
5 | ;; | |
6 | ;;Format for SN rec ords: the last name is 5 chara cters, fir st name, m iddle init ial if the re is one | |
7 | ;;and (SN ) is the n ame line a nd the sta tus is ine ligible. For exampl es: | |
8 | ;;Name: LEILA SMIT H (SN) | |
9 | ;;Name: G T SMITH (SN) | |
10 | ;; | |
11 | D ZSET | |
12 | D QUE1 | |
13 | END | |
14 | Q | |
15 | ; | |
16 | ZSET S:'$D (DUZ) DUZ= 1,DUZ(0)=" " I '$D(DT ) S %DT="" ,X="T" D ^ %DT S DT=Y | |
17 | S:'$D(IOZ FO) IOZFO= "^^" S:'$D (IOZBK) IO ZBK="^" S: '$D(DTIME) DTIME=60 | |
18 | I '$D(IOZ ) S %ZIS=" N",IOP="HO ME" D HOME ^%ZIS S IO Z=IO,IOZL= IOSL,IOZW= IOM,IOZF=I OF,IOZT=IO ST,IOZN=IO N,IOZS=IOS | |
19 | Q | |
20 | ; | |
21 | QUE1 ; | |
22 | S ZTRTN=" START^CHME RSN1",ZTDE SC="Listin g of (SN) records (s ort)" | |
23 | S ZTIO="" ,CHFIO="", ZTDTH=$H | |
24 | S ZTSAVE( "DUZ")="", ZTSAVE("CH *")="",ZTS AVE("FILE* ")="" | |
25 | D ^%ZTLOA D | |
26 | W !,"The task numbe r for the SN report is: ",ZTSK H 3 | |
27 | Q | |
28 | ; | |
29 | START ; | |
30 | K ^CHMZHO LD("SN_REP ORT",DUZ) | |
31 | S CHDFN=0 | |
32 | F S CHDF N=$O(^AHCH VA(CHDFN)) Q:'CHDFN D | |
33 | .Q:'$D(^A HCHVA(CHDF N,0)) | |
34 | .S (CHSNA ME,CHSSSN, CHSELG)="" | |
35 | .S CHSNAM E=$P($G(^A HCHVA(CHDF N,0)),"^", 1) Q:CHSNA ME'["(SN)" | |
36 | .S CHSELG =$P($G(^AH CHVA(CHDFN ,0)),"^",5 ) | |
37 | .S CHSELG =$S($E(CHS ELG,1)="E" :"E",1:"I" ) | |
38 | .S CHSSSN =$P($G(^AH CHVA(CHDFN ,0)),"^",9 ) | |
39 | .S CHBEXI ST=0 | |
40 | .S CHBFN= 0 | |
41 | .F S CHB FN=$O(^AHC HVA(CHDFN, 100,CHBFN) ) Q:'CHBFN D | |
42 | ..Q:'$D(^ AHCHVA(CHD FN,100,CHB FN,0)) | |
43 | ..S (CHBN AME,CHBSSN ,CHBELG)=" ",(CHCLCT, CHTPAID)=0 | |
44 | ..S CHBNA ME=$P($G(^ AHCHVA(CHD FN,100,CHB FN,0)),"^" ,1) Q:CHBN AME="" | |
45 | ..S CHBSS N=$P($G(^A HCHVA(CHDF N,100,CHBF N,0)),"^", 9) | |
46 | ..S CHBSS N=$$LTRIM^ CHTFLIB(CH BSSN) | |
47 | ..S CHBSS N=$$TRIM^C HTFLIB(CHB SSN) | |
48 | ..S CHBEL G=$P($G(^A HCHVA(CHDF N,100,CHBF N,0)),"^", 5) | |
49 | ..S CHBEL G=$S($E(CH BELG,1)="E ":"E",1:"I ") | |
50 | ..D GETCL DAT(CHDFN, CHBFN) | |
51 | ..S ^CHMZ HOLD("SN_R EPORT",DUZ ,CHSELG,CH SNAME,CHDF N,CHBNAME) =CHSSSN_U_ CHBSSN_U_C HBELG_U_CH CLCT_U_CHT PAID | |
52 | ..S CHBEX IST=1 | |
53 | .I 'CHBEX IST S ^CHM ZHOLD("SN_ REPORT",DU Z,CHSELG,C HSNAME,CHD FN,"A")=CH SSSN_U_U_U _0_U_0 | |
54 | D PRINT | |
55 | C FILEE,F ILEI | |
56 | D KILLVAR | |
57 | Q | |
58 | ; | |
59 | GETCLDAT(D ,B) ;get t otal numbe r of claim s submitte d and tota l paid amo unt | |
60 | S (CHCLCT ,CHTPAID)= 0 | |
61 | Q:'$G(D) Q:'$G(B) | |
62 | S (SN,BN) =0 | |
63 | S SN=0,SN =$O(^CHMDF N("B",D,SN )) Q:'SN | |
64 | Q:'$D(^CH MDFN(SN,0) ) | |
65 | S BN=0,BN =$O(^CHMDF N(SN,100," B",B,BN)) Q:'BN | |
66 | Q:'$D(^CH MDFN(SN,10 0,BN,100)) | |
67 | S K=0 | |
68 | F S K=$O (^CHMDFN(S N,100,BN,1 00,K)) Q:' K D | |
69 | .S CL=0,C L=$P($G(^C HMDFN(SN,1 00,BN,100, K,0)),"^", 1) | |
70 | .Q:'CL | |
71 | .Q:'$D(^C HMPAY(CL)) | |
72 | .Q:'$D(^C HMPAY(CL,0 )) | |
73 | .Q:$P($G( ^CHMPAY(CL ,0)),"^",2 )=0 | |
74 | .Q:$P($G( ^CHMPAY(CL ,0)),"^",2 )=10 | |
75 | .Q:'$D(^C HMPAY(CL,1 )) | |
76 | .Q:$P($G( ^CHMPAY(CL ,1)),"^",1 )="" | |
77 | .S CHCLCT =CHCLCT+1 | |
78 | .S CHTPAI D=CHTPAID+ $P($G(^CHM PAY(CL,1)) ,"^",1) | |
79 | Q | |
80 | ; | |
81 | ||
82 | D FILE | |
83 | S (IOF,IO ZF)="#,*27 ,*91,*50,* 74,*27,*91 ,*72" | |
84 | I '$G(DT) D NOW^%DT C S DT=X | |
85 | S X=DT D DTPRT S CH DT=Y | |
86 | 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 | |
87 | S CHTIME= CHDT_" at "_H_":"_M | |
88 | F CHSELG= "E","I" D | |
89 | .S @("CHS "_CHSELG_" CT")=0 | |
90 | .S @("CHB "_CHSELG_" CT")=0 | |
91 | .S @("CHB "_CHSELG_" PAY")=0 | |
92 | .S CHCT=0 ,CHPG=1 | |
93 | .S FILEIO =$S(CHSELG ="E":FILEE ,1:FILEI) | |
94 | .D HEAD | |
95 | .;S ^CHMZ HOLD("SN_R EPORT",DUZ ,SELG,SNAM E,BNAME)=S SSN_U_BSSN _U_BELG_U_ CHCLCT_U_C HTPAID | |
96 | .S CHSNAM E="" F S CHSNAME=$O (^CHMZHOLD ("SN_REPOR T",DUZ,CHS ELG,CHSNAM E)) Q:CHSN AME="" D | |
97 | ..S @("CH S"_CHSELG_ "CT")=@("C HS"_CHSELG _"CT")+1 | |
98 | ..S CHDFN =0 F S CH DFN=$O(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN)) Q:'C HDFN D | |
99 | ...S CHBN AME="",CHF G=0 | |
100 | ...F S C HBNAME=$O( ^CHMZHOLD( "SN_REPORT ",DUZ,CHSE LG,CHSNAME ,CHDFN,CHB NAME)) Q:C HBNAME="" D ;W: CHBNAME="" ! Q:BNAME ="" D | |
101 | ....S CHC T=CHCT+1 I $Y>56 W ! !,# D HEAD | |
102 | ....S (CH SSSN,CHBSS N,CHBELG)= "",(CHCLCT ,CHTPAID)= 0 | |
103 | ....S CHS SSN=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,1) | |
104 | ....S CHB SSN=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,2) | |
105 | ....S CHB ELG=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,3) | |
106 | ....S CHB ELG=$S(CHB ELG="E":"Y ",1:"") | |
107 | ....S CHC LCT=$P(^CH MZHOLD("SN _REPORT",D UZ,CHSELG, CHSNAME,CH DFN,CHBNAM E),U,4) | |
108 | ....S @(" CHB"_CHSEL G_"CT")=@( "CHB"_CHSE LG_"CT")+1 | |
109 | ....S CHT PAID=$P(^C HMZHOLD("S N_REPORT", DUZ,CHSELG ,CHSNAME,C HDFN,CHBNA ME),U,5) Q :'CHTPAID | |
110 | ....S @(" CHB"_CHSEL G_"PAY")=@ ("CHB"_CHS ELG_"PAY") +CHTPAID | |
111 | ....U FIL EIO W:'CHF G !,$E(CHS NAME,1,28) ,?31,CHSSS N,?42,$S(C HSELG="E": "Y",1:"") W:CHFG ! | |
112 | ....U FIL EIO W ?47, $E($S(CHBN AME="A":"" ,1:CHBNAME ),1,28),?7 7,CHBSSN,? 88,CHBELG, ?93,CHCLCT ,?104,$J(C HTPAID,9,2 ) | |
113 | ....S CHF G=1 | |
114 | .D FOOT | |
115 | Q | |
116 | ; | |
117 | FILE ; | |
118 | D UCI^%ZO SV | |
119 | I $P(Y,", ",1)="HAC" S FILENME ="E_SNRECO RDS.TXT",F ILENMI="I_ SNRECORDS. TXT" | |
120 | E S FILE NME="E_SNR ECORDS_"_$ P(Y,",",1) _".TXT",FI LENMI="I_S NRECORDS_" _$P(Y,",", 1)_".TXT" | |
121 | S FILEE=" HACFS3"" DNS COLEDEC We lcome1!"": :e:[CMS]"_ FILENME O FILEE C FI LEE:"D" | |
122 | S FILEI=" HACFS3"" DNS COLEDEC We lcome1!"": :e:[CMS]"_ FILENMI O FILEE C FI LEE:"D" | |
123 | O FILEE:" NWS":5 I ' $T Q | |
124 | O FILEI:" NWS":5 I ' $T Q | |
125 | Q | |
126 | ; | |
127 | HEAD ; | |
128 | U FILEIO | |
129 | S CHTITLE 1="VA HEAL TH ADMINST RATION CEN TER" | |
130 | S CHTITLE 2="REPORT OF STUB NA ME RECORDS " | |
131 | S CHTITLE 3="ELIGIBI LITY STATU S: "_$S(CH SELG="E":" ELIGIBLE", CHSELG="I" :"INELIGIB LE",1:"") | |
132 | W #,!,CHT IME,?55,CH TITLE1,?12 3,"page: " ,CHPG | |
133 | W !,DUZ,? 56,CHTITLE 2 | |
134 | W !,?55,C HTITLE3 | |
135 | W !!,"VET ERAN NAME" ,?31,"SSN" ,?42,"ELG" ,?47,"BENE NAME",?77 ,"SSN",?88 ,"ELG",?93 ,"CLMS SUB M",?104,"T OTAL PAID" | |
136 | W !,"---- ---------- -----",?31 ,"-------- -",?42,"-- -",?47,"-- ---------- -------",? 77,"------ ---",?88," ---",?93," ---------" ,?104,"--- -------" | |
137 | S CHPG=CH PG+1 | |
138 | Q | |
139 | ; | |
140 | FOOT ; | |
141 | U FILEIO | |
142 | W !,?104, "--------- " | |
143 | W !,?104, $J(@("CHB" _CHSELG_"P AY"),9,2) | |
144 | W !!,"TOT AL VETERAN S "_$S(CHS ELG="E":"E LIGIBLE",C HSELG="I": "INELIGIBL E",1:"")_" : ",$FN(@( "CHS"_CHSE LG_"CT")," ,") | |
145 | W !,"TOTA L BENEFICI ARIES: ",$ FN(@("CHB" _CHSELG_"C T"),",") | |
146 | Q | |
147 | ; | |
148 | DTPRT ; | |
149 | S Y="" Q: X'?7N S Y =$E(X,1,3) +1700,%M=+ $E(X,4,5), %D=+$E(X,6 ,7) | |
150 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
151 | Q | |
152 | JAN ;;JAN FEB MAR AP R MAY JUN JUL AUG SE P OCT NOV DEC | |
153 | Q | |
154 | ; | |
155 | KILLVAR ; | |
156 | K X,Y,CHD FN,CHBFN,C HSNAME,CHS SSN,CHSELG ,CHBEXIST, CHBNAME,CH BSSN,CHBEL G,CHCLCT,C HTPAID | |
157 | K FILEE,F ILEI,D,G,S N,BN,CL,K, CHDT,CHTIM E,H,M,CHSI CT,CHSECT, CHBICT,CHB ECT,CHCT,C HPG,FILEIO | |
158 | K FILENME ,FILENMI,F ILEE,FILEI ,CHTITLE1, CHTITLE2,C HTITLE3,^C HMZHOLD("S N_REPORT", DUZ),CHBEP AY,CHBIPAY | |
159 | Q | |
160 | ; | |
161 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.