ESPFM.m

ESPFM ;DALISC/RWW - FILE MANAGER PRINT/INQUIRY POLICE FILES; 7/93

 ;;1.0;POLICE & SECURITY;;Mar 31, 1994

PRNT ; FILE MANAGER PRINT

 D DICRW Q:Y<1  S L=1 G EN1^DIP

INQ ; FILE MANAGER INQUIRY

 D DICRW Q:Y<1  S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y

 G B^DII

DICRW ; SELECT FILE

 K %,DTOUT,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO

 D NOW^%DTC S DT=%\1 K %,%H,%I

 S DIC="^DIC(",DIC("S")="I +Y>909.99,+Y<920",DIC(0)="AEQM",DIC("A")="OUTPUT FROM WHAT VA POLICE FILE: "

 W ! D ^DIC K DIC I $D(DTOUT)!(Y<1) Q

 I $D(^DIC(+Y,0,"GL")) K DIC S DIC=^("GL") Q

 K DIC S Y=-1 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---ESPFM   572     printed  Apr 09, 2024@21:32:55                                                                                                                                                                                                        Page 2

ESPFM     ;DALISC/RWW - FILE MANAGER PRINT/INQUIRY POLICE FILES; 7/93

 +1       ;;1.0;POLICE & SECURITY;;Mar 31, 1994

PRNT      ; FILE MANAGER PRINT

 +1        DO DICRW

           if Y<1

               QUIT 

           SET L=1

           GOTO EN1^DIP

INQ       ; FILE MANAGER INQUIRY

 +1        DO DICRW

           if Y<1

               QUIT 

           SET DI=DIC

           SET DPP(1)=+Y_"^^^@"

           SET DK=+Y

 +2        GOTO B^DII

DICRW     ; SELECT FILE

 +1        KILL %,DTOUT,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO

 +2        DO NOW^%DTC

           SET DT=%\1

           KILL %,%H,%I

 +3        SET DIC="^DIC("

           SET DIC("S")="I +Y>909.99,+Y<920"

           SET DIC(0)="AEQM"

           SET DIC("A")="OUTPUT FROM WHAT VA POLICE FILE: "

 +4        WRITE !

           DO ^DIC

           KILL DIC

           IF $DATA(DTOUT)!(Y<1)

               QUIT 

 +5        IF $DATA(^DIC(+Y,0,"GL"))

               KILL DIC

               SET DIC=^("GL")

               QUIT 

 +6        KILL DIC

           SET Y=-1

           QUIT