ADEPQA1B.m

ADEPQA1B ; IHS/HQT/MJL - OUTPUT TYPE ;09:31 AM  [ 03/24/1999   9:04 AM ]

 ;;6.0;ADE;;APRIL 1999

 ;

OUTPUT ;EP

 ;Sets up variables for DIP call.  Options are Visit count, Code count

 ;Patient Count, Patient listing.  Variables returned are BY, FLDS

 ;The first comma element of BY is a sort template which contains the

 ;hits from the search.  Subsequent elements set up subtotal fields

 ;First, have to get the template name & DFN

 ;The template name may be user-specified. If user doesn't want

 ;to save results, program generates its own template.

 W !!,?5,"***STEP TWO:  Specify OUTPUT FORMAT***"

 S ADEROPT=$$ROPT^ADEPQA2() Q:$$HAT^ADEPQA()  ;Get report options

 S ADETFIL=9002007

 I $P(ADEROPT,U,2)="PATIENT" S ADETFIL=9000001

 S ADETNAM=$$USRTMP^ADEPQA1A(ADETFIL) G:$$HAT^ADEPQA() OUTPUT ; Create template on file ADETFILE

 S ADETDFN=$P(ADETNAM,U,2)

 S ADETNAM=$P(ADETNAM,U)

 D BY^ADEPQA2

 Q

 ;

ASKDEV ;EP

 K IOP

 S %ZIS="NQ" D ^%ZIS Q:POP

 S IOP=ION

 S %ZIS("IOPAR")=IOPAR

 ;FHL 9/9/98 I $D(IO("Q")) D QUE I '$D(ZTSK) K IOP G ASKDEV

 I $D(IO("Q")) D QUE I '$D(ZTQUEUED) K IOP G ASKDEV

 I $D(IO("Q")) D HOME^%ZIS

 Q

 ;

QUE ;

 N ADEJ

 S ZTRTN="ZTM^ADEPQA",ZTDESC="DENTAL QA REPORT"

 F ADEJ="ADESTP","ADEDATE","ADEAGE","ADEPROV","ADEHYG","ADELOC","ADEROPT","ADETFIL","ADETNAM","ADETDFN","ADEADA(","BY","FR","TO","FLDS","DIC","DHD","DIOBEG" S ZTSAVE(ADEJ)=""

 S ZTSAVE("IOP")=""

 D ^%ZTLOAD

 Q

ADEPQA1B  ; IHS/HQT/MJL - OUTPUT TYPE ;09:31 AM  [ 03/24/1999   9:04 AM ]

 +1       ;;6.0;ADE;;APRIL 1999

 +2       ;

OUTPUT    ;EP

 +1       ;Sets up variables for DIP call.  Options are Visit count, Code count

 +2       ;Patient Count, Patient listing.  Variables returned are BY, FLDS

 +3       ;The first comma element of BY is a sort template which contains the

 +4       ;hits from the search.  Subsequent elements set up subtotal fields

 +5       ;First, have to get the template name & DFN

 +6       ;The template name may be user-specified. If user doesn't want

 +7       ;to save results, program generates its own template.

 +8        WRITE !!,?5,"***STEP TWO:  Specify OUTPUT FORMAT***"

 +9       ;Get report options

           SET ADEROPT=$$ROPT^ADEPQA2()

           IF $$HAT^ADEPQA()

               QUIT 

 +10       SET ADETFIL=9002007

 +11       IF $PIECE(ADEROPT,U,2)="PATIENT"

               SET ADETFIL=9000001

 +12      ; Create template on file ADETFILE

           SET ADETNAM=$$USRTMP^ADEPQA1A(ADETFIL)

           IF $$HAT^ADEPQA()

               GOTO OUTPUT

 +13       SET ADETDFN=$PIECE(ADETNAM,U,2)

 +14       SET ADETNAM=$PIECE(ADETNAM,U)

 +15       DO BY^ADEPQA2

 +16       QUIT 

 +17      ;

ASKDEV    ;EP

 +1        KILL IOP

 +2        SET %ZIS="NQ"

           DO ^%ZIS

           IF POP

               QUIT 

 +3        SET IOP=ION

 +4        SET %ZIS("IOPAR")=IOPAR

 +5       ;FHL 9/9/98 I $D(IO("Q")) D QUE I '$D(ZTSK) K IOP G ASKDEV

 +6        IF $DATA(IO("Q"))

               DO QUE

               IF '$DATA(ZTQUEUED)

                   KILL IOP

                   GOTO ASKDEV

 +7        IF $DATA(IO("Q"))

               DO HOME^%ZIS

 +8        QUIT 

 +9       ;

QUE       ;

 +1        NEW ADEJ

 +2        SET ZTRTN="ZTM^ADEPQA"

           SET ZTDESC="DENTAL QA REPORT"

 +3        FOR ADEJ="ADESTP","ADEDATE","ADEAGE","ADEPROV","ADEHYG","ADELOC","ADEROPT","ADETFIL","ADETNAM","ADETDFN","ADEADA(","BY","FR","TO","FLDS","DIC","DHD","DIOBEG"

               SET ZTSAVE(ADEJ)=""

 +4        SET ZTSAVE("IOP")=""

 +5        DO ^%ZTLOAD

 +6        QUIT