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

DIE

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