Routine: LRHYAFT

Package	Total	Call Graph
Lab Service	8	CONTROL^LRHYBC1 SCROLOFF^LRHYBC9 ^LRHYBL1 LRBOX^LRHYLRX BCE^LRHYPH0 (SCRNOFF,SCRNON)^LRHYUTL ^LRPARAM ($$Y2K,LRGLIN,PT)^LRX
VA Fileman	3	NOW^%DTC ^DIC ^DIR
Kernel	2	(ENS,KILL)^%ZISS $$CJ^XLFSTR
Registration	1	RPCVIC^DPTLK

Package	Total	Caller Graph
Lab Service	1	LRHY PPOC LABEL PRINT

Name	Comments	DBIA/ICR reference
VET	; Primary API for Howdy! Called by [LRHY PATIENT CARD SCAN (PPOC)] option.
SL	;
NOSCAN	;
LOG	; Howdy will default to the clerks judgement when multiple orders found.
VIE	;
LOG1	; Howdy will default to the clerks judgement when multiple orders found.
PX	;
CHOOO
DEL7	;
V2	;
ORDERS	;
MICRO	;
NSCN	;
PRT1	;
QQQ	;
VET1	; Code below executes to handle Patient episode.
PICK	; ; pick the site from Howdy Site
QUITH	;
ORDCHK	; This block to be used for future version

