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

Package: Automated Lab Instruments

Routine: LA74


Information

LA74 ;DALOI/JMC - LA*5.2*74 KIDS ROUTINE ;12/27/11 09:32

Source Information

Source file <LA74.m>

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Kernel 6 $$HTE^XLFDT  ($$CJ,$$TRIM)^XLFSTR  (BMES,MES)^XPDUTL  SETUP^XQALERT  $$GET^XUPARAM  $$ACTIVE^XUSER  
VA FileMan 4 FILE^DIE  $$VFILE^DILFD  GETS^DIQ  EN^DIU2  
Automated Lab Instruments 1 POST^LA74A  
Lab Service 1 RESTORE^LR350  
MailMan 1 $$GOTLOCAL^XMXAPIG  

Entry Points

Name Comments DBIA/ICR reference
PRE ;
; KIDS Pre install for LA*5.2*74
EN ; Does not prevent loading of the transport global.
ALERT(MSG,RECIPS) ;
BMES(STR) ;
; Write string
SETTG(R1,R2,SUB,VAL) ;
; Adds the Pre-Transport data node
; ^XTMP("XPDI",DA,"TEMP","LA6247",R6247,0)=0 node data
; ,R6247,1,R624701,0)=0 node data
PTG ;
; Pre-Transport Global routine
; Populate pre-transport global with #62.47 data
; Only files the 0 nodes (2 node is for local data)
MES(STR,CJ,LM) ;
; Display a string using MES^XPDUTL
; Inputs
; STR: String to display
; CJ: Center text? 1=yes 0=1 <dflt=1>
; LM: Left Margin (padding)
PROGRESS(LAST) ;
; Prints a "." when NOW > LAST + INT
; Input
; LAST : <byref> The last $H when "." was shown
POST ;
; KIDS Post install for LA*5.2*74
GETLOCAL ;
; Called from Pre-Install
; Gets all Local and non-National codes from File #62.47 and saves them to TMP for restore in Post
; Also saves site's mapping of national entries to local files for antibiotics (#62.06)

External References

