Routine: DPTLK6

Information

DPTLK6 ;BAY/JAT,EG - Patient lookup RPCs for patient safety issue ; 11 Aug 2005 8:33 AM

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Registration	3	($$CMTS,$$MFLG)^DGMTU ($$DOB,$$SSN,DOB)^DPTLK1 $$BS5^DPTLK5

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 15

Package	Total	Caller Graph
Registration	5	DG CHK BS5 XREF ARRAY DG CHK BS5 XREF Y/N DG CHK MEANS TEST DIV DISPLAY DG CHK PAT MEANS TEST REQUIRED DG CHK PAT/DIV MEANS TEST
Scheduling	2	SDECU3 SDES2GETREGS
Barcode Medication Administration	1	PSBRPC
Clinical Procedures	1	MDRPCOP1
Emergency Department Integration Software	1	EDPFPTC
Enterprise Health Management Platform	1	HMPFPTC
General Medical Record - Vitals	1	GMVRPCP
Imaging	1	MAGGTPT1
Order Entry Results Reporting	1	ORWPT2
Visual Impairment Service Team	1	ANRVOA

Entry Points

Name	Comments	DBIA/ICR reference
GUIBS5(GUIDATA,DFN)	; RPC checks if other patients on "BS5" xref ; with same last name ; returns: 1 or 0 (or -1 if bad dfn or no zero node) ; if 1, returns text to be displayed ; return type: array ; parameter: ien of Patient file
GUIBS5A(GUIDATA,DFN)	; RPC checks if other patients on "BS5" xref ; with same last name ; returns 1 or 0 in 1st string (or -1 if bad DFN or no zero node) ; if 1 returns array nodes where ; text is preceeded by 0 (0^<text>) ; and patient data is preceeded by 1 (1^DFN^patient name^DOB^SSN) ; return type: global array ; parameter: ien of Patient file	ICR #3593 Status: Active Usage: Supported
GUIDMT(GUIDATA,DUZ2)	; RPC checks if the 'Display Means Test Required' ; message is to be displayed for the Division user is in ; returns 1 or 0 in 1st string (or -1 if bad DUZ(2)) ; if 1, returns text to be displayed in 2nd and 3rd string (if any) ; return type: array ; parameter: Institution file pointer for user (optional)
GUIMT(GUIDATA,DFN)	; RPC checks if Means Test is required for this patient ; returns 1 or 0 (or -1 if bad DFN) ; return type: single value ; parameter: ien of Patient file
GUIMTD(GUIDATA,DFN,DUZ2)	; RPC checks if Means Test is required for this ; patient and if 'Means Test Required' message is to be ; displayed for the Division user is in ; returns 1 or 0 in 1st string (or -1 if bad parameters) ; if 1, returns text to be displayed in 2nd and 3rd string (if any) ; return type: array ; parameters: ien of Patient file, Institution file pointer for user ; (optional)	ICR #3593 Status: Active Usage: Supported

External References

Name	Field # of Occurrence
$$CMTS^DGMTU	GUIMT+8, GUIMTD+16
$$MFLG^DGMTU	GUIMTD+18
$$DOB^DPTLK1	GUIBS5A+27
$$SSN^DPTLK1	GUIBS5A+27
DOB^DPTLK1	GUIBS5A+27
$$BS5^DPTLK5	GUIBS5+9, GUIBS5A+11

