AQAOPR4.m

AQAOPR4 ; IHS/ORDC/LJF - DELETED CASES LISTING ;

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

 ;

 ;This rtn calls DIP to list deleted occurrences.

 ;

 W @IOF,!!?20,"LISTING OF DELETED OCCURRENCE RECORDS",!!

 W !!?5,"Use this option to print a listing BY OCCURENCE DATE of"

 W !?5,"DELETED occurrences. You may not have need for this report"

 W !?5,"very often but it is available just in case.",!!

 ;

PRINT ; >>> set up print variables and call fileman to print

 S AQAOINAC="",BY="[AQAO DELETED]"

 S FLDS="[AQAO OCC LISTING]",L=0,DIC=9002167 D EN1^DIP

 ;

 D PRTOPT^AQAOVAR

END D KILL^AQAOUTIL Q

AQAOPR4   ; IHS/ORDC/LJF - DELETED CASES LISTING ;

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

 +2       ;

 +3       ;This rtn calls DIP to list deleted occurrences.

 +4       ;

 +5        WRITE @IOF,!!?20,"LISTING OF DELETED OCCURRENCE RECORDS",!!

 +6        WRITE !!?5,"Use this option to print a listing BY OCCURENCE DATE of"

 +7        WRITE !?5,"DELETED occurrences. You may not have need for this report"

 +8        WRITE !?5,"very often but it is available just in case.",!!

 +9       ;

PRINT     ; >>> set up print variables and call fileman to print

 +1        SET AQAOINAC=""

           SET BY="[AQAO DELETED]"

 +2        SET FLDS="[AQAO OCC LISTING]"

           SET L=0

           SET DIC=9002167

           DO EN1^DIP

 +3       ;

 +4        DO PRTOPT^AQAOVAR

END        DO KILL^AQAOUTIL

           QUIT