- NURSFILE ;HIRMFO/FT-Set Nursing File Security ;3/19/98 15:05
- ;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
- POST1 ; entry point from package installation
- I $G(XPDQUES("POST1"))'>0 D BMES^XPDUTL("FILE SECURITY NOT UPDATED!!") Q
- D BMES^XPDUTL("Setting Nursing file security...")
- EN1 ;
- F NURSTXT=1:1 S NURSLINE=$P($T(SECURITY+NURSTXT),";;",2,99) Q:NURSLINE="" D
- . S NURSFL=+$P(NURSLINE,";")
- . S ^DIC(NURSFL,0,"DD")=$P(NURSLINE,";",2)
- . S ^DIC(NURSFL,0,"RD")=$P(NURSLINE,";",3)
- . S ^DIC(NURSFL,0,"WR")=$P(NURSLINE,";",4)
- . S ^DIC(NURSFL,0,"DEL")=$P(NURSLINE,";",5)
- . S ^DIC(NURSFL,0,"LAYGO")=$P(NURSLINE,";",6)
- . Q
- K NURSFL,NURSLINE,NURSTXT
- Q
- SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
- ;;210;@;;@;@;@
- ;;211.1;@;;@;@;@
- ;;211.2;@;;@;@;@
- ;;211.3;@;;@;@;@
- ;;211.4;@;;@;@;@
- ;;211.5;@;;@;@;@
- ;;211.6;@;;@;@;@
- ;;211.7;@;;@;@;@
- ;;211.8;@;;@;@;@
- ;;211.9;@;;@;@;@
- ;;212.1;@;;@;@;@
- ;;212.2;@;;@;@;@
- ;;212.3;@;;@;@;@
- ;;212.4;@;;@;@;@
- ;;212.42;@;;@;@;@
- ;;212.6;@;;@;@;@
- ;;212.7;@;;@;@;@
- ;;213.2;@;;@;@;@
- ;;213.3;@;;@;@;@
- ;;213.4;@;;@;@;@
- ;;213.5;@;;@;@;@
- ;;213.9;@;;@;@;@
- ;;214;@;;@;@;@
- ;;214.6;@;;@;@;@
- ;;214.7;@;;@;@;@
- ;;216.8;@;;@;@;@
- ;;217;@;;@;@;@
- ;;217.1;@;;@;@;@
- ;;217.2;@;;@;@;@
- ;;217.3;@;;@;@;@
- ;;219.7;@;;@;@;@
- Q
- NURSFILE ;HIRMFO/FT-Set Nursing File Security ;3/19/98 15:05
- +1 ;;4.0;NURSING SERVICE;**9**;Apr 25, 1997
- POST1 ; entry point from package installation
- +1 IF $GET(XPDQUES("POST1"))'>0
- DO BMES^XPDUTL("FILE SECURITY NOT UPDATED!!")
- QUIT
- +2 DO BMES^XPDUTL("Setting Nursing file security...")
- EN1 ;
- +1 FOR NURSTXT=1:1
- SET NURSLINE=$PIECE($TEXT(SECURITY+NURSTXT),";;",2,99)
- IF NURSLINE=""
- QUIT
- Begin DoDot:1
- +2 SET NURSFL=+$PIECE(NURSLINE,";")
- +3 SET ^DIC(NURSFL,0,"DD")=$PIECE(NURSLINE,";",2)
- +4 SET ^DIC(NURSFL,0,"RD")=$PIECE(NURSLINE,";",3)
- +5 SET ^DIC(NURSFL,0,"WR")=$PIECE(NURSLINE,";",4)
- +6 SET ^DIC(NURSFL,0,"DEL")=$PIECE(NURSLINE,";",5)
- +7 SET ^DIC(NURSFL,0,"LAYGO")=$PIECE(NURSLINE,";",6)
- +8 QUIT
- End DoDot:1
- +9 KILL NURSFL,NURSLINE,NURSTXT
- +10 QUIT
- SECURITY ;;FILENO;DD;RD;WR;DEL;LAYGO
- +1 ;;210;@;;@;@;@
- +2 ;;211.1;@;;@;@;@
- +3 ;;211.2;@;;@;@;@
- +4 ;;211.3;@;;@;@;@
- +5 ;;211.4;@;;@;@;@
- +6 ;;211.5;@;;@;@;@
- +7 ;;211.6;@;;@;@;@
- +8 ;;211.7;@;;@;@;@
- +9 ;;211.8;@;;@;@;@
- +10 ;;211.9;@;;@;@;@
- +11 ;;212.1;@;;@;@;@
- +12 ;;212.2;@;;@;@;@
- +13 ;;212.3;@;;@;@;@
- +14 ;;212.4;@;;@;@;@
- +15 ;;212.42;@;;@;@;@
- +16 ;;212.6;@;;@;@;@
- +17 ;;212.7;@;;@;@;@
- +18 ;;213.2;@;;@;@;@
- +19 ;;213.3;@;;@;@;@
- +20 ;;213.4;@;;@;@;@
- +21 ;;213.5;@;;@;@;@
- +22 ;;213.9;@;;@;@;@
- +23 ;;214;@;;@;@;@
- +24 ;;214.6;@;;@;@;@
- +25 ;;214.7;@;;@;@;@
- +26 ;;216.8;@;;@;@;@
- +27 ;;217;@;;@;@;@
- +28 ;;217.1;@;;@;@;@
- +29 ;;217.2;@;;@;@;@
- +30 ;;217.3;@;;@;@;@
- +31 ;;219.7;@;;@;@;@
- +32 QUIT