RPC Name	Call Tags
DG CHK BS5 XREF Y/N	GUIBS5
DG CHK BS5 XREF ARRAY	GUIBS5A
DG CHK MEANS TEST DIV DISPLAY	GUIDMT
DG CHK PAT MEANS TEST REQUIRED	GUIMT
DG CHK PAT/DIV MEANS TEST	GUIMTD

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DG(40.8 - [#40.8]	GUIDMT+10, GUIDMT+13, GUIMTD+12, GUIMTD+19
^DPT - [#2]	GUIBS5+8, GUIBS5+12, GUIBS5A+10, GUIBS5A+15, GUIBS5A+24
^DPT("BS5"	GUIBS5A+23
^TMP("DPTLK6"	GUIBS5A+12!, GUIBS5A+13, GUIBS5A+19, GUIBS5A+20, GUIBS5A+30, GUIBS5A+32*, GUIBS5A+33, GUIBS5A+34!

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DFN	GUIBS5~, GUIBS5+7, GUIBS5+8, GUIBS5+9, GUIBS5+12, GUIBS5A~, GUIBS5A+9, GUIBS5A+10, GUIBS5A+11, GUIBS5A+15 , GUIMT~, GUIMT+5, GUIMT+8, GUIMTD~, GUIMTD+10, GUIMTD+16
DGMTLST	GUIMT+6~, GUIMT+8, GUIMT+9, GUIMTD+14~, GUIMTD+16, GUIMTD+18
DGREQF	GUIMT+6~, GUIMTD+14~
DPT0	GUIBS5+11~, GUIBS5+12, GUIBS5+13, GUIBS5+14, GUIBS5A+14~, GUIBS5A+15, GUIBS5A+16, GUIBS5A+18, GUIBS5A+24*, GUIBS5A+26 , GUIBS5A+28
DPTBS5	GUIBS5A+14~, GUIBS5A+17*, GUIBS5A+23
DPTCNT	GUIBS5A+14~, GUIBS5A+21, GUIBS5A+29, GUIBS5A+30, GUIBS5A+31*, GUIBS5A+32
DPTDIV	GUIDMT+9~, GUIDMT+10, GUIDMT+11, GUIDMT+13, GUIMTD+11~, GUIMTD+12, GUIMTD+13, GUIMTD+19
DPTDIVMT	GUIDMT+9~, GUIDMT+13, GUIDMT+14, GUIMTD+11~, GUIMTD+19, GUIMTD+20
DPTDOB	GUIBS5A+14~, GUIBS5A+27, GUIBS5A+28, GUIBS5A+30
DPTIEN	GUIBS5A+14~, GUIBS5A+22, GUIBS5A+23, GUIBS5A+24, GUIBS5A+27, GUIBS5A+30
DPTLAST	GUIBS5A+14~, GUIBS5A+18*, GUIBS5A+19, GUIBS5A+25
DPTNME	GUIBS5+11~, GUIBS5+13, GUIBS5+15, GUIBS5A+14~, GUIBS5A+16, GUIBS5A+17, GUIBS5A+24, GUIBS5A+25, GUIBS5A+26, GUIBS5A+30
DPTSSN	GUIBS5+11~, GUIBS5+14, GUIBS5+16, GUIBS5A+14~, GUIBS5A+16, GUIBS5A+17, GUIBS5A+20
DPTSSN1	GUIBS5A+14~, GUIBS5A+27, GUIBS5A+28, GUIBS5A+30
DUZ(2	GUIDMT+7, GUIMTD+9
DUZ2	GUIDMT~, GUIDMT+7, GUIDMT+8, GUIDMT+10, GUIMTD~, GUIMTD+9, GUIMTD+10, GUIMTD+12
GUIDATA	GUIBS5~, GUIBS5+6!, GUIBS5A~, GUIBS5A+8!, GUIBS5A+33, GUIDMT~, GUIDMT+6!, GUIMT~, GUIMT+4!, GUIMT+5 , GUIMT+7, GUIMT+10, GUIMTD~, GUIMTD+8!
GUIDATA(1	GUIBS5+7, GUIBS5+8, GUIBS5+9, GUIBS5+10, GUIBS5A+9, GUIBS5A+10, GUIBS5A+11, GUIDMT+8, GUIDMT+11, GUIDMT+12 , GUIDMT+14, GUIMTD+10, GUIMTD+13, GUIMTD+15, GUIMTD+20*
GUIDATA(2	GUIBS5+15, GUIDMT+14, GUIMTD+20*
GUIDATA(3	GUIBS5+16, GUIDMT+14, GUIMTD+20*
GUIDATA(4	GUIBS5+17*
U	GUIBS5+13, GUIBS5+14, GUIBS5A+16, GUIBS5A+18, GUIBS5A+24, GUIBS5A+26, GUIBS5A+28, GUIBS5A+30, GUIDMT+14, GUIMT+9 , GUIMTD+20
Y	GUIMT+6~, GUIMTD+14~

Marked Items

Name	Field # of Occurrence
$T(DOB^DPTLK1	GUIBS5A+27

Customize PDF page

Package: Registration