Print Page as PDF
Allow looping through 'AUDIT' nodes of DD ICR (4309)

Allow looping through 'AUDIT' nodes of DD    ICR (4309)

Name Value
NUMBER 4309
IA # 4309
GLOBAL ROOT DD(
DATE CREATED 2010/12/14
CUSTODIAL PACKAGE VA FILEMAN
USAGE Controlled Subscription
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME Allow looping through 'AUDIT' nodes of DD
GENERAL DESCRIPTION
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"
GLOBAL REFERENCE
  • DD(60,AUDIT,D0)
  • DD(60.01,AUDIT,D0)
  • DD(60.1,AUDIT,D0)
  • DD(60.11,AUDIT,D0)
  • DD(60.12,AUDIT,D0)
  • DD(60.13,AUDIT,D0)
STATUS Active
DURATION Till Otherwise Agreed
ID DD(
SUBSCRIBING PACKAGE LAB SERVICE
CREATOR KOPP,TERRY M
DATE ACTIVATED 2010/12/15
MAIL MESSAGE 53382723
DATE/TIME EDITED
DATE/TIME EDITED ACTION AT THE REQUEST OF WITH CONCURRENCE OF
2010/12/15 09:39 APPROVED KOPP,TERRY BEUSCHEL,GARY
Generated from SEP 10, 2019@ IA Listing Descriptions