Routine: BLROTSCH

Package	Total	Call Graph
IHS Changes To Lab	1	(ADDTMENU,EEP,HEADERDT,MENUDRVR,PRESSKEY)^BLRGMENU
IHS VA Utilities	1	^XBFMK
VA Fileman	1	^DIR

Package	Total	Caller Graph
IHS Changes To Lab	1	BLR7OB1

Entry Points

Name	Comments	DBIA/ICR reference
LROSREST	; EP - LROS routine RESTore
BADSTUFF(STR,TAB)	; EP - BADSTUFF error message
PEP	; EP
EEP	; Ersatz EP
BADSTUFN(STR,TAB)	; EP - BADSTUFF error message. Ends with Q "" (i.e., null)
LROSREPL	; EP - LROS routine REPLacement
CHKOVERR(RTN)	; EP - CHecK to make sure OVERwrite Routine exists
BADSTUFQ(STR,TAB)	; EP - BADSTUFF error message. Ends with Q "Q"uit
WARNINGS(MSG,TAB)	; EP
BLR2VARS(TWO)	; EP
EP	; EP

External References

Name	Field # of Occurrence
ADDTMENU^BLRGMENU	PEP+5, PEP+6
EEP^BLRGMENU	EEP+1
HEADERDT^BLRGMENU	LROSREPL+9, LROSREPL+19, LROSREPL+22, LROSREPL+29, LROSREPL+44, LROSREST+9, LROSREST+19, LROSREST+22, LROSREST+28
MENUDRVR^BLRGMENU	PEP+8
PRESSKEY^BLRGMENU	LROSREPL+26, LROSREPL+36, LROSREPL+40, LROSREPL+53, LROSREPL+57, LROSREST+26, LROSREST+37, LROSREST+43, CHKOVERR+4, BADSTUFF+3
^DIR	WARNINGS+6
^XBFMK	WARNINGS+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?9,"This routine will replace the current Order/Test Status routine",! Line Location: LROSREPL+12
Function Call: WRITE	Prompt: ?4,"(LROS) with the RPMS routine (BLRLROS).",!! Line Location: LROSREPL+13
Function Call: WRITE	Prompt: ?9,"The RPMS version displays the SNOMED, UID, Clinical Indication",! Line Location: LROSREPL+14
Function Call: WRITE	Prompt: ?4,"as well as the order's ICD code(s).",! Line Location: LROSREPL+15
Function Call: WRITE	Prompt: !!,?4,"Very well." Line Location: LROSREPL+25
Function Call: WRITE	Prompt: ?4,"LROS could NOT be saved as LROSORIG. Error Message follows:",! Line Location: LROSREPL+33
Function Call: WRITE	Prompt: $$FMTERR^%R(.ERRORS,.CODE),! Line Location: LROSREPL+34
Function Call: WRITE	Prompt: ?4,"Routine Ends." Line Location: LROSREPL+35
Function Call: WRITE	Prompt: ?4,"LROS has successfully been saved as LROSORIG" Line Location: LROSREPL+39
Function Call: WRITE	Prompt: ?4,"BLRLROS could NOT overwrite LROS. Error Message follows:",! Line Location: LROSREPL+50
Function Call: WRITE	Prompt: $$FMTERR^%R(.ERRORS,.CODE),! Line Location: LROSREPL+51
Function Call: WRITE	Prompt: ?4,"Routine Ends." Line Location: LROSREPL+52
Function Call: WRITE	Prompt: ?4,"BLRLROS has successfully overwritten LROS." Line Location: LROSREPL+55
Function Call: WRITE	Prompt: ?9,"This routine will replace the current Order/Test Status",! Line Location: LROSREST+12
Function Call: WRITE	Prompt: ?4,"routine with the original VistA version from the VA.",!! Line Location: LROSREST+13
Function Call: WRITE	Prompt: ?9,"The VistA version does NOT display the order's: SNOMED",! Line Location: LROSREST+14
Function Call: WRITE	Prompt: ?4," code; UID; nor ICD code(s).",! Line Location: LROSREST+15
Function Call: WRITE	Prompt: !!,?4,"Very well." Line Location: LROSREST+25
Function Call: WRITE	Prompt: ?4,"Original Vista version could NOT overwrite. Error Message follows:",! Line Location: LROSREST+34
Function Call: WRITE	Prompt: $$FMTERR^%R(.ERRORS,.CODE),! Line Location: LROSREST+35
Function Call: WRITE	Prompt: ?4,"Routine Ends." Line Location: LROSREST+36
Function Call: WRITE	Prompt: ?4,"The original VistA version has successfully overwritten the current",! Line Location: LROSREST+40
Function Call: WRITE	Prompt: ?4,"Order/Test status report." Line Location: LROSREST+41
Function Call: WRITE	Prompt: !!,?4,"The routine ",RTN," does NOT exist on this server." Line Location: CHKOVERR+2
Function Call: WRITE	Prompt: !!,?9,"Please contact IHS/OIT Lab Support." Line Location: CHKOVERR+3
Function Call: WRITE	Prompt: !!,?TAB,STR," Routine Ends." Line Location: BADSTUFF+2
Routine Call	DIR Line Location: WARNINGS+6

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ROUTINE(	CHKOVERR+1
^ROUTINE("LROSORIG"	LROSREPL+28

Label References

Name	Line Occurrences
$$CHKOVERR	LROSREPL+3, LROSREST+3
$$WARNINGS	LROSREPL+17, LROSREPL+20, LROSREPL+23, LROSREST+17, LROSREST+20, LROSREST+23
BADSTUFF	BADSTUFN+1, BADSTUFQ+1
BLR2VARS	PEP+3, LROSREPL+5, LROSREST+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> BADSTUFF	LROSREPL+37*, LROSREPL+42
>> BLRVERN	BLR2VARS+1*
>> BLRVERN2	BLR2VARS+2*
>> CODE	LROSREPL+30, LROSREPL+31, LROSREPL+34, LROSREPL+46, LROSREPL+47, LROSREPL+51, LROSREST+30, LROSREST+31, LROSREST+35
>> DILOCKTM	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> DIR("A"	WARNINGS+4*
>> DIR("B"	WARNINGS+5*
>> DIR(0	WARNINGS+3*
>> DIRUT	WARNINGS+7
>> DISYS	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
DT	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
DTIME	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
DUZ	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> ERRORS	LROSREPL+30, LROSREPL+31, LROSREPL+34, LROSREPL+46, LROSREPL+47, LROSREPL+51, LROSREST+30, LROSREST+31, LROSREST+35
>> HEADER(1	LROSREPL+7, LROSREST+7
>> HEADER(2	LROSREPL+8, LROSREST+8
IO	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> IOBS	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
IOF	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
IOM	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
ION	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> IOS	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
IOSL	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
IOST	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> IOT	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> IOXY	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
MSG	WARNINGS~, WARNINGS+4
>> RETURN	LROSREPL+31, LROSREPL+32, LROSREPL+47, LROSREPL+49, LROSREST+31*, LROSREST+33
RTN	CHKOVERR~, CHKOVERR+1, CHKOVERR+2
STR	BADSTUFF~, BADSTUFF+2, BADSTUFN~, BADSTUFN+1, BADSTUFQ~, BADSTUFQ+1
TAB	WARNINGS~, WARNINGS+1, WARNINGS+4, BADSTUFF~, BADSTUFF+1, BADSTUFF+2, BADSTUFF+3, BADSTUFN~, BADSTUFN+1, BADSTUFQ~ , BADSTUFQ+1
TWO	BLR2VARS~, BLR2VARS+2
U	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> X	LROSREPL+30, LROSREPL+46, LROSREST+30*
>> XPARSYS	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> XQXFLG	PEP+1, LROSREPL+1, LROSREST+1, CHKOVERR+9
>> Y	WARNINGS+7

Customize PDF page

Package: IHS Changes To Lab

Routine: BLROTSCH

Information

Source Information

Call Graph

Call Graph Total: 3

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items