Routine: ORQPT2

Information

ORQPT2 ; HIRMFO/DAD-Patient Look-Up Security Check and Notification ;1/31/97 07:57

Source file <ORQPT2.m>

Package	Total	Caller Graph
Inpatient Medications	2	PSJALG PSJLMHED
Order Entry Results Reporting	2	ORCHART ORWPT
Consult Request Tracking	1	GMRCSLM
Registration	1	DGRRLU1

Name	Comments	DBIA/ICR reference
EN1(ORDFN)	; ; Sensitive Patient record check ; Input ; ORDFN = Pointer to the Patient file (#2) ; Output ; 0 - Patient record IS NOT sensitive ; 1 - Patient record IS sensitive
EN2(ORDFN)	; ; Update DG Security Log file (#38.1) and sends ; the 'Restricted Patient Accessed' bulletin to the ; mailgroup specified in the 'Sensitive Rec Accessed ; Group' field (43,509) ; Input ; ORDFN = Pointer to the Patient file (#2) ; Output ; None
CWAD(DFN)	; ; Crisis notes, clinical Warnings, Allergies, advance Directives ; Input: ; DFN = A Patient file (#2) IEN ; Output: ; A string of 0-4 nonrepeating characters consisting ; of the letters C,W,A,D. The string will be returned ; with the letters in the order shown.

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN2+56
^DGSL(38.1 - [#38.1]	EN2+37, EN2+39, EN2+45, EN2+54
^TMP("TIUPPCV"	CWAD+18, CWAD+19, CWAD+23!
^XUSEC("DG SENSITIVITY"	EN2+22

Name	Field # of Occurrence
ACRN	CWAD+10~, CWAD+19*, CWAD+21
CTR	CWAD+10~, CWAD+17, CWAD+18, CWAD+19
DFN	EN2+12~, EN2+19*, CWAD~, CWAD+9, CWAD+11
DG1	EN2+12~, EN2+19
DGA1	EN2+12~
DGT	EN2+12~, EN2+19*
DGXFR0	EN2+12~
DUZ	EN2+10, EN2+22, EN2+27, EN2+48
MSG	CWAD+10~
ORDFN	EN1~, EN1+8, EN2~, EN2+10, EN2+19, EN2+31, EN2+32, EN2+37, EN2+39, EN2+41 , EN2+42, EN2+45, EN2+47, EN2+48, EN2+49, EN2+50, EN2+54, EN2+56
ORFDA	EN2+40~, EN2+46~
ORFDA(	EN2+41, EN2+47, EN2+48, EN2+49, EN2+50*
ORIEN	EN2+40~, EN2+46~
ORIEN(1	EN2+42, EN2+51
ORINPT	EN2+13~, EN2+19*, EN2+22, EN2+50
ORINVNOW	EN2+13~, EN2+45*, EN2+51
ORLST	CWAD+10~, CWAD+16, CWAD+18, CWAD+21, CWAD+25*, CWAD+26
ORMAILGR	EN2+13~, EN2+20*, EN2+22, EN2+25
ORMSG	EN2+40~, EN2+46~
ORNOW	EN2+13~, EN2+18, EN2+19, EN2+45, EN2+47
OROPT	EN2+13~, EN2+17*, EN2+33, EN2+49
ORTEXT	EN2+23~
ORTEXT(1	EN2+29*
ORTEXT(2	EN2+30*
ORTEXT(3	EN2+31*
ORTEXT(4	EN2+32*
ORTEXT(5	EN2+33*
U	EN2+17, EN2+33, EN2+49, CWAD+19, CWAD+21
X	EN2+14~, EN2+56*
XMCHAN	EN2+23~, EN2+28*
XMDUZ	EN2+23~, EN2+27*
XMSUB	EN2+23~, EN2+24*
XMTEXT	EN2+23~, EN2+26*
XMY	EN2+23~
XMY("G."	EN2+25*
XMZ	EN2+23~
XQOPT	EN2+14~, EN2+17