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

Package: Lab Service

Routine: LRUMDM


Information

LRUMDM ;AVAMC/REG/CYM - MD SELECTED LAB RESULTS ;2/19/98 15:01 ;

Source Information

Source file <LRUMDM.m>

Entry Points

Name Comments DBIA/ICR reference
QUE
END
I
T
O
L
W
M
C
C1
H
H1
A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"New page for each patient "
  • Line Location: LRUMDM+2
Function Call: WRITE
  • Prompt: !,"SSN:",SSN,?19,"LOC:",LRL,?44,"Patient: ",LRP
  • Line Location: I+2
Function Call: WRITE
  • Prompt: !,LR("%1")
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !?13,O," ",$P(B(1),"^",2)
  • Line Location: O+1
Function Call: WRITE
  • Prompt: !?9,X
  • Line Location: O+2
Function Call: WRITE
  • Prompt: !,$S(LRF=1:"BACT",LRF=5:"PARASITE",LRF=8:"MYCOLOGY",LRF=11:"TB",LRF=16:"VIROLOGY",1:""),?9,"RPT DATE:",Y,?44,$P($P(LRS,Z,2),";")
  • Line Location: L+0
Function Call: WRITE
  • Prompt: !,LRDATE,?17,$E($P($G(^LAB(61,T,0)),"^"),1,28),?44,LRC,?62,LRN
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !?3,X
  • Condition for execution: X]""
  • Line Location: W+5
Function Call: WRITE
  • Prompt: !
  • Line Location: W+6
Function Call: WRITE
  • Prompt: ?3,"Tests:"
  • Condition for execution: LRB(3)=1
  • Line Location: W+6
Function Call: WRITE
  • Prompt: ?10,$S($D(^LAB(60,LRB(2),0)):$P(^(0),"^"),1:"")
  • Line Location: W+6
Function Call: WRITE
  • Prompt: !?15,$P($P(LRM,Z,2),";")," ",$P(X,U,4)
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !?15,$P(B(1),"^",11)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !?15,LRZ
  • Line Location: C1+0
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+1
Function Call: WRITE
  • Prompt: W
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"SSN:",SSN,?19,"LOC:",LRL,?44,"Patient: ",LRP
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"Date",?13,"Site/specimen",?44,"Collection sample",?62,"Accession number"
  • Line Location: A+0
Info |  Source |  Entry Points |  Interaction Calls