IBOVOP ;ALB/RLW-Report of Visits for NSC Outpatients ;12-JUN-92
;;2.0;INTEGRATED BILLING;**91,153,176,249**;21-MAR-94
;; Per VHA Directive 10-93-142, this routine should not be modified
;
INIT ;
;
D DT^DICRW,HOME^%ZIS S IBQUIT=0
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
S DIR(0)="DA^2901001:NOW:EX",DIR("A")="Start with DATE: " D ^DIR K DIR G:$D(DIRUT) END S IBBDT=+Y
S DIR(0)="DA^"_+Y_":NOW:EX",DIR("A")="Go to DATE: " D ^DIR K DIR G:$D(DIRUT) END S IBEDT=+Y
S %ZIS="QM" D ^%ZIS G:POP END
I $D(IO("Q")) D G END
.S ZTRTN="QUE^IBOVOP",ZTDESC="MEANS TEST/LTC OUTPATIENT/REGISTRATION EVENTS",ZTSAVE("IB*")=""
.D ^%ZTLOAD W !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
.K ZTSK,IO("Q") D HOME^%ZIS
U IO
;
;
D QUE
END K IBBDT,IBEDT,IBQUIT,ZTQUEUED,ZTDESC,ZTREQ
;
;
Q
;
QUE ;entry point if queued
N IBQUERY K ^TMP($J,"SDAMA301")
;
S IBPAGE=0
S IBDATE=IBBDT D MAIN^IBOVOP1(.IBQUERY) I IBQUIT D CLOSEQ(.IBQUERY) Q
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
D CLOSEQ(.IBQUERY)
;
K ^TMP($J,"SDAMA301")
;
I $D(ZTQUEUED) S ZTREQ="@" Q
D ^%ZISC
Q
;
CLOSEQ(IBQUERY) ; Close any QUERY, if open
D CLOSE^IBSDU(.IBQUERY)
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HIBOVOP 1436 printed Oct 16, 2024@18:27 Page 2
IBOVOP ;ALB/RLW-Report of Visits for NSC Outpatients ;12-JUN-92
+1 ;;2.0;INTEGRATED BILLING;**91,153,176,249**;21-MAR-94
+2 ;; Per VHA Directive 10-93-142, this routine should not be modified
+3 ;
INIT ;
+1 ;
+2 DO DT^DICRW
DO HOME^%ZIS
SET IBQUIT=0
+3 NEW 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
+4 SET DIR(0)="DA^2901001:NOW:EX"
SET DIR("A")="Start with DATE: "
DO ^DIR
KILL DIR
if $DATA(DIRUT)
GOTO END
SET IBBDT=+Y
+5 SET DIR(0)="DA^"_+Y_":NOW:EX"
SET DIR("A")="Go to DATE: "
DO ^DIR
KILL DIR
if $DATA(DIRUT)
GOTO END
SET IBEDT=+Y
+6 SET %ZIS="QM"
DO ^%ZIS
if POP
GOTO END
+7 IF $DATA(IO("Q"))
Begin DoDot:1
+8 SET ZTRTN="QUE^IBOVOP"
SET ZTDESC="MEANS TEST/LTC OUTPATIENT/REGISTRATION EVENTS"
SET ZTSAVE("IB*")=""
+9 DO ^%ZTLOAD
WRITE !!,$SELECT($DATA(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.")
+10 KILL ZTSK,IO("Q")
DO HOME^%ZIS
End DoDot:1
GOTO END
+11 USE IO
+12 ;
+13 ;
+14 DO QUE
END KILL IBBDT,IBEDT,IBQUIT,ZTQUEUED,ZTDESC,ZTREQ
+1 ;
+2 ;
+3 QUIT
+4 ;
QUE ;entry point if queued
+1 NEW IBQUERY
KILL ^TMP($JOB,"SDAMA301")
+2 ;
+3 SET IBPAGE=0
+4 SET IBDATE=IBBDT
DO MAIN^IBOVOP1(.IBQUERY)
IF IBQUIT
DO CLOSEQ(.IBQUERY)
QUIT
+5 FOR
SET X1=IBDATE
SET X2=1
DO C^%DTC
if X>IBEDT
QUIT
SET IBDATE=X
KILL ^TMP("IBOVOP",$JOB)
DO MAIN^IBOVOP1(.IBQUERY)
if IBQUIT
QUIT
+6 DO CLOSEQ(.IBQUERY)
+7 ;
+8 KILL ^TMP($JOB,"SDAMA301")
+9 ;
+10 IF $DATA(ZTQUEUED)
SET ZTREQ="@"
QUIT
+11 DO ^%ZISC
+12 QUIT
+13 ;
CLOSEQ(IBQUERY) ; Close any QUERY, if open
+1 DO CLOSE^IBSDU(.IBQUERY)
+2 QUIT
+3 ;
