Routine: LRDPAREF

Information

LRDPAREF ;VA/DALOI/FHS - PENDING ORDER FILE PATIENT LOOKUP ;JUL 06, 2010 3:14 PM

Source Information

Source file <LRDPAREF.m>

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Lab Service	4	EN^LRDIQ (,KEYIN)^LRDPAREX LABKEY^LRPARAM (INF,PT)^LRX
VA Fileman	4	EN^DDIOL $$FIND1^DIC ($$GET1,GETS)^DIQ ^DIR
Automated Lab Instruments	1	(DPTSET,LRTSET,PT)^LA7SBCR1

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Lab Service	1	LRDPA

Entry Points

Name	Comments	DBIA/ICR reference
CK	;S PNM=LRSD("PNM"),SSN=LRSD("SSN"),DOB=LRSD("DOB"),SEX=LRSD("SEX"),LRXDPF=LRSD("DPF"),LRXDFN=LRSD("DFN")
RUID	;
EN	; From ^LRDPA ; Initialize array LRSD. ; CDT=collection date/time ; DFN=ien of patient in selected file ; DOB=patient's date of birth ; DPF=source file (2, or 67) ; ERROR=0 ; LPC=longitudinal parity check ; PNM=patient name ; RIEN=IEN of ^LRT(67 ; RPSITE=primary sending site ; RSITE=sending site ; RSITEN=sending site name ; RUID=specimen unique identifier ; SEX=patient's sex ; SSN=patient's SSN ; LA7PNM=Patient Bar code read if lookup fails ; On exit LRDPF set to '67^LRT(67, DFN=RIEN
OK	;
ERR	;
MF696	; Manual lookup of file #69.6
ERRMSG(X,Y)	; Display error message to user ; Call with X=error message code^error message text ; Y=message prefix
CLEAN	;
DUP
BAR	; Scan PD bar code for patient/specimen info
ERR1	;
MAN	; Manual referral patient lookup
DIQ	; Display patient info
E3
E2

External References

Name	Field # of Occurrence
EN^DDIOL	ERRMSG+4
$$FIND1^DIC	MF696+2
$$GET1^DIQ	RUID+4
GETS^DIQ	MF696+11
^DIR	RUID+9, MAN+11, MAN+21, MF696+8
DPTSET^LA7SBCR1	MAN+13
LRTSET^LA7SBCR1	MAN+14
PT^LA7SBCR1	BAR+4
EN^LRDIQ	DIQ+7
^LRDPAREX	CK+1
KEYIN^LRDPAREX	MAN+17
LABKEY^LRPARAM	EN+25
INF^LRX	E3+8
PT^LRX	E3+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),$P(LRSD("ERROR"),"^",2),! Line Location: CK+4
Function Call: WRITE	Prompt: !!,"Internal patient ID incorrect in ^LR( for ",PNM,"." Line Location: E3+1
Function Call: WRITE	Prompt: !,"Contact Lab Coordinator.",$C(7) Line Location: E3+2
Function Call: WRITE	Prompt: !,$C(7),"Internal patient ID incorrect for ",PNM,"." Line Location: E3+5
Function Call: WRITE	Prompt: !,"Contact Lab Coordinator." Line Location: E3+6
Function Call: WRITE	Prompt: !?5,"There are duplicate SSNs in the Referral File <abort>",!,$C(7) Line Location: DUP+0
Function Call: WRITE	Prompt: !,"ERROR",! Line Location: ERR+1
Function Call: WRITE	Prompt: !,"ERROR1",! Line Location: ERR1+1
Function Call: WRITE	Prompt: @IOF Line Location: DIQ+6
Routine Call	DIC Line Location: MF696+2
Routine Call	DIR Line Location: RUID+9 MAN+11 MAN+21 MF696+8

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	GET1^DIQ
^LAB(64.061 - [#64.061]	FIND1^DIC
^LRO(69.6 - [#69.6]	GETS^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DISV(	MAN+3!
^LR - [#63]	OK+6, E2, E2+1*, E2+4, E3, E3+4
^LR("B"	E2+2*
^LR(0	OK+4, OK+5, OK+7*, E2+4
^LRO(69.6 - [#69.6]	MAN+6
^LRT(67 - [#67]	E2+3*, MF696+26, MF696+27

Label References

Name	Line Occurrences
BAR	EN+27
CLEAN	EN+30, EN+32, EN+35, CK+2, RUID+10, MAN+22
DIQ	BAR+6, MAN+20
E3	OK+3
ERRMSG	EN+29, EN+34
MAN	EN+31
MF696	MAN+6

Naked Globals

Name	Field # of Occurrence
^("LR"	MF696+27
^("^LRT(67,"	MAN+3!
^(0	OK+7, E3+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EN+19~, BAR+2~, MAN+2~, DIQ+2~, DIQ+5*
>> DFN	OK+1*, OK+2, E2+1, E3+4
DIC	EN+19~, OK+2!, BAR+2~, MAN+2~, MF696+1~, DIQ+2~, DIQ+3*, DIQ+4
DIE	EN+19~
DIR	EN+19~, RUID+2~, BAR+2~, MAN+2~, MAN+16!, MAN+20!, MF696+1~
DIR("?"	RUID+6, RUID+7
DIR("A"	RUID+8, MAN+10, MAN+21, MF696+7
DIR("S"	MF696+6*
DIR(0	RUID+5, RUID+7, MAN+10, MAN+21, MF696+5*
DIRUT	EN+19~, RUID+2~, RUID+10, BAR+2~, MAN+12, MAN+16!, MF696+9
DR	BAR+2~, DIQ+5*
DTOUT	EN+19~, RUID+2~, BAR+2~
DUOUT	EN+19~, BAR+2~
DUZ	MAN+3
DX	DIQ+2~
IOF	DIQ+6
LA7PNM	EN+21!, EN+27!
>> LA7Y(0	MF696+10*
LAIEN	MF696+1~, MF696+10*, MF696+11, MF696+13, MF696+14, MF696+15, MF696+16, MF696+17, MF696+18, MF696+19 , MF696+20, MF696+21, MF696+22, MF696+24
LAIEN(	MF696+13, MF696+14, MF696+15, MF696+16, MF696+17, MF696+18, MF696+19, MF696+20, MF696+21, MF696+22 , MF696+24
LAIEN(0	MF696+10*
>> LRDFN	OK+2, OK+3, OK+5, OK+6, OK+7, E2, E2+1, E2+2, E2+3, E2+4 , E3, E3+3, E3+4, E3+7, ERR+1, ERR1+1, CLEAN+1*
>> LRDPF	OK+3, E2+1, E3+4
>> LREND	EN+24, EN+26, EN+32, CK+2, CLEAN+1, MAN+18, MF696+9*
>> LRLABKY	EN+25
>> LRREFBAR	EN+26, EN+31, MAN+6
>> LRRSITE	BAR+4
>> LRRSITE("RPSITE"	EN+36, MF696+19*
>> LRRSITE("RSITE"	RUID+4
>> LRRSITE("SMID"	MAN+6, MF696+23
>> LRRSITE("SMID-OK"	MAN+6
LRSCN696	MF696+1~, MF696+3, MF696+4, MF696+6
LRSD	EN+21!, BAR+4, MAN+13, MAN+14
LRSD(	EN+23*
LRSD("CDT"	MF696+18*
LRSD("DFN"	MF696+27*, DIQ+1, DIQ+5
LRSD("DOB"	MF696+14*
LRSD("DPF"	MF696+12*, DIQ+3
LRSD("ERROR"	EN+28, EN+29, EN+30, EN+31, EN+33, EN+34, CK+2, CK+3, CK+4, BAR+5 , MAN+9, MAN+12, MAN+18, MAN+19, MAN+22, MF696+25, ERRMSG+3
LRSD("LRDFN"	MF696+27*
LRSD("PNM"	MF696+13*
LRSD("RACE"	MF696+16*
LRSD("RIEN"	E2+3, MF696+26*, MF696+27
LRSD("RPSITE"	EN+36, MF696+19
LRSD("RSITE"	MF696+20*
LRSD("RSITEN"	MF696+21*
LRSD("RUID"	RUID+1, RUID+11, MF696+22
LRSD("SEX"	MF696+15*
LRSD("SMID"	MF696+23*
LRSD("SSN"	MF696+17, MF696+24, MF696+25, MF696+26
>> PNM	E3+1, E3+5
S	DIQ+2~, DIQ+5*
U	OK+5
>> VA200	OK+2*
X	OK+3, E2+3, RUID+2~, MAN+2~, MAN+15, MF696+1~, ERRMSG~, ERRMSG+3, ERRMSG+4
Y	EN+23, OK+1, OK+3, RUID+2~, RUID+11, MAN+2~, MAN+13, MAN+14, MAN+22, MF696+1~ , MF696+2*, MF696+3, MF696+10, ERRMSG~, ERRMSG+3
Y(0	MF696+10

Customize PDF page

Package: Lab Service

Routine: LRDPAREF

Call Graph Total: 9

Caller Graph Total: 1