Routine: LRHYBC1

Package	Total	Call Graph
Lab Service	4	^LRHYU4 ^LRHYU5 IO^LRWU $$Y2K^LRX
VA Fileman	4	NOW^%DTC ^DIC ^DIE IX1^DIK
Kernel	3	^%ZISC ^%ZTLOAD $$NOW^XLFDT
Automated Lab Instruments	1	EN^LA7ADL
Registration	1	(,INP)^VADPT

Package	Total	Caller Graph
Lab Service	5	LRHY SCAN SPECIMENS INTO LAB LRHY0 LRHYAFT LRHYF2 LRHYPL

Entry Points

Name	Comments	DBIA/ICR reference
ACCNX	;
BACK
SINGLE	; ; This block calls up the testing demographics. ; LRHYD123 IS LRUID
GUY	; COLLECTOR DEMOGRAPHICS stuff this into LR...99 COMMENT FIELD.
DISPLAY	;
TIC	;
CONTROL	;
LABIN	;
SET	;
TECH	;
SETFILE	;
CHECK	;
FINDER	;
P2	;
END	;
THERE	;
ZZ1	;
PAST	;
EDIT	;
TIME	;
PTSCAN	;
BINBRD	;
D2	;
PST
D1	;

External References

Name	Field # of Occurrence
NOW^%DTC	THERE+3, THERE+16, LABIN+9
^%ZISC	D2+3
^%ZTLOAD	BINBRD+2
^DIC	FINDER+4, TECH+18, TIME+7
^DIE	SETFILE+13, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25, LABIN+13, D1+7
IX1^DIK	SETFILE+26
EN^LA7ADL	SINGLE+5
^LRHYU4	LABIN+1
^LRHYU5	SINGLE+11, DISPLAY+2
IO^LRWU	DISPLAY+4
$$Y2K^LRX	THERE+8, THERE+9, D1+9, D1+11, D1+13
^VADPT	TIME+10
INP^VADPT	TIME+10
$$NOW^XLFDT	SETFILE+19

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: Y Line Location: TECH+20
Function Call: WRITE	Prompt: !! Line Location: SINGLE+3
Function Call: WRITE	Prompt: !,"Doesn't exist." Line Location: SETFILE+1
Function Call: WRITE	Prompt: !,$S($D(^LAB(62.05,+LRURG,0)):$P(^(0),U),1:"")," " Line Location: ZZ1+11
Function Call: WRITE	Prompt: !,"Please start over..." Line Location: ZZ1+17
Function Call: WRITE	Prompt: ! Line Location: PAST+12
Function Call: WRITE	Prompt: ! Line Location: THERE+1
Function Call: WRITE	Prompt: !!! Line Location: GUY+4
Function Call: WRITE	Prompt: !!,"Please swipe PATIENT ID CARD or Type SSN: " Line Location: PTSCAN+2
Function Call: READ	Timeout: 9999999 Variable: X Line Location: PTSCAN+3
Function Call: WRITE	Prompt: ! Line Location: PTSCAN+3
Function Call: WRITE	Prompt: !,"NO SUCH PATIENT" Line Location: PTSCAN+6
Function Call: WRITE	Prompt: !,PNM Line Location: PTSCAN+8
Function Call: WRITE	Prompt: !,"WRONG PATIENT" Line Location: P2+3
Function Call: WRITE	Prompt: !,^LRO(68,LRAA,1,LRAD,1,LRAN,.2),?20,$P(^LAB(60,LRX,0),U) Line Location: P2+4
Function Call: WRITE	Prompt: !,"EVERYTHING MATCHES UP ",$P($P(^VA(200,LRHYTECH,0),U),",",2),", GREAT JOB!" Line Location: P2+5
Function Call: WRITE	Prompt: !,"Incorrect UID try again..." Line Location: LABIN+8
Function Call: WRITE	Prompt: !,"MUST ENTER UID, TRY AGAIN" Line Location: DISPLAY+2
Function Call: WRITE	Prompt: !,"NO Entry in HOWDY SPECIMEN TIMES BY UID File. Run Phlebotomy log." Line Location: D1+5
Function Call: WRITE	Prompt: !,"UID: ",LRUID Line Location: D1+8
Function Call: WRITE	Prompt: !,"WALK-UP SCAN TIME:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,2)) Line Location: D1+9
Function Call: WRITE	Prompt: !,"COLLECTOR:",?50,?50,$P(^VA(200,^LRHY(69.87,LRDA,6),0),U) Line Location: D1+10
Function Call: WRITE	Prompt: !,"TIME SPECIMEN COLLECTED:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,8)) Line Location: D1+11
Function Call: WRITE	Prompt: !,"TIME SCANNED INTO LAB:",?50,$$Y2K^LRX(^LRHY(69.87,LRDA,10)) Line Location: D1+13
Function Call: WRITE	Prompt: !,"RECEIVED INTO LAB BY: ",?50,$P(^VA(200,^LRHY(69.87,LRDA,12),0),U) Line Location: D1+14
Function Call: WRITE	Prompt: !,"PT:",PNM Line Location: D2+2
Routine Call	DIE Line Location: SETFILE+13 SETFILE+22 SETFILE+23 SETFILE+24 SETFILE+25 LABIN+13 D1+7
Routine Call	DIC Line Location: FINDER+4 TECH+18 TIME+7

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^VA(200 - [#200]	Classic Fileman Calls
^LRHY(69.87 - [#69.87]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	TIME+9, PTSCAN+8, PTSCAN+9
^DPT("SSN"	PTSCAN+7
^LAB(60 - [#60]	P2+4
^LAB(62.05 - [#62.05]	ZZ1+11
^LR - [#63]	PAST+3
^LRHY(69.86 - [#69.86]	BINBRD+2
^LRHY(69.87 - [#69.87]	SETFILE+6, SETFILE+7, SETFILE+14, SETFILE+16*, SETFILE+17, LABIN+7, D1+2, D1+6, D1+9, D1+10 , D1+11, D1+12, D1+13, D1+14
^LRO(68 - [#68]	SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+7, ZZ1+8, EDIT+1, EDIT+2, THERE+9 , TIC+1, SET+2, SET+3, P2+2, P2+3, P2+4, LABIN+5, D1+7
^LRO(69 - [#69]	SET+1*
^TMP("LRHY ASH"	CONTROL+2!, ZZ1+3*, END+1!, ACCNX+2, ACCNX+4, ACCNX+6
^VA(200 - [#200]	PST+2, GUY+2, GUY+3, P2+5, D1+10, D1+14
^XUSEC("LRLAB"	BACK, THERE+10, THERE+19, GUY+3

Label References

Name	Line Occurrences
EDIT	ZZ1+14
END	CONTROL+11, ZZ1+5, ZZ1+18
LABIN	LABIN+8, LABIN+14
P2	ACCNX+6
PST	TECH+6
PTSCAN	CONTROL+13
SINGLE	CONTROL+12, SETFILE+1, ZZ1+4, SET+6
TECH	CONTROL+10, TECH+8
THERE	BACK, BACK+1, THERE+12
TIC	THERE+19

Naked Globals

Name	Field # of Occurrence
^(0	ZZ1+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	THERE+16, LABIN+9
%DT	THERE+2!, THERE+4*
%DT("A"	THERE+5*
%DT("B"	THERE+10*
DA	SETFILE+7, SETFILE+8, SETFILE+14, SETFILE+16, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25, LABIN+7, LABIN+8 , D1+7!*
>> DFN	TIME+8, TIME+9, PTSCAN+7, PTSCAN+8, PTSCAN+9
DIC	CONTROL+4!, CONTROL+5!, CONTROL+6!, CONTROL+7!, FINDER+1, TECH+1!, TECH+2!, TECH+8!, TECH+13!, TECH+14! , TECH+16, TIME+5*
DIC("A"	FINDER+3*
DIC(0	FINDER+2, TECH+17, TIME+6*
DIE	CONTROL+5!, CONTROL+7!, TECH+2!, SETFILE+10, SETFILE+12, SETFILE+22!, SETFILE+23!, SETFILE+24!, SETFILE+25!, SETFILE+26 , LABIN+10!, LABIN+11, D1+7*
>> DIK	SETFILE+12, SETFILE+26
DIR	CONTROL+5!, CONTROL+7!, TECH+2!
DR	SETFILE+11, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25, LABIN+12, D1+7!*
>> DTOUT	THERE+13
>> DUOUT	THERE+13
DUZ	TECH+6, PST, BACK, THERE+10, THERE+19, LABIN+12
IO	D2+1
LR0NODE	SINGLE+9!
LRAA	SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2!, EDIT+1 , EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+1, ACCNX+2, ACCNX+4, ACCNX+6 , P2+2, P2+3, P2+4, LABIN+5, D1+7
>> LRAAX5	TIC+4*
>> LRACC	SINGLE+4*
LRAD	SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2!, EDIT+1 , EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+3, ACCNX+4, ACCNX+6, P2+2 , P2+3, P2+4, LABIN+5, D1+7
>> LRADX6	TIC+4*
LRAN	SINGLE+12, SETFILE+1, SETFILE+3, SETFILE+4, SETFILE+20, SETFILE+21, ZZ1+3, ZZ1+7, ZZ1+8, END+2! , EDIT+1, EDIT+2, THERE+9, TIC+1, TIC+4, SET+2, SET+3, ACCNX+5, ACCNX+6, P2+2 , P2+3, P2+4, LABIN+3, LABIN+5, DISPLAY+2, D1+7
>> LRANX6	TIC+4*
LRARIVE	CONTROL+5!, CONTROL+7!, TECH+2!, END+2!, PAST+9!, TIC+1*, TIC+2
>> LRBBRD	BINBRD+2*
LRBLOOD	END+2!
LRCE	END+2!
>> LRDA	D1+2*, D1+5, D1+6, D1+7, D1+9, D1+10, D1+11, D1+12, D1+13, D1+14
LRDAT	END+2!, SET+1
LRDFN	TIME+9, END+2!, EDIT+1, PAST+3, PTSCAN+9*, P2+3
LRDLA	END+3!
LRDLC	END+3!
LRDPF	END+3!
LRDRAW	CONTROL+5!, CONTROL+7!, TECH+2!, END+3!, THERE+16*, SET+1, SET+2, SET+3
>> LRDRAW7	THERE+8, THERE+9, THERE+10
LRDT	SETFILE+18~, SETFILE+19*, SETFILE+23, SETFILE+25
LRDT0	END+3!
LRDTO	END+3!
LREND	CONTROL+9, TIME+4, ZZ1+17!, THERE+13*
LRHN0	SINGLE+9!
LRHNODE	SINGLE+9!
LRHYD123	SINGLE+5, SINGLE+7!, SETFILE+4*, SETFILE+6, SETFILE+9, SETFILE+15
LRHYDUZ	CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, TECH+14!, PST+1, PST+2, END+3!, PAST+1!, TIC+5*
LRHYNISH	END+3!, GUY+2*
LRHYTECH	CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, TECH+14!, PST+1*, SETFILE+24, END+4!, GUY+2, GUY+3 , TIC+5, P2+5
LRIDT	END+2!, EDIT+2*, PAST+3
LRIDTNEW	ZZ1+17!
LRLABIN	LABIN+9!*, LABIN+12
>> LRLABTIM	SETFILE+20*
LRN0	SINGLE+9!
>> LRORDT1	SETFILE+3*
LRPHLEB	CONTROL+4!, CONTROL+6!, TECH+1!, TECH+8!, PST+1*, SINGLE+9!
LRPL	CONTROL+8*, CONTROL+15!
LRPON	GUY+1!, GUY+3*
LRPRAC	END+3!
LRPTARIV	CONTROL+1!, CONTROL+16!, TIC+2*
LRRECV	TECH+8!
LRRECVR	CONTROL+4!, TECH+1!, PST+1*
LRSCAN	CONTROL+3!, SETFILE+18~, SETFILE+21*, SETFILE+22
LRSN	END+4!, SET+1
>> LRSPIEN	SETFILE+17*, SETFILE+22, SETFILE+23, SETFILE+24, SETFILE+25
>> LRSS	PAST+3, PAST+4
LRTEST	ZZ1+7*, ZZ1+8, END+4!
>> LRUID	SETFILE+15, SETFILE+17, LABIN+6, LABIN+7, DISPLAY+3, D1+1, D1+2, D1+8
>> LRUNC	SETFILE+2*
>> LRUP	THERE+14, THERE+15
LRURG	ZZ1+8*, ZZ1+11, END+4!
LRX	P2+1~, P2+2, P2+4
PNM	END+4!, PTSCAN+8*, D2+2
SSN	END+4!
U	CONTROL+11, CONTROL+14, TECH+7, TECH+22, PST+2, SETFILE+3, SETFILE+7, SETFILE+14, SETFILE+16, ZZ1+8 , ZZ1+11, EDIT+1, EDIT+2, THERE+9, GUY+2, GUY+3, TIC+1, SET+1, SET+2, SET+3 , PTSCAN+4, PTSCAN+8, P2+4, P2+5, D1+7, D1+10, D1+14
VADM	END+4!
VAIN	END+4!
>> X	CONTROL+11, CONTROL+12, CONTROL+14, TECH+4, TECH+6, TECH+7, TECH+8, TECH+22, SINGLE+10, SETFILE+9 , SETFILE+11, THERE+12, PTSCAN+3, PTSCAN+4, PTSCAN+5, PTSCAN+6, PTSCAN+7, LABIN+5, LABIN+6, DISPLAY+1* , DISPLAY+3, D1+1
>> XQY0	ZZ1+1
Y	TECH+15!, TECH+20, PST*, PST+1, TIME+8, THERE+14
>> ZTDTH	BINBRD+2*
>> ZTIO	BINBRD+2*
>> ZTQUEUED	BINBRD+2
>> ZTREQ	BINBRD+2*
>> ZTRTN	DISPLAY+4, BINBRD+1
>> ZTSAVE("PNM"	BINBRD+1*

Customize PDF page

Package: Lab Service

Routine: LRHYBC1

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: