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: LA7VLCM1

Package: Automated Lab Instruments

Routine: LA7VLCM1


Information

LA7VLCM1 ;DALOI/JDB - LAB CODE MAPPING FILE UTILITIES ;03/07/12 10:09

Source Information

Source file <LA7VLCM1.m>

Entry Points

Name Comments DBIA/ICR reference
QUE(ZTRTN,ZTDESC,ZTSAVE) ;
; QUEUE a routine
; Returns -1 if POP=1, 0 if not queued, or the QUEUED task #
INIT ;
; General INIT for all reports
DFL(R6247,DFL) ;
; Data Field Length
; Inputs
; R6247 File #62.47 IEN
; DFL <byref> See Outputs
; Outputs
; DFL DFL array holds the max field sizes for each field
HDRCAP(HDRCAP) ;
; Header Captions
; Inputs
; HDRCAP <byref> See Outputs
; Outputs
; HDRCAP Holds the column titles
SUB(DFL,R6247,SCR,R624701) ;
; Driver for displaying one #62.4701 subfile entry or
; an entire #62.47 entry.
; Inputs
; DFL
; R6247
; SCR
; R624701
DF(R6247,R624701,DF) ;
; Setup and populate the Data Fields array
; Inputs
; R6247
; R624701
; DF <byref>
; Outputs
; DF
SHOW(DF,DFL,SCR) ;
; Generic driver to display the data of a record
; Inputs
; DF <byref> Data Fields array
; DFL <byref> Data Fields Length array
; SCR <opt> Screen
CLEAN ;
; Clean up and quit
BIG(A,B) ;
; Returns the bigger of two values
HDR(DFL,TITLE) ;
; Generic driver to display the header of the report
; Inputs
; DFL <byref> Data Field Length array
; TITLE <opt> The title to use for this report
MORE(NULL) ;
; Prompts user to hit ENTER to continue
; Returns 1 if user enters "^" else returns 0
TASK(ZTRTN,ZTDESC,ZTSAVE) ;
; Tasks the specified routine
; Returns the task # or 0
RVID(I) ;
; Reverse Video On/Off
; Inputs
; I I=1 turns on reverse video I=0 turns off reverse video
PROGRESS(LAST) ;
; Prints a "." when NOW > LAST + INT
; Input
; LAST : <byref> The last $H when "." was shown
LOINCFSN(LOINC) ;
; Returns the FSN for this LOINC code
; Needs to be FM safe for use within FM calls

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !?POS,$$RJ^XLFSTR(DF(1),POS2," ")
  • Line Location: SHOW+15
Function Call: WRITE
  • Prompt: ?POS,$$RJ^XLFSTR(DF(2),POS2," ")
  • Line Location: SHOW+18
Function Call: WRITE
  • Prompt: ?POS,DF(3)
  • Line Location: SHOW+21
Function Call: WRITE
  • Prompt: ?POS,DF(4)
  • Line Location: SHOW+23
Function Call: WRITE
  • Prompt: ?POS,DF(6)
  • Line Location: SHOW+26
Function Call: WRITE
  • Prompt: !," LOINC: "
  • Line Location: SHOW+35
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+37
Function Call: WRITE
  • Prompt: !,"Override Concept: ",DF(5)
  • Line Location: SHOW+38
Function Call: WRITE
  • Prompt: !," Related Entry: ",FN," "
  • Line Location: SHOW+42
Function Call: WRITE
  • Prompt: X
  • Line Location: SHOW+46
Function Call: WRITE
  • Prompt: !," Msg Config: ",DF(8)
  • Line Location: SHOW+47
Function Call: WRITE
  • Prompt: !
  • Line Location: SHOW+48
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+2
Function Call: WRITE
  • Prompt: $C(13)_$J("",$G(IOM,80))_$C(13)
  • Line Location: CLEAN+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: ?0,$E(TITLE,1,IOM-34),?IOM-32,$$FMTE^XLFDT(NOW),?IOM-10," Page: ",PAGE
  • Line Location: HDR+13
Function Call: WRITE
  • Prompt: !?POS,$$RJ^XLFSTR(HDRCAP(1),POS2," ")
  • Line Location: HDR+16
Function Call: WRITE
  • Prompt: ?POS,$$RJ^XLFSTR(HDRCAP(2),DFL(2)," ")
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: ?POS,HDRCAP(3)
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?POS,HDRCAP(4)
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: ?POS,HDRCAP(5)
  • Line Location: HDR+27
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: $C(13)_$J("",$G(IOM,80))_$C(13)
  • Line Location: MORE+8
Function Call: WRITE
  • Prompt: !,"Request "_$S($G(ZTSK):"queued - Task #"_ZTSK,1:"NOT queued")
  • Line Location: TASK+6
Function Call: WRITE
  • Prompt: "."
  • Line Location: PROGRESS+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
62.4701 GETS^DIQ
^LAB(95.3 - [#95.3] FIND1^DIC,  GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call