- 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 ---[H[J[2J[HESPFM 572 printed Feb 18, 2025@23:56:12 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
