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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: LRAC6

Package: Lab Service

Routine: LRAC6


Information

LRAC6 ;SLC/DCM/MIWL/JMC - PRINT CUMULATIVE REPORT CONT. (MISC.) ; 1/31/89 15:02 ;

Source Information

Source file <LRAC6.m>

Call Graph

Call Graph

Call Graph Total: 3

Package Total Call Graph
Lab Service 3 ENT^LRAC7  REG^LRAC9  (DASH,EQUALS)^LRX  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

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

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Lab Service 4 LRAC3  LRAC4  LRAC5  LRAC7  

Entry Points

Name Comments DBIA/ICR reference
PRE ;from LRAC3
HEAD ;from LRAC3, LRAC4, LRAC5, LRAC7
LRKILL
HEAD1
MHI
TOP ;from LRAC3
LRFD1
LRMISC
LRUDT
WR
LRCNT
WR1
Y
END
TXT
LRBOT ;from LRAC3
LRMIT
MDT

External References

Name Field # of Occurrence
ENT^LRAC7 WR
REG^LRAC9 MDT+1
DASH^LRX WR+5
EQUALS^LRX WR, END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,PNM,?20,SSN,?33,"AGE: ",AGE
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: ?(IOM-42)," LOC: ",LRWRD
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: ?(IOM-22),$S($D(LRCDT):LRCDT,1:"??"),?(IOM-13),"PAGE: "
  • Line Location: TOP+5
Function Call: WRITE
  • Prompt: $S($D(LRMISC):"MISC",1:LRMH),":",LRPG
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !
  • Condition for execution: LRBOT="T"
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: !,$S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:$P(^LAB(64.5,1,0),U,9))
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: $E(PNM,1,20),?21,SSN,?(IOM-46),"ROUTING: ",$E(LRLLOC,1,15),?(IOM-26)
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: $S(LRFULL!(LRPERM):" **PERMANENT**",1:" ")
  • Line Location: Y+2
Function Call: WRITE
  • Prompt: " CHART COPY"
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: $S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:$P(^LAB(64.5,1,0),U,9))
  • Line Location: Y+5
Function Call: WRITE
  • Prompt: ?(IOM-22),$S($D(LRCDT):LRCDT,1:"??"),?(IOM-13),"PAGE: "
  • Line Location: Y+7
Function Call: WRITE
  • Prompt: $S($D(LRMISC):"MISC",1:LRMH),":",LRPG
  • Line Location: Y+8
Function Call: WRITE
  • Prompt: !?LRTAB,$E(LRMHN,1,IOM-LRTAB)
  • Line Location: Y+9
Function Call: WRITE
  • Prompt: !,"COMMENT: ",LRVAL
  • Line Location: LRMIT+6
Function Call: WRITE
  • Prompt: !!,LRUDT,?15,LRSPEM,?36,LRNAME,":",?50,@$S(LRPC="":"X",1:LRPC)," "
  • Line Location: WR1+1
Function Call: WRITE
  • Prompt: X1," ",LRUNT,?67
  • Line Location: WR1+2
Function Call: WRITE
  • Prompt: LRLO,"-",LRHI
  • Condition for execution: $L(LRLO)
  • Line Location: WR1+2
Function Call: WRITE
  • Prompt: !,IA
  • Line Location: WR1+3
Function Call: WRITE
  • Prompt: !!!?LRCL
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: "* "
  • Line Location: WR+1
Function Call: WRITE
  • Prompt: " ",$E(LRMHN,I)
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: " "
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: " *"
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: !!," Date Time Specimen",?37,"Test",?50,"Results"
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: ?64,"Ref ranges"
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !,^(I,0)
  • Line Location: TXT+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LRMIT+7, LRMIT+8
