| 1 | IBAMTBU1 ;ALB/CPM - MEANS TEST BILLING BULLETINS (CON'T.) ; 09-APR-92
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**153**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | OE ; Send bulletin when a Means Test copay vet, admitted for Observation
|
|---|
| 6 | ; and Examination, is discharged, but has previously been billed
|
|---|
| 7 | ; copayment and per diem charges.
|
|---|
| 8 | ; Input: DGPMA, DFN, DUZ
|
|---|
| 9 | ;
|
|---|
| 10 | K IBT
|
|---|
| 11 | S IBPT=$$PT^IBEFUNC(DFN)
|
|---|
| 12 | S XMSUB=$E($P(IBPT,"^"),1,14)_" "_$P(IBPT,"^",3)_" - O&E DISCHARGE"
|
|---|
| 13 | S IBT(1)="The following patient, admitted for Observation & Examination,"
|
|---|
| 14 | S IBT(2)="has been discharged:"
|
|---|
| 15 | S IBT(3)=" ",IBC=3
|
|---|
| 16 | S IBDUZ=DUZ D PAT^IBAERR1
|
|---|
| 17 | S IBC=IBC+1,IBT(IBC)=" "
|
|---|
| 18 | S Y=$P(DGPMA,"^") D DD^%DT
|
|---|
| 19 | S IBC=IBC+1,IBT(IBC)="Disc Date: "_Y
|
|---|
| 20 | S IBC=IBC+1,IBT(IBC)=" "
|
|---|
| 21 | S IBC=IBC+1,IBT(IBC)="This patient has already been charged Means Test copayment and per diem"
|
|---|
| 22 | S IBC=IBC+1,IBT(IBC)="charges. The Integrated Billing 'event' action has automatically been"
|
|---|
| 23 | S IBC=IBC+1,IBT(IBC)="closed. All Means Test charges for this admission must be manually"
|
|---|
| 24 | S IBC=IBC+1,IBT(IBC)="cancelled, and the patient's billing clock must be manually adjusted."
|
|---|
| 25 | G SEND^IBAMTBU ; deliver message and quit.
|
|---|
| 26 | ;
|
|---|
| 27 | ;
|
|---|
| 28 | DISP ; Build before/after values, instructions for movement bulletins.
|
|---|
| 29 | I $D(IBVAL(1)) D
|
|---|
| 30 | .S IBC=IBC+1,IBT(IBC)="*** The Facility Treating Specialty was changed ***"
|
|---|
| 31 | .S IBC=IBC+1,IBT(IBC)=" Old Value: "_$S(IBVAL(1):$P($G(^DIC(45.7,+IBVAL(1),0)),"^"),1:" No value")
|
|---|
| 32 | .I $P(IBVAL(1),"^",2) S IBC=IBC+1,IBT(IBC)=$J("",12)_"(Billable Bedsection: "_$S($D(^DGCR(399.1,+$P(IBVAL(1),"^",2),0)):$P(^(0),"^"),1:"Unknown")_")"
|
|---|
| 33 | .S IBC=IBC+1,IBT(IBC)=" New Value: "_$S($P(IBVAL(1),"^",3):$P($G(^DIC(45.7,+$P(IBVAL(1),"^",3),0)),"^"),1:" No value")
|
|---|
| 34 | .I $P(IBVAL(1),"^",4) S IBC=IBC+1,IBT(IBC)=$J("",12)_"(Billable Bedsection: "_$S($D(^DGCR(399.1,+$P(IBVAL(1),"^",4),0)):$P(^(0),"^"),1:"Unknown")_")"
|
|---|
| 35 | .S IBC=IBC+1,IBT(IBC)=" "
|
|---|
| 36 | I $D(IBVAL(2)) D
|
|---|
| 37 | .S IBC=IBC+1,IBT(IBC)="*** The "_$S(IBMTYP=6:"Treating Specialty",1:"Movement")_" Date was changed ***"
|
|---|
| 38 | .S IBC=IBC+1,IBT(IBC)=" Old Value: "_$S(IBVAL(2):$$DAT2^IBOUTL(+IBVAL(2)),1:" No Value")
|
|---|
| 39 | .S IBC=IBC+1,IBT(IBC)=" New Value: "_$S($P(IBVAL(2),"^",2):$$DAT2^IBOUTL($P(IBVAL(2),"^",2)),1:" No Value")
|
|---|
| 40 | .S IBC=IBC+1,IBT(IBC)=" "
|
|---|
| 41 | ;
|
|---|
| 42 | ; - set up instructions
|
|---|
| 43 | S IBC=IBC+1,IBT(IBC)="Means Test charges have been billed for this episode of care."
|
|---|
| 44 | I IBMTYP=3,DGPMA="" S IBC=IBC+1,IBT(IBC)="Please review these charges and use the Cancel/Edit/Add Patient Charges option",IBC=IBC+1,IBT(IBC)="to re-open the event record, if necessary, so that billing may resume." Q
|
|---|
| 45 | S IBC=IBC+1,IBT(IBC)="Please review these charges and"_$S(IBMTYP=1&(DGPMA=""):"",1:" edit or")_" cancel any charges if necessary."
|
|---|
| 46 | Q
|
|---|
