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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: LR72PRE

Package: Lab Service

Routine: LR72PRE


Information

LR72PRE ; IHS/DIR/AAB - PRE-INSTALL ROUTINE FOR LR*5.2*72 ;

Source Information

Source file <LR72PRE.m>

Call Graph

Call Graph Total: 6

Package Total Call Graph
VA Fileman 4 ^DIC  FILE^DIE  ^DIK  EN^DIU2  
Kernel 2 $$CJ^XLFSTR  BMES^XPDUTL  

Entry Points

Name Comments DBIA/ICR reference
PRE ;LR*5.2*163 AFTER USER COMMITS ROUTINE KIDS INSTALL"
ENPRE ;
EN ;
LR138P ;
SPELL ;
SPCK
ABI
DD ;
ALM
EN1 ;
EN2 ;
LRARIPRE ;
LR127P ;
FILE ;
PRELR163 ;
BXREF ;Kills B xref on PATIENT XMATCH field (#65.01)
AWD

External References

Name Field # of Occurrence
^DIC SPCK+8
FILE^DIE FILE+4
^DIK EN+4, EN+5, EN+6, EN+7, DD+1, DD+2, EN2+3, EN2+4, EN2+5, EN2+13
, ENPRE+14, ENPRE+18
EN^DIU2 AWD+1, ALM+1, ABI+1
$$CJ^XLFSTR EN+9, EN2+14, EN2+16, ENPRE+11, ENPRE+12, ENPRE+15, ENPRE+16, ENPRE+19, ENPRE+25, SPCK+2
, SPCK+3, SPCK+5, SPCK+9, SPCK+12, FILE+2
BMES^XPDUTL ENPRE+11, ENPRE+12, ENPRE+15, ENPRE+16, ENPRE+19, ENPRE+25, SPCK+2, SPCK+3, SPCK+5, SPCK+9
, SPCK+12, FILE+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"Pre Install Completed ",!!
  • Line Location: LR72PRE+9
Function Call: WRITE
  • Prompt: !?5,"You have old data in LAB NLT/CPT CODES file ",!,"INSTALL ABORTED ",$C(7)
  • Line Location: EN+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Pre Install 127 Complete",80),!!
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !!,">>> Deleting OLD 'LAB' ARCHIVE FILES.",!
  • Line Location: EN1+1
Function Call: WRITE
  • Prompt: !!,"DELETING ARCHIVED WKLD DATA FILE."
  • Line Location: AWD+0
Function Call: WRITE
  • Prompt: !!,"DELETING ARCHIVED LAB MONTHLY WORKLOADS FILE."
  • Line Location: ALM+0
Function Call: WRITE
  • Prompt: !!,"DELETING ARCHIVED BLOOD INVENTORY FILE."
  • Line Location: ABI+0
Function Call: WRITE
  • Prompt: !!,"The data dictionaries for these files will be reinstalled during the inits."
  • Line Location: ABI+3
Function Call: WRITE
  • Prompt: !?5,"You still have unistalled data in LAB NLT/CPT CODES file ",!,$C(7)
  • Line Location: EN2+7
Function Call: WRITE
  • Prompt: !!?10,"Not able to find 'LAB SERVICE' in your Package (#9.4) file.",!,"Contact your IRM Service !!",!!,$C(7)
  • Line Location: EN2+12
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("LOCKING THE ^LRO(69,AA) GLOBAL",80),!
  • Line Location: EN2+14
Function Call: WRITE
  • Prompt: !!?5,"Not able to LOCK ^LRO(69,AA) Global"
  • Line Location: EN2+15
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Pre Install 138 Complete",80),!!
  • Line Location: EN2+16
Function Call: WRITE
  • Prompt: !
  • Line Location: ENPRE+20
Routine Call
  • DIC
  • Line Location:
    • SPCK+8
Routine Call
  • DIE
  • Line Location:
    • FILE+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("TEST" EN2+8
^DD(65.01 BXREF+2, BXREF+3, BXREF+4!, BXREF+5!, BXREF+6!
^DIC(9.4 - [#9.4] EN2+10, EN2+11
^LAB(64.81 - [#64.81] EN+2, EN+8, EN2+7, ENPRE+9!*
^LAM - [#64] ENPRE+4, ENPRE+5, ENPRE+6, ENPRE+7!, ENPRE+8*, ENPRE+20, ENPRE+21!, ENPRE+22!
^LAM("AD" EN+8!, ENPRE+23!
^LAM(0 ENPRE+10*
^XTMP("LR" SPCK!, SPCK+1*, FILE+4

Label References

Name Line Occurrences
DD LR72PRE+5
FILE SPCK+11
LR127P LR72PRE+4
LR138P LR72PRE+7
LRARIPRE LR72PRE+6
PRELR163 LR72PRE+8
SPCK ENPRE+24

Naked Globals

Name Field # of Occurrence
^(0 ENPRE+9, ENPRE+22*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CK SPCK+4!*, SPCK+11*
CK( SPCK+4*, SPCK+5, SPCK+7, SPCK+8
DA EN+3~, EN+4*, EN+5!*, EN+6!*, EN+7!*, DD+1!*, DD+2!*, DD+3!, EN2+3!*, EN2+4!*
, EN2+5!*, EN2+6!, EN2+13!*, ENPRE+13~, ENPRE+14*, ENPRE+17~, ENPRE+18*, FILE+1~, FILE+3*
DA(1 EN+4*, EN+5*, EN+6*, EN+7*, DD+1*, EN2+3*, EN2+4*, EN2+5*, EN2+13*
DIC SPCK+6!*
DIC(0 SPCK+6*
DIK EN+3~, EN+4*, EN+5!*, EN+6!*, EN+7!*, DD+1!*, DD+2!*, DD+3!, EN2+3!*, EN2+4!*
, EN2+5!*, EN2+6!, EN2+13!*, ENPRE+13~, ENPRE+14*, ENPRE+17~, ENPRE+18*
DIU AWD+1*, ALM+1*, ABI+1*, ABI+2!
DIU(0 AWD+1*, ALM+1*, ABI+1*
I ENPRE+3~, ENPRE+4*, ENPRE+5, ENPRE+6, ENPRE+7, ENPRE+8, ENPRE+20*, ENPRE+21, ENPRE+22, SPCK+4*
, SPCK+5*
>> II SPCK+7*, SPCK+8
>> LN SPCK+4*
>> LNX SPCK+11*, FILE+2
>> LRARI BXREF+3*, BXREF+4
>> LRO(69 EN2+15
>> LRPKG EN2+10*, EN2+11*, EN2+12
LRROOT FILE+1~
LRROOT(64 FILE+3*
N ENPRE+3~, ENPRE+6*, ENPRE+7
>> NM SPCK+8*, SPCK+11, FILE+2, FILE+3
U ENPRE+8, ENPRE+9, ENPRE+10, ENPRE+22, SPCK+11
>> X EN2+8*, ENPRE+9*, SPCK+8*, SPCK+9
>> XPDNM EN+1, EN2+1, ENPRE+1
>> XPDQUIT EN+2*, EN2+8*, EN2+12*, EN2+15*
>> Y SPCK+9, SPCK+11, FILE+2, FILE+3

Marked Items

Name Field # of Occurrence
$T(SPELL+I SPCK+4
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  Marked Items |  All