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

Package: Lab Service

Routine: LRACSUM6


Information

LRACSUM6 ;SLC/DCM - PRINT INDIVIDUAL PATIENT SUMMARY (MISC.) ; 3/9/88 10:23 ; [ 04/11/2003 9:38 AM ]

Source Information

Source file <LRACSUM6.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 1 ($$Y2K,DASH,EQUALS)^LRX  
VA Fileman 1 C^%DTC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Lab Service 3 LRACSUM3  LRACSUM4  LRACSUM5  

Entry Points

Name Comments DBIA/ICR reference
PRE ;from LRACSUM3
HEAD ;from LRACSUM3, LRACSUM4, LRACSUM5
END
MHI
MSG
TOP ;from LRACSUM3
LRMISC
LRUDT
KILL
Y2K1 ;
LRCNT
WR1
Y
COMM
TXT
LRBOT ;from LRACSUM3
LRMIT
MDT
WR

External References

Name Field # of Occurrence
C^%DTC Y+3
$$Y2K^LRX Y2K1+2, Y+3
DASH^LRX WR+5
EQUALS^LRX WR, END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: LRBOT+1
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: " From: ",Y," To: "
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: Y+3
Function Call: WRITE
  • Prompt: ?(IOM-13)," PAGE: ",$S($D(LRMISC):"MISC",1:LRMH),":",LRPG
  • Line Location: Y+4
Function Call: WRITE
  • Prompt: !?LRTAB,$E(LRMHN,1,IOM-LRTAB)
  • Line Location: Y+5
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: TOP+1
Function Call: WRITE
  • Prompt: $P(X,U,1),?20,$P(X,U,2),?33,"AGE: ",$P(X,U,3)
  • Line Location: TOP+2
Function Call: WRITE
  • Prompt: $P(X,U,1),?20,$P(X,U,2),?33,"DOB: ",$P(X,U,3)
  • Line Location: TOP+4
Function Call: WRITE
  • Prompt: ?(IOM-42)," LOC: ",^(.1)
  • Line Location: TOP+6
Function Call: WRITE
  • Prompt: ?(IOM-22),LRCDT,?(IOM-12)," PAGE: ",$S($D(LRMISC):"MISC",1:LRMH),":",LRPG
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: !,"VAMC ",$S($D(^LAB(64.5,1,1,LRMH,0)):$P(^(0),U,2),1:"")
  • Condition for execution: LRBOT="T"
  • Line Location: TOP+7
Function Call: WRITE
  • Prompt: !!,LRUDT,?15,LRSPEM,?36,LRNAME,":",?50,LRVAL," ",X1," ",LRUNT,?67
  • Line Location: WR1+0
Function Call: WRITE
  • Prompt: LRLO,"-",LRHI
  • Condition for execution: $L(LRLO)
  • Line Location: WR1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,"COMMENT: ",LRVAL
  • Line Location: COMM+0
Function Call: WRITE
  • Prompt: !!!?LRCL
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: "* "
  • Line Location: WR+2
Function Call: WRITE
  • Prompt: " ",$E(LRMHN,I)
  • Line Location: WR+3
Function Call: WRITE
  • Prompt: " "
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: " *"
  • Line Location: WR+4
Function Call: WRITE
  • Prompt: !!," DATE TIME SPECIMEN",?37,"TEST",?50,"VALUE",?64,"Ref ranges"
  • Line Location: WR+5
Function Call: WRITE
  • Prompt: !,^(I,0)
  • Line Location: TXT+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] TOP+6
^LAB(60 - [#60] LRMIT+2
^LAB(61 - [#61] LRMIT+1
^LAB(64.5 - [#64.5] Y+4, TOP+7
^TMP($J Y+1, TOP+2, TOP+4, MHI, MDT, LRMIT, TXT, PRE+1, LRCNT, LRCNT+1

Label References

Name Line Occurrences
COMM LRMIT+2
END MDT
HEAD KILL, WR+1
LRBOT HEAD+1, END+1
LRCNT MDT
LRMISC PRE+1
LRMIT WR1+1, MSG, COMM, TXT+1
LRUDT MDT
MDT LRMIT
MSG LRMIT
TOP HEAD+1, LRMISC
TXT LRMIT
WR MHI, MDT
Y Y

Naked Globals

Name Field # of Occurrence
^( TOP+6, LRMIT, TXT, LRCNT+1
^(0 Y+1, Y+4, TOP+7, LRMIT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> I LRUDT*, WR+2*, WR+3*, WR+4*, TXT*, LRCNT*
IOF TOP+1
IOM Y+1, Y+4, Y+5, TOP+6, TOP+7
IOSL Y, MDT, WR
>> J LRCNT+1*
>> LRAG TOP+8*
>> LRBOT Y+4, TOP+7
>> LRCDT TOP+7
>> LRCL WR+2*
>> LRCNT MHI*, MDT, WR, LRCNT*, LRCNT+2*
>> LRCTN LRCNT+1*, LRCNT+2
>> LRDFN Y+1, TOP+2, TOP+4, MHI, MDT, LRMIT, TXT, PRE+1, LRCNT, LRCNT+1
>> LRDIS Y+1, Y+3
>> LRFDT LRUDT, Y2K1+2, LRMISC*, MDT*, LRMIT, TXT, LRCNT, LRCNT+1
>> LRHI LRMIT+1*, WR1
>> LRIN Y+3
>> LRLLOC Y+1
>> LRLO LRMIT+1*, WR1, END+1*
>> LRMH Y+4, Y+5, TOP+7, MHI, PRE+1*, LRCNT, LRCNT+1
>> LRMHN Y+5, MHI*, WR+2, WR+3
LRMISC Y+4, TOP+7, END+1!, PRE+1*
>> LRMIT MDT*, LRMIT*
>> LRNAME LRMIT+2*, WR1
>> LROUT Y+3
>> LRPG Y+4, Y+5*, TOP+7, LRMISC*, PRE+1*
LRSB END+1!
>> LRSPE LRMIT+1*, LRMIT+2
>> LRSPEM LRMIT+1*, WR1
>> LRTAB Y+5*
>> LRTEST LRMIT+1*, LRMIT+2
>> LRTIM LRUDT*, LRUDT+2*, Y2K1+2
>> LRUDT Y2K1+2*, WR1
>> LRUNT LRMIT+2*, WR1
>> LRVAL LRMIT+1*, WR1, COMM
U Y+1, Y+4, TOP+2, TOP+4, TOP+6, TOP+7, MHI, LRMIT+1, LRMIT+2
>> X Y+3, TOP+2*, TOP+4*, TOP+6, LRMIT*, LRMIT+1, LRMIT+2*, MSG
>> X1 Y+3*, LRMIT+1*, WR1
>> X2 Y+3*
>> Y Y+3*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All