[613] | 1 | IBAERR2 ;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
|
---|
| 12 | BQ Q
|
---|
| 13 | ;
|
---|
| 14 | BULL ; -- 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
|
---|
| 36 | BULLQ Q
|
---|
| 37 | ;
|
---|
| 38 | SEND 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 | ;
|
---|
| 47 | JOB ;;
|
---|
| 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 | ;;
|
---|
| 56 | WHERE ;;
|
---|
| 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 | ;;
|
---|
| 65 | ERR ;;
|
---|
| 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.
|
---|