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
Print Page as PDF
Routine: LRACSUM5

Package: Lab Service

Routine: LRACSUM5


Information

LRACSUM5 ;SLC/DCM - PRINT INDIVIDUAL PATIENT SUMMARY ; 3/3/88 13:32 ;

Source Information

Source file <LRACSUM5.m>

Entry Points

Name Comments DBIA/ICR reference
TS ;from LRACSUM3
LRFDT
GOUT
QRS
QRS1
TXT ;from LRACSUM4
C2
LRLO ;from LRACSUM4
LRHI
TXT1 ;from LRACSUM3, LRACSUM4
C
C1 ;from LRACSUM4
TS1
TS2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: TS+4
Function Call: WRITE
  • Prompt: "Locale "
  • Condition for execution: $D(LRCALE(LRMH,LRSH))
  • Line Location: TS+4
Function Call: WRITE
  • Prompt: LRTOPP,?LRCL
  • Line Location: TS+4
Function Call: WRITE
  • Prompt: $J($E($P(Z,U,3),1,(LRCW-1)),(A+B)),?LRCL
  • Line Location: TS+5
Function Call: WRITE
  • Prompt: !
  • Line Location: TS+9
Function Call: WRITE
  • Prompt: ?9
  • Condition for execution: $D(LRCALE(LRMH,LRSH))
  • Line Location: TS+9
Function Call: WRITE
  • Prompt: $S($L($P(^LAB(64.5,"A",1,LRMH,LRSH,I(J)),U,11)):"Therapeutic",1:"Ref range"),?LRCL
  • Line Location: TS+9
Function Call: WRITE
  • Prompt: !?LRCL
  • Line Location: TS+11
Function Call: WRITE
  • Prompt: LRUDT
  • Line Location: QRS+2
Function Call: WRITE
  • Prompt: ?LRCL
  • Line Location: QRS1+0
Function Call: WRITE
  • Prompt: X_X1
  • Line Location: QRS1+1
Function Call: WRITE
  • Prompt: !?3
  • Condition for execution: LRVAR>1
  • Line Location: TXT+2
Function Call: WRITE
  • Prompt: ^(LRIV,0)
  • Line Location: TXT+2
Function Call: WRITE
  • Prompt: !!?LRCL
  • Line Location: TXT1+2
Function Call: WRITE
  • Prompt: "- "
  • Line Location: TXT1+2
Function Call: WRITE
  • Prompt: " ",$E("COMMENTS",I)
  • Line Location: TXT1+3
Function Call: WRITE
  • Prompt: " "
  • Line Location: TXT1+4
Function Call: WRITE
  • Prompt: " -"
  • Line Location: TXT1+4
Function Call: WRITE
  • Prompt: !?7,"KEY: ""L""=Abnormal low, ""H""=Abnormal high, ""*""=Critical value",!
  • Line Location: TXT1+5
Function Call: WRITE
  • Prompt: !," "
  • Condition for execution: L(0)>1
  • Line Location: TXT1+6
Function Call: WRITE
  • Prompt: ^TMP($J,"TM",C6,L)
  • Line Location: TXT1+6
Function Call: WRITE
  • Prompt: $J(LRLOHI,(A+B)),?LRCL
  • Line Location: TS1+0
Function Call: WRITE
  • Prompt: $J($P(^(I(I)),U,7),(A+B)),?LRCL
  • Line Location: TS2+0
Info |  Source |  Entry Points |  Interaction Calls