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 |