AUPNSEC.m

AUPNSEC ;IHS/ITSC/EG - SET FILE PROTECTIONS  [ 06/17/2003  11:06 AM ]

 ;;99.1;IHS DICTIONARIES (PATIENT);**9,10,11,12**;MAR 09, 1999;Build 9

LP ;EP - loop through file entries

 F I=1:1 D  Q:AGTXT["end"

 .S AGTXT=$T(TXT+I)

 .Q:AGTXT["end"

 .F J=2:1:4 S AG(J)=$P(AGTXT,";;",J)

 .S AG(3)=""""_AG(3)_""""

 .S AGREF="^DIC("_AG(2)_",0,"_AG(3)_")"

 .S @AGREF=AG(4)

 Q

TXT ;file entries start here

 ;;9000030;;AUDIT;;@

 ;;9000030;;DD;;@

 ;;9000030;;DEL;;@

 ;;9000030;;LAYGO;;M

 ;;9000030;;RD;;M

 ;;9000030;;WR;;M

 ;;9000031;;AUDIT;;@

 ;;9000031;;DD;;@

 ;;9000031;;DEL;;@

 ;;9000031;;LAYGO;;M

 ;;9000031;;RD;;M

 ;;9000031;;WR;;M

 ;;9000032;;AUDIT;;@

 ;;9000032;;DD;;@

 ;;9000032;;DEL;;@

 ;;9000032;;LAYGO;;M

 ;;9000032;;RD;;M

 ;;9000032;;WR;;M

 ;;9000033;;AUDIT;;@

 ;;9000033;;DD;;@

 ;;9000033;;DEL;;M

 ;;9000033;;LAYGO;;M

 ;;9000033;;RD;;M

 ;;9000033;;WR;;M

 ;;9000034;;AUDIT;;@

 ;;9000034;;DD;;@

 ;;9000034;;DEL;;M

 ;;9000034;;LAYGO;;M

 ;;9000034;;RD;;M

 ;;9000034;;WR;;M

 ;;9000035;;AUDIT;;@

 ;;9000035;;DD;;@

 ;;9000035;;DEL;;@

 ;;9000035;;LAYGO;;M

 ;;9000035;;RD;;M

 ;;9000035;;WR;;M

 ;;9000036;;AUDIT;;@

 ;;9000036;;DD;;@

 ;;9000036;;DEL;;@

 ;;9000036;;LAYGO;;M

 ;;9000036;;RD;;M

 ;;9000036;;WR;;M

 ;;9000037;;AUDIT;;@

 ;;9000037;;DD;;@

 ;;9000037;;DEL;;@

 ;;9000037;;LAYGO;;M

 ;;9000037;;RD;;M

 ;;9000037;;WR;;M

 ;;9000038;;AUDIT;;@

 ;;9000038;;DD;;@

 ;;9000038;;DEL;;@

 ;;9000038;;LAYGO;;M

 ;;9000038;;RD;;M

 ;;9000038;;WR;;M

 ;;9000039;;AUDIT;;@

 ;;9000039;;DD;;@

 ;;9000039;;DEL;;M

 ;;9000039;;LAYGO;;M

 ;;9000039;;RD;;M

 ;;9000039;;WR;;M

 ;;end

 Q

AUPNSEC   ;IHS/ITSC/EG - SET FILE PROTECTIONS  [ 06/17/2003  11:06 AM ]

 +1       ;;99.1;IHS DICTIONARIES (PATIENT);**9,10,11,12**;MAR 09, 1999;Build 9

LP        ;EP - loop through file entries

 +1        FOR I=1:1

               Begin DoDot:1

 +2                SET AGTXT=$TEXT(TXT+I)

 +3                IF AGTXT["end"

                       QUIT 

 +4                FOR J=2:1:4

                       SET AG(J)=$PIECE(AGTXT,";;",J)

 +5                SET AG(3)=""""_AG(3)_""""

 +6                SET AGREF="^DIC("_AG(2)_",0,"_AG(3)_")"

 +7                SET @AGREF=AG(4)

               End DoDot:1

               IF AGTXT["end"

                   QUIT 

 +8        QUIT 

TXT       ;file entries start here

 +1       ;;9000030;;AUDIT;;@

 +2       ;;9000030;;DD;;@

 +3       ;;9000030;;DEL;;@

 +4       ;;9000030;;LAYGO;;M

 +5       ;;9000030;;RD;;M

 +6       ;;9000030;;WR;;M

 +7       ;;9000031;;AUDIT;;@

 +8       ;;9000031;;DD;;@

 +9       ;;9000031;;DEL;;@

 +10      ;;9000031;;LAYGO;;M

 +11      ;;9000031;;RD;;M

 +12      ;;9000031;;WR;;M

 +13      ;;9000032;;AUDIT;;@

 +14      ;;9000032;;DD;;@

 +15      ;;9000032;;DEL;;@

 +16      ;;9000032;;LAYGO;;M

 +17      ;;9000032;;RD;;M

 +18      ;;9000032;;WR;;M

 +19      ;;9000033;;AUDIT;;@

 +20      ;;9000033;;DD;;@

 +21      ;;9000033;;DEL;;M

 +22      ;;9000033;;LAYGO;;M

 +23      ;;9000033;;RD;;M

 +24      ;;9000033;;WR;;M

 +25      ;;9000034;;AUDIT;;@

 +26      ;;9000034;;DD;;@

 +27      ;;9000034;;DEL;;M

 +28      ;;9000034;;LAYGO;;M

 +29      ;;9000034;;RD;;M

 +30      ;;9000034;;WR;;M

 +31      ;;9000035;;AUDIT;;@

 +32      ;;9000035;;DD;;@

 +33      ;;9000035;;DEL;;@

 +34      ;;9000035;;LAYGO;;M

 +35      ;;9000035;;RD;;M

 +36      ;;9000035;;WR;;M

 +37      ;;9000036;;AUDIT;;@

 +38      ;;9000036;;DD;;@

 +39      ;;9000036;;DEL;;@

 +40      ;;9000036;;LAYGO;;M

 +41      ;;9000036;;RD;;M

 +42      ;;9000036;;WR;;M

 +43      ;;9000037;;AUDIT;;@

 +44      ;;9000037;;DD;;@

 +45      ;;9000037;;DEL;;@

 +46      ;;9000037;;LAYGO;;M

 +47      ;;9000037;;RD;;M

 +48      ;;9000037;;WR;;M

 +49      ;;9000038;;AUDIT;;@

 +50      ;;9000038;;DD;;@

 +51      ;;9000038;;DEL;;@

 +52      ;;9000038;;LAYGO;;M

 +53      ;;9000038;;RD;;M

 +54      ;;9000038;;WR;;M

 +55      ;;9000039;;AUDIT;;@

 +56      ;;9000039;;DD;;@

 +57      ;;9000039;;DEL;;M

 +58      ;;9000039;;LAYGO;;M

 +59      ;;9000039;;RD;;M

 +60      ;;9000039;;WR;;M

 +61      ;;end

 +62       QUIT