IBOVOP.m

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 ---IBOVOP   1436     printed  Apr 09, 2024@21:05:22                                                                                                                                                                                                      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       ;