| [613] | 1 | NURSFILE ;HIRMFO/FT-Set Nursing File Security ;3/19/98 15:05
|
|---|
| 2 | ;;4.0;NURSING SERVICE;**9**;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 Nursing file security...")
|
|---|
| 6 | EN1 ;
|
|---|
| 7 | F NURSTXT=1:1 S NURSLINE=$P($T(SECURITY+NURSTXT),";;",2,99) Q:NURSLINE="" D
|
|---|
| 8 | . S NURSFL=+$P(NURSLINE,";")
|
|---|
| 9 | . S ^DIC(NURSFL,0,"DD")=$P(NURSLINE,";",2)
|
|---|
| 10 | . S ^DIC(NURSFL,0,"RD")=$P(NURSLINE,";",3)
|
|---|
| 11 | . S ^DIC(NURSFL,0,"WR")=$P(NURSLINE,";",4)
|
|---|
| 12 | . S ^DIC(NURSFL,0,"DEL")=$P(NURSLINE,";",5)
|
|---|
| 13 | . S ^DIC(NURSFL,0,"LAYGO")=$P(NURSLINE,";",6)
|
|---|
| 14 | . Q
|
|---|
| 15 | K NURSFL,NURSLINE,NURSTXT
|
|---|
| 16 | Q
|
|---|
| 17 | SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
|
|---|
| 18 | ;;210;@;;@;@;@
|
|---|
| 19 | ;;211.1;@;;@;@;@
|
|---|
| 20 | ;;211.2;@;;@;@;@
|
|---|
| 21 | ;;211.3;@;;@;@;@
|
|---|
| 22 | ;;211.4;@;;@;@;@
|
|---|
| 23 | ;;211.5;@;;@;@;@
|
|---|
| 24 | ;;211.6;@;;@;@;@
|
|---|
| 25 | ;;211.7;@;;@;@;@
|
|---|
| 26 | ;;211.8;@;;@;@;@
|
|---|
| 27 | ;;211.9;@;;@;@;@
|
|---|
| 28 | ;;212.1;@;;@;@;@
|
|---|
| 29 | ;;212.2;@;;@;@;@
|
|---|
| 30 | ;;212.3;@;;@;@;@
|
|---|
| 31 | ;;212.4;@;;@;@;@
|
|---|
| 32 | ;;212.42;@;;@;@;@
|
|---|
| 33 | ;;212.6;@;;@;@;@
|
|---|
| 34 | ;;212.7;@;;@;@;@
|
|---|
| 35 | ;;213.2;@;;@;@;@
|
|---|
| 36 | ;;213.3;@;;@;@;@
|
|---|
| 37 | ;;213.4;@;;@;@;@
|
|---|
| 38 | ;;213.5;@;;@;@;@
|
|---|
| 39 | ;;213.9;@;;@;@;@
|
|---|
| 40 | ;;214;@;;@;@;@
|
|---|
| 41 | ;;214.6;@;;@;@;@
|
|---|
| 42 | ;;214.7;@;;@;@;@
|
|---|
| 43 | ;;216.8;@;;@;@;@
|
|---|
| 44 | ;;217;@;;@;@;@
|
|---|
| 45 | ;;217.1;@;;@;@;@
|
|---|
| 46 | ;;217.2;@;;@;@;@
|
|---|
| 47 | ;;217.3;@;;@;@;@
|
|---|
| 48 | ;;219.7;@;;@;@;@
|
|---|
| 49 | Q
|
|---|
