| 1 | IBOVOP ;ALB/RLW-Report of Visits for NSC Outpatients ;12-JUN-92
|
|---|
| 2 | ;;2.0;INTEGRATED BILLING;**91,153,176,249**;21-MAR-94
|
|---|
| 3 | ;; Per VHA Directive 10-93-142, this routine should not be modified
|
|---|
| 4 | ;
|
|---|
| 5 | INIT ;
|
|---|
| 6 | ;
|
|---|
| 7 | D DT^DICRW,HOME^%ZIS S IBQUIT=0
|
|---|
| 8 | N IBJ,IBAMT,IBAIEN,IBPAGE,IBLINE,IBACT,IBDATA,IBTITLE,IBDATE,IBADFN,IBEL,IBIEN,IBCL,IBCKIN,IBSDATA,IBSTART,IBPRNT,IBAPPT,IBSTAT,IBFLD1,IBFLD2,IBFLD3,IBFLD4,IBFLD5,IBFLD6
|
|---|
| 9 | S DIR(0)="DA^2901001:NOW:EX",DIR("A")="Start with DATE: " D ^DIR K DIR G:$D(DIRUT) END S IBBDT=+Y
|
|---|
| 10 | S DIR(0)="DA^"_+Y_":NOW:EX",DIR("A")="Go to DATE: " D ^DIR K DIR G:$D(DIRUT) END S IBEDT=+Y
|
|---|
| 11 | S %ZIS="QM" D ^%ZIS G:POP END
|
|---|
| 12 | I $D(IO("Q")) D G END
|
|---|
| 13 | .S ZTRTN="QUE^IBOVOP",ZTDESC="MEANS TEST/LTC OUTPATIENT/REGISTRATION EVENTS",ZTSAVE("IB*")=""
|
|---|
| 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 | U IO
|
|---|
| 17 | ;
|
|---|
| 18 | ;
|
|---|
| 19 | D QUE
|
|---|
| 20 | END K IBBDT,IBEDT,IBQUIT,ZTQUEUED,ZTDESC,ZTREQ
|
|---|
| 21 | ;
|
|---|
| 22 | ;
|
|---|
| 23 | Q
|
|---|
| 24 | ;
|
|---|
| 25 | QUE ;entry point if queued
|
|---|
| 26 | N IBQUERY K ^TMP($J,"SDAMA301")
|
|---|
| 27 | ;
|
|---|
| 28 | S IBPAGE=0
|
|---|
| 29 | S IBDATE=IBBDT D MAIN^IBOVOP1(.IBQUERY) I IBQUIT D CLOSEQ(.IBQUERY) Q
|
|---|
| 30 | F S X1=IBDATE,X2=1 D C^%DTC Q:X>IBEDT S IBDATE=X K ^TMP("IBOVOP",$J) D MAIN^IBOVOP1(.IBQUERY) Q:IBQUIT
|
|---|
| 31 | D CLOSEQ(.IBQUERY)
|
|---|
| 32 | ;
|
|---|
| 33 | K ^TMP($J,"SDAMA301")
|
|---|
| 34 | ;
|
|---|
| 35 | I $D(ZTQUEUED) S ZTREQ="@" Q
|
|---|
| 36 | D ^%ZISC
|
|---|
| 37 | Q
|
|---|
| 38 | ;
|
|---|
| 39 | CLOSEQ(IBQUERY) ; Close any QUERY, if open
|
|---|
| 40 | D CLOSE^IBSDU(.IBQUERY)
|
|---|
| 41 | Q
|
|---|
| 42 | ;
|
|---|
