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

Package: Lab Service

Routine: LRACSUM6


Information

LRACSUM6 ;SLC/DCM - PRINT INDIVIDUAL PATIENT SUMMARY (MISC.) ; 3/9/88 10:23 ;

Source Information

Source file <LRACSUM6.m>

Entry Points

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

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: ?(IOM-42)," LOC: ",^(.1)
  • Line Location: TOP+3
Function Call: WRITE
  • Prompt: ?(IOM-22),LRCDT,?(IOM-12)," PAGE: ",$S($D(LRMISC):"MISC",1:LRMH),":",LRPG
  • Line Location: TOP+4
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+4
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
Info |  Source |  Entry Points |  Interaction Calls