Print Page as PDF
ID Node in PATIENT (#2) file, field 994 ICR (4078)

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

Name Value
NUMBER 4078
IA # 4078
FILE NUMBER 2
GLOBAL ROOT DD(2
DATE CREATED 2003/04/09
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE File
DBIC APPROVAL STATUS APPROVED
NAME ID Node in PATIENT (#2) file, field 994
GENERAL DESCRIPTION

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
;
STATUS Active
DURATION Till Otherwise Agreed
ID DD(2
SUBSCRIBING PACKAGE REGISTRATION