Routine: BLRDIAG

Package	Total	Call Graph
IHS Changes To Lab	6	TESTDEL^BLRDIAG1 PRESSKEY^BLRGMENU GETRID^BLRSGNSP $$CHKORDAC^BLRSGNSU ($$ALLTESTS,$$GETSDIAG)^BLRSGNSY ENTRYAUD^BLRUTIL
VA Fileman	3	^DIE $$GET1^DIQ ^DIR
IHS VA Utilities	1	^XBFMK
Kernel	1	$$UP^XLFSTR
Lab Service	1	^LRWLST

Package	Total	Caller Graph
Lab Service	3	LRORDST LROW2A LRTSTSET

Entry Points

Name	Comments	DBIA/ICR reference
ASKLPOV(PROMPT)	; EP - Ask Lab Purpose Of Visit. Must be answered.
ASK(LRORD,LRODT,ASK,MULTIPL,STUFF)	; EP
RPT	;
ASK1(STUFF,TST,DEF,ORDIEN,DA)	;
ASK1B
DELACC	;
DIAG(LRODT,LRORD)	;EP CALLED FROM LROW2A,LRTSTSET
CANTST(LRSN,TT)	;EP
ASK2
ADDTST(LRODT,ORDIEN,TST)	;EP CALLED FROM LRTSTSET WHEN ADDING TEST TO ORDER
YNONLY
COMPORD(LRODT,LRORD)	;EP CALLED FROM LRORDST
CANORD(LRODT,LRORD)	;EP
MULTTST(LRORD,LRODT,MULTIPL)	;
UPPER(X)	; EP

External References

