LSRP ADD X-REF TO NEW PERSON FILE    ICR (5726)

The Lab System Re-Engineering Project (LSRP) has
permission to define 2 New Style Cross references on the New Person File
(#200) with patch LR*5.2*393.  These cross references are added to the New
Person file as part of the KIDS Post-Installation process of the LR*5.2*393
distribution.  These Cross References are installed using the CREIXN^DDMOD
Fileman API.

Kernel development grants this "one-time" ICR allowing LSRPs' addition of
"ALSRP" and "AKLSRP" cross-references to the New Person file (#200) by the
LR*5.2*393 patch.


New Style Cross references "ALSRP" and "AKLSRP" are described as follows:

"ALSRP"
-------
"ALSRP" checks for changes to specific fields in the New Person File (#200).
When data in a relative field is changed, "ALSRP" SET logic invokes OPKG^XUHUI
(allowed via ICR #3589) referencing the "LA7J MFN NEW PERSON MOD PRTCL" entry
in the Protocol file (#101).

"ALSRP" is defined for the following New Person fields:
NAME (#.01)
OFFICE PHONE (#.132)
VOICE PAGER (#.137)
DIGITAL PAGER (#.138)
SEX (#4)
DOB (#5)
SSN (#9)
NPI (#41.99)


Data Dictionary Description:

ALSRP       RECORD    MUMPS        ACTION
Short Descr:  LSRP monitoring of New Person Field changes
Description:  This M New Style Cross reference will monitor changes to
New Person fields that are relevant to the Lab System
Re-Engineering Project.

User contact and other information on the Cerner Pathnet
system must be synchronized with changes made (for Lab
users) on VistA.  This cross- reference will invoke code
that sends a Master File Notification to Cerner when a
change to pertinent data is made.

Only users holding either the LRJ CERNER PRA or LRJ CERNER
STF security keys will be sent via MFN to Cerner.
Set Logic:  D OPKG^XUHUI("101","LA7J MFN NEW PERSON MOD PRTCL","","ALSRP")
Kill Logic:  Q
Whole Kill:  Q

X(1):  NAME  (200,.01)  (forwards)
X(2):  OFFICE PHONE  (200,.132)  (forwards)
X(3):  VOICE PAGER  (200,.137)  (forwards)
X(4):  DIGITAL PAGER  (200,.138)  (forwards)
X(5):  SEX  (200,4)  (forwards)
X(6):  DOB  (200,5)  (forwards)
X(7):  SSN  (200,9)  (forwards)
X(8):  NPI  (200,41.99)  (forwards)


"AKLSRP"
--------
"AKLSRP" checks changes to the set of New Persons holding specific Security
Keys and is defined on the New Person file KEYS subfile (#200.051), KEY field
(#.01).  When KEY allocations and de-allocations occur, "AKLSRP" SET and KILL
logic invoke OPKG^XUHUI (see ICR #3589) referencing the "LA7J MFN NEW PERSON
KEY MOD PRTCL" entry in the Protocol file (#101).


Data Dictionary Description:

Subfile #200.051

AKLSRP       FIELD    MUMPS        ACTION    WHOLE FILE (#200)
Short Descr:
This cross reference creates LSRP MFNs when a lab key is added.
Description:  The AKLSRP New Style Cross reference will invoke a protocol
that checks when a key is added or deleted.  If the
affected key is LRJ CERNER PRA or LRJ CERNER STF, then an
MFN will be sent to Cerner Pathnet, as necessary.
Set Logic:
D OPKG^XUHUI("101","LA7J MFN NEW PERSON KEY MOD PRTCL","","AKLSRP")

Kill Logic:
D OPKG^XUHUI("101","LA7J MFN NEW PERSON KEY MOD PRTCL","K","AKLSRP")

X(1):  KEY  (200.051,.01)  (forwards)