Routine: BLRGMENU

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
IHS VA Utilities	3	^XBCLS ^XBFMK $$LOC^XBFUNC
Kernel	3	HOME^%ZIS $$HTE^XLFDT ($$CJ,$$TRIM,$$UP)^XLFSTR
VA Fileman	2	^DIR ^DIWP

Caller Graph

Caller Graph Total: 127

Package	Total	Caller Graph
IHS Changes To Lab	123	BLR35PST BLR36PST BLR6249P BLR6249R BLR7OB1 BLRAAORR BLRAAORU BLRADDCD BLRAG07 BLRAGEED BLRAGUT BLRAGUT2 BLRBBDDC BLRCCPED BLRCHGER BLRCHGPL BLRCHGPW BLRCINDX BLRCLRAL BLRDIAG BLRDOCRM BLREMERA BLRENTRY BLRERRT2 BLRERRTR BLRESIGR BLRESRNS BLREXEC3 BLREXEC4 BLRF44DR BLRF60SR BLRF612A BLRHLTBL BLRICDO BLRICDU0 BLRINRPT BLRKIDS2 BLRKIDSU BLRLA7QR BLRLABIR BLRLABJD BLRLAHGU BLRLDFIS BLRLINKU BLRLLPRR BLRLROS BLRLRRP1 BLRLTRRR BLRLUAC1 BLRLUAC2 BLRLUAC3 BLRLUAC4 BLRLUAC5 BLRLUAC6 BLRLUAC7 BLRLUAC8 BLRLUAC9 BLRLUACA BLRMANP2 BLRMANP3 BLRMANPU BLRMIEHR BLRMIIBL BLRMIRP2 BLRMIRPT BLRMMRPT BLRMPRL2 BLRMSKEY BLRNLOIN BLROLOR BLROTSCH BLRPAMGE BLRPCCBD BLRPR27P BLRPR28P BLRPR30P BLRPRE30 BLRPRE31 BLRPRE32 BLRPRE33 BLRPRE34 BLRPRE35 BLRPRE36 BLRPRE37 BLRPRE38 BLRPRE39 BLRPRE40 BLRPRE41 BLRPRE42 BLRPURGU BLRQUALU BLRREFLA BLRRLEV2 BLRRLMU2 BLRRLMU3 BLRRLMU4 BLRRLMUA BLRRLTAR BLRRLTDR BLRRLTDU BLRROLLD BLRSGNS2 BLRSGNS3 BLRSGNSD BLRSGNSP BLRSGNSU BLRSGNSY BLRSHPM BLRSNOMU BLRSORA BLRSORC BLRTASKS BLRTNCON BLRUER BLRUTIL2 BLRUTIL3 BLRUTIL4 BLRUTIL5 BLRUTIL6 BLRUTIL7 BLRUTIL8 BLRVLABD BLRVPTCH
Lab Service	2	LR7OGM LRAPCUM1
Automated Lab Instruments	1	LAMIAUT0
IHS Laboratory Point of Care	1	BLRPOC3

Entry Points

External References

