Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

Entry Points

Name Comments DBIA/ICR reference
EN ; Does not prevent loading of the transport global.
PRE ;
; KIDS Pre install for LA*5.2*74
POST ;
; KIDS Post install for LA*5.2*74
ALERT(MSG,RECIPS) ;
BMES(STR) ;
; Write string
PROGRESS(LAST) ;
; Prints a "." when NOW > LAST + INT
; Input
; LAST : <byref> The last $H when "." was shown
PTG ;
; Pre-Transport Global routine
; Populate pre-transport global with #62.47 data
; Only files the 0 nodes (2 node is for local data)
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
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)
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)

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call