AZAMLOG.m

BMEMLOG ; IHS/PHXAO/TMJ - Print Logs by Date Range [ 06/11/03  3:30 PM ]

 ;;1.0;RELEASE OF INFORMATION;;JUL 10, 2000

 ;

 ;

ASK ;Ask For Date Range

 ;

 ;

BD ;get beginning date

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

 I $D(DIRUT) G END

 S AZAMBD=Y

ED ;get ending date

 W ! S DIR(0)="D^"_AZAMBD_"::EP",DIR("A")="Enter ending LOG RUN Date"  D ^DIR K DIR S:$D(DUOUT) DIRUT=1

 I $D(DIRUT) G BD

 S AZAMED=Y

 S X1=AZAMBD,X2=-1 D C^%DTC S AZAMSD=X

 W !

 ;

PRINT ;PRINT CLOSED DISCLOSURES BY DATE

 ;W !

 S FLDS="[CAPTIONED]",BY="@INTERNAL(#.01)",DIC="^AZAMEDLG(",L=0

 S FR=AZAMBD,TO=AZAMED

 K DHIT,DIOEND,DIOBEG

 D EN1^DIP

END ;

 K AZAMBD,AZAMED,X,DD0,B Q

BMEMLOG   ; IHS/PHXAO/TMJ - Print Logs by Date Range [ 06/11/03  3:30 PM ]

 +1       ;;1.0;RELEASE OF INFORMATION;;JUL 10, 2000

 +2       ;

 +3       ;

ASK       ;Ask For Date Range

 +1       ;

 +2       ;

BD        ;get beginning date

 +1        WRITE !!

           SET DIR(0)="D^::EP"

           SET DIR("A")="Enter beginning LOG RUN Date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO END

 +3        SET AZAMBD=Y

ED        ;get ending date

 +1        WRITE !

           SET DIR(0)="D^"_AZAMBD_"::EP"

           SET DIR("A")="Enter ending LOG RUN Date"

           DO ^DIR

           KILL DIR

           IF $DATA(DUOUT)

               SET DIRUT=1

 +2        IF $DATA(DIRUT)

               GOTO BD

 +3        SET AZAMED=Y

 +4        SET X1=AZAMBD

           SET X2=-1

           DO C^%DTC

           SET AZAMSD=X

 +5        WRITE !

 +6       ;

PRINT     ;PRINT CLOSED DISCLOSURES BY DATE

 +1       ;W !

 +2        SET FLDS="[CAPTIONED]"

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

           SET DIC="^AZAMEDLG("

           SET L=0

 +3        SET FR=AZAMBD

           SET TO=AZAMED

 +4        KILL DHIT,DIOEND,DIOBEG

 +5        DO EN1^DIP

END       ;

 +1        KILL AZAMBD,AZAMED,X,DD0,B

           QUIT