Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: BLROTSCH

Package: IHS Changes To Lab

Routine: BLROTSCH


Information

BLROTSCH ; IHS/OIT/MKK - IHS LAB Order Test/Status CHanger; 10-Mar-2015 10:22 ; MKK

Source Information

Source file <BLROTSCH.m>

Call Graph

Call Graph Total: 3

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

Caller Graph

Caller Graph Total: 1

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

Marked Items

Name Field # of Occurrence
$T( BLR2VARS+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All