HARSET DD('IX' ICR (3316)

Name

Value

NUMBER

3316

IA #

3316

FILE NUMBER

.11

GLOBAL ROOT

DD('IX'

DATE CREATED

2004/07/22

CUSTODIAL PACKAGE

VA FILEMAN

USAGE

Private

TYPE

File

NAME

HARSET DD('IX'

GENERAL DESCRIPTION

Registration is requesting to export a new cross
reference to the .01 and .09 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 and .09 of the Patient file (#2) is has changes in test in the
field for the Name Standardization patch which is on indefinate hold.

GLOBAL REFERENCE

GLOBAL DESCRIPTION

DD('IX',ZZIEN

Hardsetting global to contain all filds invovled in new
cross reference AMPIZZ for the .01 field:

S ^DD("IX",DA,0)="2^AMPIZZ^Inactivate ICN when patient is ZZ'd or delete
d^MU^^F^IR^I^2^^^^^A"
S ^DD("IX",DA,.1,0)="^^12^12^3000824^"
S ^DD("IX",DA,.1,1,0)="The set of this cross reference is to
inactivate a patient with an ICN"
S ^DD("IX",DA,.1,2,0)="(991.01) that have been ZZ'd.  The rules for
inactivation will be"
S ^DD("IX",DA,.1,3,0)="enforced."
S ^DD("IX",DA,.1,4,0)=" "
S ^DD("IX",DA,.1,5,0)="The kill of this cross reference is to
inactivate a patient with"
S ^DD("IX",DA,.1,6,0)="an ICN (991.01) that has been deleted (@
entered on the.01). "
S ^DD("IX",DA,.1,7,0)=" "
S ^DD("IX",DA,.1,8,0)="The rules for Inactivtion will be enforced.  If
in either situation, the"
S ^DD("IX",DA,.1,9,0)="rules don't allow for automatically
inactivating the ICN, an exception"
S ^DD("IX",DA,.1,10,0)="message will be generated."
S ^DD("IX",DA,.1,11,0)=" "
S ^DD("IX",DA,.1,12,0)="Inactivating an ICN deletes fields 991.01,
991.0 2, 991.03 and 991.04"
S ^DD("IX",DA,1)="I $T(ZZSET^MPIFDEL)'="""",$E(X2(1),1,2)=""ZZ"" D
ZZSET^MPIFDEL(DA,X2(1))"
S ^DD("IX",DA,2)="I $T(ZZKILL^MPIFDEL)'="""",X2(1)="""" D
ZZKILL^MPIFDEL(DA,X2(1))"
S ^DD("IX",DA,11.1,0)="^.114IA^1^1"
S ^DD("IX",DA,11.1,1,0)="1^F^2^.01^^^F"
S ^DD("IX",DA,11.1,"B",1,1)=""
S ^DD("IX",DA,11.1,"BB",1,1)=""

Hardsetting global to contain all filds invovled in new cross reference  ATSSN
on the .09 field (the DA value here will be different than the one above):

S ^DD("IX",DA,0)="2^ATSSN^Inactivates Pts that have 5 leading zeros
for SSN^MU^^F^IR^I^2^^^^^A"
S ^DD("IX",DA,.1,0)="^^5^5^3020111^"
S ^DD("IX",DA,.1,1,0)="The set of this cross reference is to
inactivate a patient with an ICN"
S ^DD("IX",DA,.1,2,0)="(991.01) that have the SSN field value changed
to a SSN with 5 leading "
S ^DD("IX",DA,.1,3,0)="zeros. The rules for inactivation will be
enforced."
S ^DD("IX",DA,.1,4,0)=""
S ^DD("IX",DA,.1,5,0)="There is not a kill of this cross reference
since SSN is a required field."
S ^DD("IX",DA,1)="I $T(SSET^MPIFDEL)'="""",$E(X2(1),1,5)=""00000"" D S
SET^MPIFDEL(DA,X2(1))"
S ^DD("IX",DA,2)="Q"
S ^DD("IX",DA,11.1,0)="^.114IA^1^1"
S ^DD("IX",DA,11.1,1,0)="1^F^2^.09^^^F"
S ^DD("IX",DA,11.1,"B",1,1)=""
S ^DD("IX",DA,11.1,"BB",1,1)=""
S ^DD("IX","IX","ATSSN",DA)=""
S ^DD("IX","BB",2,"ATSSN",DA)=""
S ^DD("IX","B",2,DA)=""
S ^DD("IX","AC",2,DA)=""
S ^DD("IX","F",2,.09,DA,1)=""

STATUS

Retired

DD('IX'

SUBSCRIBING PACKAGE

REGISTRATION