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
Print Page as PDF
Routine: LA7UTIL

Package: Automated Lab Instruments

Routine: LA7UTIL


Information

LA7UTIL ;DALISC/JRR - Utilities for Messenger

Source Information

Source file <LA7UTIL.m>

Entry Points

Name Comments DBIA/ICR reference
CPT(X)
BU2
TREE
UNWIND(LA760) ;unwind one panel, calls itself recursively to unwind all
PRETTY(LA76249) ;Store an HL7 message text in pretty print format, stored in
PRETIN
PRETOUT ;
LOG ;Print the error log which is stored in ^XTMP. Errors are logged
CADT(LA7AA) ; Calculate current accession date based on accession area transform
; Call with LA7AA = ien of accession area

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " ???"
  • Line Location: CPT+5
Function Call: WRITE
  • Prompt: !,?5,$J("("_LA7_") ",6),$P(LA7(0),"^"),?22,$TR($P(LA7(0),"^",2,99),"^"," ")
  • Line Location: CPT+9
Function Call: WRITE
  • Prompt: !!,?5,"Nothing logged for Today!"
  • Line Location: LOG+5
Function Call: WRITE
  • Prompt: !!,?5,"Nothing logged for "
  • Line Location: LOG+15
Function Call: WRITE
  • Prompt: Y
  • Line Location: LOG+15
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: LOG+19
Function Call: WRITE
  • Prompt: !!
  • Condition for execution: $X
  • Line Location: LOG+22
Function Call: WRITE
  • Prompt: $E(LA7,4,5),"/",$E(LA7,6,7)
  • Line Location: LOG+22
Function Call: WRITE
  • Prompt: "@",$E(LA7TM,1,4)_$E("0000",$L($E(LA7TM,1,4)),3)," "
  • Line Location: LOG+23
Function Call: WRITE
  • Prompt: $P(^XTMP(LA7XTMP,LA7TM),"^",2)," "
  • Line Location: LOG+24
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ($L(Y)+$X+1)>IOM
  • Line Location: LOG+25
Function Call: WRITE
  • Prompt: " ",Y
  • Line Location: LOG+25
Info |  Source |  Entry Points |  Interaction Calls