source: WorldVistAEHR/trunk/r/INCOME_VERIFICATION_MATCH-IVM/IVMCMB.m@ 1046

Last change on this file since 1046 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.6 KB
Line 
1IVMCMB ;ALB/SEK,BRM - SEND INCOME TEST TRANSMISSION BULLETIN ; 12/18/01 1:21pm
2 ;;2.0;INCOME VERIFICATION MATCH;**17,49**;21-OCT-94
3 ;
4 ; Input array required:
5 ; ^TMP($J,"IVMBULL" -- contains lists of tests which were uploaded
6 ; dfn^type of test^dt of test^category^action
7 ;
8BULL ; Send mail message notifying site of uploaded income tests.
9 K IVMTEXT
10 I '$D(^TMP($J,"IVMBULL")) G BULLQ
11 S XMSUB="HEC INCOME TEST UPLOAD"
12 S IVMTEXT(1)="Income tests were uploaded from the Health Eligibility Center"
13 S IVMTEXT(2)="for the following patients:"
14 S IVMTEXT(3)=" "
15 S IVMTEXT(4)=" Name PID Type TestDate Old->New Action"
16 S IVMTEXT(5)=" Code"
17 S IVMBCTR=$G(^TMP($J,"IVMBULL",0))
18 F IVMBDA=1:1:IVMBCTR D
19 .S IVMBULLM=$G(^TMP($J,"IVMBULL",IVMBDA)) Q:'IVMBULLM
20 .S IVMPAT=$$PT^IVMUFNC4($P(IVMBULLM,"^"))
21 .S $E(IVMTEXT(IVMBDA+5),1,30)=$E($P(IVMPAT,"^"),1,18)_" "_$P(IVMPAT,"^",2)
22 .S $E(IVMTEXT(IVMBDA+5),31,41)=$S($P(IVMBULLM,"^",2)=1:"Means Test",$P(IVMBULLM,"^",2)=2:"Copay Test",$P(IVMBULLM,"^",2)=4:"LTC Test",1:"")
23 .S Y=$P(IVMBULLM,"^",3) X ^DD("DD") ;test date
24 .S $E(IVMTEXT(IVMBDA+5),43,53)=Y
25 .S $E(IVMTEXT(IVMBDA+5),56,56)=$P(IVMBULLM,"^",4) ;status before
26 .S $E(IVMTEXT(IVMBDA+5),57,58)="->"
27 .S $E(IVMTEXT(IVMBDA+5),59)=$P(IVMBULLM,"^",5) ;status after
28 .S $E(IVMTEXT(IVMBDA+5),64,78)=$P(IVMBULLM,"^",6) ;action
29 ;
30 D MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS")
31BULLQ K IVMBCTR,IVMBDA,IVMBULLM,^TMP($J,"IVMBULL"),IVMPAT,Y
32 Q
33 ;
34BULL1(DFN,WDATE,SITE) ;
35 ;Send message notifying site of hardship determination
36 ;
37 N IVMTEXT,IVMPAT
38 S IVMPAT=$$PT^IVMUFNC4(DFN)
39 S XMSUB="HEC NOTIFICATION OF HARDSHIP"
40 S IVMTEXT(1)="A hardship determination was uploaded from the Health Eligibility Center"
41 S IVMTEXT(2)="for the following patient:"
42 S IVMTEXT(3)=" "
43 S IVMTEXT(4)=" Name: "_$P(IVMPAT,"^")
44 S IVMTEXT(5)=" PID: "_$P(IVMPAT,"^",2)
45 S IVMTEXT(6)=" Effective Date: "_$S(WDATE:$$FMTE^XLFDT(WDATE),1:"UNKNOWN")
46 S IVMTEXT(7)="Site Granting Hardship: "_$S($L(SITE):SITE,1:"UNKNOWN")
47 ;
48 D MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS")
49 Q
50 ;
51BULL2(DFN,WDATE,SITE) ;
52 ;Send message notifying site of deletion of hardship determination
53 ;
54 N IVMTEXT,IVMPAT
55 S IVMPAT=$$PT^IVMUFNC4(DFN)
56 S XMSUB="HEC NOTIFICATION OF HARDSHIP"
57 S IVMTEXT(1)="Notification has been received from the Health Eligibility Center "
58 S IVMTEXT(2)="that the hardship determination was deleted for the following patient:"
59 S IVMTEXT(3)=" "
60 S IVMTEXT(4)=" Name: "_$P(IVMPAT,"^")
61 S IVMTEXT(5)=" PID: "_$P(IVMPAT,"^",2)
62 S IVMTEXT(6)=" Effective Date Prior to Deletion: "_$S(WDATE:$$FMTE^XLFDT(WDATE),1:"UNKNOWN")
63 S IVMTEXT(7)="Site Originally Granting Hardship: "_$S($L(SITE):SITE,1:"UNKNOWN")
64 ;
65 D MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS")
66 Q
67 ;
68BULL3(DFN) ;
69 ;Send message notifying site to discontinue net-worth adjudication
70 ;
71 Q:('$G(DFN))
72 ;
73 N IVMTEXT,IVMPAT
74 S IVMPAT=$$PT^IVMUFNC4(DFN)
75 S XMSUB="HEC Authority Over Networth-Adjudication"
76 S IVMTEXT(1)="Please discontinue development of net-worth for the following patient:"
77 S IVMTEXT(2)=" "
78 S IVMTEXT(3)=" "
79 S IVMTEXT(4)=" Name: "_$P(IVMPAT,"^")
80 S IVMTEXT(5)=" PID: "_$P(IVMPAT,"^",2)
81 ;
82 D MAIL^IVMUFNC("DGMT MT/CT UPLOAD ALERTS")
83 Q
84 ;
85ADD(DFN,TYPETEST,ACTION,TESTDATE,STATUS1,STATUS2) ;
86 ;Adds to the notification list
87 ;
88 N COUNT
89 S COUNT=$G(^TMP($J,"IVMBULL",0))+1
90 S ^TMP($J,"IVMBULL",COUNT)=DFN_U_$G(TYPETEST)_U_$G(TESTDATE)_U_$G(STATUS1)_U_$G(STATUS2)_U_$G(ACTION)
91 S ^TMP($J,"IVMBULL",0)=COUNT
92 Q
Note: See TracBrowser for help on using the repository browser.