Produced by Araxis Merge on 11/9/2018 12:33:58 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 | CHMKFPAA.m | Mon Nov 5 16:41:03 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMKFPAA.m | Mon Nov 5 17:48:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 4 | 462 |
Changed | 3 | 6 |
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 | CHMKFPA ;A HJ/PD;SELE CT FMP WIT H CLAIMS A ND PRINT R EPORT | |
2 | ;V1.0;TRC 026 ; 20 Mar 2008 1 :46 PM | |
3 | ; | |
4 | S (CHCTY, CHCTYPTR,C HVENPTR,CH CSDATE,CL1 ,VE,DI,CT) ="",(CHVEC T,CHVTCT,C HTO,PDCL,C HTOPDVE,CH SERV,CHSV1 ,CHSV2,CHS V3,CHSV4,C HSV5,CHSV6 )=0 | |
5 | S CTR=0,S W=0,CNT=0, FMPCTR=0,C HLINE=26,C I=0,CJ=0,C TR1=0,GI=1 ,CHSTATUS= 4,CHRFG=1 | |
6 | ;W #,!!!, "Searching for compl eted claim s." | |
7 | K ^CHMZHO LD("FMP926 ") | |
8 | K ^CHMZHO LD("NOFMP9 26") | |
9 | K ^CHMZHO LD("FMP-CL AIMS-DAYS" ) | |
10 | S (CLMCNT ,FMPCNT,TO TCNT,ACNT, BCNT,CCNT, FMPCNT)=0 | |
11 | S (ZIP,SW ,SW1,SW2,S W33,SW4)=0 | |
12 | S U="^" | |
13 | S PPG=0 | |
14 | S PG=0 | |
15 | S PGCNT=0 | |
16 | S NAME=0 | |
17 | S DFN=0 | |
18 | DAYS ; | |
19 | W !!,"Ent er Number of days of past clai ms (365=1 YR) (Enter ""END"" t o Quit: " | |
20 | D CSBRS^C HSC2 | |
21 | ;G:$D(DFO UT) END G: $D(DUOUT) ESSN | |
22 | I $D(DQOU T) D G DA YS | |
23 | .W !," days input must be n umeric num ber." | |
24 | Q:Y="END" | |
25 | I Y="" D G DAYS | |
26 | .W !," The days i nput Numbe r is manda tory." | |
27 | .W " You may not p roceed wit hout it." | |
28 | I (Y?1N)! (Y?2N)!(Y? 3N)!(Y?4N) S DAYSNUM =Y G OKDAY S | |
29 | G DAYS | |
30 | OKDAYS ; | |
31 | D NOW^%DT C S RUNTIM E=% | |
32 | S Y=$E(RU NTIME,1,7) | |
33 | S CHDATE= Y | |
34 | S Y=CHDAT E D DD^%DT S PDATE=Y | |
35 | ; USE D AYS | |
36 | S X1=CHDA TE S X2=-D AYSNUM D C ^%DTC S ST RDAT=X | |
37 | ; CHDATE = Todays Date | |
38 | S TODAY=C HDATE | |
39 | S ENDDAT= TODAY | |
40 | OKMOS ; | |
41 | W !!,"PLE ASE SELECT DEVICE FO R PRINTOUT OR ""FILE "" FOR EXC EL FILE ON FS3BIG: " ;TLH 4/2 1/08 DEV00 4416 | |
42 | K %IS,IO( "Q") D ^%Z IS Q:POP S CHFILE=" " | |
43 | I ION="FI LE" D ;TL H 4/21/08 DEV004416 | |
44 | .W !!,?24 ,"COPY YOU R QUEUED F ILE TO FS3 BIG" ;TLH 4/21/08 D EV004416 | |
45 | A .W !!,"E nter the n ew 1-8 cha racter fil e name EXI T// " ;TL H 4/21/08 DEV004416 | |
46 | .D CSBRS^ CHSC2 ;TL H 4/21/08 DEV004416 | |
47 | .Q:$D(DFO UT) Q:$D( DTOUT) G: $D(DQOUT) A ;TLH 4/2 1/08 DEV00 4416 | |
48 | .S CHFILE=Y ;TLH 4/21 /08 DEV004 416 | |
49 | .I Y["." W ! ,"DO NOT E NTER AN EX TENTION. E XTENTION W ILL BE '.T XT'" G A | |
50 | .Q :Y="" ;TL H 4/21/08 DEV004416 | |
51 | .G :Y'?1.8AN A ;TLH 4/ 21/08 DEV0 04416 | |
52 | .W !!,"Your file will now be cop ied to FS3 BIG: " ;T LH 4/21/08 DEV004416 | |
53 | .W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" ;TLH 4/21/ 08 DEV0044 16 | |
54 | .Q ;TLH 4/2 1/08 DEV00 4416 | |
55 | G: $D(IO("Q") )!(IO'=IO( 0)) QUEUEI T | |
56 | ; | |
57 | ; | |
58 | ;K %IS,IO ("Q") D ^% ZIS Q:POP | |
59 | ;G:$D(IO( "Q"))!(IO' =IO(0)) QU EUEIT | |
60 | ; | |
61 | ; | |
62 | MAJORIT ; | |
63 | D MAIN1 | |
64 | D PRINTIT | |
65 | G END | |
66 | Q | |
67 | MAIN1 ; | |
68 | F S CI=$ O(^CHFMPCL (CI)),CJ=0 Q:'CI D | |
69 | .Q:'$D(^C HFMPCL(CI, 100)) | |
70 | .;I CTR=4 S CHLINE= CHLINE+1 W ?CHLINE," ." H .5 S CTR=0 | |
71 | .S CTR=CT R+1 | |
72 | .F S CJ= $O(^CHFMPC L(CI,100,C J)) Q:'CJ D | |
73 | ..Q:'$D(^ CHFMPCL(CI ,100,CJ,0) ) | |
74 | ..S CL=^C HFMPCL(CI, 100,CJ,0) | |
75 | ..Q:$P(CL ,U,2)="" | |
76 | ..Q:$P(CL ,U,6)="" | |
77 | ..S CHSTA TUS=$P(CL, U,2) | |
78 | ..S CHCLM NUM=$P(CL, U,1) | |
79 | ..;Check for status 4 (comple ted) claim s | |
80 | ..Q:(CHST ATUS'=4) | |
81 | ..S CIDAT =$P(CL,U,6 ) | |
82 | ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2) | |
83 | ..Q:'$D(^ AHCHVA(CHV ETPRT,0)) | |
84 | ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1) | |
85 | ..;W !,CI DAT | |
86 | ..I CIDAT <STRDAT S ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q | |
87 | ..I CIDAT >ENDDAT S ^CHMZHOLD( "NOFMP926" ,CHVET,CID AT,CHCLMNU M)="" Q | |
88 | ..;W !," ",CIDAT | |
89 | ..S CHVET PRT=$P(^CH FMPCL(CI,0 ),U,2) | |
90 | ..S CHVET =$P(^AHCHV A(CHVETPRT ,0),U,1) | |
91 | ..;W !,CH VET," ",CH VETPRT," ",CI," ",CJ," ",CNT | |
92 | ..S FMPCT R=FMPCTR+1 | |
93 | ..S ^CHMZ HOLD("FMP- CLAIMS-DAY S",CHVET,C HVETPRT)=" " | |
94 | ..Q | |
95 | Q | |
96 | PRINTIT ; | |
97 | D HEADING | |
98 | L1 ; | |
99 | S TOTCNT= TOTCNT+1 | |
100 | GETNM ; | |
101 | S NAME=$O (^CHMZHOLD ("FMP-CLAI MS-DAYS",N AME)) G:NA ME="" END | |
102 | S DFN=0 | |
103 | GETDFN ; | |
104 | S DFN=$O( ^CHMZHOLD( "FMP-CLAIM S-DAYS",NA ME,DFN)) G :'DFN GETN M | |
105 | S ADFN=DF N | |
106 | ;NEED TO GET BFN HE RE | |
107 | S ADFN=$O (^AHCHVA(A DFN,100)) | |
108 | S ABFN=0 | |
109 | L2 S ABFN= $O(^AHCHVA (ADFN,100, ABFN)) G:' ABFN L1 | |
110 | ; | |
111 | ;W !," DF N=",DFN," BFN=",BFN | |
112 | G L2:'$D( ^AHCHVA(AD FN,100,ABF N,0)),L2:' $D(^AHCHVA (ADFN,100, ABFN,1)) | |
113 | ; | |
114 | N22 ; | |
115 | ;G L1 | |
116 | NEXT1 ; | |
117 | S NAMELAB =^AHCHVA(D FN,0) | |
118 | ;******** ********** ******CHEC K FMP ADDR ESS | |
119 | G:'$D(^AH CHVA(DFN,1 1)) L1 | |
120 | ;I DFN=49 1175 G L1 | |
121 | ;I DFN=48 9887 G L1 | |
122 | S ADDRLAB =^AHCHVA(D FN,11) | |
123 | N2 ; | |
124 | S STATE=$ P(ADDRLAB, U,4) | |
125 | S:STATE S TATE=$P(^D IC(5,STATE ,0),U,2) | |
126 | ; | |
127 | S (ADDR1, ADDR2,ADDR 3,ADDR4,AD DR5,ADDR6) ="" | |
128 | S ADDR1=$ P(NAMELAB, U,1) | |
129 | S ADDR2=$ P(ADDRLAB, U,1) | |
130 | S ADDR3=$ P(ADDRLAB, U,2) | |
131 | S ADDR4=$ P(ADDRLAB, U,8) | |
132 | S ADDR5=$ P(ADDRLAB, U,3) | |
133 | S ADDR6=" " | |
134 | S ZIP1=$P (ADDRLAB,U ,5) | |
135 | S ZIP=ZIP 1 | |
136 | I $L(ZIP1 )>5 S ZIP2 =$E(ZIP1,1 ,5) S ZIP3 =$E(ZIP1,6 ,9) S ZIP= ZIP2_"-"_Z IP3 | |
137 | ;W !,ADDR 1 | |
138 | N3 ; | |
139 | I STATE=" " D | |
140 | .S COUNTR Y=$P(ADDRL AB,U,6) | |
141 | .S:COUNTR Y COUNTRY= $P(^DIC(5, COUNTRY,0) ,U,1) | |
142 | .S ADDR6= COUNTRY | |
143 | I $P(ADDR LAB,U,3)=" " G ADD2 | |
144 | S:$P(ADDR LAB,U,3)'= "APO" ADDR 5=$P(ADDRL AB,U,3)_", "_STATE_" "_ZIP | |
145 | S:$P(ADDR LAB,U,3)=" APO" ADDR5 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP | |
146 | S:$P(ADDR LAB,U,3)=" FPO" ADDR5 =$P(ADDRLA B,U,3)_" " _STATE_" " _ZIP | |
147 | ; | |
148 | ADD2 ; | |
149 | S T=$C(9) | |
150 | I STATE'= "" D | |
151 | .S TMPS=A DDR1_T_ADD R2_T_ADDR3 _T_ADDR4_T _ADDR5 | |
152 | ; | |
153 | I STATE=" AE" S STAT E="" | |
154 | I STATE="AA" S STATE=" " | |
155 | S FMPCNT= FMPCNT+1 | |
156 | ; | |
157 | I PGCNT>5 6 D HEADIN G | |
158 | W !,ADDR1 ,?30,ADDR2 S PGCNT= PGCNT+1 ;P RINTER | |
159 | W1 ; | |
160 | I ADDR3=" " G W2 | |
161 | W !,?30, ADDR3 S PG CNT=PGCNT+ 1 | |
162 | W2 ; | |
163 | I ADDR4'= "" W !,?30 ,ADDR4," " ,ADDR5," " ,ADDR6 S P GCNT=PGCNT +1 | |
164 | I ADDR4=" " I ADDR5' ="" W !,?3 0,ADDR5," ",ADDR6 S PGCNT=PGCN T+1 | |
165 | I ADDR4=" " I ADDR5= "" W !,?3 0,ADDR6 S PGCNT=PGCN T+1 | |
166 | G L1 | |
167 | Q | |
168 | ADD1 I $E( ADDR3,1,1) '="" S ADD R2=ADDR3 | |
169 | G ADD2 | |
170 | SBRS R Y:$ S($D(DTIME ):DTIME,1: 60) | |
171 | I '$T W * 7 R Y:5 G SBRS:Y="." S:'$T Y=I OZFO | |
172 | SBRS1 K DF OUT,DUOUT, DQOUT S:'$ D(IOZFO) I OZFO="^^" S:'$D(IOZB K) IOZBK=" ^" | |
173 | I IOZFO=Y W:$D(IOZF ) # S (DFO UT,Y)="" Q | |
174 | S:Y=IOZBK (DUOUT,Y) ="" S:Y?1" ?".E!(Y["^ ") (DQOUT, Y)="" | |
175 | Q | |
176 | HEADING ;M AIN HEADIN G | |
177 | S PPG=PPG +1 | |
178 | D PRT | |
179 | S TITLE=" HEALTH ADM INISTRATIO N CENTER" | |
180 | S TAB=80- $L(TITLE)/ 2 | |
181 | ;W #,DUZ, ?TAB,TITLE ,?68,"Page : ",PPG | |
182 | W @IOF,DU Z,?TAB,TIT LE,?68,"Pa ge: ",PPG | |
183 | S TITLE=" FMP VETERA NS BY NAME AND ADDRE SS" | |
184 | W !,PDATE _":"_TIME, ?(80-$L(TI TLE)/2),TI TLE | |
185 | W !!,"VET ERAN NAME" ,?30,"VETE RAN ADDRES S" ;PRINTE R | |
186 | W !,"____ __________ _________" | |
187 | W ?30,"__ __________ __________ __________ __________ _______" | |
188 | W ! | |
189 | S PGCNT=8 | |
190 | Q | |
191 | Q | |
192 | Q | |
193 | PRT ; | |
194 | S X=DT D DTPRT S DA TE=Y,PG=1, X=$P($H,", ",2),H=X\3 600,M=X#36 00\60 | |
195 | S:M<10 M= 0_M S:H<10 H=0_H S T IME=H_M | |
196 | S U="^",C NT=0,SCT=0 ,BCT=0 | |
197 | DTPRT S Y="" Q:X' ?7N S Y=$ E(X,1,3)+1 700,%M=+$E (X,4,5),%D =+$E(X,6,7 ) | |
198 | I %M S:%D Y=$E(" ", $L(%D))_%D _", "_Y S Y=$P($P($T (JAN),";;" ,2)," ",%M )_" "_Y | |
199 | Q | |
200 | QUEUEIT ; | |
201 | S ZTDTH=$ H | |
202 | S ZTRTN=" MAJORIT^CH MKFPAA" | |
203 | S ZTDESC= "Print FMP BENE name and addre ss" | |
204 | S ZTSAVE( "*")="" | |
205 | D ^%ZTLOA D | |
206 | W !!?5,"R eport Queu ed!" | |
207 | D HOME^%Z IS Q | |
208 | Q | |
209 | END ; | |
210 | I ION="FILE" D MOVE ; TLH 4/21/0 8 DEV00441 6 | |
211 | ; | |
212 | Q | |
213 | ;; TLH 4/21/0 8 DEV00441 6 | |
214 | MOVE | |
215 | S ZTRTN="COP Y^CHMKFPAA ",ZTDESC=" COPY TEXT FILE TO PC DISK" | |
216 | S ZTSAVE("CH FILE")="", ZTIO="" D ^%ZTLOAD | |
217 | ;W !!,"Your file will now be cop ied to FS3 BIG: " | |
218 | ;W "\\ DNS FS3\FS3BIG \",CHFILE, ".TXT" Q | |
219 | COPY S CHC OM="HAC_HF S$:[DSMMAN AG]DHCPCOP Y.COM" | |
220 | S CHVAL="/NO LOG/QUEUE= SYS$BATCH" | |
221 | S CHPAR=CHFI LE_".TXT" | |
222 | ;S X=$ZF(-1, "SUBMIT CH COM,CHVAL, CHPAR") | |
223 | ;S X=$ZF(-1, "SUBMIT HA C_HFS$:[DS MMANAG]DHC PCOPY.COM /NOLOG/QUE UE=SCRATCH $/PARAM="_ CHPAR) ; SKD | |
224 | S CHPAR="H ACFS3"" DNS COLEDEC We lcome1!"": :d:[FS3BIG ]"_$G(CHPA R) ;SKD | |
225 | S X=$ZF(-1," COPY HAC_H FS$:[TMP]T EMP.TMP "_ CHPAR) | |
226 | S X=$ZF(-1," DELE HAC_H FS$:[TMP]T EMP.TMP;*" ) | |
227 | Q | |
228 | ;; TLH 4/21/0 8 DEV00441 6 | |
229 | ; DEVICE | |
230 | ;W !," COU NT=",CNT | |
231 | Q | |
232 | Q ; | |
233 | Q | |
234 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.