Name Field # of Occurrence
FILE^DIE PRE+52
$$VFILE^DILFD PRE+32, PRE+57
GETS^DIQ GETLOCAL+20
EN^DIU2 PRE+41, PRE+60
POST^LA74A POST+3
RESTORE^LR350 PRE+14, POST+7
$$HTE^XLFDT EN+5, EN+11
$$CJ^XLFSTR EN+7, EN+10, EN+19, EN+27, EN+31, EN+45, EN+46, EN+47, EN+50, BMES+2
, MES+10
$$TRIM^XLFSTR BMES+2, SETTG+9, MES+10
$$GOTLOCAL^XMXAPIG ALERT+3
BMES^XPDUTL BMES+2
MES^XPDUTL MES+12
SETUP^XQALERT ALERT+6
$$GET^XUPARAM POST+5
$$ACTIVE^XUSER EN+30

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Sending transport global loaded alert to mail group G.LMI",POS)
  • Line Location: EN+7
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Sending install started alert to mail group G.LMI",POS)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Terminal Device is not defined.",POS)
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Please login to set DUZ variables.",POS)
  • Line Location: EN+27
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Not a valid user on this system.",POS)
  • Line Location: EN+31
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("* * * Environment Check FAILED * * *",POS)
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR(BAD(1),POS)
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !!,$C(7),$$CJ^XLFSTR("Installation aborted.",POS),!
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("--- Environment okay ---",POS)
  • Line Location: EN+50
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: PRE+8
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROGRESS+6
Routine Call
  • DIE
  • Line Location:
    • PRE+52

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(62.47 - [#62.47] VFILE^DILFD
62.4701 GETS^DIQ
^LAHM(62.49 - [#62.49] VFILE^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("DEL" POST+6
^%ZOSF("TEST" EN+37, POST+6
^DD(62.47 PRE+44, PRE+54!
^LAB(62.47 - [#62.47] PRE+46, PRE+49, PTG+6, PTG+7, PTG+10, PTG+11, GETLOCAL+9, GETLOCAL+11, GETLOCAL+12, GETLOCAL+13
, GETLOCAL+17
^TMP("LA74-LOCAL" PRE+17!, PRE+24, GETLOCAL+6!, GETLOCAL+17*, GETLOCAL+25*, GETLOCAL+27*
^TMP("LA74-LOCAL-MAPPING" GETLOCAL+6!, GETLOCAL+16*, GETLOCAL+28*
^TMP("LR350" PRE+5

Label References

Name Line Occurrences
ALERT EN+6, EN+12
BMES PRE+3, PRE+9, PRE+10, PRE+12, PRE+22, PRE+25, PRE+29, PRE+45, PRE+59, PRE+63
GETLOCAL PRE+23
MES PRE+11
SETTG PTG+8, PTG+15, PTG+16

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
BAD EN+1~, EN+14*, EN+15*, EN+16*, EN+17*, EN+18, EN+22*, EN+23*, EN+24*, EN+25*
, EN+26, EN+34*, EN+35*, EN+39*, EN+43, EN+49
BAD(1 EN+40*, EN+46
CJ MES~, MES+8*, MES+10, MES+11
CNT PTG+4~, PTG+5*, PTG+14*, PTG+15, SETTG+4~, GETLOCAL+4~, GETLOCAL+8*, GETLOCAL+22*, GETLOCAL+27
CNT(1 GETLOCAL+8*, GETLOCAL+16*, GETLOCAL+28
DA ALERT+1~
DATA PTG+4~, PTG+7*, PTG+8, PTG+11*, PTG+12, PTG+13, PTG+16, GETLOCAL+4~, GETLOCAL+12*, GETLOCAL+15
, GETLOCAL+18!, GETLOCAL+21
DATA( GETLOCAL+23, GETLOCAL+24
DIERR PRE+47~, PTG+4~, GETLOCAL+4~, GETLOCAL+18!
DIK ALERT+1~
DIU PRE+31~, PRE+36*, PRE+40*, PRE+58~, PRE+60*
DIU(0 PRE+35*, PRE+39*, PRE+60*
DUZ EN+23, EN+24, EN+30, ALERT+4
DUZ(0 EN+25
FDA GETLOCAL+4~
>> FLD GETLOCAL+22*, GETLOCAL+23*, GETLOCAL+24, GETLOCAL+25
FLDIENS GETLOCAL+4~
>> IENS GETLOCAL+19*, GETLOCAL+20, GETLOCAL+23, GETLOCAL+24
IENS2 PTG+4~
INT PROGRESS+4~, PROGRESS+5*, PROGRESS+6
IOM EN+3, EN+15, BMES+2, MES+10
IOSL EN+16
LA72 GETLOCAL+4~, GETLOCAL+13*, GETLOCAL+16
LAACTN PRE+2~
LAACTN(2 PRE+26!
LADATA PRE+2~, PRE+32*, PRE+34, PRE+38
LAFDA PRE+47~
LAFDA(1 PRE+51*
LAMSG PRE+2~, PRE+47~, PRE+50!
LAST PROGRESS~, PROGRESS+6*
LAX PRE+2~, PRE+24*, PRE+25
LM MES~, MES+9*, MES+11
LRFDA PRE+50!
MSG ALERT~, ALERT+2, PTG+4~, GETLOCAL+4~
NMSPC SETTG+4~, SETTG+6*, SETTG+10
NODE SETTG+4~, SETTG+8*, SETTG+9*, SETTG+10*, SETTG+11*, SETTG+12*, SETTG+13*, SETTG+14
P2FILE PTG+4~
POS EN+1~, EN+3*, EN+7, EN+10, EN+19, EN+27, EN+31, EN+45, EN+46, EN+47
, EN+50
R1 SETTG~, SETTG+10, SETTG+11, SETTG+12
R2 SETTG~, SETTG+12, SETTG+13
R6247 PRE+48*, PRE+49*, PRE+51, PTG+4~, PTG+5*, PTG+6*, PTG+7, PTG+8, PTG+10, PTG+11
, PTG+16, GETLOCAL+4~, GETLOCAL+8*, GETLOCAL+9*, GETLOCAL+11, GETLOCAL+12, GETLOCAL+13, GETLOCAL+16, GETLOCAL+17, GETLOCAL+19
, GETLOCAL+25
R624701 PTG+4~, PTG+9*, PTG+10*, PTG+11, PTG+16, GETLOCAL+4~, GETLOCAL+10*, GETLOCAL+11*, GETLOCAL+12, GETLOCAL+13
, GETLOCAL+16, GETLOCAL+19, GETLOCAL+25
RECIPS ALERT~, ALERT+5
STR EN+1~, EN+5*, EN+6, EN+11*, EN+12, BMES~, BMES+2, MES~, MES+7*, MES+10*
, MES+11*, MES+12
SUB PTG+4~, SETTG~, SETTG+5*, SETTG+13
U EN+17
VAL SETTG~, SETTG+14
X EN+1~, EN+36*, PRE+2~, PRE+5*, PRE+6, POST+2~, POST+6*, PTG+4~, GETLOCAL+4~, GETLOCAL+24*
, GETLOCAL+25, MES+6~, MES+11*
X2 GETLOCAL+4~
>> XPDABORT EN+20*, EN+28*, EN+32*, EN+35, EN+41*, EN+43, EN+44*, EN+49, PRE+7*
>> XPDDIQ("XPZ1" EN+53*
>> XPDENV EN+4, EN+9, EN+47, EN+53
>> XPDGREF SETTG+7, SETTG+8
>> XPDNM EN+5, EN+11
>> XPDNOQUE EN+2*
>> XPDQUIT EN+35
XQA ALERT+1~, ALERT+5*
XQA( ALERT+4*
XQA("G.LMI" ALERT+3*
XQAMSG ALERT+1~, ALERT+2*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  All