Routine: BLRAG05D

Call Graph

Call Graph Total: 25

Package	Total	Call Graph
Lab Service	9	NEW^LR7OB1 STOP^LRCAPV LROE^LRFAST LRSPEC^LROE1 (,LROEND)^LRORDK DT^LRORDST CHECK^LROW2 P15A^LRPHITEM PT^LRX
IHS Changes To Lab	7	^BLRAG05A ^BLRAG05B UNL69ERR^BLRAG05D ERR^BLRAGUT $$SETUP^BLRAGUT1 SHIPMAN^BLRRLEVN FORCEIT^BLRUTIL7
Kernel	5	^%ZIS ^%ZISC ($$EC,$$LGR)^%ZOSV ^%ZTLOAD ($$FR,$$HTFM,$$NOW)^XLFDT
VA Fileman	3	^%DT NOW^%DTC (,FILE)^DIE
Automated Lab Instruments	1	EN^LA7ADL

Package	Total	Caller Graph
IHS Changes To Lab	3	BLRAG05 BLRAG05A BLRAG05D

Package

Total

Caller Graph

IHS Changes To Lab

BLRAG05 BLRAG05A BLRAG05D

Entry Points

Name	Comments	DBIA/ICR reference
TASK	;
END
GOT(ORD,ODT)	;See if all tests have been canceled
YN	;
Q16A	;I $D(LRLONG),$D(LRSND) S LRSN=LRSND,^TMP("LROE",$J,"LRORD")=LRORD_U_LRODT_U_LRTIM_U_PNM_U_SSN
P15A	;from LROE1, LRPHEXPT (P15^LRPHITEM)
PTCS(BLRDT,BLRSPN,BLRUSER,BLRDTCF,BLRMETH)	; ; BLRDT = (required) order date in external format - pointer to LAB ORDER ENTRY file 69 ; BLRSPN = (required) specimen number - pointer to specimen multiple in LAB ORDER ENTRY file 69 ; BLRUSER = (required) user that did confirmation - pointer to NEW PERSON file 200 ; BLRDTCF = (optional) Date/Time of user confirmation in external format - defaults to 'today' ; BLRMETH = (optional) method of confirmation - free text
Q15	; (^LROE2)
LROE2	;
Q17	;S I=$O(^LRO(69,LRODT,1,LRSN,6,0)),J=$O(^(1)) S:'$D(IOM) IOM=80 K LRSPCDSC S:J LRSPCDSC=^(J,0) S:I DA=LRSN,DA(1)=LRODT,DR=6,DIC="^LRO(69,"_LRODT_",1," D EN^DIQ:I D LRSPEC^LROE1
Q16
P15	;from LRVER,LRVR,LRGV (P15^LROE1)
ERROR	; EP ; D ENTRYAUD^BLRUTIL("ERROR^BLRAG05D 0.0") ; Store Error data ; NEW ERRORMSG ; S ERRORMSG="$"_"Z"_"E=""ERROR^BLRAG05D""" ; BYPASS SAC Checker ; S @ERRORMSG D ^%ZTER
OLD	;to allow unchanged routines to still work, from LROE1, LRPHSET1 (OLD^LRORDST)
PH
BLRRL	;EP - cmi/anch/maw 8/4/2004 added to check for shipping manifest and print
ERR(BLRERR)	;Error processing ; BLRERR = Error text OR error code ; BLRAGI = pointer into return global array
UNL69	;
UNL69ERR	;

External References

