The LAB SERVICE package (LSRP project) has a
requirement that we set specific fields to be audited on patch installation
and remove any audit indicators on any fields that are not in the predefined
list for the LABORATORY TEST file (#60) and for a few file 60 subfiles. In
order to reset the existing audit indicators, it will be necessary to use hard
code to traverse the ^DD(60,"AUDIT", fields.
S LRFLD=0 F S LRFLD=$O(^DD(60,"AUDIT",LRFLD)) Q:'LRFLD D
. If audit on and field LRFLD is not on list, turn audit off for LRFLD
. If audit off and field LRFLD is on list, turn audit on for LRFLD
The subfiles that are also included for this task are:
Field # Field Name Subfile # Direct reference needed
100 SITE/SPECIMEN 60.01 ^DD(60.01,"AUDIT"
2 SYNONYM 60.1 ^DD(60.1,"AUDIT"
6 ACCESSION AREA 60.11 ^DD(60.11,"AUDIT"
500 VERIFY WKLD CODE 60.12 ^DD(60.12,"AUDIT"
500.1 ACCESSION WKLD CODE 60.13 ^DD(60.13,"AUDIT"