Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: IBAERR2

IBAERR2.m

Go to the documentation of this file.
  1. IBAERR2 ;ALB/AAS - RX COPAY EXEMPTION ERROR PROCESSOR ; 15-JAN-93
  1. ;;Version 2.0 ; INTEGRATED BILLING ;**26,34**; 21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. % ; -- medication copayment exemtpion errors
  1. Q:'$G(IBEXERR)!('$G(IBWHER))!('$G(IBJOB))
  1. ;
  1. N IBP,IBALERT
  1. S IBP=$$PT^IBEFUNC(DFN)
  1. I $$ALERT^IBAUTL7 S IBALERT=IBEXERR+10 D SEND^IBAERR3 G BQ
  1. D BULL
  1. BQ Q
  1. ;
  1. BULL ; -- send bulletin
  1. ;
  1. S XMSUB="Medication Copayment Exemption Error"
  1. S IBT(1)="The following Medication Copayment Exemption error occured"
  1. S IBT(2)="during the "_$P($T(JOB+(IBJOB-10)),";;",2)
  1. S IBT(3)=$P($T(WHERE+(IBWHER-10)),";;",2)
  1. S IBT(4)=""
  1. ;
  1. S IBT(5)=" Patient: "_$E($P(IBP,"^")_" ",1,25)_" PT. ID: "_$P(IBP,"^",2)
  1. I '$D(IBEVTP) N IBEVTP S IBEVTP=$$LST^IBARXEU0(DFN,DT)
  1. S IBT(6)="Current Status: "_$E($$TEXT^IBARXEU0($P(IBEVTP,"^",4))_" ",1,10)_" - "_$P($G(^IBE(354.2,+$P(IBEVTP,"^",5),0)),"^")
  1. S IBT(7)=""
  1. S IBT(8)=" by: "_$P($G(^VA(200,DUZ,0)),"^")
  1. S Y=DT D D^DIQ S IBT(9)=" on: "_$P(Y,"@")
  1. S IBT(10)=""
  1. S IBT(11)="The following error occured:"
  1. S IBT(12)=$P($T(ERR+IBEXERR),";;",2)
  1. I IBEXERR=3 S IBT(12)=IBT(12)_" (actual format was "_$S($G(IBDT)="":"<null>",1:IBDT)_")"
  1. S IBT(13)=""
  1. S IBT(14)="Use option Manually Change Copay Exemption (Hardships)"
  1. S IBT(15)="to verify exemption status."
  1. D SEND
  1. BULLQ Q
  1. ;
  1. SEND S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
  1. K XMY S XMN=0
  1. S XMY(DUZ)=""
  1. S IBGRP=$P(^IBE(350.9,1,0),"^",9)
  1. F IBI=0:0 S IBI=$O(^XMB(3.8,+IBGRP,1,"B",IBI)) Q:'IBI S XMY(IBI)=""
  1. D ^XMD
  1. K X,Y,IBI,IBT,IBGRP,XMDUZ,XMTEXT,XMY,XMSUB,XMZ
  1. Q
  1. ;
  1. JOB ;;
  1. ;;Medication Copayment Installation/Conversion Process
  1. ;;Automated Exemption Link to Income Tests
  1. ;;Manual Update/Hardship exemption option
  1. ;;Automated Exemption Creation during Copay Billing
  1. ;;Print/Verify Medication Copayment Exemption Option
  1. ;;Automated Exemption Link to Patient Eligibility data
  1. ;;Update of Exemptions based on Prior Year Income
  1. ;;
  1. WHERE ;;
  1. ;;while attempting to add a patient to the Billing Patient File.
  1. ;;while attempting to add a Billing Exemption.
  1. ;;from the automated exemption link to the Income tests.
  1. ;;while updating the current exemption status.
  1. ;;while inactivating an exemption record.
  1. ;;while looping thorough entries.
  1. ;;while processing in Accounts Receivable.
  1. ;;
  1. ERR ;;
  1. ;;Entry locked by another user.
  1. ;;Failed to add patient to Billing Patient file.
  1. ;;Date in incorrect format.
  1. ;;Failed to add exemption record to Billing Exemptions file.
  1. ;;Failed while updating exemption record.
  1. ;;Failed while updating current exemption status
  1. ;;Failed while inactivating old exemption status
  1. ;;Failed to add exemption. User not defined
  1. ;;Failed to add Patient to Billing Patient file, entry locked.
  1. ;;Failed during processing of decrease adjustment or refund.