AQAOPC6.m

AQAOPC6 ; IHS/ORDC/LJF - TRENDING REPORTS DRIVER ;

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

 ;

 ;This is the trending reports main driver where the user can choose

 ;which report to run.  The user is then returned to this menu after

 ;completion of the report.

 ;

MENU ; >>> present user with menu of trending reports available

 W !! K DIR S DIR(0)="NO^1:7",DIR("A")="Select TRENDING REPORT"

 F AQAO=1:1:7 S DIR("A",AQAO)="      "_AQAO_". "_$P($T(RPT+AQAO),";;",2)

 S DIR("A",8)=" "

 D ^DIR G EXIT:$D(DIRUT),MENU:Y=-1 S AQAORTN=$P($T(RPT+Y),";;",3)

 D @AQAORTN G MENU

 ;

EXIT ; >>> eoj

 D KILL^AQAOUTIL Q

 ;

 ;

RPT ;; >>> MENU CHOICES

 ;;ALL Occurrences for a VISIT;;BYVISIT^AQAOPC3

 ;;ALL Occurrences for a PATIENT;;BYPAT^AQAOPC3

 ;;Occurrences by REVIEW CRITERIA;;^AQAOPC1

 ;;Occurrences by DIAGNOSIS/PROCEDURE;;^AQAOPC2

 ;;Occurrences by FINDINGS & ACTIONS;;^AQAOPC4

 ;;Occurrences for SINGLE CRITERION by MONTH;;^AQAOPC7

 ;;Trending Reports with EXTRA SORT CRITERIA;;^AQAOPC9

AQAOPC6   ; IHS/ORDC/LJF - TRENDING REPORTS DRIVER ;

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

 +2       ;

 +3       ;This is the trending reports main driver where the user can choose

 +4       ;which report to run.  The user is then returned to this menu after

 +5       ;completion of the report.

 +6       ;

MENU      ; >>> present user with menu of trending reports available

 +1        WRITE !!

           KILL DIR

           SET DIR(0)="NO^1:7"

           SET DIR("A")="Select TRENDING REPORT"

 +2        FOR AQAO=1:1:7

               SET DIR("A",AQAO)="      "_AQAO_". "_$PIECE($TEXT(RPT+AQAO),";;",2)

 +3        SET DIR("A",8)=" "

 +4        DO ^DIR

           IF $DATA(DIRUT)

               GOTO EXIT

           IF Y=-1

               GOTO MENU

           SET AQAORTN=$PIECE($TEXT(RPT+Y),";;",3)

 +5        DO @AQAORTN

           GOTO MENU

 +6       ;

EXIT      ; >>> eoj

 +1        DO KILL^AQAOUTIL

           QUIT 

 +2       ;

 +3       ;

RPT       ;; >>> MENU CHOICES

 +1       ;;ALL Occurrences for a VISIT;;BYVISIT^AQAOPC3

 +2       ;;ALL Occurrences for a PATIENT;;BYPAT^AQAOPC3

 +3       ;;Occurrences by REVIEW CRITERIA;;^AQAOPC1

 +4       ;;Occurrences by DIAGNOSIS/PROCEDURE;;^AQAOPC2

 +5       ;;Occurrences by FINDINGS & ACTIONS;;^AQAOPC4

 +6       ;;Occurrences for SINGLE CRITERION by MONTH;;^AQAOPC7

 +7       ;;Trending Reports with EXTRA SORT CRITERIA;;^AQAOPC9