source: FOIAVistA/trunk/r/INTEGRATED_BILLING-IB-PRQ--IBD--IBQ--PRQS/IBAECB.m@ 1806

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

initial load of FOIAVistA 6/30/08 version

File size: 1.2 KB
Line 
1IBAECB ;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 ;
11ASKPT ; 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 ;
20ASKDEV ; 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 ;
30RUNTASK 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 ;
39HEADER N Y
40 S Y=DT X ^DD("DD")
41 W !,Y,?22,"LTC Billing Clock Inquiry",!!
42 Q
43 ;
44PRINT ;
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
Note: See TracBrowser for help on using the repository browser.