NURSFILE.m

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

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---NURSFILE   1290     printed  Apr 09, 2024@21:25:13                                                                                                                                                                                                    Page 2

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