MYFILE.m

MYFILE ;IHS/PHXAO/TMJ - MUMPS ROUTINE TO PRINT [ 08/10/01  9:21 AM ]

 ;;RELEASE OF INFORMATION PROGRAM

 ;

 ;FILENAME=ROI DISCLOSURE - GLOBAL-^AZXAREC(

 ;PRINTS ONLY CLOSED STATUS RECORDS FOR A DATE RANGE

 ;

ASK ;Ask For Date Range

 ;

 ;

BD ;Get Beginning Date

 W !! S DIR(0)="D^::EP",DIR("A")="Enter beginning ROI Initiated Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G END

 S AZXABD=Y

 ;

ED ;Get Ending Date

 W ! S DIR(0)="D^"_AZXABD_"::EP",DIR("A")="Enter Ending ROI Initiation Date" D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 S AZXAED=Y

 W !

 ;

PRINT ;PRINT CLOSED DISCLOSURES BY DATE

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

 S FR=AZXABD,TO=AZXAED

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K AZXABD,AZXAED,X,DDO,B Q