Name	Field # of Occurrence
^%DT	PTCS+11
NOW^%DTC	OLD+2
^%ZIS	TASK+2
^%ZISC	TASK+4, TASK+10
$$EC^%ZOSV	ERROR+10
$$LGR^%ZOSV	ERROR+11
^%ZTLOAD	TASK+8
^BLRAG05A	OLD+4
^BLRAG05B	OLD+6
UNL69ERR^BLRAG05D	ERR+4
ERR^BLRAGUT	PTCS+20
$$SETUP^BLRAGUT1	P15A+23
SHIPMAN^BLRRLEVN	BLRRL+15
FORCEIT^BLRUTIL7	ERROR+12
^DIE	Q15+5
FILE^DIE	PTCS+19
EN^LA7ADL	P15A+38
NEW^LR7OB1	P15A+34
STOP^LRCAPV	TASK+11, END+1
LROE^LRFAST	Q16A+6
LRSPEC^LROE1	Q17+1
^LRORDK	END+1
LROEND^LRORDK	END+1
DT^LRORDST	OLD+2
CHECK^LROW2	Q16
P15A^LRPHITEM	P15A+25
PT^LRX	LROE2+11, P15A+8
$$FR^XLFDT	PTCS+13
$$HTFM^XLFDT	PTCS+8, PTCS+13
$$NOW^XLFDT	P15A+12, Q15+8

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,PNM,?30,SSN Line Location: LROE2+5
Function Call: WRITE	Prompt: !,"Date/Time Ordered: ",Y,?45,"By: ",$S($D(^VA(200,+$P(LRZX,U,2),0)):$P(^(0),U),1:"") Line Location: LROE2+15
Function Call: WRITE	Prompt: !,$P(^LAB(60,+^(E,0),0),"^") Line Location: P15+2
Routine Call	DIE Line Location: Q15+5
Routine Call	DIE Line Location: PTCS+19
Routine Call	%ZIS Line Location: TASK+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^BLRRLO - [#9009026.3]	BLRRL+12
^BLRRLO("B"	BLRRL+9, BLRRL+11
^BLRSITE - [#9009029]	BLRRL+6, BLRRL+7
^LAB(69.9 - [#69.9]	TASK+1
^LR - [#63]	LROE2+10, Q15+9
^LRO(68 - [#68]	P15A+22, P15A+27, P15A+28, P15A+29*
^LRO(69 - [#69]	LROE2+1, LROE2+4, LROE2+8, GOT+3, GOT+4, GOT+5, GOT+6, UNL69+1, UNL69ERR+1, P15+7* , P15+8, P15+9, P15+10, P15+13, P15+14, P15+16, P15+17, P15A+4, P15A+15, P15A+17 , P15A+19, P15A+20, P15A+21, Q15+1, Q15+3, Q15+5, Q15+9, Q17+1, Q17+4, OLD+9 , OLD+11, OLD+12*, PTCS+20
^TMP("BLRAG"	ERR+7, ERR+9
^TMP("LR"	Q17+2!
^TMP("LROE"	Q16A+1*, Q16A+6

Name	Line Occurrences
ERR	ERROR+13
OLD	Q17+2
P15	OLD+9
P15A	P15+13, OLD+11
PTCS	Q15+8
Q16	PH
Q17	Q16A+4

Name	Field # of Occurrence
^(	GOT+6
^(0	LROE2+10, GOT+6, P15+13, P15A+4, OLD+11
^(1	LROE2+1, P15+13, P15A+4, OLD+11

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	OLD+3
>> %DT	PTCS+11*
>> BLRAGI	ERR+6, ERR+7, ERR+8, ERR+9
BLRASFLG	BLRRL+4!, BLRRL+16!
>> BLRCDT	P15+5, P15A+22
>> BLRCUSR	P15+9, P15+16, P15A+15, Q15+5, OLD+12
BLRDT	PTCS~, PTCS+16, PTCS+17, PTCS+18, PTCS+20
BLRDTCF	PTCS~, PTCS+8, PTCS+11, PTCS+13*, PTCS+17
BLRDXS	BLRRL+3!, BLRRL+16!
>> BLREF	Q15+4, Q15+6, Q16
BLRERR	ERR~, ERR+5*, ERR+7
>> BLRGUI	BLRRL+5
BLRINS	BLRRL+3!, BLRRL+16!
BLRM	PTCS+14!, PTCS+15*
BLRM("DIERR"	PTCS+20
BLRMETH	PTCS~, PTCS+18
>> BLRPTCM	Q15+8
>> BLRPTCU	Q15+8
>> BLRRET	Q15+4, Q16
>> BLRRLCLA	P15A+24, P15A+26*
BLRSETUP	P15A+2~, P15A+23*
BLRSPN	PTCS~, PTCS+16, PTCS+17, PTCS+18, PTCS+20
>> BLRUNC	Q15+4, Q15+5
BLRUSER	PTCS~, PTCS+16
COMB	P15+1~, P15+14, P15+16, OLD+12~
CONTROL	P15A+32~, P15A+33*, P15A+34
>> DA	LROE2+1, LROE2+3, Q15+5, Q15+9, Q17+1, OLD+9
>> DA(1	Q15+5, Q17+1
>> DFN	LROE2+10*
>> DIC	Q17+1*
>> DIE	Q15+5*
DIR	END!
DIRUT	END!
DR	Q15+5, Q16A+2!, Q17+1
DT	Q15+9
DUZ(2	TASK+1, P15+16, Q17+4, OLD+12, BLRRL+6, BLRRL+7
ERRCODE	ERROR+9~, ERROR+10*, ERROR+13
>> ERRLGLO	ERROR+11*
ERRSCFL	ERROR+9~
>> FDA(	PTCS+16, PTCS+17, PTCS+18*
GOT	END!, GOT+2, GOT+4, GOT+6, GOT+7
>> HRCN	Q16A+1, Q16A+6*
I	GOT+1~, GOT+6, Q17+1
IOM	TASK+3, Q17+1*
ION	TASK+3
>> IOP	TASK+1*
IOSL	TASK+3
IOST	TASK+3
>> J	Q16, Q17+1
>> J1	P15A+4*
LASTGLOR	ERROR+9~
>> LRAA	P15A+18, P15A+21, P15A+22, P15A+27, P15A+28, P15A+29
>> LRAD	P15A+18, P15A+21, P15A+22, P15A+27, P15A+28, P15A+29
>> LRAN	P15A+18, P15A+21, P15A+22, P15A+27, P15A+28, P15A+29
LRCCOM	TASK+11!
>> LRCDT	P15+5, P15+6, P15+10, P15+13, OLD+9, OLD+11
>> LRCHK	LROE2+1*
LRCOM	TASK+11!
>> LRDFN	LROE2+9, LROE2+10, P15A+5, Q15+9*
LRDPF	LROE2+10, P15A+5!, P15A+31, Q15+9
>> LRLABLIO	TASK+3*, TASK+6, TASK+7
LRLBL	TASK+6, TASK+9!
>> LRLLOC	P15+13, P15A+17, OLD+11
>> LRLONG	Q16A+1, Q16A+6*
>> LRNOLABL	OLD+4
>> LRNONE	LROE2+1*
LRNT	P15+6, P15+10, P15+13, P15A+12, P15A+17, P15A+28, P15A+29, OLD+1~, OLD+3, OLD+11
>> LRODT	LROE2+1, LROE2+4, LROE2+8, P15+7, P15+8, P15+9, P15+10, P15+13, P15+14, P15+16 , P15+17, P15A+4, P15A+15, P15A+17, P15A+19, P15A+20, P15A+21, P15A+34, Q15+1, Q15+3 , Q15+5, Q15+8, Q15+9, Q16A+1, Q16A+6*, Q17+1, Q17+4, OLD+9, OLD+11, OLD+12
>> LROLLOC	P15+13, P15A+9, OLD+11*
>> LRORD	UNL69+1, UNL69ERR+1, PH, Q16A+1, Q16A+6*, BLRRL+9, BLRRL+11, BLRRL+15
LRORIFN	P15A+1~, P15A+11, P15A+21, P15A+33
>> LRPARAM	OLD+4
>> LRQUIET	OLD+5*
LRRB	P15A+7~
LRSN	LROE2+2!, LROE2+3, LROE2+4, LROE2+8, P15+7, P15+8, P15+9, P15+10, P15+13, P15+14 , P15+16, P15+17, P15A+4, P15A+15, P15A+17, P15A+19, P15A+20, P15A+21, P15A+34, Q15+1 , Q15+3, Q15+5, Q15+8, Q15+9, Q16A+1, Q16A+4, Q16A+6, Q17+1, Q17+4, OLD+9 , OLD+11, OLD+12
LRSN(	LROE2+3*, Q16A+4
>> LRSND	Q16A+1, Q16A+6, OLD+11, OLD+12
LRSPCDSC	TASK+11!, Q17+1!*
>> LRSTATUS	P15+16, P15+17, OLD+9*, OLD+12
LRTCOM	TASK+11!
>> LRTIM	P15+6, P15+7, P15+8, P15+10, P15+13, P15+16, Q15+5, Q16A+1, Q16A+6*, OLD+11 , OLD+12
>> LRTJ	OLD+4
>> LRTN	P15A+18, P15A+19, P15A+20, P15A+21
>> LRTREA	P15A+10*
>> LRTSTS	Q16A+2*
LRUIDA	P15A+1~
LRUIDA(	P15A+38
>> LRUN	P15+6, P15+10, P15+16, OLD+12
>> LRWRD	LROE2+13
>> LRWRDS	LROE2+13*
LRX	P15A+36~, P15A+37, P15A+38
LRX712	P15A+1~, P15A+4*, P15A+5, P15A+9, P15A+11
>> LRZX	LROE2+8*, LROE2+9
>> M9	LROE2+7*
MSCLRSN	Q16A+3~, Q16A+4*
>> MSCRLCLA	P15A+24*, P15A+26
ODT	GOT~, GOT+1~, GOT+2, GOT+3, GOT+4, GOT+5, GOT+6
OI	BLRRL+10~, BLRRL+11*, BLRRL+12
ORD	GOT~, GOT+3, GOT+4
>> PNM	Q16A+1, Q16A+6*
SN	GOT+1~, GOT+2, GOT+4, GOT+5, GOT+6
>> SSN	Q16A+6*
U	LROE2+1, LROE2+10, TASK+1, P15+7, P15+8, P15+9, P15+10, P15+13, P15A+4, P15A+9 , P15A+11, P15A+15, P15A+17, P15A+21, P15A+22, P15A+28, Q15+9, Q16A+1, Q17+4, OLD+4 , OLD+11, BLRRL+7, ERR+7
>> VAIN(3	P15A+10
>> X	P15A+21, Q16A+6, PTCS+11*
>> Y	PTCS+11
>> ZTDESC	TASK+7*
>> ZTDTH	TASK+7*
>> ZTIO	TASK+7*
>> ZTRTN	TASK+7*
>> ZTSAVE("LRLBL("	TASK+7*

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRAG05D

Information

Source Information

Call Graph

Call Graph Total: 25

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: