AQAOPR73.m

AQAOPR73 ; IHS/ORDC/LJF - REVIEWED OCC RPT-SUMMARY ;

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

 ;

 ;This rtn contains an entry point called by ^AQAOPR72 to print the

 ;summary page totalling reviews by user and team.

 ;

SUMMARY ;ENTRY POINT called by ^AQAOPR72  >>> print summary page(s)

 D NEWPG^AQAOUTIL Q:AQAOSTOP=U  D HDG2

 ;

 S AQAORV=0

 F  S AQAORV=$O(^TMP("AQAO",$J,AQAORV)) Q:AQAORV=""  D

 .W !!,AQAORV S AQAOTOT=0 D SUM1

 W !!,"Occurrences NOT REVIEWED:",?70,$J(AQAONOT,3)

 Q

 ;

SUM1 ; >> SUBRTN to print counts of occ reviewed by indicator

 S AQAOIND=0,AQAOCNT=0

 F  S AQAOIND=$O(^TMP("AQAO",$J,AQAORV,AQAOIND)) Q:AQAOIND=""  Q:AQAOSTOP=U  D

 .S AQAON=0

 .F  S AQAON=$O(^TMP("AQAO",$J,AQAORV,AQAOIND,AQAON)) Q:AQAON=""  Q:AQAOSTOP=U  D

 ..S AQAOCNT=AQAOCNT+1,AQAOTOT=AQAOTOT+1

 .W !?5,"Occurrences Reviewed for ",AQAOIND,":",?70,$J(AQAOCNT,3)

 .I $Y>(IOSL-4) D NEWPG^AQAOUTIL Q:AQAOSTOP=U  D HDG2

 W !?10,"TOTAL Occurrences Reviewed:",?70,$J(AQAOTOT,3)

 Q

 ;

 ;

HDG2 ; >> SUBRTN for second half of heading2    

 W ?33,"(SUMMARY PAGE)",!?30,AQAORG,!,AQAOLINE

 Q

AQAOPR73  ; IHS/ORDC/LJF - REVIEWED OCC RPT-SUMMARY ;

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

 +2       ;

 +3       ;This rtn contains an entry point called by ^AQAOPR72 to print the

 +4       ;summary page totalling reviews by user and team.

 +5       ;

SUMMARY   ;ENTRY POINT called by ^AQAOPR72  >>> print summary page(s)

 +1        DO NEWPG^AQAOUTIL

           IF AQAOSTOP=U

               QUIT 

           DO HDG2

 +2       ;

 +3        SET AQAORV=0

 +4        FOR 

               SET AQAORV=$ORDER(^TMP("AQAO",$JOB,AQAORV))

               IF AQAORV=""

                   QUIT 

               Begin DoDot:1

 +5                WRITE !!,AQAORV

                   SET AQAOTOT=0

                   DO SUM1

               End DoDot:1

 +6        WRITE !!,"Occurrences NOT REVIEWED:",?70,$JUSTIFY(AQAONOT,3)

 +7        QUIT 

 +8       ;

SUM1      ; >> SUBRTN to print counts of occ reviewed by indicator

 +1        SET AQAOIND=0

           SET AQAOCNT=0

 +2        FOR 

               SET AQAOIND=$ORDER(^TMP("AQAO",$JOB,AQAORV,AQAOIND))

               IF AQAOIND=""

                   QUIT 

               IF AQAOSTOP=U

                   QUIT 

               Begin DoDot:1

 +3                SET AQAON=0

 +4                FOR 

                       SET AQAON=$ORDER(^TMP("AQAO",$JOB,AQAORV,AQAOIND,AQAON))

                       IF AQAON=""

                           QUIT 

                       IF AQAOSTOP=U

                           QUIT 

                       Begin DoDot:2

 +5                        SET AQAOCNT=AQAOCNT+1

                           SET AQAOTOT=AQAOTOT+1

                       End DoDot:2

 +6                WRITE !?5,"Occurrences Reviewed for ",AQAOIND,":",?70,$JUSTIFY(AQAOCNT,3)

 +7                IF $Y>(IOSL-4)

                       DO NEWPG^AQAOUTIL

                       IF AQAOSTOP=U

                           QUIT 

                       DO HDG2

               End DoDot:1

 +8        WRITE !?10,"TOTAL Occurrences Reviewed:",?70,$JUSTIFY(AQAOTOT,3)

 +9        QUIT 

 +10      ;

 +11      ;

HDG2      ; >> SUBRTN for second half of heading2    

 +1        WRITE ?33,"(SUMMARY PAGE)",!?30,AQAORG,!,AQAOLINE

 +2        QUIT