source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBAERR2.m@ 1800

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

initial load of FOIAVistA 6/30/08 version

File size: 2.8 KB
Line 
1IBAERR2 ;ALB/AAS - RX COPAY EXEMPTION ERROR PROCESSOR ; 15-JAN-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;**26,34**; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5% ; -- medication copayment exemtpion errors
6 Q:'$G(IBEXERR)!('$G(IBWHER))!('$G(IBJOB))
7 ;
8 N IBP,IBALERT
9 S IBP=$$PT^IBEFUNC(DFN)
10 I $$ALERT^IBAUTL7 S IBALERT=IBEXERR+10 D SEND^IBAERR3 G BQ
11 D BULL
12BQ Q
13 ;
14BULL ; -- send bulletin
15 ;
16 S XMSUB="Medication Copayment Exemption Error"
17 S IBT(1)="The following Medication Copayment Exemption error occured"
18 S IBT(2)="during the "_$P($T(JOB+(IBJOB-10)),";;",2)
19 S IBT(3)=$P($T(WHERE+(IBWHER-10)),";;",2)
20 S IBT(4)=""
21 ;
22 S IBT(5)=" Patient: "_$E($P(IBP,"^")_" ",1,25)_" PT. ID: "_$P(IBP,"^",2)
23 I '$D(IBEVTP) N IBEVTP S IBEVTP=$$LST^IBARXEU0(DFN,DT)
24 S IBT(6)="Current Status: "_$E($$TEXT^IBARXEU0($P(IBEVTP,"^",4))_" ",1,10)_" - "_$P($G(^IBE(354.2,+$P(IBEVTP,"^",5),0)),"^")
25 S IBT(7)=""
26 S IBT(8)=" by: "_$P($G(^VA(200,DUZ,0)),"^")
27 S Y=DT D D^DIQ S IBT(9)=" on: "_$P(Y,"@")
28 S IBT(10)=""
29 S IBT(11)="The following error occured:"
30 S IBT(12)=$P($T(ERR+IBEXERR),";;",2)
31 I IBEXERR=3 S IBT(12)=IBT(12)_" (actual format was "_$S($G(IBDT)="":"<null>",1:IBDT)_")"
32 S IBT(13)=""
33 S IBT(14)="Use option Manually Change Copay Exemption (Hardships)"
34 S IBT(15)="to verify exemption status."
35 D SEND
36BULLQ Q
37 ;
38SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
39 K XMY S XMN=0
40 S XMY(DUZ)=""
41 S IBGRP=$P(^IBE(350.9,1,0),"^",9)
42 F IBI=0:0 S IBI=$O(^XMB(3.8,+IBGRP,1,"B",IBI)) Q:'IBI S XMY(IBI)=""
43 D ^XMD
44 K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY,XMSUB,XMZ
45 Q
46 ;
47JOB ;;
48 ;;Medication Copayment Installation/Conversion Process
49 ;;Automated Exemption Link to Income Tests
50 ;;Manual Update/Hardship exemption option
51 ;;Automated Exemption Creation during Copay Billing
52 ;;Print/Verify Medication Copayment Exemption Option
53 ;;Automated Exemption Link to Patient Eligibility data
54 ;;Update of Exemptions based on Prior Year Income
55 ;;
56WHERE ;;
57 ;;while attempting to add a patient to the Billing Patient File.
58 ;;while attempting to add a Billing Exemption.
59 ;;from the automated exemption link to the Income tests.
60 ;;while updating the current exemption status.
61 ;;while inactivating an exemption record.
62 ;;while looping thorough entries.
63 ;;while processing in Accounts Receivable.
64 ;;
65ERR ;;
66 ;;Entry locked by another user.
67 ;;Failed to add patient to Billing Patient file.
68 ;;Date in incorrect format.
69 ;;Failed to add exemption record to Billing Exemptions file.
70 ;;Failed while updating exemption record.
71 ;;Failed while updating current exemption status
72 ;;Failed while inactivating old exemption status
73 ;;Failed to add exemption. User not defined
74 ;;Failed to add Patient to Billing Patient file, entry locked.
75 ;;Failed during processing of decrease adjustment or refund.
Note: See TracBrowser for help on using the repository browser.