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

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

initial load of WorldVistAEHR

File size: 1.3 KB
RevLine 
[613]1IBOBCRT ;ALB/RJS - IB-BILLING-CYCLE-REPORT 12/19/91
2 ;;2.0;INTEGRATED BILLING;**153,199**;21-MAR-94
3CATCCLK ;
4 ;***
5 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOBCRT" D T1^%ZOSV ;stop rt clock
6 ;S XRTL=$ZU(0),XRTN="IBOBCRT-1" D T0^%ZOSV ;start rt clock
7 ;***
8 S DIC="^IBE(351,",DIC(0)="AEQMZ"
9 S DIC("A")="Select MT Billing Clock by PATIENT NAME: "
10 N DPTNOFZY S DPTNOFZY=1 ;Suppress PATIENT file fuzzy lookups
11 D ^DIC
12 I Y<0 G END
13 S IBD0=$P(Y,"^",1)
14 W ! D OPEN G END:POP
15 I $D(IO("Q")) D QUEUED,HOME^%ZIS G CATCCLK
16 U IO D DQ
17 W ! S DIR(0)="E" D ^DIR I '$D(DIRUT) W @IOF G CATCCLK
18 Q
19OPEN ;
20 S %ZIS="QM" D ^%ZIS
21 Q
22QUEUED ;
23 S ZTRTN="DQ^IBOBCRT",ZTDESC="IB BILLING REPORT",ZTSAVE("IBD0")="" D ^%ZTLOAD W !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
24 Q
25HEADER ;
26 S Y=DT X ^DD("DD")
27 W !,Y," Billing Cycle Inquiry",?30,!!
28 K Y
29 Q
30DQ ;
31 ;***
32 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOBCRT" D T1^%ZOSV ;stop rt clock
33 ;S XRTL=$ZU(0),XRTN="IBOBCRT-2" D T0^%ZOSV ;start rt clock
34 ;*** suppress initial form feed (to all but crts)
35 W:$E(IOST,1,2)["C-" @IOF
36 S D0=IBD0
37 I $E(IOST,1,2)="P-" D HEADER
38 K DXS D ^IBXBCR2 K DXS D ^IBXBCR K DXS
39END ;
40 ;***
41 ;I $D(XRT0) S:'$D(XRTN) XRTN="IBOBCRT" D T1^%ZOSV ;stop rt clock
42 I $D(ZTQUEUED) S ZTREQ="@" Q
43 D ^%ZISC
44 K D0,DIC,DIR,DIRUT,DXS,POP,Y,ZTDESC,ZTQUEUED,ZTREQ,ZTRTN,ZTSAVE,ZTSK,IBD0
45 Q
Note: See TracBrowser for help on using the repository browser.