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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LR138PO

Package: Lab Service

Routine: LR138PO


Information

LR138PO ; IHS/DIR/AAB - LR*5.2*138 POST INSTALL ROUTINE KIDS INSTALL ;

Source Information

Source file <LR138PO.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
Kernel 2 $$CJ^XLFSTR  $$ADD^XPDMENU  
Lab Service 2 LOADB^LRCAPPH2  EQUALS^LRX  
Registration 1 $$SITE^VASITE  
VA Fileman 1 EN^DIQ  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRBLFX72  

Entry Points

Name Comments DBIA/ICR reference
LOC ;
SET
END ;
LK ;
EN ;Builds Laboratory OOS Locations for each LMIP valid WKLD Divison
MSG

External References

Name Field # of Occurrence
EN^DIQ SET+6
LOADB^LRCAPPH2 LK+4
EQUALS^LRX SET+7, SET+9
$$SITE^VASITE SET+3
$$CJ^XLFSTR EN+2, LOC+4, LOC+5, LOC+6, SET+4, SET+6, SET+8, MSG+1, MSG+2
$$ADD^XPDMENU EN+6, EN+8

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Starting Post Install Process",80),!!
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !?5,"Cant lock ^LRO(69,AA) GLOBAL POST INSTALL ABORTED",!
  • Line Location: EN+5
Function Call: WRITE
  • Prompt: !!,"Option [LR WKLD LOCATIONS] was ",$S(X:"Added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU ",!!
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !!,"Option [LR WKLD ACC AREA LOCATIONS] was ",$S(X:"Added",1:"NOT ADDED")," to [LR LIM/WKLD] MENU ",!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("POST INSTALL ABORTED",80)
  • Line Location: LOC+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Creating Laboratory OOS Workload Locations",80),!!
  • Line Location: LOC+6
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Database Upgrade Completed Successfully",80),!!
  • Line Location: SET+4
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("DEFAULT LAB OOS LOCATION IS",80),!!
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SET+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(" Database Upgrade was INCOMPLETE ",80)
  • Line Location: SET+8
Function Call: WRITE
  • Prompt: !!
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SET+9
Function Call: WRITE
  • Prompt: !
  • Line Location: SET+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("PCE/VSIT ON (#615) field in LABORATORY SITE (#69.9) file",80)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("has been set to BOTH PCE/VSIT AND STOP CODES",80),!!
  • Line Location: MSG+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^SC - [#44] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(4 - [#4] LK+2
^DIC(9.4 - [#9.4] LOC+1, LOC+2
^LAB(69.9 - [#69.9] SET+1*, SET+3, SET+4, SET+5, MSG*
^LAM(0 EN+3
^LRO(67.9 - [#67.9] SET+1, SET+2
^LRO(69 - [#69] EN+4, END+1

Label References

Name Line Occurrences
END EN+4, LOC+3
LK SET+1, SET+2, SET+3
MSG SET+4

Naked Globals

Name Field # of Occurrence
^( SET+3*
^(0 EN+3*
^(99 LK+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA SET+5!*, END+3!
DATA END+3!
DIC SET+5!*, END+3!
DIE SET+5!, END+3!
DIK END+3!
DR SET+5*, END+3!
>> I SET+7*, SET+9*
>> LRDBUG END+2
LRDIV END+3!, LK+2*, LK+3
LRDIVN SET+1*, SET+2*, SET+3*, END+3!, LK+2
LRNAME END+3!, LK+3*
LROK SET*, SET+1, SET+2, SET+3, END+3!
LRPKG LOC+1*, LOC+2*, LOC+3, END+3!
LRSCODE END+3!, LK+3*
>> LRSDCX LK+1
LRVN SET+1*, SET+2, END+3!
LRVN1 SET+2*, END+4!
U EN+3, MSG, LK+2
X EN+6*, EN+7, EN+8*, EN+9, END+4!
>> XPDQUIT LOC+4*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All