^LAB(61 - [#61] LRMIT+5
^LAB(64.5 - [#64.5] TOP+7, Y+5
^LAC( MHI, MDT, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, PRE+1, PRE+5, LRCNT+1
, LRCNT+2
^LAC("LGOT" LRMISC
^LAC("LRKILL" LRFD1*, HEAD1+1*
^LR - [#63] LRFD1+1, LRFD1+2*, HEAD1+1*, PRE+3
^TMP($J LRFD1, HEAD1+1, TOP+8!, LRMISC!, MDT+3*, LRMIT+1*, WR!

Label References

Name Line Occurrences
END MDT
HEAD LRKILL, WR
HEAD1 LRKILL
LRBOT HEAD+1, END+1
LRCNT MDT+2
LRFD1 HEAD1+1
LRMISC PRE+6
LRMIT LRMIT+6, WR1+4
LRUDT MDT+2
MDT TXT+2
TOP HEAD+1, LRMISC+1
TXT LRMIT
WR MHI, MDT+2
Y Y

Naked Globals

Name Field # of Occurrence
^( HEAD1+1, LRMIT+7, TXT+1, PRE+3
^(0 LRFD1+1, TOP+7, Y+5, LRMIT+3, LRMIT+8, PRE+1, PRE+5*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> AGE TOP+3
DUZ("AG" MDT+1
>> I LRUDT*, WR+1*, WR+2*, WR+3*, TXT*, TXT+1*, LRCNT*, LRCNT+1*
IA WR1+3!
IADA WR1+3!
IARNO WR1+3!
IAX WR1+3!
IOF TOP+1
IOM TOP+4, TOP+5, Y+1, Y+7, Y+9
IOSL Y, MDT+2, WR
IOST TOP+1
>> J LRCNT+2*
K LRFD1, HEAD1+1*, HEAD1+2!
K(2 HEAD1+1*
K(3 LRFD1+1, LRFD1+2, HEAD1+1*
>> LRAG TOP+8*
>> LRBOT TOP+6, Y+4, Y+6
>> LRCDT TOP+5, Y+7
>> LRCL WR+1*
>> LRCNT MHI*, MDT+2, WR, LRCNT*, LRCNT+1*, LRCNT+3*
>> LRCTN LRCNT+2*, LRCNT+3
>> LRCW WR1*
>> LRDFN LRFD1, LRFD1+1, LRFD1+2, HEAD1+1, LRMISC, MHI, MDT, MDT+3, LRMIT, LRMIT+1
, LRMIT+3, TXT+1, PRE+1, PRE+3, PRE+5, LRCNT+1, LRCNT+2
>> LRDPF TOP+4, MDT+1
LRFD LRFD1, HEAD1+1*, HEAD1+2!
>> LRFD1 LRFD1*
>> LRFDT LRUDT, LRUDT+2, LRMISC+1*, MDT*, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, LRCNT+1
, LRCNT+2
>> LRFULL HEAD1, Y+2, WR*
>> LRHI LRMIT+2*, WR1+2
>> LRJ02 TOP+1, TOP+2*
>> LRKL HEAD1*, TOP+8*
>> LRLLOC Y+1
>> LRLO LRMIT+2*, WR1+2, END+1*
>> LRMH LRFD1, LRFD1+2, HEAD1+1, TOP+6, TOP+7, Y+5, Y+8, Y+9, MHI, PRE+3
, PRE+4*, LRCNT+1, LRCNT+2
>> LRMHN Y+9, MHI*, WR+1, WR+2
LRMISC TOP+6, Y+8, END+1!, PRE+2*
>> LRMIT MDT+3*, LRMIT*, LRMIT+1, LRMIT+3
>> LRNAME LRMIT+7*, WR1+1
>> LRPC LRMIT+7*, WR1+1
>> LRPERM HEAD1, Y+2, LRMISC
>> LRPG LRFD1+2, HEAD1+1, TOP+6, Y+8, Y+10*, LRMISC*, PRE+3*, PRE+5
>> LRPG1 Y+10, LRMISC, PRE+3
>> LRRE HEAD1+1, PRE+3, PRE+5
LRSB END+1!
>> LRSPE LRMIT+4*, LRMIT+5, LRMIT+8
>> LRSPEM LRMIT+5*, WR1+1
>> LRTAB Y+9*
>> LRTEST LRMIT+4*, LRMIT+6, LRMIT+7, LRMIT+8
>> LRTIM LRUDT*, LRUDT+1*, LRUDT+2
>> LRUDT LRUDT+2*, WR1+1
>> LRUNT LRMIT+7*, LRMIT+8*, WR1+2
>> LRVAL LRMIT+3*, LRMIT+6, WR1
>> LRWRD TOP+4
>> LRX19 LRMIT+3*, LRMIT+4
>> LRX21 PRE+1*, PRE+3
>> LRXLR MHI, MDT, MDT+3, LRMIT, LRMIT+1, LRMIT+3, TXT+1, PRE+1, PRE+5, LRCNT+1
, LRCNT+2
>> P LRFD1+1*, LRFD1+2
>> PNM TOP+3, Y+1
>> SSN TOP+3, Y+1
U LRFD1+1, LRFD1+2, HEAD1+1, TOP+7, Y+5, MHI, LRMIT+1, LRMIT+3, LRMIT+4, LRMIT+5
, LRMIT+7, LRMIT+8, PRE+3, PRE+5
>> X WR1*
>> X1 LRMIT+4*, WR1+2
>> Z HEAD1+1*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All