| 1 | IBAECB ;WOIFO/AAT-LTC BILLING CLOCK INQUIRY ; 21-FEB-02
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**171,176**;21-MAR-94
|
|---|
| 3 | ;; Per VHA Directive 10-93-142, this routine should not be modified
|
|---|
| 4 | ;
|
|---|
| 5 | N IBQUIT,POP
|
|---|
| 6 | ;
|
|---|
| 7 | F S IBQUIT=0 D ASKPT Q:IBQUIT
|
|---|
| 8 | Q
|
|---|
| 9 | ;
|
|---|
| 10 | ;
|
|---|
| 11 | ASKPT ; Ask about patient and clock
|
|---|
| 12 | N IBDFN,IBCLK,X,Y,DIC
|
|---|
| 13 | W !
|
|---|
| 14 | S IBDFN=$$ASKPAT^IBAECP I IBDFN<1 S IBQUIT=1 Q ; Patient code
|
|---|
| 15 | ; Enter required clock (if more than one)
|
|---|
| 16 | S IBCLK=$$ASKCLK^IBAECP(IBDFN) I IBCLK<0 Q
|
|---|
| 17 | F S IBQUIT=0 D ASKDEV I IBQUIT S IBQUIT=IBQUIT-1 Q
|
|---|
| 18 | Q
|
|---|
| 19 | ;
|
|---|
| 20 | ASKDEV ; Ask about device and print
|
|---|
| 21 | N DIR,DIRUT
|
|---|
| 22 | S %ZIS="QM" W ! D ^%ZIS
|
|---|
| 23 | I POP S IBQUIT=1 Q
|
|---|
| 24 | I $D(IO("Q")) D RUNTASK S IBQUIT=1 Q
|
|---|
| 25 | U IO D PRINT W !
|
|---|
| 26 | I IBQUIT S IBQUIT=2 Q
|
|---|
| 27 | S IBQUIT=1 W @IOF
|
|---|
| 28 | Q
|
|---|
| 29 | ;
|
|---|
| 30 | RUNTASK N ZTRTN,ZTDESC,ZTSAVE,ZTSK,ZTQUEUED,ZTREQ
|
|---|
| 31 | S ZTRTN="PRINT^IBAECB"
|
|---|
| 32 | S ZTDESC="IB LTC BILLING CLOCK REPORT"
|
|---|
| 33 | S ZTSAVE("IBCLK")=""
|
|---|
| 34 | D ^%ZTLOAD
|
|---|
| 35 | W !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
|
|---|
| 36 | D HOME^%ZIS
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | HEADER N Y
|
|---|
| 40 | S Y=DT X ^DD("DD")
|
|---|
| 41 | W !,Y,?22,"LTC Billing Clock Inquiry",!!
|
|---|
| 42 | Q
|
|---|
| 43 | ;
|
|---|
| 44 | PRINT ;
|
|---|
| 45 | ; Input: IBCLK
|
|---|
| 46 | I $E(IOST,1,2)="C-" W @IOF ; Form feed to CRT only
|
|---|
| 47 | I $E(IOST,1,2)="P-" D HEADER
|
|---|
| 48 | ;W !,"Printing clock ",IBCLK
|
|---|
| 49 | D REPORT^IBAECB1
|
|---|
| 50 | I $E(IOST,1,2)="C-" D PAUSE^IBAECB1
|
|---|
| 51 | I $D(ZTQUEUED) S ZTREQ="@" ; Q
|
|---|
| 52 | D ^%ZISC
|
|---|
| 53 | Q
|
|---|
