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

IBAERR1.m

Go to the documentation of this file.
  1. IBAERR1 ;ALB/CPM - INTEGRATED BILLING ERROR PROCESSING ROUTINE (CON'T) ; 03-JAN-92
  1. ;;2.0;INTEGRATED BILLING;**15,133,153**;21-MAR-94
  1. ;;Per VHA Directive 10-93-142, this routine should not be modified.
  1. ;
  1. ; This routine will be used to send mail messages when errors
  1. ; have occurred during the processing of Means Test charges.
  1. ; Input: IBJOB = 1 Nightly Compilation job
  1. ; 2 Discharge job
  1. ; 4 Add/Edit/Cancel Charges
  1. ; 5 Appointment Event Driver
  1. ; 7 Means Test Event Driver
  1. ; 8 OPT Billing Update
  1. ; 9 IVM Back-Billing job
  1. ; DFN {opt}, IBDUZ, IBY, IBWHER
  1. ;
  1. N IBSTART K IBT
  1. I $D(DFN)#2 S IBPT=$$PT^IBEFUNC(DFN)
  1. I '$G(IBJOB) S IBJOB=5 ; if MT charge entered thru Appt Event Driver uses filer so IBJOB not set,see EN2^IBAMTS2
  1. S XMSUB=$S($D(IBPT)#2:$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" -",1:"MEANS TEST BILLING")_" ERROR ENCOUNTERED"
  1. S IBT(1)="An error has been encountered while processing Means Test charges"
  1. S IBT(2)="during the "_$P($T(JOB+IBJOB),";;",2,99)_" for the following patient:"
  1. S IBT(3)=" ",IBC=3
  1. D PAT
  1. S IBC=IBC+1,IBT(IBC)=" "
  1. S IBC=IBC+1,IBT(IBC)="The Means Test billing history for this patient must be reviewed."
  1. S IBC=IBC+1,IBT(IBC)="The following error was encountered:"
  1. S IBC=IBC+1,IBT(IBC)=" "
  1. S:IBJOB=4 IBSTART=IBC D ERR
  1. S IBC=IBC+1,IBT(IBC)=" "
  1. S IBM=$P($T(TEXT+IBWHER^IBAMTEL),";;",2,99),IBC=IBC+1
  1. S:$L(IBM)<80 IBT(IBC)=IBM
  1. I $L(IBM)>79 S IBB=$E(IBM,1,79),IBT(IBC)=$P(IBB," ",1,$L(IBB," ")-1),IBC=IBC+1,IBT(IBC)=$P(IBM," ",$L(IBB," "),999)
  1. I IBJOB=4 F IBI=IBSTART:1:IBC W !,IBT(IBI)
  1. D MAIL K IBT,IBM,IBB,IBC,IBPT,XMSUB,XMY,XMTEXT,XMDUZ
  1. Q
  1. ;
  1. PAT ; Set up patient demographic and user data for message.
  1. S IBC=IBC+1,IBT(IBC)=" Patient: "_$S($D(IBPT)#2:$P(IBPT,"^")_" Pt. ID: "_$P(IBPT,"^",2),1:"Not Defined")
  1. S IBC=IBC+1,IBT(IBC)=" User: "_$P($G(^VA(200,+IBDUZ,0)),"^")
  1. Q
  1. ;
  1. ERR ; Set up error message text.
  1. S X2=$P(IBY,"^",2) F K=1:1 S X=$P(X2,";",K) Q:X="" D
  1. . S X1=$O(^IBE(350.8,"AC",X,0)),IBC=IBC+1
  1. . S IBT(IBC)=" "_$S($D(^IBE(350.8,+X1,0)):$P(^(0),"^",2),X]"":X,1:"Unknown Error")
  1. I $P(IBY,"^",3)]"" S IBC=IBC+1,IBT(IBC)=" "_$P(IBY,"^",3)
  1. K X,X1,X2 Q
  1. ;
  1. MAIL ; Transmit.
  1. N IBI,IBGRP S XMDUZ="INTEGRATED BILLING PACKAGE",XMTEXT="IBT("
  1. K XMY
  1. ;S IBGRP=$P($G(^IBE(350.9,1,0)),"^",11)
  1. ;F IBI=0:0 S IBI=$O(^XMB(3.8,+IBGRP,1,"B",IBI)) Q:'IBI S XMY(IBI)=""
  1. S IBGRP=$P($G(^XMB(3.8,+$P($G(^IBE(350.9,1,0)),"^",11),0)),"^")
  1. I IBGRP]"" S XMY("G."_IBGRP_"@"_^XMB("NETNAME"))=""
  1. D ^XMD
  1. Q
  1. ;
  1. JOB ; Job Descriptions
  1. ;;Nightly Compilation job
  1. ;;Discharge job
  1. ;;<Undefined job #3>
  1. ;;Cancel/Edit/Add Option
  1. ;;Check Out job
  1. ;;<Undefined job #6>
  1. ;;Means Testing
  1. ;;OPT Billing Update
  1. ;;IVM Back-Billing job