Routine: AQAOPA6

AQAOPA6 ; IHS/ORDC/LJF - PRINT DELETED ACTIONS ;

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

 ;This rtn includes the user interface and DIP call to print a simple

 ;listing of actoin plans that have been deleted.

ALL ; >>> choose all or just one entry

 K DIR S DIR(0)="Y",DIR("B")="NO"

 S DIR("A")="Do you wish to print ALL DELETED Action Plans"

 D ^DIR G END:$D(DIRUT) I Y=1 S (TO,FR)="" G PRINT

DATES ; >> ask user to choose date range

 S AQAOBD=$$BDATE^AQAOLKP G END:AQAOBD=U,ALL:AQAOBD=""

 S AQAOED=$$EDATE^AQAOLKP G END:AQAOED=U,DATES:AQAOED=""

 ; >>> FIND DATA FOR SELECTED REPORT <<<

PRINT ; >>> set up variables for dip call

 K DIC S DIC="^AQAO(5,",L=0,BY="CLOSE DATE",FLDS="[AQAO DELETED]"

 S DIS(0)="I $P(^AQAO(5,D0,0),U,5)=9"

 S DIS(1)="S Y=D0 D ACTCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 S AQAOINAC="" D EN1^DIP K AQAOCHK("OK")

 I IOST["C-" D PRTOPT^AQAOVAR

END D ^%ZISC,KILL^AQAOUTIL Q

AQAOPA6   ; IHS/ORDC/LJF - PRINT DELETED ACTIONS ;

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

 +2       ;

 +3       ;This rtn includes the user interface and DIP call to print a simple

 +4       ;listing of actoin plans that have been deleted.

 +5       ;

ALL       ; >>> choose all or just one entry

 +1        KILL DIR

           SET DIR(0)="Y"

           SET DIR("B")="NO"

 +2        SET DIR("A")="Do you wish to print ALL DELETED Action Plans"

 +3        DO ^DIR

           IF $DATA(DIRUT)

               GOTO END

           IF Y=1

               SET (TO,FR)=""

               GOTO PRINT

 +4       ;

DATES     ; >> ask user to choose date range

 +1        SET AQAOBD=$$BDATE^AQAOLKP

           IF AQAOBD=U

               GOTO END

           IF AQAOBD=""

               GOTO ALL

 +2        SET AQAOED=$$EDATE^AQAOLKP

           IF AQAOED=U

               GOTO END

           IF AQAOED=""

               GOTO DATES

 +3       ;

 +4       ;

 +5       ;

 +6       ; >>> FIND DATA FOR SELECTED REPORT <<<

PRINT     ; >>> set up variables for dip call

 +1        KILL DIC

           SET DIC="^AQAO(5,"

           SET L=0

           SET BY="CLOSE DATE"

           SET FLDS="[AQAO DELETED]"

 +2        SET DIS(0)="I $P(^AQAO(5,D0,0),U,5)=9"

 +3        SET DIS(1)="S Y=D0 D ACTCHK^AQAOSEC I $D(AQAOCHK(""OK""))"

 +4        SET AQAOINAC=""

           DO EN1^DIP

           KILL AQAOCHK("OK")

 +5       ;

 +6       ;

 +7        IF IOST["C-"

               DO PRTOPT^AQAOVAR

 +8       ;

END        DO ^%ZISC

           DO KILL^AQAOUTIL

           QUIT

AQAOPA6.m