| 1 | GMRYFILE ;HIRMFO/FT-Set I/O File Security ;3/5/97 16:41
|
|---|
| 2 | ;;4.0;Intake/Output;;Apr 25, 1997
|
|---|
| 3 | POST1 ; 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...")
|
|---|
| 6 | EN1 ;
|
|---|
| 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
|
|---|
| 17 | SECURITY ;;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
|
|---|
