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

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Kernel 4 HOME^%ZIS  ^%ZISC  ($$FMTE,$$NOW)^XLFDT  ($$REPEAT,$$TRIM)^XLFSTR  
VA FileMan 4 ^DIC  ($$GET1,GETS)^DIQ  ^DIR  ^DIWP  
Lab Service 2 ($$GETPREF,$$GETSCT)^LRSCT  ($$QUE,MORE,NP)^LRUTIL  
Automated Lab Instruments 1 HDR^LA7SRPT1  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Automated Lab Instruments 3 LA7SRPT  LA7SRPT1  LA7SRPT4  

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)

External References

Name Field # of Occurrence
HOME^%ZIS EN+37
^%ZISC MAIN+33
^DIC EN+9, EN+17
$$GET1^DIQ GETMAP+4
GETS^DIQ GETFLDS+15
^DIR EN+26
^DIWP WRAP+34
HDR^LA7SRPT1 MAIN+19
$$GETPREF^LRSCT SHPCFG+69, SHPCFG+77, SHPCFG+96, SHPCFG+104
$$GETSCT^LRSCT SHPCFG+68, SHPCFG+95
$$QUE^LRUTIL EN+32
MORE^LRUTIL EN+36
NP^LRUTIL NP+3, WRAP+41
$$FMTE^XLFDT HDR+15
$$NOW^XLFDT MAIN+14, HDR+7
$$REPEAT^XLFSTR HDR+18
$$TRIM^XLFSTR WRAP+27, WRAP+40

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
Routine Call
  • %ZIS
  • Line Location:
    • EN+37
Routine Call
  • DIC
  • Line Location:
    • EN+9
    • EN+17
