| [613] | 1 | IBECEA5 ;ALB/CPM - Cancel/Edit/Add... Update Events ; 05-MAY-93
|
|---|
| 2 | ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN ; Update Events -- invoke the List Manager.
|
|---|
| 6 | N VALMIDX,VALMHDR
|
|---|
| 7 | D EN^VALM("IB EVENTS")
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | INIT ; List Manager (IB EVENTS) main entry point.
|
|---|
| 11 | N IBAX,IBD,IBN,IBND,IBSTAT,IBLAST,IBWARD
|
|---|
| 12 | S IBACME="^TMP(""IBACME"",$J)",IBACMEI="^TMP(""IBACMEI"",$J)",IBD=""
|
|---|
| 13 | S VALMIDX="^TMP(""IBACMLI"",$J)",VALMBG=1,VALMCNT=0,VALMBCK="R"
|
|---|
| 14 | K @IBACME,@IBACMEI,@VALMIDX
|
|---|
| 15 | F S IBD=$O(^IB("AFDT",DFN,IBD)) Q:'IBD D
|
|---|
| 16 | .S IBN=0 F S IBN=$O(^IB("AFDT",DFN,IBD,IBN)) Q:'IBN D
|
|---|
| 17 | ..S IBND=$G(^IB(IBN,0)) Q:$P(IBND,"^",8)'["ADMISSION"
|
|---|
| 18 | ..S IBSTAT=$S($P(IBND,"^",5)=1:"OPEN",1:"CLOSED"),IBLAST=$P(IBND,"^",18)
|
|---|
| 19 | ..S Y=+$P($P(IBND,"^",4),":",2),Y=+$P($G(^DGPM(Y,0)),"^",6),Y=$E($P($G(^DIC(42,Y,0)),"^"),1,20)
|
|---|
| 20 | ..S VALMCNT=VALMCNT+1,IBWARD=$S(Y]"":Y,1:"*** unknown ***")
|
|---|
| 21 | ..S IBAX=$$SETSTR^VALM1($P(IBND,"^",8),VALMCNT,+$P(VALMDDF("TYPE"),"^",2),+$P(VALMDDF("TYPE"),"^",3))
|
|---|
| 22 | ..S IBAX=$$SETSTR^VALM1(IBWARD,IBAX,+$P(VALMDDF("WARD"),"^",2),+$P(VALMDDF("WARD"),"^",3))
|
|---|
| 23 | ..S IBAX=$$SETSTR^VALM1($$DAT1^IBOUTL($P(IBND,"^",17)),IBAX,+$P(VALMDDF("EDATE"),"^",2),+$P(VALMDDF("EDATE"),"^",3))
|
|---|
| 24 | ..S IBAX=$$SETSTR^VALM1(IBSTAT,IBAX,+$P(VALMDDF("STATUS"),"^",2),+$P(VALMDDF("STATUS"),"^",3))
|
|---|
| 25 | ..S IBAX=$$SETSTR^VALM1($$DAT1^IBOUTL(IBLAST),IBAX,+$P(VALMDDF("LCALC"),"^",2),+$P(VALMDDF("LCALC"),"^",3))
|
|---|
| 26 | ..S @IBACME@(VALMCNT,0)=IBAX,@IBACME@("IDX",VALMCNT,VALMCNT)="",@VALMIDX@(VALMCNT)=VALMCNT
|
|---|
| 27 | ..S @IBACMEI@(VALMCNT)=IBSTAT_"^"_IBLAST_"^"_IBN_"^"_$P(IBND,"^",17)
|
|---|
| 28 | I '$O(@IBACME@(0)) S @IBACME@(1,0)=" ",@IBACME@(2,0)=" This patient has no inpatient event records stored in Billing.",VALMCNT=2,@VALMIDX@(1)=1,@VALMIDX@(2)=2
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | HDR ; Build screen header.
|
|---|
| 32 | S VALMHDR(1)=$$SETSTR^VALM1("Update Billable Events","Cancel/Edit/Add Charges",59,22)
|
|---|
| 33 | S VALMHDR(2)=$$SETSTR^VALM1("Date Charges",$E("Patient: "_$P(IBNAM,"^"),1,25)_" "_$E(IBNAM)_$P(IBNAM,"^",3),68,12)
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | EXIT ; List Manager (IB EVENTS) exit action.
|
|---|
| 37 | K:$D(IBACME) @IBACME K:$D(IBACMEI) IBACMEI
|
|---|
| 38 | K IBACME,IBACMEI
|
|---|
| 39 | D FULL^VALM1,CLEAN^VALM10
|
|---|
| 40 | ;D CLEAN^VALM10,CLEAR^VALM1
|
|---|
| 41 | Q
|
|---|
