source: WorldVistAEHR/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBATLM1.m@ 1259

Last change on this file since 1259 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1IBATLM1 ;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 ;
5EN(DFN) ; -- main entry point for IBAT PT TRANS LIST
6 D EN^VALM("IBAT PT TRANS LIST")
7 Q
8 ;
9HDR ; -- 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 ;
18INIT ; -- 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 ;
25HELP ; -- help code
26 S X="?" D DISP^XQORM1 W !!
27 Q
28 ;
29EXIT ; -- exit code
30 K IBDTR,IBEDT,IBBDT
31 Q
Note: See TracBrowser for help on using the repository browser.