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

Entry Points

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

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
Info |  Source |  Entry Points |  Interaction Calls