| 1 | IBATLM1 ;LL/ELZ - TRANSFER PRICING PT TRANSACTION LIST MANAGER ; 10-SEP-1998
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**115**;21-MAR-94
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | ;
|
|---|
| 5 | EN(DFN) ; -- main entry point for IBAT PT TRANS LIST
|
|---|
| 6 | D EN^VALM("IBAT PT TRANS LIST")
|
|---|
| 7 | Q
|
|---|
| 8 | ;
|
|---|
| 9 | HDR ; -- header code
|
|---|
| 10 | N IBNAM,INST S IBNAM=$$PT^IBEFUNC(DFN)
|
|---|
| 11 | S IBNAM=$E("Patient: "_$P(IBNAM,"^"),1,25)_" "_$E(IBNAM)_$P(IBNAM,"^",3)
|
|---|
| 12 | S VALMHDR(1)=$$SETSTR^VALM1($$FDATE^VALM1(IBBDT)_" THRU "_$$FDATE^VALM1(IBEDT),IBNAM,59,22)
|
|---|
| 13 | S INST=$$INST^IBATUTL($$PPF^IBATUTL(DFN))
|
|---|
| 14 | S VALMHDR(2)="Enrolled Facility: "_$P(INST,"^")_" ("_$P(INST,"^",2)_")"
|
|---|
| 15 | S VALMHDR(2)=$$SETSTR^VALM1("Current Status: "_$$LOWER^VALM1($$EX^IBATUTL(351.6,.04,$P(^IBAT(351.6,DFN,0),"^",4))),VALMHDR(2),57,24)
|
|---|
| 16 | Q
|
|---|
| 17 | ;
|
|---|
| 18 | INIT ; -- init variables and list array
|
|---|
| 19 | K ^TMP("VALM DATA",$J),^TMP("VALMAR",$J)
|
|---|
| 20 | I $$SLDR^IBATUTL("Date range will be used to specify Event Dates of transactions shown.") S VALMQUIT="" G EXIT
|
|---|
| 21 | S VALMBCK="R"
|
|---|
| 22 | D ARRAY^IBATLM1A(VALMAR)
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | HELP ; -- help code
|
|---|
| 26 | S X="?" D DISP^XQORM1 W !!
|
|---|
| 27 | Q
|
|---|
| 28 | ;
|
|---|
| 29 | EXIT ; -- exit code
|
|---|
| 30 | K IBDTR,IBEDT,IBBDT
|
|---|
| 31 | Q
|
|---|