Name	Field # of Occurrence
HOME^%ZIS	MENUDRVR+3, MENUDRFM+3
^DIR	SELITEM+5, HEDPGNUM+12, BLRGPGR+9, PRESSKEY+7, HEADONE+5
^DIWP	LINEWRAP+34
^XBCLS	EEP+1, BLRGSHSH+5, HEDPGNUM+15
^XBFMK	SELITEM+1, HEDPGNUM+8, BLRGPGR+6, PRESSKEY+4, HEADONE+1
$$LOC^XBFUNC	BLRGSHSH+8, HEDPGNUM+18
$$HTE^XLFDT	BLRGSHSH+11, NOWDATE+1, NOWTIME+1
$$CJ^XLFSTR	MENUDRVR+11, BLRGSHSH+8, BLRGSHSH+10, BLRGSHSH+17, HEDPGNUM+18, HEDPGNUM+21, HEDPGNUM+27, BUILDHED+8, SHOWBOX+14, SHOWBOX+15 , SHOWBOX+16, COLHEAD+5
$$TRIM^XLFSTR	BLRGSHSH+13, BLRGSHSH+19, HEDPGNUM+24, HEDPGNUM+32, HEDPGNUM+43, LINEWRAP+7, LINEWRAP+26, LINEWRAP+41
$$UP^XLFSTR	NOWTIME+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,$C(7),$C(7),$C(7) Line Location: EEP+2
Function Call: WRITE	Prompt: !! Line Location: EEP+3
Function Call: WRITE	Prompt: $$SHOUTMSG("USE LABEL") Line Location: EEP+4
Function Call: WRITE	Prompt: !! Line Location: EEP+5
Function Call: WRITE	Prompt: !,$C(7),$C(7),$C(7),! Line Location: EEP+6
Function Call: WRITE	Prompt: ! Line Location: GOFORIT+6
Function Call: WRITE	Prompt: ?4,$J(ITEM,2),") " Line Location: DISPMENU+8
Function Call: WRITE	Prompt: $E($P($G(BLRMMENU(ITEM)),"\|",2),1,31) Line Location: DISPMENU+9
Function Call: WRITE	Prompt: ?41,$J(ITEM,2),") " Line Location: DISPMENU+11
Function Call: WRITE	Prompt: $E($P($G(BLRMMENU(ITEM)),"\|",2),1,31) Line Location: DISPMENU+12
Function Call: WRITE	Prompt: ! Line Location: DISPMENU+13
Function Call: WRITE	Prompt: ?TAB(CNT),$J(ITEM,2),") " Line Location: DISPMENU+16
Function Call: WRITE	Prompt: $E($P($G(BLRMMENU(ITEM)),"\|",2),1,33) Line Location: DISPMENU+17
Function Call: WRITE	Prompt: ! Line Location: DISPMENU+19
Function Call: WRITE	Prompt: ! Line Location: DISPMENU+21
Function Call: WRITE	Prompt: ?4,ITEM Line Location: DISPMEFM+5
Function Call: WRITE	Prompt: ?9,$E($P($G(BLRMMENU(ITEM)),"\|",2),1,53) Line Location: DISPMEFM+6
Function Call: WRITE	Prompt: ?9,$E($P($G(BLRMMENU(ITEM)),"\|",2),1,70) Line Location: DISPMEFM+7
Function Call: WRITE	Prompt: ! Line Location: DISPMEFM+8
Function Call: WRITE	Prompt: ! Line Location: DISPMEFM+9
Function Call: WRITE	Prompt: @IOF Line Location: BLRGSHSH+6
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM),! Line Location: BLRGSHSH+8
Function Call: WRITE	Prompt: TMPLN,! Line Location: BLRGSHSH+14
Function Call: WRITE	Prompt: TMPLN,! Line Location: BLRGSHSH+22
Function Call: WRITE	Prompt: $G(HEADER(J)),! Line Location: BLRGSHSH+26
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-"),! Line Location: BLRGSHSH+28
Function Call: WRITE	Prompt: ! Line Location: HEDPGNUM+9
Function Call: WRITE	Prompt: @IOF Line Location: HEDPGNUM+16
Function Call: WRITE	Prompt: $$CJ^XLFSTR($$LOC^XBFUNC,IOM),! Line Location: HEDPGNUM+18
Function Call: WRITE	Prompt: TMPLN,! Line Location: HEDPGNUM+25
Function Call: WRITE	Prompt: TMPLN,! Line Location: HEDPGNUM+33
Function Call: WRITE	Prompt: $G(HEADER(J)),! Line Location: HEDPGNUM+36
Function Call: WRITE	Prompt: TMPLN,! Line Location: HEDPGNUM+44
Function Call: WRITE	Prompt: $G(HEADER(J)),! Line Location: HEDPGNUM+48
Function Call: WRITE	Prompt: $TR($J("",IOM)," ","-"),! Line Location: HEDPGNUM+52
Function Call: WRITE	Prompt: ! Line Location: BLRGPGR+5
Function Call: WRITE	Prompt: ! Line Location: PRESSKEY+3
Function Call: WRITE	Prompt: !,?TAB Line Location: LINEWRAP+40
Function Call: WRITE	Prompt: $$TRIM^XLFSTR($G(^UTILITY($J,"W",LM,LINE,0)),"L",$C(9)) Line Location: LINEWRAP+41
Function Call: WRITE	Prompt: $TR($J("",LEN)," ","-") Line Location: DASH+1
Function Call: WRITE	Prompt: !! Line Location: SHOWBOX+12
Function Call: WRITE	Prompt: ?LM,$TR($J("",RM)," ","*"),! Line Location: SHOWBOX+13
Function Call: WRITE	Prompt: ?LM,$TR($$CJ^XLFSTR(AROUND,RM)," @","* "),! Line Location: SHOWBOX+14
Function Call: WRITE	Prompt: ?LM,$TR($$CJ^XLFSTR(MAXIT,RM)," @","* "),! Line Location: SHOWBOX+15
Function Call: WRITE	Prompt: ?LM,$TR($$CJ^XLFSTR(AROUND,RM)," @","* "),! Line Location: SHOWBOX+16
Function Call: WRITE	Prompt: ?LM,$TR($J("",RM)," ","*"),! Line Location: SHOWBOX+17
Routine Call	%ZIS Line Location: MENUDRVR+3 MENUDRFM+3
Routine Call	DIR Line Location: SELITEM+5 HEDPGNUM+12 BLRGPGR+9 PRESSKEY+7 HEADONE+5

