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 |