source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBACVA2.m@ 1259

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

initial load of WorldVistAEHR

File size: 3.7 KB
Line 
1IBACVA2 ;ALB/CPM - BULLETINS FOR CHAMPVA BILLING ; 29-JUL-93
2 ;;2.0;INTEGRATED BILLING;**27,52,240**;21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5ERRMSG(IBIND,IBMSG) ; Process CHAMPVA/TRICARE Error Messages.
6 ; Input: IBIND -- 1=>billing 0=>canceling
7 ; IBMSG -- 1=>CHAMPVA msg 2=> TRICARE msg
8 K IBT S IBPT=$$PT^IBEFUNC(DFN)
9 S IBMSGT=$S($G(IBMSG)=1:"CHAMPVA inpatient subsistence",1:"TRICARE Pharmacy copayment")
10 S XMSUB=$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" - ERROR ENCOUNTERED"
11 S IBT(1)="An error occurred while "_$S($G(IBIND):"billing",1:"cancelling")_" the "_IBMSGT_" charge"
12 S IBT(2)=$S($G(IBIND):"to",1:"for")_" the following patient:"
13 S IBT(3)=" " S IBC=3
14 S IBDUZ=DUZ D PAT^IBAERR1
15 ;S Y=+DGPMA D DD^%DT
16 ;S IBC=IBC+1,IBT(IBC)="Disc Date: "_Y
17 S IBC=IBC+1,IBT(IBC)=" "
18 S IBC=IBC+1,IBT(IBC)="The following error was encountered:"
19 S IBC=IBC+1,IBT(IBC)=" "
20 D ERR^IBAERR1
21 S IBC=IBC+1,IBT(IBC)=" "
22 S IBC=IBC+1,IBT(IBC)="Please review the circumstances surrounding this error and use the"
23 S IBC=IBC+1,IBT(IBC)="Cancel/Edit/Add Patient Charges' option to bill or cancel any necessary"
24 S IBC=IBC+1,IBT(IBC)="charges."
25 D SEND
26 Q
27 ;
28ADM ; Send a bulletin when CHAMPVA patients are admitted.
29 K IBT S IBPT=$$PT^IBEFUNC(DFN)
30 S XMSUB=$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" - CHAMPVA PATIENT"
31 S IBT(1)="The following CHAMPVA patient has been admitted:"
32 S IBT(2)=" ",IBC=2
33 S IBDUZ=DUZ D PAT^IBAERR1
34 S Y=+DGPMA D DD^%DT
35 S IBC=IBC+1,IBT(IBC)=" Adm Date: "_Y
36 S IBC=IBC+1,IBT(IBC)=" "
37 S IBC=IBC+1,IBT(IBC)="This patient will be automatically billed the CHAMPVA inpatient"
38 S IBC=IBC+1,IBT(IBC)="subsistence charge when discharged."
39 D SEND
40 Q
41 ;
42WARN(IBB,IBE) ; Send bulletins when discharges are edited or deleted.
43 ; Input: IBB -- Discharge date before edit
44 ; IBE -- Discharge date after edit
45 K IBT S IBPT=$$PT^IBEFUNC(DFN)
46 S XMSUB=$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" - DISCHARGE CHANGED"
47 S IBT(1)="A discharge was "_$S($G(IBE):"edited",1:"deleted")_" for the following CHAMPVA patient:"
48 S IBT(2)=" " S IBC=2
49 S IBDUZ=DUZ D PAT^IBAERR1
50 S IBC=IBC+1,IBT(IBC)=" "
51 I $G(IBE) D
52 .S Y=IBB D DD^%DT S IBC=IBC+1,IBT(IBC)="Prev Discharge Date: "_Y
53 .S Y=IBE D DD^%DT S IBC=IBC+1,IBT(IBC)=" New Discharge Date: "_Y
54 .S IBC=IBC+1,IBT(IBC)=" "
55 S IBC=IBC+1,IBT(IBC)="Please review the circumstances surrounding these movement changes,"
56 S IBC=IBC+1,IBT(IBC)="and use the 'Cancel/Edit/Add Patient Charges' option to bill or cancel"
57 S IBC=IBC+1,IBT(IBC)="any necessary charges."
58 D SEND
59 Q
60 ;
61DEL(DFN,IBN,IBADM) ; Send bulletins when billed admissions are deleted.
62 ; Input: DFN -- Pointer to the patient in file #2
63 ; IBN -- Pointer to the cancelled charge in file #350
64 ; IBADM -- Admission date/time
65 K IBT S IBPT=$$PT^IBEFUNC(DFN)
66 S XMSUB=$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" - ADMISSION DELETED"
67 S IBT(1)="A billed admission for the following CHAMPVA patient was deleted:"
68 S IBT(2)=" " S IBC=2
69 S IBDUZ=DUZ D PAT^IBAERR1
70 S IBC=IBC+1,IBT(IBC)=" "
71 S Y=+IBADM D DD^%DT
72 S IBC=IBC+1,IBT(IBC)=" Adm Date: "_Y
73 S IBC=IBC+1,IBT(IBC)=" "
74 S IBC=IBC+1,IBT(IBC)="The inpatient subsistence charge for this admission has been cancelled"
75 S IBC=IBC+1,IBT(IBC)="in Billing only. You MUST decrease the receivable "_$P($G(^IB(IBN,0)),"^",11)_" down to $0"
76 S IBC=IBC+1,IBT(IBC)="in the Accounts Receivable module!!"
77 D SEND
78 Q
79 ;
80SEND ; Send bulletin to recipients of the Means Test billing mailgroup.
81 D MAIL^IBAERR1
82 K IBC,IBT,IBPT,XMSUB,XMY,XMTEXT,XMDUZ,IBMSGT
83 Q
84 ;
85ON() ; Is the CHAMPVA billing module fully installed?
86 N X S X=+$O(^IBE(350.1,"E","CHAMPVA SUBSISTENCE",0))
87 Q +$P($G(^IBE(350.1,X,0)),"^",3)
Note: See TracBrowser for help on using the repository browser.