Name	Field # of Occurrence
TESTDEL^BLRDIAG1	DELACC+7
PRESSKEY^BLRGMENU	ASKLPOV+16
GETRID^BLRSGNSP	RPT+21
$$CHKORDAC^BLRSGNSU	ADDTST+3
$$ALLTESTS^BLRSGNSY	RPT+20
$$GETSDIAG^BLRSGNSY	ASK+24, ADDTST+15
ENTRYAUD^BLRUTIL	DIAG+1, DIAG+5, DIAG+16, ASK+1
^DIE	ASK+39, ASK+42, ADDTST+25
$$GET1^DIQ	ASK+23
^DIR	YNONLY+8, RPT+34, ASK2+4, DELACC+15, ASKLPOV+11
^LRWLST	COMPORD+16
^XBFMK	DELACC+11, ASKLPOV+5
$$UP^XLFSTR	ASKLPOV+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: DIAG+18
Function Call: WRITE	Prompt: !! Line Location: YNONLY+15
Function Call: WRITE	Prompt: ! Line Location: RPT+10
Function Call: WRITE	Prompt: !!,"ORDER CANCELED!!" Line Location: RPT+25
Function Call: WRITE	Prompt: !,"This is a required response." Line Location: RPT+26
Function Call: WRITE	Prompt: !!,"No Sign or Symptom entered for order number "_LRORD,!! Line Location: RPT+27
Function Call: WRITE	Prompt: !!,"No Clinical Indication entered for order number "_LRORD,!! Line Location: RPT+28
Function Call: WRITE	Prompt: !! Line Location: RPT+38
Function Call: WRITE	Prompt: !!,?4,"SIGN/SYMPTOM FOR TEST: ",$$GET1^DIQ(69.03,TST_","_ORDIEN_","_LRODT_",","TEST/PROCEDURE") Line Location: ASK+23
Function Call: WRITE	Prompt: !,"ORDER IS CURRENTLY BEING EDITED!" Line Location: ASK+36
Function Call: WRITE	Prompt: !,"ORDER IS CURRENTLY BEING EDITED!" Line Location: ASK+41
Function Call: WRITE	Prompt: ! Line Location: ASK1B+6
Function Call: WRITE	Prompt: !!,"TEST CANCELED FROM ORDER!!" Line Location: ASK1B+14
Function Call: WRITE	Prompt: !!,"TEST CANCELED FROM ORDER!!" Line Location: ASK1B+15
Function Call: WRITE	Prompt: !,"This is a required response." Line Location: ASK1B+16
Function Call: WRITE	Prompt: !!,"No Sign or Symptom entered for "_$P($G(^LAB(60,TST,0)),U),!! Line Location: ASK1B+17
Function Call: WRITE	Prompt: !!,"No Clinical Indication entered for "_$P($G(^LAB(60,TST,0)),U),!! Line Location: ASK1B+18
Function Call: WRITE	Prompt: !,"ORDER IS CURRENTLY BEING EDITED!" Line Location: ADDTST+24
Function Call: WRITE	Prompt: !,?5,$P(^LAB(60,+X,0),"^") Line Location: CANORD+3
Function Call: WRITE	Prompt: !,?5,$P(^LAB(60,+X,0),"^") Line Location: CANTST+5
Function Call: WRITE	Prompt: !!,"Press Return to continue..." Line Location: DELACC+8
Function Call: WRITE	Prompt: !! Line Location: DELACC+10
Function Call: WRITE	Prompt: ! Line Location: ASKLPOV+10
Function Call: WRITE	Prompt: !,?4,"Invalid/'^' input not allowed." Line Location: ASKLPOV+15
Routine Call	DIE Line Location: ASK+39 ASK+42 ADDTST+25
Routine Call	DIR Line Location: YNONLY+8 RPT+34 ASK2+4 DELACC+15 ASKLPOV+11

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
69.03	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(69.03	ASKLPOV+9
^LAB(60 - [#60]	ASK1B+11, ASK1B+18, CANORD+3, CANTST+5, DELACC+2
^LR - [#63]	ASK+9
^LRO(68 - [#68]	DELACC+5, DELACC+6
^LRO(69 - [#69]	COMPORD+9, MULTTST+3, MULTTST+5, ASK+7, ASK+8, ASK+17, ASK+20, ASK+28, ASK+31, ASK+37 , ASK+39, ASK+41, ASK+42, ADDTST+7, ADDTST+12, ADDTST+24, ADDTST+26, CANORD+1, CANORD+2, CANORD+3 , CANORD+4, CANTST+3, CANTST+5, CANTST+6
^TMP("BLRDIAG"	RPT+18, RPT+19, MULTTST+1, ASK+12, ASK+46!, ADDTST+13, ADDTST+14, ADDTST+16!

Label References

Name	Line Occurrences
$$UPPER	ASK+14, ASK1B+1
ASK	YNONLY+15, RPT+4, RPT+37
ASK1	ASK+32
ASK1B	ASK1B+16, ASK2+5
ASKLPOV	ASK1B+11
CANORD	RPT+25
CANTST	ASK1B+15
DELACC	ADDTST+22
DIAG	COMPORD+6
MULTTST	DIAG+9
RPT	DIAG+12, RPT+26, RPT+35
YNONLY	YNONLY+10

Naked Globals

Name	Field # of Occurrence
^(	CANORD+2
^(0	CANORD+4, CANTST+6
^(3	DELACC+5
^(9	DELACC+6

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANSWER	ASKLPOV+1~, ASKLPOV+13*, ASKLPOV+14
ASK	ASK~, ASK+30, ASK+40
>> ASKALL	DIAG+19, YNONLY+12, YNONLY+14, YNONLY+15
BADINPUT	ASKLPOV+1~, ASKLPOV+3, ASKLPOV+4, ASKLPOV+12, ASKLPOV+17*
BAILOUT	ASK+4~, ASK+13, ASK+17, ASK+20, ASK+24, ADDTST+5~, ADDTST+15, ADDTST+17
>> BLRGUI	DIAG+12, RPT+4, ASK+37
>> BLRRLASK	YNONLY+14*
>> BPCCOM	RPT+4
DA	ASK+28, ASK+31, ASK+32, ASK1~, ASK1B+15, ADDTST+7, ADDTST+14, ADDTST+15, ASKLPOV+1~
DEF	ASK+31*, ASK+32, ASK1~
DFN	RPT+20, ASK+6, ASK+9*, ASK+24, ASK+44!, ADDTST+15
DFNFLAG	ASK+3~, ASK+10*, ASK+44
DIE	ASK+29, ADDTST+8, ASKLPOV+1~
DIR	YNONLY+3!, RPT+2!, RPT+30!, ASK1B!, ASK2!, ASKLPOV+6!
DIR("A"	YNONLY+5, RPT+33, ASK2+3, DELACC+13, ASKLPOV+7, ASKLPOV+8
DIR("B"	YNONLY+6, RPT+32, ASK2+2*
DIR("T"	DELACC+14*
DIR(0	YNONLY+7, RPT+31, ASK2+1, DELACC+12, ASKLPOV+9*
>> DIRUT	ASKLPOV+14
>> DR	ASK+34, ASK+40, ADDTST+23*
>> DTOUT	DIAG+20, RPT+26, ASK1B+16
>> DUOUT	DIAG+20, RPT+26, ASK1B+16
DUZ	CANORD+4, CANTST+6
I	MULTTST+3*, MULTTST+4, ASK+3~, ASK+45!
J	MULTTST+5*, MULTTST+6, ASK+3~, ASK+45!
>> LRAA	CANTST+4*, DELACC+5, DELACC+6
>> LRACC	CANTST+1*
>> LRAD	CANTST+4*, DELACC+5, DELACC+6
>> LRAN	CANTST+4*, DELACC+5, DELACC+6
>> LRCCOM	DELACC+4*
LRDFN	ASK+8*, ASK+9, ASK+44!
LRFLG	ADDTST+17!, DELACC+18!
>> LRIDT	DELACC+5*
LRNCWL	COMPORD+16!, CANORD+6
>> LRNOP	RPT+25, ASK1B+15, CANORD+2, CANTST+4
LRODT	COMPORD~, COMPORD+2, COMPORD+6, COMPORD+9, DIAG~, DIAG+3, DIAG+9, YNONLY+15, RPT+4, RPT+20 , RPT+25, RPT+37, MULTTST~, MULTTST+3, MULTTST+5, ASK~, ASK+7, ASK+8, ASK+17, ASK+20 , ASK+23, ASK+24, ASK+28, ASK+29, ASK+31, ASK+37, ASK+39, ASK+41, ASK+42, ADDTST~ , ADDTST+1, ADDTST+3, ADDTST+7, ADDTST+8, ADDTST+12, ADDTST+15, ADDTST+24, ADDTST+26, CANORD~, CANORD+1 , CANORD+2, CANORD+3, CANORD+4, CANTST+3, CANTST+5, CANTST+6, DELACC+6*
LRORD	COMPORD~, COMPORD+2, COMPORD+6, COMPORD+9, DIAG~, DIAG+3, DIAG+9, YNONLY+15, RPT+4, RPT+18 , RPT+20, RPT+21, RPT+25, RPT+28, RPT+37, MULTTST~, MULTTST+1, MULTTST+3, ASK~, ASK+7 , ASK+12, ASK+17, ASK+24, ADDTST+12*, ADDTST+13, ADDTST+15, CANORD~, CANORD+1
>> LRORDR	COMPORD+8
>> LROWDT	DELACC+6*
LRPHSET	COMPORD+16!*
>> LRPOVREQ	RPT+1, RPT+26, ASK1+1, ASK1B+16
LRSN	COMPORD+16, ASK1B+15, CANTST~, CANTST+3, CANTST+5, CANTST+6, DELACC+6
LRSNTMP	CANORD+1*, CANORD+2, CANORD+3, CANORD+4, CANORD+8!
LRSP	ASK+7*, ASK+8, ASK+44!
>> LRTN	ASK1B+15
>> LRTNM	DELACC+2*
>> LRTS	DELACC+1, DELACC+2
>> LRTSTS	DELACC+1*
MULTIPL	DIAG+8, DIAG+9, DIAG+20, YNONLY+15, RPT+4, RPT+37, MULTTST~, MULTTST+3, MULTTST+4, MULTTST+5 , MULTTST+6*, ASK~
ORDIEN	COMPORD+9, COMPORD+16, MULTTST+3, MULTTST+5, ASK+3~, ASK+17*, ASK+20, ASK+23, ASK+24, ASK+28 , ASK+29, ASK+31, ASK+32, ASK+37, ASK+39, ASK+41, ASK+42, ASK+45!, ASK1~, ASK1B+15 , ADDTST~, ADDTST+1, ADDTST+3, ADDTST+7, ADDTST+8, ADDTST+12, ADDTST+15, ADDTST+24, ADDTST+26
>> ORIFN	CANTST+4*
PROMPT	ASKLPOV~, ASKLPOV+7
>> RESULT(1	ASK+37*
>> RESULT(2	ASK+37*
SEQ	ASK+3~
STUFF	YNONLY+2!, RPT+2!, RPT+29, RPT+37, ASK~, ASK+14, ASK+32, ASK+40, ASK1~, ASK1B+1* , ASK1B+19*
TMPCWL	COMPORD+5~, COMPORD+16*
TMPSET	COMPORD+5~, COMPORD+16*
TST	MULTTST+5, ASK+3~, ASK+20, ASK+23, ASK+24, ASK+28, ASK+32, ASK+45!, ASK1~, ASK1B+11 , ASK1B+18, ADDTST~, ADDTST+1, ADDTST+3, ADDTST+7, CANORD+2!, CANTST+2!
TST(	CANTST+4*
TT	CANORD+2*, CANORD+3, CANORD+4, CANTST~, CANTST+3, CANTST+5, CANTST+6
U	RPT+25, RPT+28, ASK+33, ASK1B+11, ASK1B+15, ASK1B+18, ADDTST+20, ADDTST+22, CANTST+4, DELACC+2 , DELACC+5, DELACC+6, ASKLPOV+9
X	UPPER~, UPPER+1, YNONLY+10, RPT+20, RPT+21, ADDTST+15, CANORD+2, CANORD+3, CANTST+3, CANTST+4 , CANTST+5, DELACC+6*
>> XQY0	ADDTST+20, ADDTST+22
Y	YNONLY+12, RPT+25, RPT+26, RPT+28, RPT+29, RPT+35, ASK+3~, ASK+33, ASK1B+15, ASK1B+16 , ASK1B+18, ASK1B+19, ASK2+5, ADDTST+20, ADDTST+22, ASKLPOV+13

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRDIAG

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: