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

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

initial load of WorldVistAEHR

File size: 1.2 KB
Line 
1IBAMTI2 ;ALB/CPM - LIST SPECIAL INPATIENT BILLING CASES ; 11-AUG-93
2 ;;Version 2.0 ; INTEGRATED BILLING ;; 21-MAR-94
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4 ;
5LIST ; List all inpatient billing cases.
6 ;
7 I '$O(^IBE(351.2,0)) W !!,"There are no special inpatient billing cases on file!" G LISTQ
8 ;
9 W !!,"This report will print out all special inpatient billing cases.",!
10 ;
11 S %ZIS="QM" D ^%ZIS G:POP LISTQ
12 I $D(IO("Q")) D G LISTQ
13 .S ZTRTN="DQ^IBAMTI2",ZTDESC="LIST ALL SPECIAL INPATIENT BILLING CASES"
14 .D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
15 .K ZTSK,IO("Q") D HOME^%ZIS
16 ;
17 U IO
18 ;
19DQ ; Tasked entry point.
20 ;
21 S (IBPAG,IBQ)=0 D HDR
22 S IBC=0 F S IBC=$O(^IBE(351.2,IBC)) Q:'IBC D Q:IBQ
23 .I $Y>(IOSL-12) D PAUSE^IBEMTF2 Q:IBQ D HDR
24 .D DSPL^IBAMTI1(IBC) W !
25 ;
26 ; - end-of-report pause
27 D:'IBQ PAUSE^IBEMTF2
28 ;
29LISTQ I $D(ZTQUEUED) S ZTREQ="@" Q
30 D ^%ZISC
31 K IBC,IBQ,IBPAG
32 Q
33 ;
34HDR ; Generate a report header.
35 I $E(IOST,1,2)="C-"!(IBPAG) W @IOF
36 S IBPAG=IBPAG+1
37 W !?20,"LIST ALL SPECIAL INPATIENT BILLING CASES"
38 W !?64,"Page: ",IBPAG,!?60,"Run Date: ",$$DAT1^IBOUTL(DT)
39 Q
Note: See TracBrowser for help on using the repository browser.