Routine: DGQPT2

Information

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

Source file <DGQPT2.m>

Package	Total	Caller Graph
Registration	1	DGWPT

Name	Comments	DBIA/ICR reference
EN1(DGDFN)	; ; Sensitive Patient record check ; Input ; DGDFN = Pointer to the Patient file (#2) ; Output ; 0 - Patient record IS NOT sensitive ; 1 - Patient record IS sensitive
EN2(DGDFN)	; ; 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 ; DGDFN = 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+55
^DGSL(38.1 - [#38.1]	EN2+36, EN2+38, EN2+44, EN2+53
^TMP("TIUPPCV"	CWAD+18, CWAD+19, CWAD+23!
^XUSEC("DG SENSITIVITY"	EN2+21

Name	Field # of Occurrence
ACRN	CWAD+10~, CWAD+19*, CWAD+21
CTR	CWAD+10~, CWAD+17, CWAD+18, CWAD+19
DFN	EN2+12~, EN2+18*, CWAD~, CWAD+9, CWAD+11
DG1	EN2+12~, EN2+18
DGA1	EN2+12~
DGDFN	EN1~, EN1+8, EN2~, EN2+10, EN2+18, EN2+30, EN2+31, EN2+36, EN2+38, EN2+40 , EN2+41, EN2+44, EN2+46, EN2+47, EN2+48, EN2+49, EN2+53, EN2+55
DGFDA	EN2+39~, EN2+45~
DGFDA(	EN2+40, EN2+46, EN2+47, EN2+48, EN2+49*
DGIEN	EN2+39~, EN2+45~
DGIEN(1	EN2+41, EN2+50
DGINPT	EN2+12~, EN2+18*, EN2+21, EN2+49
DGINVNOW	EN2+12~, EN2+44*, EN2+50
>> DGLST	CWAD+16, CWAD+18, CWAD+21, CWAD+25*, CWAD+26
DGMAILGR	EN2+12~, EN2+19*, EN2+21, EN2+24
DGMSG	EN2+39~, EN2+45~
DGNOW	EN2+12~, EN2+17, EN2+18, EN2+44, EN2+46
DGOPT	EN2+12~, EN2+16*, EN2+32, EN2+48
DGT	EN2+12~, EN2+18*
DGTEXT	EN2+22~
DGTEXT(1	EN2+28*
DGTEXT(2	EN2+29*
DGTEXT(3	EN2+30*
DGTEXT(4	EN2+31*
DGTEXT(5	EN2+32*
DGXFR0	EN2+12~
DUZ	EN2+10, EN2+21, EN2+26, EN2+47
MSG	CWAD+10~
ORLST	CWAD+10~
U	EN2+16, EN2+32, EN2+48, CWAD+19, CWAD+21
X	EN2+13~, EN2+55*
XMCHAN	EN2+22~, EN2+27*
XMDUZ	EN2+22~, EN2+26*
XMSUB	EN2+22~, EN2+23*
XMTEXT	EN2+22~, EN2+25*
XMY	EN2+22~
XMY("G."	EN2+24*
XMZ	EN2+22~
XQOPT	EN2+13~, EN2+16