| 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)
|
