source: FOIAVistA/trunk/r/DIETETICS-FH/FHSYSF.m@ 1607

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

initial load of FOIAVistA 6/30/08 version

File size: 706 bytes
Line 
1FHSYSF ; HISC/REL - File Manager Search/Print ;7/8/93 13:34
2 ;;5.5;DIETETICS;;Jan 28, 2005
3PRNT ; File Manager Print
4 D DICRW Q:Y<1 S L=1 D EN1^DIP G KIL
5SRCH ; File Manager Search
6 D DICRW Q:Y<1 D EN^DIS G KIL
7DIC ; List Dictionary
8 W ! D ^DID G KIL
9INQ ; Inquire to File
10 D DICRW Q:Y<1 S DI=DIC,DPP(1)=+Y_"^^^@",DK=+Y
11 D B^DII G KIL
12DICRW ; Select File
13 K ^UTILITY($J),%,%ZIS,DTOUT,DC,O,N,R,BY,DA,DHD,DI,DIC,DPP,DK,DIQ,DIS,DUOUT,FR,L,TO
14 D NOW^%DTC S DT=%\1 K %,%H,%I
15 S DIC="^DIC(",DIC("S")="I +Y>109.99,+Y<120",DIC(0)="AEQM",DIC("A")="OUTPUT FROM WHAT FILE: "
16 W ! D ^DIC K DIC I $D(DTOUT)!(Y<1) Q
17 I $D(^DIC(+Y,0,"GL")) K DIC S DIC=^("GL") Q
18 K DIC S Y=-1 Q
19KIL ; Kill Variables
20 G KILL^XUSCLEAN
Note: See TracBrowser for help on using the repository browser.