Print Page as PDF
DD Nodes in Patient (#2) file ICR (4542)

DD Nodes in Patient (#2) file    ICR (4542)

Name Value
NUMBER 4542
IA # 4542
FILE NUMBER 2
GLOBAL ROOT DD(2
DATE CREATED 2006/04/13
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME DD Nodes in Patient (#2) file
GENERAL DESCRIPTION
DG*5.3*705, FIX PATIENT FILE DATA DICTIONARY, deletes
Fileman DD entries for fields on the PATIENT file (#2).

The pre-init routine, DG53705I, will be run only once and it will delete the
following nodes:

D BMES^XPDUTL(">>> Deleting bad write access, help, audit, other miscel
laneous nodes")
K ^DD(2,.12113,9),^DD(2,.14112,9)
K ^DD(2,.108,3)
K ^DD(2,.391,4)
F Z=.01,.2924,.3111,.3192,991.07 K ^DD(2,Z,"AUDIT")
K ^DD(2.312,.18,"AUDIT")
K ^DIC(2,0,"AUDIT")
K ^DD(2,0,"VR")
K ^DD(2,0,"VRPK")
K ^DIC(2,"%",7,0)
K ^DIC(2,"%","B","QAM",7)

D PT^DDUCHK1  (">>> Deleting bad pointer nodes") (this deletes any "PT"
reference node whose file and field either don't exist or don't point to file
2)

D BMES^XPDUTL(">>> Deleting bad identifier nodes")
F Z=.2924,.302,.351,"GARB","WARD","WR","ZREW" K ^DD(2,0,"ID",Z)

D BMES^XPDUTL(">>> Deleting bad field description nodes")
S Z=1 F  S Z=$O(^DD(2,.107,21,Z)) Q:'Z  K ^DD(2,.107,21,Z,0)

D BMES^XPDUTL(">>> Deleting bad cross reference nodes")
^DD(2,0,"IX","AHL",.01)
^DD(2,0,"IX",AHL2",.02)
^DD(2,0,"IX","AHL3",.03)
^DD(2,0,"IX","AHL5",.06)
^DD(2,0,"IX","AHL4",.09)
^DD(2,0,"IX","A4EC",.102)
^DD(2,0,"IX","ACP",.302)
^DD(2,0,"IX","AP",.302)
^DD(2,0,"IX","CHK4",.3025)
^DD(2,0,"IX","AEMP",.31115)
^DD(2,0,"IX","MAC",.31115)
^DD (2,0,"IX","AI",.32102)
^DD(2,0,"IX","AK",.32103)
^DD(2,0,"IX","AEXP",.351)
^DD(2,0,"IX","AHL6",.351)
^DD(2,0,"IX","AT",.351)
^DD(2,0,"IX","AR",.361)
^DD(2,0,"IX","BEN",.36205)
^DD(2,0,"IX","CHK1",.36205)
^DD(2,0,"IX","CHK2,".36215)
^DD(2,0,"IX","CHK3",.36235)
^DD(2,0,"IX","AT",.381)
STATUS Active
ID DD(2
SUBSCRIBING PACKAGE REGISTRATION
MAIL MESSAGE 42600629
Generated from AUG 12, 2020@ IA Listing Descriptions