ABPVOP01.m

ABPVOP01 ;QUEUE PVT INS ELIG O/P VISITS REPORT; [ 06/04/91  12:42 PM ]

 ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

START S X=$O(^AUTTSITE("B",DUZ(2),""))

 I X]"" I $D(^AUTTSITE(X,0))=1 I $P(^(0),"^",8)="Y" G ^ABPVPCC1

 D ZTLEND,INIT,TITLE

 D DATES I '$D(ABPV("BEG"))!'$D(ABPV("END")) D ZTLEND Q

 D DEVICE I $D(ABPV("IO"))'=1 D ZTLEND Q

 D ZTLOAD

 Q

 ;

INIT D DT^DICRW I $D(DUZ(2))'=1 D

 .S DUZ(2)=$P(^AUTTSITE(1,0),"^")

 S ABPV("SITE")=DUZ(2)

 S ABPV("SITENAME")=$P(^DIC(4,DUZ(2),0),"^")

 Q

 ;

TITLE K ABPV("HD")

 S ABPV("HD",1)="P R I V A T E   I N S U R A N C E   E L I G I B L E"

 S ABPV("HD",2)="AMBULATORY VISITS REPORT" D ^ABPVHD

 Q

 ;

DATES D ^ABPVDATE

 S:$D(BDT)=1 ABPV("BEG")=BDT S:$D(EDT)=1 ABPV("END")=EDT K BDT,EDT

 Q

 ;

DEVICE S %IS="NP",IOP="Q" W !! D ^%ZIS

 I +IO=0 D  H 3 Q

 .W *7,!!?5,"<<< NO DEVICE SELECTED - JOB ABORTED >>>"

 S ABPV("IO")=+IO

 Q

 ;

ZTLOAD S ZTRTN="^ABPVOP02",ZTSAVE("ABPV(")="",ZTIO=""

 S ZTDESC="COMPILE PVT INS ELIGIBLE APC VISITS"

 D ^%ZTLOAD I $D(ZTSK)=1 W !!,"REQUEST QUEUED!!  Task Number: ",ZTSK

 H 3

ZTLEND K ABPV,%ZIS,%IS,ZRTN,ZTDTH,ZTDESC,ZTSAVE,ZTSK,R,I

 S IOP=$I D ^%ZIS K IOP

 Q

ABPVOP01  ;QUEUE PVT INS ELIG O/P VISITS REPORT; [ 06/04/91  12:42 PM ]

 +1       ;;2.0;FACILITY PVT-INS TRACKING;*0*;IHS-OKC/KJR;AUGUST 7, 1991

START      SET X=$ORDER(^AUTTSITE("B",DUZ(2),""))

 +1        IF X]""

               IF $DATA(^AUTTSITE(X,0))=1

                   IF $PIECE(^(0),"^",8)="Y"

                       GOTO ^ABPVPCC1

 +2        DO ZTLEND

           DO INIT

           DO TITLE

 +3        DO DATES

           IF '$DATA(ABPV("BEG"))!'$DATA(ABPV("END"))

               DO ZTLEND

               QUIT 

 +4        DO DEVICE

           IF $DATA(ABPV("IO"))'=1

               DO ZTLEND

               QUIT 

 +5        DO ZTLOAD

 +6        QUIT 

 +7       ;

INIT       DO DT^DICRW

           IF $DATA(DUZ(2))'=1

               Begin DoDot:1

 +1                SET DUZ(2)=$PIECE(^AUTTSITE(1,0),"^")

               End DoDot:1

 +2        SET ABPV("SITE")=DUZ(2)

 +3        SET ABPV("SITENAME")=$PIECE(^DIC(4,DUZ(2),0),"^")

 +4        QUIT 

 +5       ;

TITLE      KILL ABPV("HD")

 +1        SET ABPV("HD",1)="P R I V A T E   I N S U R A N C E   E L I G I B L E"

 +2        SET ABPV("HD",2)="AMBULATORY VISITS REPORT"

           DO ^ABPVHD

 +3        QUIT 

 +4       ;

DATES      DO ^ABPVDATE

 +1        IF $DATA(BDT)=1

               SET ABPV("BEG")=BDT

           IF $DATA(EDT)=1

               SET ABPV("END")=EDT

           KILL BDT,EDT

 +2        QUIT 

 +3       ;

DEVICE     SET %IS="NP"

           SET IOP="Q"

           WRITE !!

           DO ^%ZIS

 +1        IF +IO=0

               Begin DoDot:1

 +2                WRITE *7,!!?5,"<<< NO DEVICE SELECTED - JOB ABORTED >>>"

               End DoDot:1

               HANG 3

               QUIT 

 +3        SET ABPV("IO")=+IO

 +4        QUIT 

 +5       ;

ZTLOAD     SET ZTRTN="^ABPVOP02"

           SET ZTSAVE("ABPV(")=""

           SET ZTIO=""

 +1        SET ZTDESC="COMPILE PVT INS ELIGIBLE APC VISITS"

 +2        DO ^%ZTLOAD

           IF $DATA(ZTSK)=1

               WRITE !!,"REQUEST QUEUED!!  Task Number: ",ZTSK

 +3        HANG 3

ZTLEND     KILL ABPV,%ZIS,%IS,ZRTN,ZTDTH,ZTDESC,ZTSAVE,ZTSK,R,I

 +1        SET IOP=$IO

           DO ^%ZIS

           KILL IOP

 +2        QUIT