Name	Field # of Occurrence
NOW^%DTC	LOG+7, LOG1+5
ENS^%ZISS	PX+15, PX+59
KILL^%ZISS	VET+5
^DIC	PICK+5, VET1+2, VET1+12
^DIR	PX+10, QQQ+36
RPCVIC^DPTLK	NSCN+6
CONTROL^LRHYBC1	VIE+1
SCROLOFF^LRHYBC9	V2+15, PX+11, VIE+3
^LRHYBL1	VET1+14
LRBOX^LRHYLRX	PX+32
BCE^LRHYPH0	QQQ+13, QQQ+26
SCRNOFF^LRHYUTL	QUITH+1
SCRNON^LRHYUTL	PRT1+3
^LRPARAM	V2+3
$$Y2K^LRX	PX+4, PRT1+13, PRT1+15
LRGLIN^LRX	PX+27
PT^LRX	NSCN+10, LOG+6, LOG1+4
$$CJ^XLFSTR	PRT1+10, PRT1+11

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,LRHYCT2,". ",$P(^%ZIS(1,LRDEV,0),U) Line Location: PICK+17
Function Call: READ	Timeout: DTIME Variable: X Line Location: CHOOO+0
Function Call: WRITE	Prompt: !,"Choose a label printer: " Line Location: CHOOO+0
Function Call: WRITE	Prompt: ! Line Location: CHOOO+0
Function Call: WRITE	Prompt: !,"enter the number please" Line Location: CHOOO+2
Function Call: WRITE	Prompt: ?11,$P(^%ZIS(1,LRDEV,0),U) Line Location: CHOOO+4
Function Call: WRITE	Prompt: !,"No Howdy site selected. Goodbye. " Line Location: VET1+3
Function Call: WRITE	Prompt: !,"No device selected. Goodbye. " Line Location: VET1+13
Function Call: WRITE	Prompt: @IOF Line Location: V2+8
Function Call: WRITE	Prompt: !!,"Please swipe PATIENT ID CARD or Type SSN: " Line Location: V2+11
Function Call: READ	Timeout: 9999999 Variable: X Line Location: V2+14
Function Call: WRITE	Prompt: ! Line Location: V2+14
Function Call: READ	Timeout: 15 Variable: X Line Location: NSCN+7
Function Call: WRITE	Prompt: !,"No record for this person." Line Location: NSCN+7
Function Call: WRITE	Prompt: !,"No Lab Data Available... Please check with clerk at the Desk." Line Location: NSCN+11
Function Call: WRITE	Prompt: !,"I'M DOING THE BEST I CAN" Line Location: NSCN+15
Function Call: WRITE	Prompt: @IOF Line Location: PX+3
Function Call: WRITE	Prompt: !,PNM,?40,SSN," ",$$Y2K^LRX(DOB) Line Location: PX+4
Function Call: WRITE	Prompt: !,$P(LRADD,U),?35," ",$P(LRADD,U,4)," ",$P(^DIC(5,$P(LRADD,U,5),0),U) Line Location: PX+6
Function Call: WRITE	Prompt: " Ph#:",$G(LRPHONE) Line Location: PX+7
Function Call: WRITE	Prompt: @IOF Line Location: PX+11
Function Call: WRITE	Prompt: !!,"PT CONFIRMATION FAILED..." Line Location: PX+12
Function Call: WRITE	Prompt: @IOF Line Location: PX+14
Function Call: WRITE	Prompt: 27,91,*109 Line Location: PX+16
Function Call: WRITE	Prompt: 27,91,45,*109 Line Location: PX+16
Function Call: WRITE	Prompt: IODHLT," ",PNM Line Location: PX+17
Function Call: WRITE	Prompt: ! Line Location: PX+18
Function Call: WRITE	Prompt: IODHLB," ",PNM Line Location: PX+19
Function Call: WRITE	Prompt: ! Line Location: PX+20
Function Call: WRITE	Prompt: ! Line Location: PX+21
Function Call: WRITE	Prompt: IODHLT," ",SSN Line Location: PX+22
Function Call: WRITE	Prompt: ! Line Location: PX+23
Function Call: WRITE	Prompt: IODHLB," ",SSN Line Location: PX+24
Function Call: WRITE	Prompt: *27,"[",40,";",37,"m",! Line Location: PX+25
Function Call: WRITE	Prompt: ! Line Location: PX+26
Function Call: WRITE	Prompt: ! Line Location: PX+27
Function Call: WRITE	Prompt: ! Line Location: PX+27
Function Call: WRITE	Prompt: !,"NOTHING TO PRINT ON ",PNM Line Location: PX+31
Function Call: WRITE	Prompt: !,"UID < 10 CHRS. ACCESSION MANUALLY" Line Location: PX+34
Function Call: WRITE	Prompt: !,CNT,") ",$P(LRLBL(LRX,LRY),U,6) Line Location: PX+48
Function Call: WRITE	Prompt: ?21,$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3) Line Location: PX+50
Function Call: WRITE	Prompt: LR3UID Line Location: PX+55
Function Call: WRITE	Prompt: !! Line Location: PX+57
Function Call: WRITE	Prompt: !! Line Location: PX+58
Function Call: WRITE	Prompt: @IOSTBM Line Location: PX+61
Function Call: WRITE	Prompt: !! Line Location: PX+62
Function Call: WRITE	Prompt: ! Line Location: PX+64
Function Call: WRITE	Prompt: !!," Proceed with COLLECTION:" Line Location: PX+67
Function Call: WRITE	Prompt: *7 Line Location: PX+67
Function Call: WRITE	Prompt: !! Line Location: PX+68
Function Call: WRITE	Prompt: !,"Select specimen(s) you actually collected to print corresponding labels:" Line Location: PX+69
Function Call: READ	Timeout: DTIME Variable: LRS Line Location: SL+1
Function Call: WRITE	Prompt: ! Line Location: SL+1
Function Call: WRITE	Prompt: !,"OUT OF RANGE" Line Location: QQQ+1
Function Call: WRITE	Prompt: !,"You may enter 1 OR 2 OR 1,2,3,etc NO DASHES(-) PLEASE " Line Location: QQQ+3
Function Call: WRITE	Prompt: !,"Sending to print: ",$P($G(^LRO(68,LRX,1,LRAD,1,LRY,.3)),U)," ",$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3) Line Location: QQQ+8
Function Call: WRITE	Prompt: !,"DASHES ARE NOT PERMITTED. ENTER 1,2,3 ETC" Line Location: QQQ+15
Function Call: WRITE	Prompt: !,"OUT OF RANGE. TRY AGAIN" Line Location: QQQ+16
Function Call: WRITE	Prompt: !,"Sending to print: ",$P($G(^LRO(68,LRX,1,LRAD,1,LRY,.3)),U)," ",$P(^LAB(62,$P(^LRO(68,LRX,1,LRAD,1,LRY,5,1,0),U,2),0),U,3) Line Location: QQQ+21
Function Call: WRITE	Prompt: !,"REMOVING ",LR3UID Line Location: QQQ+25
Function Call: WRITE	Prompt: !,"Use Lab option > Accessioning Menu: Delete test from an accession [LRTSTOUT]" Line Location: QQQ+38
Function Call: WRITE	Prompt: @IOF Line Location: VIE+2
Function Call: WRITE	Prompt: @IOF Line Location: PRT1+2
Function Call: WRITE	Prompt: ! Line Location: PRT1+5
Function Call: WRITE	Prompt: IODHLT," ",PNMALL Line Location: PRT1+6
Function Call: WRITE	Prompt: ! Line Location: PRT1+7
Function Call: WRITE	Prompt: IODHLB," ",PNMALL Line Location: PRT1+8
Function Call: WRITE	Prompt: ! Line Location: PRT1+9
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($G(^LRHY(69.86,LRHYSITE,40)),IOM) Line Location: PRT1+10
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($G(^LRHY(69.86,LRHYSITE,44)),IOM) Line Location: PRT1+11
Function Call: WRITE	Prompt: ! Line Location: PRT1+12
Function Call: WRITE	Prompt: IODHLT," Orders for date: "_$$Y2K^LRX(DT) Line Location: PRT1+13
Function Call: WRITE	Prompt: ! Line Location: PRT1+14
Function Call: WRITE	Prompt: IODHLB," Orders for date: "_$$Y2K^LRX(DT) Line Location: PRT1+15
Function Call: WRITE	Prompt: ! Line Location: PRT1+16
Function Call: WRITE	Prompt: *7 Line Location: PRT1+18
Function Call: WRITE	Prompt: *7 Line Location: PRT1+18
Function Call: WRITE	Prompt: *7 Line Location: PRT1+18
Function Call: WRITE	Prompt: !,"NO ORDERS" Line Location: LOG+3
Function Call: WRITE	Prompt: !,"MULTIPLE ORDERS" Line Location: LOG1+2
Routine Call	DIC Line Location: PICK+5 VET1+2 VET1+12
Routine Call	DIR Line Location: PX+10 QQQ+36

