MCPOS0D.m

MCPOS0D ;HIRMFO/DAD-UPDATE FILE SECURITY ;7/24/96  10:04

 ;;2.3;Medicine;;09/13/1996

 ;

 N MCACCESS,MCDATA,MCFILE,MCNODE,MCOFFSET,MCPIECE

 S MCDATA(1)=""

 S MCDATA(2)="Updating Medicine package file level access security."

 D MES^XPDUTL(.MCDATA)

 ;

 F MCOFFSET=1:1 S MCDATA=$P($T(FILE+MCOFFSET),";",3) Q:MCDATA=""  D

 . S MCFILE=$P(MCDATA,U) Q:$D(^DIC(MCFILE,0))[0

 . F MCPIECE=2:1:7 D

 .. S MCACCESS=$P(MCDATA,U,MCPIECE) Q:MCACCESS=""

 .. S MCNODE=$P("^DD^RD^WR^DEL^LAYGO^AUDIT",U,MCPIECE)

 .. I "^DD^AUDIT^"[(U_MCNODE_U),$G(^DIC(MCFILE,0,MCNODE))="" D SET Q

 .. I $D(^DIC(MCFILE,0,MCNODE))[0 D SET

 .. Q

 . Q

 Q

SET ;

 S ^DIC(MCFILE,0,MCNODE)=MCACCESS

 Q

 ;

FILE ;;File# ^ DD ^ RD ^ WR ^ DEL ^ LAYGO ^ AUDIT

 ;;690^@^^^^^@

 ;;690.1^@^^^^^@

 ;;690.2^@^^^^^@

 ;;690.5^@^^^^^@

 ;;690.97^@^^^^^@

 ;;690.99^@^^^^^@

 ;;691^@^^^^^@

 ;;691.1^@^^^^^@

 ;;691.5^@^^^^^@

 ;;691.6^@^^^^^@

 ;;691.7^@^^^^^@

 ;;691.8^@^^^^^@

 ;;691.9^@^^^^^@

 ;;692^@^^^^^@

 ;;693^@^^^^^@

 ;;693.2^@^^^^^@

 ;;693.3^@^^^^^@

 ;;693.5^@^^^^^@

 ;;693.6^@^^^^^@

 ;;694^@^^^^^@

 ;;694.1^@^^^^^@

 ;;694.5^@^^^^^@

 ;;694.8^@^^^^^@

 ;;695^@^^^^^@

 ;;695.1^@^^^^^@

 ;;695.3^@^^^^^@

 ;;695.4^@^^^^^@

 ;;695.5^@^^^^^@

 ;;695.6^@^^^^^@

 ;;695.8^@^^^^^@

 ;;695.9^@^^^^^@

 ;;696^@^^^^^@

 ;;696.1^@^^^^^@

 ;;696.2^@^^^^^@

 ;;696.3^@^^^^^@

 ;;696.4^@^^^^^@

 ;;696.5^@^^^^^@

 ;;696.7^@^^^^^@

 ;;696.9^@^^^^^@

 ;;697^@^^^^^@

 ;;697.1^@^^^^^@

 ;;697.2^@^^^^^@

 ;;697.3^@^^^^^@

 ;;697.5^@^^^^^@

 ;;698^@^^^^^@

 ;;698.1^@^^^^^@

 ;;698.2^@^^^^^@

 ;;698.3^@^^^^^@

 ;;698.4^@^^^^^@

 ;;698.6^@^^^^^@

 ;;698.9^@^^^^^@

 ;;699^@^^^^^@

 ;;699.48^@^^^^^@

 ;;699.5^@^^^^^@

 ;;699.55^@^^^^^@

 ;;699.57^@^^^^^@

 ;;699.6^@^^^^^@

 ;;699.7^@^^^^^@

 ;;699.81^@^^^^^@

 ;;699.82^@^^^^^@

 ;;699.83^@^^^^^@

 ;;699.84^@^^^^^@

 ;;699.85^@^^^^^@

 ;;699.86^@^^^^^@

 ;;699.88^@^^^^^@

 ;;700^@^^^^^@

 ;;700.1^@^^^^^@

 ;;700.2^@^^^^^@

 ;;700.5^@^^^^^@

 ;;701^@^^^^^@

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---MCPOS0D   1981     printed  Dec 13, 2024@02:16:33                                                                                                                                                                                                     Page 2

MCPOS0D   ;HIRMFO/DAD-UPDATE FILE SECURITY ;7/24/96  10:04

 +1       ;;2.3;Medicine;;09/13/1996

 +2       ;

 +3        NEW MCACCESS,MCDATA,MCFILE,MCNODE,MCOFFSET,MCPIECE

 +4        SET MCDATA(1)=""

 +5        SET MCDATA(2)="Updating Medicine package file level access security."

 +6        DO MES^XPDUTL(.MCDATA)

 +7       ;

 +8        FOR MCOFFSET=1:1

               SET MCDATA=$PIECE($TEXT(FILE+MCOFFSET),";",3)

               if MCDATA=""

                   QUIT 

               Begin DoDot:1

 +9                SET MCFILE=$PIECE(MCDATA,U)

                   if $DATA(^DIC(MCFILE,0))[0

                       QUIT 

 +10               FOR MCPIECE=2:1:7

                       Begin DoDot:2

 +11                       SET MCACCESS=$PIECE(MCDATA,U,MCPIECE)

                           if MCACCESS=""

                               QUIT 

 +12                       SET MCNODE=$PIECE("^DD^RD^WR^DEL^LAYGO^AUDIT",U,MCPIECE)

 +13                       IF "^DD^AUDIT^"[(U_MCNODE_U)

                               IF $GET(^DIC(MCFILE,0,MCNODE))=""

                                   DO SET

                                   QUIT 

 +14                       IF $DATA(^DIC(MCFILE,0,MCNODE))[0

                               DO SET

 +15                       QUIT 

                       End DoDot:2

 +16               QUIT 

               End DoDot:1

 +17       QUIT 

SET       ;

 +1        SET ^DIC(MCFILE,0,MCNODE)=MCACCESS

 +2        QUIT 

 +3       ;

FILE      ;;File# ^ DD ^ RD ^ WR ^ DEL ^ LAYGO ^ AUDIT

 +1       ;;690^@^^^^^@

 +2       ;;690.1^@^^^^^@

 +3       ;;690.2^@^^^^^@

 +4       ;;690.5^@^^^^^@

 +5       ;;690.97^@^^^^^@

 +6       ;;690.99^@^^^^^@

 +7       ;;691^@^^^^^@

 +8       ;;691.1^@^^^^^@

 +9       ;;691.5^@^^^^^@

 +10      ;;691.6^@^^^^^@

 +11      ;;691.7^@^^^^^@

 +12      ;;691.8^@^^^^^@

 +13      ;;691.9^@^^^^^@

 +14      ;;692^@^^^^^@

 +15      ;;693^@^^^^^@

 +16      ;;693.2^@^^^^^@

 +17      ;;693.3^@^^^^^@

 +18      ;;693.5^@^^^^^@

 +19      ;;693.6^@^^^^^@

 +20      ;;694^@^^^^^@

 +21      ;;694.1^@^^^^^@

 +22      ;;694.5^@^^^^^@

 +23      ;;694.8^@^^^^^@

 +24      ;;695^@^^^^^@

 +25      ;;695.1^@^^^^^@

 +26      ;;695.3^@^^^^^@

 +27      ;;695.4^@^^^^^@

 +28      ;;695.5^@^^^^^@

 +29      ;;695.6^@^^^^^@

 +30      ;;695.8^@^^^^^@

 +31      ;;695.9^@^^^^^@

 +32      ;;696^@^^^^^@

 +33      ;;696.1^@^^^^^@

 +34      ;;696.2^@^^^^^@

 +35      ;;696.3^@^^^^^@

 +36      ;;696.4^@^^^^^@

 +37      ;;696.5^@^^^^^@

 +38      ;;696.7^@^^^^^@

 +39      ;;696.9^@^^^^^@

 +40      ;;697^@^^^^^@

 +41      ;;697.1^@^^^^^@

 +42      ;;697.2^@^^^^^@

 +43      ;;697.3^@^^^^^@

 +44      ;;697.5^@^^^^^@

 +45      ;;698^@^^^^^@

 +46      ;;698.1^@^^^^^@

 +47      ;;698.2^@^^^^^@

 +48      ;;698.3^@^^^^^@

 +49      ;;698.4^@^^^^^@

 +50      ;;698.6^@^^^^^@

 +51      ;;698.9^@^^^^^@

 +52      ;;699^@^^^^^@

 +53      ;;699.48^@^^^^^@

 +54      ;;699.5^@^^^^^@

 +55      ;;699.55^@^^^^^@

 +56      ;;699.57^@^^^^^@

 +57      ;;699.6^@^^^^^@

 +58      ;;699.7^@^^^^^@

 +59      ;;699.81^@^^^^^@

 +60      ;;699.82^@^^^^^@

 +61      ;;699.83^@^^^^^@

 +62      ;;699.84^@^^^^^@

 +63      ;;699.85^@^^^^^@

 +64      ;;699.86^@^^^^^@

 +65      ;;699.88^@^^^^^@

 +66      ;;700^@^^^^^@

 +67      ;;700.1^@^^^^^@

 +68      ;;700.2^@^^^^^@

 +69      ;;700.5^@^^^^^@

 +70      ;;701^@^^^^^@