Routine: LRDPAREX

Information

LRDPAREX ;DALOI/FHS -VALIDATE PENDING ORDER FILE PATIENT LOOKUP ; Feb 18, 2004

Call Graph

Call Graph Total: 4

Package	Total	Call Graph
VA FileMan	3	FILE^DICN ^DIE ^DIR
Registration	1	$$CODE2PTR^DGUTL4

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: 1

Package	Total	Caller Graph
Lab Service	1	LRDPAREF

Entry Points

Name	Comments	DBIA/ICR reference
EN	;
END	;
SET	;Create new entry in ^LRT(67
SET1
LINK	; Create back pointer for existing LRT(67 entries
UPDATE	; Store updated demographics
ERR1
ERR
DUP	;
KEYIN	;
RDDIR	;
RACE	; Resolve race pointer

External References

Name	Field # of Occurrence
$$CODE2PTR^DGUTL4	RACE+3, RACE+4
FILE^DICN	SET1+8
^DIE	LINK+7, UPDATE+6
^DIR	RDDIR+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,"Error1 ",! Line Location: ERR1+0
Function Call: WRITE	Prompt: !?5,"Error ",! Line Location: ERR+0
Function Call: WRITE	Prompt: !?5,$P(LRSD("ERROR"),U,2) Line Location: DUP+2
Function Call: WRITE	Prompt: !!?30,"Manual Referral Patient Entry",!! Line Location: KEYIN+2
Routine Call	DIE Line Location: LINK+7 UPDATE+6
Routine Call	DIR Line Location: RDDIR+2

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^LRT(67 - [#67]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	SET1+11*
^LRT(67 - [#67]	EN+10, EN+13, EN+16, EN+19, EN+20!, SET1+1, SET1+9, LINK+2, LINK+7

Label References

Name	Line Occurrences
DUP	EN+16
ERR	EN+25
LINK	EN+22
RACE	SET1+5, LINK+5, UPDATE+5
RDDIR	KEYIN+7, KEYIN+10, KEYIN+12, KEYIN+13
SET	EN+25
SET1	KEYIN+14
UPDATE	EN+8, EN+14

Naked Globals

Name	Field # of Occurrence
^(	EN+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN+1~, SET1~, LINK+1~, LINK+2, UPDATE+1~, UPDATE+2
DD	SET1+7!
>> DFN	EN+7, EN+26, SET1+12, LINK+2, LINK+8, UPDATE+2, UPDATE+7*
DIC	EN+1~, SET1~, SET1+3, LINK+1~, LINK+7, UPDATE+1~
DIC("DR"	SET1+4, SET1+6, RACE+7*
DIC(0	SET1+2, LINK+3
DIE	EN+1~, SET1~, LINK+1~, LINK+3, LINK+7, UPDATE+1~, UPDATE+3
DIR	EN+1~, KEYIN+3!, KEYIN+9!, KEYIN+12!, KEYIN+13!, RDDIR+3!
DIR("?"	KEYIN+5, KEYIN+6
DIR("A"	KEYIN+5, KEYIN+9
DIR(0	KEYIN+4, KEYIN+9, KEYIN+12, KEYIN+13
DIRUT	EN+1~
DLAYGO	EN+1~, SET1+2*, SET1+8!
DO	SET1+7!
>> DOB	EN+2, SET1+4, LINK+4, UPDATE+4, KEYIN+13
DR	EN+1~, LINK+1~, LINK+4, LINK+6, UPDATE+1~, UPDATE+4, RACE+6
DTOUT	EN+1~, RDDIR+3
DUOUT	EN+1~, RDDIR+3
>> LRDFN	SET1+10*
>> LRDPF	EN+4, EN+26
>> LREND	EN+13, EN+14, EN+22, EN+25, SET+2, SET1+10, LINK+7, LINK+8, UPDATE+6, UPDATE+7 , DUP+1, KEYIN+7, KEYIN+10, KEYIN+12, KEYIN+13, RDDIR+1, RDDIR+3, RDDIR+4*
>> LRSB("ERROR"	SET1+10*
>> LRSD("DFN"	EN+4
>> LRSD("DOB"	EN+2, KEYIN+13*
>> LRSD("DPF"	EN+4
>> LRSD("ERROR"	EN+10, EN+13, EN+21, SET+2, SET1+12, LINK+8, UPDATE+7, DUP+1, DUP+2, KEYIN+1*
>> LRSD("LRXDPF"	KEYIN+14*
>> LRSD("PNM"	EN+2, KEYIN+10*
>> LRSD("RACE"	SET1+5, LINK+5, UPDATE+5, RACE+3, RACE+4
>> LRSD("RIEN"	EN+10, EN+12, EN+13, EN+16, EN+18, EN+19, EN+20, EN+21, EN+23, EN+25 , EN+26, SET1+11, SET1+12*, LINK+2, LINK+7, LINK+8, UPDATE+2
>> LRSD("SEX"	EN+2, KEYIN+12*
>> LRSD("SSN"	EN+2, KEYIN+8*
>> LRXDFN	EN+4*, EN+6, EN+7, EN+13, EN+23, SET+1, SET1+6, SET1+11, LINK+6
>> LRXDPF	EN+4, EN+6, EN+13, EN+23, SET+1, SET1+6, SET1+11, LINK+6, KEYIN+14
>> PNM	EN+2, SET1+3, SET1+4, LINK+4, UPDATE+4, KEYIN+10
RACE	UPDATE+1~, RACE+1~, RACE+2, RACE+3, RACE+4*, RACE+5, RACE+6, RACE+7
>> SEX	EN+2, SET1+4, LINK+4, UPDATE+4, KEYIN+12
>> SSN	EN+2, EN+16, EN+20, SET1+4, LINK+4, UPDATE+4, DUP+1, KEYIN+8
U	DUP+2
>> X	EN+23, SET1+3
Y	SET1~, SET1+10, SET1+11, SET1+12, LINK+7, UPDATE+6, KEYIN+8*, KEYIN+10, KEYIN+12, KEYIN+13 , RDDIR+4

Customize PDF page

Package: Lab Service