Produced by Araxis Merge on 11/9/2018 12:34:10 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 | CHMVOIS.m | Mon Nov 5 16:43:31 2018 UTC |
2 | CPEE_Build9_Sprint27.zip\HAC_CPE_CH | CHMVOIS.m | Mon Nov 5 17:51:57 2018 UTC |
Description | Between Files 1 and 2 |
|
---|---|---|
Text Blocks | Lines | |
Unchanged | 2 | 174 |
Changed | 1 | 2 |
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 | CHMVOIS ;H AC/JPN AUT OMATED PRO CESS FOR V OIS REPORT ;03/27/200 8 09:10 A M | |
2 | ;V1 12/03 /2007 | |
3 | ;ROUTINE CREATED TO PRINT A L IST OF BEN EFICIARIES IN THE DA TABASE THA T HAVE VOI S | |
4 | ;UPDATED WITH MEDIC ARE INFORA MTION AND APP IN NUL L IN THE M EDICARE FI ELD | |
5 | ;THE REPO RT IS TO L IST THE BE NEFICIARY NAME AND S SN | |
6 | S U="^" | |
7 | K ^CHMZHO LD("MDCARE ") | |
8 | START ;;ST ARTING POI NT WILL se nd the rep ort out to fs3big | |
9 | D RRCHK | |
10 | D OUTPUT | |
11 | Q | |
12 | ; | |
13 | END K | |
14 | Q | |
15 | ; | |
16 | RRCHK ; | |
17 | S CHMOHI= "",CHMDFN= "",CHMBFN= 0,CHM100=" ",CHMK="", CHMBPT=0 | |
18 | ;S CHMDFN =129593 | |
19 | W !!,"Gat hering dat a, please wait:" | |
20 | ;F S CHM DFN=$O(^CH MDFN(CHMDF N)) Q:CHMD FN=129595 D | |
21 | F S CHMD FN=$O(^CHM DFN(CHMDFN )) Q:CHMDF N="" D | |
22 | . F S CH MBFN=$O(^C HMDFN(CHMD FN,100,"B" ,CHMBFN)) Q:CHMBFN=" " D | |
23 | .. S CHMB PT=9999 | |
24 | .. S CHMB PT=$O(^CHM DFN(CHMDFN ,100,"B",C HMBFN,CHMB PT),-1) | |
25 | .. Q:CHMB FN=0 | |
26 | .. S CHMK =9999999 | |
27 | .. S CHMK =$O(^CHMDF N(CHMDFN,1 00,CHMBPT, 2,CHMK),-1 ) | |
28 | .. Q:'$D( ^CHMDFN(CH MDFN,100,C HMBPT,2)) | |
29 | .. S CHM1 00=$G(^CHM DFN(CHMDFN ,100,CHMBP T,2,CHMK,0 )) | |
30 | .. S CHMO HI=$P(CHM1 00,"^",3) | |
31 | .. I CHMO HI="" Q | |
32 | .. S CHMO HI=$P(^CHM DIC(741002 .76,CHMOHI ,0),"^",1) | |
33 | .. Q:CHMO HI'["Med" ;ADDED 5/14/08 F OR BUG TO ONLY GET M EDICARE | |
34 | .. S (AHA DFN,CHMSTA T)="" | |
35 | .. S AHAD FN=$P(^CHM DFN(CHMDFN ,0),"^",1) | |
36 | .. Q:AHAD FN="" | |
37 | .. S AHAB FN="" | |
38 | .. F S A HABFN=$O(^ AHCHVA(AHA DFN,100,AH ABFN)) Q:A HABFN="" D | |
39 | ... Q:AHA BFN'=CHMBF N | |
40 | ... S AHA 100=$G(^AH CHVA(AHADF N,100,AHAB FN,0)) | |
41 | ... S MDC ARE=$P(AHA 100,"^",32 ) | |
42 | ... I MDC ARE=1 S MD CARE="Med A" | |
43 | ... I MDC ARE=3 S MD CARE="Med B" | |
44 | ... I MDC ARE=2 S MD CARE="Medi care A&B" | |
45 | ... I MDC ARE="" S M DCARE="NOT ENTERED" | |
46 | ... Q:MDC ARE["Med" | |
47 | ... I MDC ARE=0 S MD CARE="NO" | |
48 | ... S CHM STAT=$P(AH A100,"^",5 ) | |
49 | ... ;I MD CARE="" D | |
50 | ... I MDC ARE'=CHMOH I D | |
51 | .... D GE TNAM | |
52 | .... Q:NA ME="" | |
53 | .... Q:SS N="" | |
54 | .... S ^C HMZHOLD("M DCARE",AHA DFN)=NAME_ "^"_SSN_"^ "_CHMOHI_" ^"_CHMSTAT _"^"_REASO N_"^"_MDCA RE | |
55 | Q | |
56 | GETNAM ;GE TS THE BEN E NAME AND SSN | |
57 | S NAME="" ,SSN="",RE A="",REAS= "",REASON= "" | |
58 | S NAME=$P (AHA100,"^ ",1) | |
59 | S SSN=$P( AHA100,"^" ,9) | |
60 | S REA=$P( AHA100,"^" ,12) | |
61 | I REA'="" D | |
62 | . Q:'$D(^ AHADIC(554 801.7,"B", REA)) | |
63 | . S REAS= $O(^AHADIC (554801.7, "B",REA,RE AS)) | |
64 | . S REASO N=$P(^AHAD IC(554801. 7,REAS,0), "^",2) | |
65 | Q | |
66 | OUTPUT ;WR ITES OUT T O SCREEN | |
67 | S AHADFN= "",DATA="" ,CNT=0 | |
68 | S FIO="HA CFS3"" DNS decnet HAC dec741!"": :D:[FS3BIG ]CHMVOIS.T XT" | |
69 | O FIO:"NW S" ;APPEND S TO FILE | |
70 | U FIO W ! | |
71 | D HEADER | |
72 | F S AHAD FN=$O(^CHM ZHOLD("MDC ARE",AHADF N)) Q:AHAD FN="" D | |
73 | . S DATA= $G(^CHMZHO LD("MDCARE ",AHADFN)) | |
74 | . S NAME= "",SSN="", STATUS="" | |
75 | . S NAME= $P(DATA,"^ ",1),SSN=$ P(DATA,"^" ,2),CHMOHI =$P(DATA," ^",3),STAT US=$P(DATA ,"^",4),RE ASON=$P(DA TA,"^",5), MDCARE=$P( DATA,"^",6 ) | |
76 | . W !,NAM E,?27,SSN, ?40,CHMOHI ,?55,STATU S,?63,REAS ON,?95,MDC ARE | |
77 | . S CNT=C NT+1 | |
78 | W !!!,"To tal Benefi ciary = ", CNT | |
79 | C FIO | |
80 | Q | |
81 | HEADER ;WR ITES THE H EADER OUT | |
82 | S BNAME=" Beneficiar y Name",BS SN="Bene S SN" | |
83 | W !,BNAME ,?27,BSSN, ?40,"VOIS" ,?55,"STAT US",?63,"R EASON",?95 ,"MDCARE" | |
84 | W !,"---- ---------- ---------- ------",?3 0,"------- --------", ?42,"----- ---------- ----",?60, "--------- ---------- ",?68,"--- ---------- -----",?95 ,"-------- ----",! | |
85 | Q | |
86 | ||
87 | ||
88 |
Araxis Merge (but not the data content of this report) is Copyright © 1993-2016 Araxis Ltd (www.araxis.com). All rights reserved.