| [613] | 1 | IBAMTI2 ;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 | ;
|
|---|
| 5 | LIST ; 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 | ;
|
|---|
| 19 | DQ ; 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 | ;
|
|---|
| 29 | LISTQ I $D(ZTQUEUED) S ZTREQ="@" Q
|
|---|
| 30 | D ^%ZISC
|
|---|
| 31 | K IBC,IBQ,IBPAG
|
|---|
| 32 | Q
|
|---|
| 33 | ;
|
|---|
| 34 | HDR ; 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
|
|---|
