source: WorldVistAEHR/trunk/r/GEN_MED_REC_IO-GMRY/GMRYFILE.m@ 1141

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

initial load of WorldVistAEHR

File size: 884 bytes
Line 
1GMRYFILE ;HIRMFO/FT-Set I/O File Security ;3/5/97 16:41
2 ;;4.0;Intake/Output;;Apr 25, 1997
3POST1 ; entry point from package installation
4 I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q
5 D BMES^XPDUTL("Setting Intake/Output file security...")
6EN1 ;
7 F GMRYTXT=1:1 S GMRYLINE=$P($T(SECURITY+GMRYTXT),";;",2,99) Q:GMRYLINE="" D
8 . S GMRYFL=+$P(GMRYLINE,";")
9 . S ^DIC(GMRYFL,0,"DD")=$P(GMRYLINE,";",2)
10 . S ^DIC(GMRYFL,0,"RD")=$P(GMRYLINE,";",3)
11 . S ^DIC(GMRYFL,0,"WR")=$P(GMRYLINE,";",4)
12 . S ^DIC(GMRYFL,0,"DEL")=$P(GMRYLINE,";",5)
13 . S ^DIC(GMRYFL,0,"LAYGO")=$P(GMRYLINE,";",6)
14 . Q
15 K GMRYFL,GMRYLINE,GMRYTXT
16 Q
17SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
18 ;;126;@;;@;@;@
19 ;;126.56;@;;@;@;@
20 ;;126.58;@;;@;@;@
21 ;;126.6;@;;@;@;@
22 ;;126.7;@;;@;@;@
23 ;;126.72;@;;@;@;@
24 ;;126.74;@;;@;@;@
25 ;;126.76;@;;@;@;@
26 ;;126.8;@;;@;@;@
27 ;;126.9;@;;@;@;@
28 ;;126.95;@;;@;@;@
29 Q
Note: See TracBrowser for help on using the repository browser.