source: WorldVistAEHR/trunk/r/POLICE_AND_SECURITY-ES/ESPFM.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 558 bytes
Line 
1ESPFM ;DALISC/RWW - FILE MANAGER PRINT/INQUIRY POLICE FILES; 7/93
2 ;;1.0;POLICE & SECURITY;;Mar 31, 1994
3PRNT ; FILE MANAGER PRINT
4 D DICRW Q:Y<1 S L=1 G EN1^DIP
5INQ ; FILE MANAGER INQUIRY
6 D DICRW Q:Y<1 S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y
7 G B^DII
8DICRW ; SELECT FILE
9 K %,DTOUT,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO
10 D NOW^%DTC S DT=%\1 K %,%H,%I
11 S DIC="^DIC(",DIC("S")="I +Y>909.99,+Y<920",DIC(0)="AEQM",DIC("A")="OUTPUT FROM WHAT VA POLICE FILE: "
12 W ! D ^DIC K DIC I $D(DTOUT)!(Y<1) Q
13 I $D(^DIC(+Y,0,"GL")) K DIC S DIC=^("GL") Q
14 K DIC S Y=-1 Q
Note: See TracBrowser for help on using the repository browser.