AZXAAGE.m

AZXAAGE ; IHS/PHXAO/TMJ - ROI AGING REPORT (BY STATUS) ;

 ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 ;

 ;

ASK1 ;Restrict a Certain Local Category

 S AZXASTBD="C",AZXASTED="O"

 W ! S DIR(0)="Y0",DIR("A")="Would you like to INCLUDE ONLY a particular ROI Disclosure Status",DIR("B")="NO"

 S DIR("?")="To RESTRICT to a particular ROI Disclosure Status  - Answer Yes."

 D ^DIR K DIR

 G:$D(DIRUT) END

 I 'Y G PRINT

STATUS ;ROI Disclosure STATUS

 S DIR(0)="1991075,.08",DIR("A")="Enter the Status"

 K DA D ^DIR K DIR

 G:$D(DIRUT) ASK1

 S AZXASTBD=Y,AZXASTED=Y

 ;

 ;

PRINT ;PRINT MASTER DISCLOSURE LOG

 ;W !

 S FLDS="[AZXA GS AGING RPT]",BY="@INTERNAL(#.08)",DIC="^AZXAREC(",L=0

 S FR=AZXASTBD,TO=AZXASTED

 ;S FR=AZXAOLDB,TO=AZXAOLDE

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K AZXASTBD,AZXASTED,DD0,B,X Q

AZXAAGE   ; IHS/PHXAO/TMJ - ROI AGING REPORT (BY STATUS) ;

 +1       ;;2.0;RELEASE OF INFORMATION;;FEB 21, 2002

 +2       ;

 +3       ;

ASK1      ;Restrict a Certain Local Category

 +1        SET AZXASTBD="C"

           SET AZXASTED="O"

 +2        WRITE !

           SET DIR(0)="Y0"

           SET DIR("A")="Would you like to INCLUDE ONLY a particular ROI Disclosure Status"

           SET DIR("B")="NO"

 +3        SET DIR("?")="To RESTRICT to a particular ROI Disclosure Status  - Answer Yes."

 +4        DO ^DIR

           KILL DIR

 +5        IF $DATA(DIRUT)

               GOTO END

 +6        IF 'Y

               GOTO PRINT

STATUS    ;ROI Disclosure STATUS

 +1        SET DIR(0)="1991075,.08"

           SET DIR("A")="Enter the Status"

 +2        KILL DA

           DO ^DIR

           KILL DIR

 +3        IF $DATA(DIRUT)

               GOTO ASK1

 +4        SET AZXASTBD=Y

           SET AZXASTED=Y

 +5       ;

 +6       ;

PRINT     ;PRINT MASTER DISCLOSURE LOG

 +1       ;W !

 +2        SET FLDS="[AZXA GS AGING RPT]"

           SET BY="@INTERNAL(#.08)"

           SET DIC="^AZXAREC("

           SET L=0

 +3        SET FR=AZXASTBD

           SET TO=AZXASTED

 +4       ;S FR=AZXAOLDB,TO=AZXAOLDE

 +5        KILL DHIT,DIOEND,DIOBEG

 +6        DO EN1^DIP

END       ;

 +1        KILL AZXASTBD,AZXASTED,DD0,B,X

           QUIT