| GENERAL DESCRIPTION |
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)
|
