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

Package: Lab Service

Routine: LRAPSEM2


Information

LRAPSEM2 ;AVAMC/REG/CYM- SEARCH BY SNOMED CODE PRINT ;3/10/98 10:16 ;

Source Information

Source file <LRAPSEM2.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Lab Service 2 (D,F,M)^LRU  $$Y2K^LRX  
VA FileMan 2 ^DIWP  ^DIWW  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPSEM1  

Entry Points

Name Comments DBIA/ICR reference
Y
S
T
G
U
B
E
H
H1
H4
H5
A

External References

Name Field # of Occurrence
^DIWP Y+3, Y+5, B
^DIWW Y+4, Y+6, B+1
D^LRU G
F^LRU H+1
M^LRU H
$$Y2K^LRX A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?15,A(1)
  • Line Location: Y+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: Y+6
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: Y+8
Function Call: WRITE
  • Prompt: !?5,"T-",LRT(2)," ",LRT(1)
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !?10,Z," ",W," Date: ",Y
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?10,$P(LRSN(V),"^",2),"-",LRM(2)," ",LRM(1)
  • Line Location: U+0
Function Call: WRITE
  • Prompt: " (",$S(LRX(1)=1:"Positive",LRX(1)=0:"Negative",1:"?"),")"
  • Condition for execution: LRX(1)]""
  • Line Location: U+0
Function Call: WRITE
  • Prompt: !?15,"E-",LRX(2)," ",LRX
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") SEARCH (",LRSTR,"-",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Date",?8,"# = Not VA patient",?35,"For:",LRJ(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Taken",?11,"Patient",?30,"ID",?35,"Physician",?48,"LOC",?55,"Acc#",?67,"PATHOLOGIST",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,LRT(1)
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !?10,LRM(1)
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !,$$Y2K^LRX(LRA(1),"5D"),?10,LRW(7),?11,LRP,?32,$P($P(LRW,"^",5),"-",3),?37,LRA(7),?50,LRA(8),?57,$P(LRA,"^",6),?69,LRA(2)
  • Line Location: A+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB( U
^LAB(61 - [#61] Y+7
^LAB(61.2 - [#61.2] E
^LR - [#63] Y, Y+2, Y+3, Y+5, Y+7, S+1, T, B, E
^TMP("LR" LRAPSEM2+3
^TMP($J Y+3!, Y+5!, B!
^VA(200 - [#200] Y, Y+1

Label References

Name Line Occurrences
A Y+1, H1
B G
E U
G S+1
H LRAPSEM2+2, LRAPSEM2+3, H1
H1 Y+2, Y+3, Y+5, S, H4
H4 S+1, U, B, H5
H5 E
S Y+7
T S
U T
Y LRAPSEM2+3

Naked Globals

Name Field # of Occurrence
^( LRAPSEM2+3, Y+2, Y+3, Y+5, Y+7, S+1, T, B, E
^(0 U, E

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A Y+2*
>> A(1 Y+2*
>> A(2 Y+2*, H1*
>> DIWF LRAPSEM2+2*
>> DIWL LRAPSEM2+2*
>> DIWR LRAPSEM2+2*
IOM LRAPSEM2+2
IOSL LRAPSEM2+3, Y+2, Y+3, Y+5, S, S+1, U, B, E
IOST H
>> LR( G
>> LR("%" Y+6, Y+8, H+2
>> LR("F" LRAPSEM2+2*, H
>> LR("Q" LRAPSEM2+3, Y+2, Y+3, Y+4, Y+5, Y+6, Y+7, S, S+1, T
, U, B, E, H, H1, H4, H5
>> LRA Y*, Y+1, A
>> LRA(1 Y*, A
>> LRA(2 Y+1*, A
>> LRA(7 Y*, A
>> LRA(8 Y*, A
>> LRABV H+1
>> LRAN LRAPSEM2+3*
>> LRD S+1
>> LRD(2 Y+6
>> LRDFN Y*, Y+2, Y+3, Y+5, Y+7, S+1, T, B, E
>> LRE E*
>> LRI Y*, Y+2, Y+3, Y+5, Y+7, S+1, T, B, E
>> LRJ(1 H+1
>> LRLST H+1
>> LRM S+1*, T*, B, E
>> LRM(1 U*, H5
>> LRM(2 U*
>> LRN( S
>> LRO(68 H+1
>> LRP Y*, A
>> LRSN( U
>> LRSS Y, Y+2, Y+3, Y+5, Y+7, S+1, T, G, B, E
>> LRSTR H+1
>> LRT Y+7*, S+1, T, B, E
>> LRT(1 Y+7*, S, H4
>> LRT(2 Y+7*, S
>> LRW LRAPSEM2+3*, Y, Y+1, A
>> LRW(1 Y+1*
>> LRW(2 Y+1*
>> LRW(7 Y*, A
>> LRX S+1*, T*, G, U, E*
>> LRX(1 T*, U
>> LRX(2 E*
>> LRY LRAPSEM2+3*
>> LRZ Y+3*, Y+5*, B*
>> LRZ(1 Y+3*, Y+5*, B*
>> LRZ(2 Y+3*, Y+4, Y+5*, Y+6, B*, B+1
>> V S*, T, U
>> W G*
>> X Y+3*, Y+5*, Y+7*, T*, G*, U*, B*, E*
>> Y G*
>> Z G*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All