| 1 | IBOBCRT ;ALB/RJS - IB-BILLING-CYCLE-REPORT 12/19/91
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**153,199**;21-MAR-94
|
|---|
| 3 | CATCCLK ;
|
|---|
| 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
|
|---|
| 19 | OPEN ;
|
|---|
| 20 | S %ZIS="QM" D ^%ZIS
|
|---|
| 21 | Q
|
|---|
| 22 | QUEUED ;
|
|---|
| 23 | S ZTRTN="DQ^IBOBCRT",ZTDESC="IB BILLING REPORT",ZTSAVE("IBD0")="" D ^%ZTLOAD W !!,$S($D(ZTSK):"Request Queued!",1:"Request Cancelled")
|
|---|
| 24 | Q
|
|---|
| 25 | HEADER ;
|
|---|
| 26 | S Y=DT X ^DD("DD")
|
|---|
| 27 | W !,Y," Billing Cycle Inquiry",?30,!!
|
|---|
| 28 | K Y
|
|---|
| 29 | Q
|
|---|
| 30 | DQ ;
|
|---|
| 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
|
|---|
| 39 | END ;
|
|---|
| 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
|
|---|
