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

Package: Lab Service

Routine: LRUMDM


Information

LRUMDM ; IHS/DIR/AAB - MD SELECTED LAB RESULTS 2/19/98 15:01 ; [ 01/13/1999 4:21 PM ]

Source Information

Source file <LRUMDM.m>

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 4 (D,F,L,L1,M,S,SSN,V,YN)^LRU  (EN,EN1)^LRUMDP  (BEG,END)^LRUTL  $$Y2K^LRX  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRUMD  

Entry Points

Name Comments DBIA/ICR reference
A
C
END
I
H
H1 ;D H Q:LR("Q") I W(1)>1 W !,"SSN:",SSN,?19,"LOC:",LRL,?44,"Patient: ",LRP
M
L
O
QUE
T
W
C1

External References

Name Field # of Occurrence
D^LRU L
F^LRU H+2
L^LRU QUE+1
L1^LRU QUE+1
M^LRU H
S^LRU QUE+1
SSN^LRU I+2
V^LRU END
YN^LRU LRUMDM+4
EN^LRUMDP QUE+2
EN1^LRUMDP QUE+2
BEG^LRUTL LRUMDM+5
END^LRUTL END
$$Y2K^LRX W+3

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"New page for each patient "
  • Line Location: LRUMDM+4
Function Call: WRITE
  • Prompt: !,"SSN:",SSN,?19,"LOC:",LRL,?44,"Patient: ",LRP
  • Line Location: I+3
Function Call: WRITE
  • Prompt: !,"HRCN:",HRCN,?19,"LOC:",LRL,?44,"Patient: ",LRP
  • Line Location: I+4
Function Call: WRITE
  • Prompt: !,LR("%1")
  • Line Location: I+5
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: !,LR("%")
  • Line Location: H+2
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: W
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"HRCN:",HRCN,?19,"LOC:",LRL,?44,"Patient: ",LRP
  • Line Location: H1+1
Function Call: WRITE
  • Prompt: !,"Date",?13,"Site/specimen",?44,"Collection sample",?62,"Accession number"
  • Line Location: A+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(63.05 QUE
^DIC - [#1] I+2
^LAB(60 - [#60] W+6
^LAB(61 - [#61] W+5
^LAB(61.2 - [#61.2] O+1
^LAB(62 - [#62] W+3
^LR - [#63] I+2, T, O+1, O+2, L, W+1, W+5, C+1, C1
^LRO(68 - [#68] QUE, W+2, W+6
^LRO(69.2 - [#69.2] QUE+3, I
^TMP($J QUE!, QUE+2
^VA(200 - [#200] H+2

Label References

Name Line Occurrences
A W+4
C O+1
C1 C+1
END LRUMDM+4, LRUMDM+5, QUE+1, QUE+3
H QUE+1, I+4, H1+1
H1 O, O+1, O+2, W+5, W+6, C+1, C1
I QUE+1, QUE+2, QUE+3
L O
M L
O T
T I+4
W T

Naked Globals

Name Field # of Occurrence
^( I+2, O+1, O+2, L, C+1, C1
^(0 W+3, W+6
^(1 I
^(99 W+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % LRUMDM+4*
>> B O+1*, O+2*, C+1, C1
>> B(1 O+1*, C
>> DFN I+2*
DUZ QUE+3, I, H+2
>> E T*
>> HRCN I+4, H1+1
IO QUE
IOF END
IOSL I+4, O, O+1, O+2, W+5, W+6, C+1, C1
IOST END, H, H+2
>> LR("%" O+3, H+2
>> LR("%1" I+5
>> LR("F" QUE+1*, H
>> LR("Q" QUE+2, QUE+3, I+4, I+5, T, O, O+1, O+2, W, W+4
, W+5, W+6, C+1, C1, H, H1+1
>> LRA I, H+2
>> LRAA QUE+3, I
>> LRB W+4*, W+6
>> LRB(1 W+4*, W+6
>> LRB(2 W+6*
>> LRB(3 W+6*
>> LRC W+1*, W+3*, W+5
>> LRDATE W+3*, W+5
>> LRDFN QUE+2*, QUE+3*, I, I+2, T, O+1, O+2, L, W+1, W+5
, C+1, C1
>> LRDFN(1 QUE+1
>> LRDPF I+2*
>> LRE QUE+2, QUE+3, H+2
>> LRE(1 H+2
>> LRF O*, O+1*, O+2*, L, C, C+1, C1
>> LRG QUE+2, QUE+3
>> LRI T*, O+1, O+2, L, W+1, W+5, C+1, C1
>> LRJ QUE*, W+1*, W+2*, W+6
>> LRK LRUMDM+4*, QUE+1, I+4
>> LRL I+2*, I+4, H1+1
>> LRLDT T
>> LRM QUE*, M
>> LRN W+1*, W+4, W+5
>> LRP I+2*, I+4, H1+1
>> LRS QUE*, L
>> LRSDT T
>> LRZ C+1*, C1*
>> O O+1*
>> P QUE+1*, QUE+2*, QUE+3*
>> POP LRUMDM+5
>> R QUE+2*, QUE+3*
>> SSN I+2*
>> T W+1*, W+5
U QUE, M
>> V I+2*, C1*
>> W(1 T*, O+3, W+1*, W+4, H1+1
>> X I+2*, O+2*, L*, W+1*, W+4, W+5*, M
>> Y I+2*, L*, W+1*, W+3
>> Z L*, M*, C+1*, C1
>> ZTRTN LRUMDM+5*
>> ZTSK LRUMDM+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All