Routine Call
  • DIR
  • Line Location:
    • EN+26

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
62.482 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAHM(62.48 - [#62.48] SHPCFG+22, ISMAPPED+7
^LAHM(62.9 - [#62.9] LOOP+12, LOOP+15, SHPCFG+27
^UTILITY($J WRAP+14!, WRAP+36, WRAP+38, WRAP+39, WRAP+43!

Label References

Name Line Occurrences
$$GETMAP SHPCFG+76, SHPCFG+102
$$ISMAPPED SHPCFG+56, SHPCFG+86
GETFLDS SHPCFG+15, SHPCFG+32, SHPCFG+34, SHPCFG+41, SHPCFG+45
LOOP MAIN+21
MAIN EN+35
NP SHPCFG+19, SHPCFG+21, SHPCFG+25, SHPCFG+36, SHPCFG+48, SHPCFG+51, SHPCFG+60, SHPCFG+62, SHPCFG+65, SHPCFG+73
, SHPCFG+75, SHPCFG+80, SHPCFG+82, SHPCFG+91, SHPCFG+97, SHPCFG+100, SHPCFG+106, SHPCFG+108, WTEST+5, WTEST+7
, WTEST+9, WTEST+13
SHPCFG MAIN+20, LOOP+13
WRAP SHPCFG+70, SHPCFG+79, SHPCFG+105
WTEST SHPCFG+49, SHPCFG+63, SHPCFG+92

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%X EN+4~
%Y EN+4~
ABORT WRAP~, WRAP+13*, WRAP+38, WRAP+41
BM MAIN+26~, MAIN+27*, MAIN+28
CHARS WRAP+9~, WRAP+15*, WRAP+20, WRAP+22
CNT SHPCFG+11~, SHPCFG+14*, SHPCFG+47, SHPCFG+61, SHPCFG+90, SHPCFG+109*, SHPCFG+110*
D60 SHPCFG+10~, SHPCFG+40!, SHPCFG+41
D60(64 SHPCFG+42
D629 SHPCFG+10~, SHPCFG+15, SHPCFG+16
D629( SHPCFG+17, SHPCFG+20, SHPCFG+23
D629001 SHPCFG+10~, SHPCFG+30!, SHPCFG+32, SHPCFG+34, SHPCFG+37
D629001( SHPCFG+39, SHPCFG+52, SHPCFG+53, SHPCFG+67, SHPCFG+71, SHPCFG+94, SHPCFG+98, WTEST+6, WTEST+11
D64 SHPCFG+10~, SHPCFG+43!, SHPCFG+45, WTEST+8
D64( WTEST+8
D64(1 WTEST+8
DATA GETFLDS~, GETFLDS+14!, GETFLDS+16*
DIC EN+4~, EN+7*, EN+14!, EN+15*
DIC(0 EN+8*, EN+16*
DIERR GETFLDS+10~, GETMAP+2~
DIR EN+4~, EN+22!
DIR("A" EN+24*
DIR("B" EN+25*
DIR(0 EN+23*
DIROUT EN+4~
DIWF WRAP+9~, WRAP+33*
DIWL WRAP+9~, WRAP+30*, WRAP+31*
DIWR WRAP+9~, WRAP+32*
DTOUT EN+4~, EN+10, EN+19
DUOUT EN+4~, EN+11, EN+20
FLAGS EN+4~, EN+6*, EN+28*, EN+29*, EN+31, EN+35, MAIN~, MAIN+11*, MAIN+20, MAIN+21
, LOOP~, LOOP+13, SHPCFG~, SHPCFG+12*, SHPCFG+22, SHPCFG+46, SHPCFG+57, SHPCFG+87, SHPCFG+109, SHPCFG+110
I MAIN+26~, MAIN+28*, WRAP+9~, WRAP+22*, WRAP+23, WRAP+36*, WRAP+38, WRAP+39
IO MAIN+12
IOM HDR+17, HDR+18, WRAP+18, WRAP+32
IOSL MAIN+28
IOST EN+36, MAIN+25
ISMAPPED SHPCFG+11~, SHPCFG+28*, SHPCFG+58*, SHPCFG+88*, SHPCFG+110
J WRAP+9~, WRAP+37*, WRAP+38*, WRAP+39
LAFDA GETFLDS+10~
LAFILE GETFLDS~, GETFLDS+11*, GETFLDS+15, GETFLDS+16
LAFLDS GETFLDS~, GETFLDS+15
LAIEN SHPCFG+11~, SHPCFG+31*, SHPCFG+32, SHPCFG+33*, SHPCFG+34, GETFLDS~, GETFLDS+12*, GETFLDS+13*, GETFLDS+15, GETFLDS+16
, GETMAP+2~, GETMAP+3*, GETMAP+4
LAMSG GETFLDS+10~, GETMAP+2~
LATARG GETFLDS+10~, GETFLDS+16
LATARG( GETFLDS+16
LM WRAP~, WRAP+11*, WRAP+30, WRAP+42
NL WRAP~, WRAP+12*, WRAP+24
PGDATA MAIN+8~, NP+3, WRAP~, WRAP+41
PGDATA("BM" MAIN+16*, MAIN+27
PGDATA("FTR" MAIN+18*, MAIN+24, MAIN+29
PGDATA("HDR" MAIN+17*
PGDATA("PGNUM" MAIN+15*, HDR+9, HDR+12*
PGDATA("RPTDT" MAIN+14*, HDR+5, HDR+8*
PGDATA("WFTR" MAIN+23
PGNUM HDR+4~, HDR+9*, HDR+10, HDR+11*, HDR+12, HDR+16
POP EN+4~
QUE EN+4~, EN+32*, EN+33, EN+34
R60 SHPCFG+10~, SHPCFG+39*, SHPCFG+41
R6248 EN+4~, EN+5*, EN+12*, EN+13, EN+21, EN+31, EN+35, MAIN~, MAIN+10*, MAIN+21
, LOOP~, LOOP+12, LOOP+15, SHPCFG+10~, SHPCFG+17*, SHPCFG+18, SHPCFG+22, SHPCFG+56, SHPCFG+76, SHPCFG+86
, SHPCFG+102, ISMAPPED~, ISMAPPED+7, GETMAP~, GETMAP+3
R62482 SHPCFG+10~, SHPCFG+56*, SHPCFG+57, SHPCFG+58, SHPCFG+74, SHPCFG+76, SHPCFG+86*, SHPCFG+87, SHPCFG+101, SHPCFG+102
, GETMAP~, GETMAP+3
R629 EN+4~, EN+5*, EN+18*, EN+21, EN+31, EN+35, MAIN~, MAIN+9*, MAIN+20, LOOP+10~
, LOOP+11*, LOOP+12*, LOOP+13, LOOP+15, SHPCFG~, SHPCFG+15, SHPCFG+27, SHPCFG+31, SHPCFG+33
R629001 SHPCFG+10~, SHPCFG+26*, SHPCFG+27*, SHPCFG+31, SHPCFG+33
R64 SHPCFG+10~, SHPCFG+42*, SHPCFG+44, SHPCFG+45
RPTDT HDR+4~, HDR+5*, HDR+6, HDR+7*, HDR+8, HDR+15
RTN EN+4~, EN+31*, EN+32
SCT SHPCFG+10~, SHPCFG+68*, SHPCFG+69, SHPCFG+76*, SHPCFG+77, SHPCFG+95*, SHPCFG+96, SHPCFG+102*, SHPCFG+104
SMPL SHPCFG+10~, SHPCFG+53*, SHPCFG+84, SHPCFG+85, SHPCFG+95
SPEC SHPCFG+10~, SHPCFG+52*, SHPCFG+54, SHPCFG+55, SHPCFG+68
SPLIT WRAP+9~, WRAP+21*, WRAP+22*, WRAP+23
STOP MAIN+8~, MAIN+13*, MAIN+20, MAIN+21, MAIN+23, LOOP~, LOOP+12, LOOP+13, LOOP+14, SHPCFG~
, SHPCFG+13*, SHPCFG+19, SHPCFG+21, SHPCFG+25, SHPCFG+27, SHPCFG+36, SHPCFG+48, SHPCFG+51, SHPCFG+60, SHPCFG+62
, SHPCFG+65, SHPCFG+73, SHPCFG+75, SHPCFG+80, SHPCFG+82, SHPCFG+91, SHPCFG+97, SHPCFG+100, SHPCFG+106, SHPCFG+108
, WTEST+5, WTEST+7, WTEST+9, WTEST+13, NP+3
STR SHPCFG+11~, SHPCFG+67*, SHPCFG+69*, SHPCFG+70, SHPCFG+71*, SHPCFG+72, SHPCFG+77*, SHPCFG+79, SHPCFG+98*, SHPCFG+99
, SHPCFG+104*, SHPCFG+105, WTEST+4~, WTEST+11*, WTEST+12, HDR+4~, HDR+15*, HDR+16*, HDR+17, WRAP~
, WRAP+10*, WRAP+16, WRAP+18, WRAP+19, WRAP+26
STR2 WRAP+9~, WRAP+18*, WRAP+19, WRAP+22, WRAP+23*, WRAP+25, WRAP+26*, WRAP+27*, WRAP+28, WRAP+29
VARPTR ISMAPPED~, ISMAPPED+7
WTEST SHPCFG+11~, SHPCFG+29*, SHPCFG+49*, SHPCFG+59, SHPCFG+63*, SHPCFG+89, SHPCFG+92*
X EN+4~, SHPCFG+10~, SHPCFG+55*, SHPCFG+56, SHPCFG+85*, SHPCFG+86, WRAP+9~, WRAP+16*, WRAP+19*, WRAP+20
, WRAP+22*, WRAP+29*, WRAP+39*, WRAP+40*, WRAP+42
Y EN+4~, EN+12, EN+18, EN+27, EN+28, EN+29
Z SHPCFG+10~, WRAP+9~
>> ZTQUEUED MAIN+31
>> ZTREQ MAIN+32*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All