AQAOPR21.m

AQAOPR21 ; IHS/ORDC/LJF - PRINT REVIEW WORKSHEETS CONT. ;

 ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 ;

 ;This is the main driver to loop through the selected occurrences and

 ;print the selected worksheets and/or summaries.  The DIP calls for

 ;the occ summary and occ worksheet are included here.  This rtn calls

 ;^AQAOPR22 to print the review worksheet.

 ; 

LOOP ; >> loop through patients selected and print

 S (AQAOCID,AQAOPAGE)=0

 F  S AQAOCID=$O(AQAOARR(AQAOCID)) Q:AQAOCID=""  D

 .S AQAOIFN=AQAOARR(AQAOCID) D ^AQAOPR22 ;print worksheet

 .I AQAOSUM=1 D SUM ;print summary

 .I AQAOWKS=1 D WKS ;print occ worksheet

 ;

END ; >>> eoj

 D KILL^AQAOUTIL Q

 ;

 ;

SUM ; >>> SUBRTN to print occurrence summary

 S L="",DIC="^AQAOC(",FLDS="[AQAO LONG DISPLAY]"

 S BY="@NUMBER",(TO,FR)=AQAOIFN,IOP=AQAODEV

 I $D(ZTQUEUED) S IOP="Q;"_AQAODEV,DQTIME="NOW"

 D EN1^DIP K IOP ;display occurrence

 I '$D(ZTQUEUED),'$D(AQAOSLV) D PRTOPT^AQAOVAR

 Q

 ;

 ;

WKS ; >>> SUBRTN to rpint occ worksheets

 S L="",DIC="^AQAOC(",FLDS="[AQAO AUTO WORKSHEET]"

 S BY="@NUMBER",(TO,FR)=AQAOIFN,IOP=AQAODEV

 I $D(ZTQUEUED) S IOP="Q;"_AQAODEV,DQTIME="NOW"

 D EN1^DIP K IOP ;display occurrence

 I '$D(ZTQUEUED),'$D(AQAOSLV) D PRTOPT^AQAOVAR

 Q

AQAOPR21  ; IHS/ORDC/LJF - PRINT REVIEW WORKSHEETS CONT. ;

 +1       ;;1.01;QAI MANAGEMENT;;OCT 05, 1995

 +2       ;

 +3       ;This is the main driver to loop through the selected occurrences and

 +4       ;print the selected worksheets and/or summaries.  The DIP calls for

 +5       ;the occ summary and occ worksheet are included here.  This rtn calls

 +6       ;^AQAOPR22 to print the review worksheet.

 +7       ; 

LOOP      ; >> loop through patients selected and print

 +1        SET (AQAOCID,AQAOPAGE)=0

 +2        FOR 

               SET AQAOCID=$ORDER(AQAOARR(AQAOCID))

               IF AQAOCID=""

                   QUIT 

               Begin DoDot:1

 +3       ;print worksheet

                   SET AQAOIFN=AQAOARR(AQAOCID)

                   DO ^AQAOPR22

 +4       ;print summary

                   IF AQAOSUM=1

                       DO SUM

 +5       ;print occ worksheet

                   IF AQAOWKS=1

                       DO WKS

               End DoDot:1

 +6       ;

END       ; >>> eoj

 +1        DO KILL^AQAOUTIL

           QUIT 

 +2       ;

 +3       ;

SUM       ; >>> SUBRTN to print occurrence summary

 +1        SET L=""

           SET DIC="^AQAOC("

           SET FLDS="[AQAO LONG DISPLAY]"

 +2        SET BY="@NUMBER"

           SET (TO,FR)=AQAOIFN

           SET IOP=AQAODEV

 +3        IF $DATA(ZTQUEUED)

               SET IOP="Q;"_AQAODEV

               SET DQTIME="NOW"

 +4       ;display occurrence

           DO EN1^DIP

           KILL IOP

 +5        IF '$DATA(ZTQUEUED)

               IF '$DATA(AQAOSLV)

                   DO PRTOPT^AQAOVAR

 +6        QUIT 

 +7       ;

 +8       ;

WKS       ; >>> SUBRTN to rpint occ worksheets

 +1        SET L=""

           SET DIC="^AQAOC("

           SET FLDS="[AQAO AUTO WORKSHEET]"

 +2        SET BY="@NUMBER"

           SET (TO,FR)=AQAOIFN

           SET IOP=AQAODEV

 +3        IF $DATA(ZTQUEUED)

               SET IOP="Q;"_AQAODEV

               SET DQTIME="NOW"

 +4       ;display occurrence

           DO EN1^DIP

           KILL IOP

 +5        IF '$DATA(ZTQUEUED)

               IF '$DATA(AQAOSLV)

                   DO PRTOPT^AQAOVAR

 +6        QUIT