Print Page as PDF
UPDATE DIE ICR (3315)

UPDATE DIE    ICR (3315)

Name Value
NUMBER 3315
IA # 3315
DATE CREATED 2001/02/14
CUSTODIAL PACKAGE VA FILEMAN
USAGE Private
TYPE Routine
DBIC APPROVAL STATUS APPROVED
ROUTINE DIE
NAME UPDATE DIE
GENERAL DESCRIPTION
Registration is requesting to export a new cross
reference to the .01 and .09 fields of the Patient file (#2) by hardsetting
the ^DD("IX" global nodes and using UPDATE^DIE to get the IEN in ^DD("IX" to
use.  The reason to hardset the global rather than have KIDS export the x-ref
is that the .01 of the Patient file (#2) is has changes in test in the field
for the Name Standardization patch which is on indefinate hold.
STATUS Active
ID DIE
COMPONENT/ENTRY POINT
COMPONENT/ENTRY POINT COMPONENT DESCRIPTION VARIABLES
UPDATE
for the .01:

S ZZFDA(.11,"+1,",.01)=file#  <--- would be 2 in this case S
ZZFDA(.11,"+1,",.02)=xrefName <--- would be "AMPIZZ" in this case D
UPDATE^DIE("","ZZFDA","ZZIEN") S DA=ZZIEN(1)   <--- The Updater returns the
IEN of the added entry in ZZIEN

for the .09:

S ZZFDA(.11,"+1,",.01)=file#  <--- would be 2 in this case S
ZZFDA(.11,"+1,",.02)=xrefName <--- would be "ATSSN" in this case D
UPDATE^DIE("","ZZFDA","ZZIEN") S DA=ZZIEN(1)   <--- The Updater returns the
IEN of the added entry in ZZIEN
VARIABLES TYPE VARIABLES DESCRIPTION
ZZFDA Input
Array containing file number and x-ref name
ZZIEN Output
IEN for new entry in ^DD("IX" - INDEX file.
SUBSCRIBING PACKAGE REGISTRATION