Name	Line Occurrences (* Changed, ! Killed)
^UTILITY($J	LINEWRAP+31!, LINEWRAP+38, LINEWRAP+41, LINEWRAP+43!

Label References

Name	Line Occurrences
$$NOWDATE	HEDPGNUM+22
$$NOWTIME	BLRGSHSH+12, HEDPGNUM+28
$$SELITEM	GOFORIT+3
$$SHOUTMSG	EEP+4
@(	GOFORIT+18
BLRGSHSH	MENUDRVR+13, MENUDRFM+8
DISPMEFM	MENUDRFM+9
DISPMENU	MENUDRVR+14
GOFORIT	MENUDRVR+15, MENUDRFM+10
HEDPGNUM	BLRGHWPN+1, HEADERPG+1
MAINHEAD	MENUDRVR+8, MENUDRFM+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AROUND	SHOWBOX+1~, SHOWBOX+9*, SHOWBOX+14, SHOWBOX+16
>> BLRMMENU(	MAINHEAD+8, GOFORIT+7, ADDTMENU+6, ADDTMENU+8, DISPMENU+15, DISPMENU+17, DISPMEFM+4, DISPMEFM+7
>> BLRMMENU(""	ADDTMENU+5
>> BLRVERN	BLRGSHSH+18, HEDPGNUM+31
>> BLRVERN2	BLRGSHSH+21, HEDPGNUM+42
CNT	DISPMENU+2~, DISPMENU+5, DISPMENU+16, DISPMENU+18, DISPMENU+19*
COLSTR	COLHEAD+1~, COLHEAD+4*, COLHEAD+5
CRTLINE	SHOWBOX+1~
CURLINE	BUILDHED+1~, BUILDHED+5*, BUILDHED+6, BUILDHED+8
DASHER	COLHEAD~, COLHEAD+3*, COLHEAD+5
>> DIR("A"	SELITEM+2, BLRGPGR+8, PRESSKEY+6, HEADONE+2
>> DIR("B"	HEADONE+3*
>> DIR("T"	SELITEM+4, HEDPGNUM+11
>> DIR(0	SELITEM+3, HEDPGNUM+10, BLRGPGR+7, PRESSKEY+5, HEADONE+4*
DISPSTR	ADDTMENU~, ADDTMENU+2, ADDTMENU+6
>> DIWF	LINEWRAP+33*
>> DIWL	LINEWRAP+33*
>> DIWR	LINEWRAP+33*
HALFLEN	SHOUTMSG+1~, SHOUTMSG+5*, SHOUTMSG+6
HD1	MENUDRVR~, MENUDRVR+1, MENUDRFM~, MENUDRFM+1, MAINHEAD+2, HEADONE~, HEADONE+6*
HD2	MENUDRVR~, MENUDRFM~, MAINHEAD+4
HD3	MENUDRVR~, MENUDRFM~, MAINHEAD+5
HD4	MENUDRVR~, MENUDRFM~, MAINHEAD+6
HDCNT	MENUDRVR+5~, MENUDRVR+10, MENUDRVR+11, MENUDRFM+4~, MAINHEAD+3, MAINHEAD+4, MAINHEAD+5, MAINHEAD+6
HEADER	MENUDRVR+5~, MENUDRFM+4~, MAINHEAD+1!
HEADER(	MENUDRVR+10, MENUDRVR+11, BLRGSHSH+25, BLRGSHSH+26, HEDPGNUM+47, HEDPGNUM+48, BUILDHED+6, BUILDHED+8
HEADER("A"	BUILDHED+5
HEADER(1	MAINHEAD+2*, BLRGSHSH+10, HEDPGNUM+21
HEADER(2	MAINHEAD+4*, BLRGSHSH+16, BLRGSHSH+17, HEDPGNUM+27
HEADER(3	MAINHEAD+5*, HEDPGNUM+40, HEDPGNUM+41
HEADER(4	MAINHEAD+6*
HEADONE	BLRGHWPN~, HEADERPG~, HEDPGNUM+5
IOF	BLRGSHSH+6, HEDPGNUM+16
IOM	MENUDRVR+3, MENUDRVR+11, MENUDRFM+3, BLRGSHSH+8, BLRGSHSH+10, BLRGSHSH+12, BLRGSHSH+17, BLRGSHSH+18, BLRGSHSH+28, HEDPGNUM+18 , HEDPGNUM+21, HEDPGNUM+23, HEDPGNUM+27, HEDPGNUM+31, HEDPGNUM+52, SHOUTMSG+3, BUILDHED+8, SHOWBOX+3
IOST	BLRGSHSH+5, BLRGSHSH+6, HEDPGNUM+7, HEDPGNUM+15, HEDPGNUM+16
ITEM	DISPMENU+1~, DISPMENU+4, DISPMENU+15, DISPMENU+16, DISPMENU+17, DISPMEFM+1~, DISPMEFM+3, DISPMEFM+4, DISPMEFM+5, DISPMEFM+7
J	BLRGSHSH+1~, BLRGSHSH+25, BLRGSHSH+26, BLRGSHSH+30, HEDPGNUM+1~, HEDPGNUM+47, HEDPGNUM+48, HEDPGNUM+54, SHOUTMSG+1~, SHOUTMSG+9* , SHOWBOX+1~, SHOWBOX+8, SHOWBOX+13, SHOWBOX+17*
LEN	DASH~, DASH+1
LINE	LINEWRAP+3~, LINEWRAP+37, LINEWRAP+38, LINEWRAP+39, LINEWRAP+40, LINEWRAP+41
>> LINES	BLRGSHSH+30, HEDPGNUM+54, LINEWRAP+40*
LM	LINEWRAP+3~, LINEWRAP+32, LINEWRAP+33, LINEWRAP+38, LINEWRAP+41, SHOWBOX~, SHOWBOX+4, SHOWBOX+5, SHOWBOX+13, SHOWBOX+14 , SHOWBOX+15, SHOWBOX+16, SHOWBOX+17
MAX	MENUDRVR+5~, MENUDRFM+4~, MAINHEAD+8, SELITEM+3, ADDTMENU+4~, ADDTMENU+5, ADDTMENU+6, ADDTMENU+8, LINEWRAP~, LINEWRAP+10 , LINEWRAP+15, LINEWRAP+17, LINEWRAP+18, LINEWRAP+19, LINEWRAP+21, LINEWRAP+33
MAXIT	SHOWBOX+1~, SHOWBOX+7, SHOWBOX+8, SHOWBOX+9, SHOWBOX+10*, SHOWBOX+15
MMSEL	MENUDRVR+5~, MENUDRVR+7, MENUDRFM+4~, MENUDRFM+6, GOFORIT+3*, GOFORIT+4, GOFORIT+7
MSG	SHOWBOX~, SHOWBOX+8, COLHEAD~, COLHEAD+4
>> NEEDSP	LINEWRAP+5, LINEWRAP+10, LINEWRAP+15
NOCENTER	BUILDHED~, BUILDHED+3*, BUILDHED+6
ONGO	LINEWRAP+3~, LINEWRAP+16, LINEWRAP+17, LINEWRAP+18, LINEWRAP+19, LINEWRAP+21, LINEWRAP+22, LINEWRAP+23
PG	BLRGHWPN~, HEADERPG~, HEDPGNUM+5, HEDPGNUM+7, HEDPGNUM+20*, HEDPGNUM+23
QFLG	BLRGHWPN~, HEADERPG~, HEDPGNUM+5, HEDPGNUM+7, HEDPGNUM+13, BLRGPGR+10, PRESSKEY+8
RM	SHOUTMSG~, SHOUTMSG+3, SHOUTMSG+5, SHOUTMSG+9, SHOWBOX~, SHOWBOX+3, SHOWBOX+5*, SHOWBOX+13, SHOWBOX+14, SHOWBOX+15 , SHOWBOX+16, SHOWBOX+17
RMPSOS	BLRGSHSH+2~
RTN	ADDTMENU~, ADDTMENU+1, ADDTMENU+6
SPACE	LINEWRAP+3~, LINEWRAP+10*
STR	MENUDRFM+4~, GOFORIT+1~, GOFORIT+7, GOFORIT+8, GOFORIT+13, GOFORIT+18, SHOUTMSG~, SHOUTMSG+5, SHOUTMSG+7, LINEWRAP~ , LINEWRAP+1, LINEWRAP+7, LINEWRAP+10, LINEWRAP+15, LINEWRAP+16, LINEWRAP+28, BUILDHED~, BUILDHED+6, BUILDHED+8
STR1	LINEWRAP+3~, LINEWRAP+18*, LINEWRAP+20
STR2	MENUDRFM+4~, GOFORIT+1~, GOFORIT+13, GOFORIT+14, GOFORIT+18, LINEWRAP+3~, LINEWRAP+19, LINEWRAP+20
STRLEN	SHOUTMSG+1~, SHOUTMSG+8*, SHOUTMSG+9
TAB	DISPMENU+2~, BLRGPGR~, BLRGPGR+2, BLRGPGR+3, PRESSKEY~, PRESSKEY+2, LINEWRAP~, LINEWRAP+39, LINEWRAP+40
TAB(	DISPMENU+16
TAB(1	DISPMENU+5*
TAB(2	DISPMENU+5*
TABSTR	BLRGPGR+1~, BLRGPGR+2, BLRGPGR+3, BLRGPGR+8, PRESSKEY+1~, PRESSKEY+2*, PRESSKEY+6
TIMELEN	BLRGSHSH+3~, HEDPGNUM+2~, HEDPGNUM+29*, HEDPGNUM+30
TIMESTR	BLRGSHSH+3~, HEDPGNUM+2~, HEDPGNUM+28*, HEDPGNUM+29, HEDPGNUM+30
TMPLN	BLRGSHSH+1~, BLRGSHSH+10, BLRGSHSH+11, BLRGSHSH+12, BLRGSHSH+13, BLRGSHSH+14, BLRGSHSH+17, BLRGSHSH+18, BLRGSHSH+19, BLRGSHSH+21 , BLRGSHSH+22, HEDPGNUM+1~, HEDPGNUM+21, HEDPGNUM+22, HEDPGNUM+23, HEDPGNUM+24, HEDPGNUM+25, HEDPGNUM+27, HEDPGNUM+30, HEDPGNUM+31* , HEDPGNUM+32, HEDPGNUM+33, HEDPGNUM+41, HEDPGNUM+42, HEDPGNUM+43, HEDPGNUM+44
TMPSTR	SHOUTMSG+1~, SHOUTMSG+6, SHOUTMSG+7, SHOUTMSG+8, SHOUTMSG+9*, SHOUTMSG+10
WIDTH	COLHEAD~, COLHEAD+5
WRAPSTR	LINEWRAP+3~, LINEWRAP+5, LINEWRAP+20, LINEWRAP+22, LINEWRAP+23, LINEWRAP+26*, LINEWRAP+28
>> X	HEDPGNUM+10, HEDPGNUM+13, BLRGPGR+7, BLRGPGR+10, PRESSKEY+5, PRESSKEY+8, LINEWRAP+28
>> Y	SELITEM+6, HEDPGNUM+10, BLRGPGR+7, PRESSKEY+5*, HEADONE+6

Name	Comments	DBIA/ICR reference
ADDTMENU(RTN,DISPSTR)
DISPMENU
EEP	; Ersatz EP
BLRGPGR(TAB)
NOWDATE()
HEADERDT
LINEWRAP(TAB,STR,MAX)	; EP - If line too long, wrap it.
COLHEAD(MSG,WIDTH,DASHER)	; EP - COLumn HEADer String
SELITEM()
DASH(LEN)	; EP - Dashed Characters
HEDPGNUM	; ; EP
BUILDHED(STR,NOCENTER)	; EP - Build the HEADER array
SHOWBOX(MSG,LM,RM)	; EP - Display Message in a "box"
BLRGHWPN(PG,QFLG,HEADONE)
HEADERPG(PG,QFLG,HEADONE)
HEADONE(HD1)	; EP -- Asks if user wants only 1 header line
NOWTIME()
SHOUTMSG(STR,RM)
MAINHEAD	; ; EP
BLRGSHSH
PRESSKEY(TAB)
MENUDRFM(HD1,HD2,HD3,HD4)
GOFORIT
DISPMEFM
MENUDRVR(HD1,HD2,HD3,HD4)

Customize PDF page

Package: IHS Changes To Lab

Routine: BLRGMENU

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 127

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items