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

Package: Automated Lab Instruments

Routine: LA7SRPT1


Information

LA7SRPT1 ;DALOI/JDB - SHIPPING MGR REPORTS (CONT) ; 3/13/07 3:00pm

Source Information

Source file <LA7SRPT1.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
; Displays data for a SHPCFG (#62.9) or a MSG PARAM (#62.48)
; entry. Displays all #62.9s for a #62.48 .
; Prompts for #62.48 or #62.9, Only SCT overrides, then device.
MAIN(R629,R6248,FLAGS) ;
; Setup variables and branch to proper display method.
; private method
; Inputs
; R629 : <opt> #62.9 IEN (need R629 or R6248)
; R6248 : <opt> #62.48 IEN
; FLAGS : <opt> Flags (O=Only print SCT Overrides)
LOOP(R6248,FLAGS,STOP) ;
; Displays all SHP CFGs (#62.9) for a MSG CFG (#62.48) entry
; private method
; Inputs
; R6248 : #62.48 IEN
; FLAGS : <opt> O=Only show tests with SCT override
; STOP : <byref> See Outputs
; Outputs
; STOP : User wants to stop display -- 1=stop
SHPCFG(R629,FLAGS,STOP) ;
; Displays SHIPPING CONFIG (#62.9) entry info
; private method
; Inputs
; R629 : #62.9 IEN
; FLAGS : <opt> O=Only show tests with SCT override
; STOP : <byref> See Outputs
; Outputs
; STOP : User wants to stop display -- 1=stop
WTEST ;
; Displays the "top-level" test info
; Expects the D64 and D629001 arrays
; private method
GETFLDS(LAFILE,LAIEN,LAFLDS,DATA) ;
; Fields retriever
; Inputs
; LAFILE : File #
; LAIEN : IEN
; LAFLDS : Field #s to retrieve ie ".01;.02;1"
; DATA : <byref> See Outputs
; Outputs
; DATA : Array that holds the internal and external field values
; : ie DATA(.01,"I")=1 DATA(.01,"E")="value"
ISMAPPED(R6248,VARPTR) ;
; Is this VARPTR (spec or sample) an entry in #62.482?
; Inputs
; R6248 : #62.48 IEN
; VARPTR : Pointer to file #61 or #62 -- ie "123;LAB(61,"
; Output
; 0 or the #62.482 IEN of the VARPTR
GETMAP(R6248,R62482) ;
; Returns the SCT code in #62.482
HDR ;
; Header
; Expects PGDATA array
; private method
FTR ;
; Footer
; private method
NP ;
; New Page handler
; convenience method
WRAP(STR,LM,NL,ABORT,PGDATA) ;
; Formats (wraps) and prints a string
; Depending on desired output, caller may need to position
; the cursor at desired column (W ?X) before calling WRAP.
; Inputs
; STR : The string to format
; LM : Left Margin (align to column X)
; NL : New Line? 0=no 1=yes (Write a new line first)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: MAIN+28
Function Call: WRITE
  • Prompt: !!
  • Line Location: LOOP+15
Function Call: WRITE
  • Prompt: !,"Shipping Configuration: ",D629(.01,"E")
  • Line Location: SHPCFG+20
Function Call: WRITE
  • Prompt: !?5,"No SCT overrides in ",D629(.07,"E")
  • Line Location: SHPCFG+23
Function Call: WRITE
  • Prompt: !?8,"No Tests for this configuration."
  • Line Location: SHPCFG+38
Function Call: WRITE
  • Prompt: !
  • Line Location: SHPCFG+47
Function Call: WRITE
  • Prompt: !
  • Line Location: SHPCFG+61
Function Call: WRITE
  • Prompt: !?4,"Specimen: "
  • Line Location: SHPCFG+66
Function Call: WRITE
  • Prompt: !?6,"HL7 Info: ",STR
  • Line Location: SHPCFG+72
Function Call: WRITE
  • Prompt: !?6,"SCT override: "
  • Line Location: SHPCFG+78
Function Call: WRITE
  • Prompt: !?4,"Sample: ",D629001(.09,"E")
  • Line Location: SHPCFG+94
Function Call: WRITE
  • Prompt: " (",SCT," ",$$GETPREF^LRSCT(SCT),")"
  • Line Location: SHPCFG+96
Function Call: WRITE
  • Prompt: !?6,"HL7 Info: ",STR
  • Line Location: SHPCFG+99
Function Call: WRITE
  • Prompt: !?6,"SCT override: "
  • Line Location: SHPCFG+103
Function Call: WRITE
  • Prompt: !?2,"Test: ",D629001(.01,"E")
  • Line Location: WTEST+6
Function Call: WRITE
  • Prompt: !?2,D64(.01,"E")," (",D64(1,"E"),")"
  • Line Location: WTEST+8
Function Call: WRITE
  • Prompt: !,?2,"Order Code: ",STR
  • Line Location: WTEST+12
Function Call: WRITE
  • Prompt: !,"SHIPPING CONFIGURATION DISPLAY "
  • Line Location: HDR+14
Function Call: WRITE
  • Prompt: ?IOM-$L(STR)-2,STR
  • Line Location: HDR+17
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",IOM)
  • Line Location: HDR+18
Function Call: WRITE
  • Prompt: !
  • Line Location: WRAP+24
Function Call: WRITE
  • Prompt: STR2
  • Line Location: WRAP+25
Function Call: WRITE
  • Prompt: !,?LM-1,X
  • Line Location: WRAP+42

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
62.482 GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call