ID Node in PATIENT (#2) file, field 994    ICR (4078)

DG*5.3*505 exports a new field, MULTIPLE BIRTH INDICATOR (#994), to the
PATIENT (#2) file.  This field is to be an identifier.

KIDS does not automatically export the identifier on the new field, as
it is distributed in a partial DD.

The post-init routine, DG505PST, will set the "ID" node:

DG505PST --
;BIR/PTD-PATCH DG*5.3*505 POST INSTALLATION ROUTINE ;4/7/03
;;5.3;Registration;**505**;Aug 13, 1993
;
EN     ;Entry point
;Update identifier code for MULTIPLE BIRTH INDICATOR (#994) field
in PATIENT (#2) file
D BMES^XPDUTL(" Updating the identifier code for the MULTIPLE
BIRTH INDICATOR (#994) field.")
S ^DD(2,0,"ID",994)="D EN^DDIOL($$GET1^DIQ(2,Y_"","",994),"""",
""?$X+2"")"
Q
;