FileNo	Call Tags
^%ZIS(2 - [#3.2]	Classic Fileman Calls
^%ZIS(1 - [#3.5]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZIS(1 - [#3.5]	PICK+17, CHOOO+4
^DIC(5 - [#5]	PX+6
^DPT - [#2]	NSCN+8, PX+2, PX+5, PX+7
^LAB(62 - [#62]	PX+50, QQQ+8, QQQ+21
^LR - [#63]	LOG+9, LOG1+6
^LRHY(69.86 - [#69.86]	PICK+12, PICK+16, PRT1+10, PRT1+11
^LRO(68 - [#68]	PX+37, PX+40, PX+41, PX+50, PX+55, QQQ+6, QQQ+7, QQQ+8, QQQ+9, QQQ+12 , QQQ+19, QQQ+20, QQQ+21, QQQ+22, QQQ+23, MICRO+3, MICRO+6, MICRO+7
^TMP("LRHYDY"	NSCN+12!, LOG+8, LOG+9, LOG1+6*
^XTMP("LRHY LABELS"	PX+30, PX+33, PX+35, QQQ+14!, QQQ+28!, QQQ+30, MICRO+1

Name	Line Occurrences
CHOOO	CHOOO+2
DEL7	QQQ+38
LOG	NSCN+11
MICRO	PX+38
PICK	VET1+16
PX	QQQ+1, QQQ+3, QQQ+15, QQQ+16, QQQ+37
QQQ	SL+1
V2	VET1+5
VET	NSCN+7, NSCN+11, QUITH+14
VIE	QQQ+30

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	LOG+8, LOG+9, LOG1+6
>> CNT	PX+29, PX+44, PX+45, PX+48, QQQ+4
DFN	NSCN+1!, NSCN+6, NSCN+7, NSCN+8, PX+2, PX+5, PX+7, LOG+8
DIC	PICK+4, PICK+8!, PICK+14!, CHOOO+5!, VET1+1!, VET1+2, VET1+7, VET1+9, VET1+10*
DIC("A"	VET1+6*
DIC(0	PICK+3, PICK+15, VET1+2, VET1+8, VET1+11*
DIR	QQQ+31!
DIR("A"	PX+9, QQQ+32
DIR("B"	PX+9, QQQ+35
DIR(0	PX+9, QQQ+34
>> DOB	PX+4
DT	V2+7, PX+30, PX+49, QQQ+5, QQQ+6, QQQ+7, QQQ+18, QQQ+19, QQQ+20, PRT1+13 , PRT1+15
DTIME	CHOOO, SL+1
>> DX	PX+55, PX+65, PX+66*
>> DY	PX+53, PX+54, PX+55, PX+65, PX+66*
>> I	QQQ+1, QQQ+4, QQQ+10, QQQ+11, QQQ+17*
>> IOBM	PX+59*
>> IODHLB	PX+19, PX+24, PRT1+8, PRT1+15
>> IODHLT	PX+17, PX+22, PRT1+6, PRT1+13
IOF	V2+8, PX+3, PX+11, PX+14, VIE+2, PRT1+2
IOM	PRT1+10, PRT1+11
>> IOSTBM	PX+61
>> IOTM	PX+59*
>> IOXY	PX+55, PX+65, PX+66
>> LABCNT(	PX+44*, QQQ+1, QQQ+11, QQQ+24
LR3CNT	VET+2!, VET+3
LR3DTIME	VET+11~, QUITH+6!
LR3DTN	VET+11~, QUITH+6!
LR3SN	VET+12~, QUITH+7!
LR3UID	PX+13, PX+33, PX+34, PX+35, PX+37, PX+40, PX+41, PX+55!, QQQ+12, QQQ+14 , QQQ+22*, QQQ+25, QQQ+28, MICRO+1, MICRO+7
LR3UIDM	VET+1!, MICRO+6*
LR3X	VET+15~, QUITH+10!
>> LR68	MICRO+3*
LRAA	VET+4~, V2+2!, MICRO+3*, MICRO+6, QUITH+2!
LRAAX5	VET+1!
LRACC	VET+8~, QUITH+3!
>> LRACCXX	MICRO+2*, MICRO+3, MICRO+4
>> LRACNODE	MICRO+1*, MICRO+2, MICRO+5
LRAD	VET+4~, V2+2!, PX+47, PX+49, PX+50, PX+55, QQQ+5, QQQ+6, QQQ+7, QQQ+8 , QQQ+9, QQQ+12, QQQ+18, QQQ+19, QQQ+20, QQQ+21, QQQ+22, QQQ+23, MICRO+5, MICRO+6 , QUITH+2!
>> LRADD	PX+5*, PX+6
LRADX6	VET+1!
LRAHEAD	VET+14~, QUITH+9!
LRAN	VET+4~, V2+2!, MICRO+4*, MICRO+6, QUITH+2!
LRAN6	VET+1!
>> LRC	PX+55*
LRCDT	VET+8~, QUITH+3!
LRCHK	VET+14~, QUITH+9!
LRCOL99	VET+14~, QUITH+9!
LRDEV	PICK+13, PICK+16, PICK+17, PICK+18, CHOOO+3, CHOOO+4, VET1+3!, VET1+5, VET1+12, VET1+13! , VET1+16
LRDFN	VET+4~, V2+2!, NSCN+1!, NSCN+8, NSCN+10, NSCN+11, NSCN+12, PX+2, PX+30, PX+33 , PX+35, QQQ+14, QQQ+28, QQQ+30, MICRO+1, QUITH+2!, LOG+8, LOG+9, LOG1+6
LRDPA	NSCN+1!
LRDPF	VET+8~, NSCN+1!, QUITH+3!, LOG+5!, LOG1+3!
LRDT0	VET+12~, VET+15~, QUITH+7!, QUITH+10!
LRDUPT	VET+15~, QUITH+10!
LREAL	VET+12~, QUITH+7!
>> LREND	PICK+2, PICK+6, CHOOO+1*, VET1+16
LRFUTURE	VET+12~, QUITH+7!
LRGOTIT	VET+12~, QUITH+7!
LRHOWDY	VET+12~, V2+4*, QUITH+7!
LRHT1	VET+15~, QUITH+10!
LRHYCT	VET+14~, V2+5*, NSCN+1!, QUITH+2!, QUITH+9!
LRHYCT2	PICK+15, PICK+17, PICK+18, CHOOO+6!
LRHYFIX	VET+9~, QUITH+4!
LRHYHOK	VET+12~, QUITH+7!
LRHYOK	VET+14~, QUITH+9!
LRHYSITE	PICK+7, PICK+12, PICK+16, VET1+2, VET1+3!, VET1+13!, PRT1+10, PRT1+11
LRI	VET+8~, QUITH+3!
LRIDT	VET+4~, V2+2!, QUITH+2!
LRIENZZ	VET+12~, QUITH+7!
LRINFW	VET+1!
LRIX	VET+15~, QUITH+10!
LRLABLIO	VET1+3!, VET1+12, VET1+13!, VET1+15
LRLABNO	PX+35!
>> LRLABNOD	PX+35*, PX+43
>> LRLABSTP	VET1+15
LRLABTIM	PX+30!*, PX+31, PX+33, PX+35, QQQ+14, QQQ+27, QQQ+28, QQQ+30, MICRO+1
LRLBL	QQQ+2!
LRLBL(	PX+43, PX+44, PX+48, PX+55, QQQ+11, QQQ+24*
LRLBLBP	VET+13~, QUITH+8!
LRLLOC	VET+8~, QUITH+3!
LRLLOC66	VET+13~, QUITH+8!
LRMAX2	VET+13~, QUITH+8!
LRNLT	VET+13~, QUITH+8!
LRNODUP	VET+8~, VET+13~, QUITH+3!, QUITH+8!
LRNONE	VET+13~, QUITH+8!
LRNOTST	VET+13~, QUITH+8!
LRNOW	VET+7!
LRNPZZX	VET+8~, VET+13~, QUITH+3!, QUITH+8!
LRODT	VET+13~, V2+7*, QUITH+8!
LRODT0	VET+14~, QUITH+9!
LROLLOC	VET+15~, QUITH+10!
LRORD	QQQ+9, QQQ+11, QQQ+23, QQQ+24, LOG1+1!
LRORD24	VET+14~, QUITH+9!
LRORD3	VET+9~, QUITH+4!
LRORU3	VET+14~, QUITH+9!
LRPAST	VET+14~, QUITH+9!
>> LRPHONE	PX+7*
LRPIX	VET+14~, QUITH+9!
LRPLICK	VET+9~, QUITH+4!
LRPR	VET+9~, QUITH+4!
LRPRAC	VET+9~, QUITH+4!
LRPREF	VET+1!
LRQUIET	VET+9~, QUITH+4!
LRRB	VET+9~, QUITH+4!
>> LRS	SL+1*, QQQ+1, QQQ+3, QQQ+4, QQQ+15, QQQ+16, QQQ+17, QQQ+24
>> LRS3333	QQQ+1*
LRSAMP	VET+9~, QUITH+4!
LRSCAN	VET+6!, QQQ+27*
LRSKIPNO	LOG+1, LOG1+7!*
LRSN	VET+4~, V2+2!, QUITH+2!
LRSND	VET+9~, QUITH+4!
LRSS	VET+10~, QUITH+5!
LRST	VET+10~, QUITH+5!
LRSTATUS	VET+10~, QUITH+5!
LRSUB1	VET+10~, QUITH+5!
LRTIC	VET+10~, QUITH+5!
LRTIM	VET+10~, QUITH+5!
LRTN	VET+10~, QUITH+5!
LRTOP	VET+1!
LRTREA	VET+10~, QUITH+5!
LRTS	VET+10~, QUITH+5!
LRTSORU	VET+10~, QUITH+5!
LRTST6	VET+11~, QUITH+6!
LRTSTZ99	VET+8~, QUITH+3!
LRTT	VET+11~, QUITH+6!
LRUN	VET+11~, QUITH+6!
LRWLC	VET+11~, QUITH+6!
LRWLO	VET+11~, QUITH+6!
LRWRD	VET+11~, QUITH+6!
LRX	VET+15~, PX+1~, PX+28, PX+37, PX+38, PX+39, PX+40, PX+41, PX+43, PX+44 , PX+45, PX+48, PX+50, PX+51, PX+52, PX+55, QQQ+4, QQQ+6, QQQ+7, QQQ+8 , QQQ+9, QQQ+11, QQQ+12, QQQ+17, QQQ+19, QQQ+20, QQQ+21, QQQ+22, QQQ+23, QQQ+24 , MICRO+7, QUITH+10!
LRX(	PICK+18*, CHOOO+3
LRXCNT	VET+7!
LRXCNT(	PX+45*, QQQ+4, QQQ+10, QQQ+11, QQQ+16, QQQ+17, QQQ+24
LRXL	VET+1!
>> LRXX	QQQ+4*
LRXYZ	VET+11~, PRT1+17*, QUITH+6!
LRY	PX+1~, PX+36, PX+41, PX+43, PX+44, PX+45, PX+48, PX+50, QQQ+4, QQQ+8 , QQQ+9, QQQ+12, QQQ+17, QQQ+21, QQQ+22, QQQ+23
>> LRY1	PX+40*, PX+41, PX+47
PNM	VET+4~, V2+2!, NSCN+1!, PX+4, PX+17, PX+19, PX+31, PRT1+4, QUITH+2!, LOG+5! , LOG+9, LOG1+3!, LOG1+6
PNMALL	PRT1+4!*, PRT1+6, PRT1+8
SSN	VET+4~, V2+2!, PX+4, PX+22, PX+24, QUITH+2!, LOG+9, LOG1+6
U	PICK+17, CHOOO+1, CHOOO+4, V2+15, PX+6, PX+7, PX+11, PX+45, PX+48, PX+50 , PX+55, QQQ+4, QQQ+6, QQQ+7, QQQ+8, QQQ+10, QQQ+11, QQQ+12, QQQ+17, QQQ+19 , QQQ+20, QQQ+21, QQQ+22, QQQ+24, QQQ+36, MICRO+2, MICRO+5, LOG+9, LOG1+6
VAIN	QUITH+11!
X	CHOOO, CHOOO+1, CHOOO+2, CHOOO+3, V2+9!, V2+14, V2+15, NSCN+6, NSCN+7, NSCN+11! , PX+46, QQQ+36
XX	VET+1!
Y	PICK+6, PICK+7, PICK+15!, VET1+2, VET1+12, VET1+13, PX+11, PX+46*, QQQ+37, QQQ+38
Y(0	PX+12
ZTDESC	VET+1!
ZTDTH	VET+1!
ZTIO	VET+1!
ZTRTN	VET+1!
ZTSAVE	VET+1!

Customize PDF page

Package: Lab Service

Routine: LRHYAFT

Information

Source Information

Call Graph

Call Graph Total: 14

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: