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

Package: Lab Service

Routine: LRAPSEM1


Information

LRAPSEM1 ;AVAMC/REG - SEARCH BY SNOMED CODE PRINT ;8/15/95 10:51 ;

Source Information

Source file <LRAPSEM1.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Lab Service 2 ^LRAPSEM2  (D,F,M,S)^LRU  

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 LRAPSEM  

Entry Points

Name Comments DBIA/ICR reference
Y
A
P
S
T
G
U
E
L
W
B
H
H1
H2
H3
H4
H5
F
C
D

External References

Name Field # of Occurrence
^LRAPSEM2 LRAPSEM1+2
D^LRU G
F^LRU H+1
M^LRU H
S^LRU LRAPSEM1+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: LRP,?32,$P(LRW,"^",5),?46,$P(LRW,"^",3)
  • Line Location: LRAPSEM1+4
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: Y+1
Function Call: WRITE
  • Prompt: !?10,Z," ",W," Date: ",Y
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?10,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,LRX
  • Line Location: E+0
Function Call: WRITE
  • Prompt: $P(LRW,"^",4),?40,$P(LRW,"^",5),?53,$P(LRW,"^",3),?56,$J($P(LRW,"^",2),3),?60,$J($P(LRW,"^",6),5)
  • Line Location: B+1
Function Call: WRITE
  • Prompt: !,LRO(68)," SEARCH (",LRSTR,"-",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"# = Not VA patient",?25,"SNOMED FIELDS",?45,"For:",LRJ(1)
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,"Comment: ",LRH
  • Condition for execution: LRH]""
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?8,"NAME",?36,"ID",?45,"SEX",?49,"AGE",?60,"ACC #",!,LR("%")
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !,"ACC #",?11,"NAME",?44,"ID",?52,"SEX",?56,"AGE",?60,"MO/DA",!,LR("%")
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,LRP,?32,$P(LRW,"^",5),?46,$P(LRW,"^",3)
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !?5,LRT(1),?50,$P(LRW,"^",2),?58,$J($P(LRW,"^"),7)
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !?10,LRM(1)
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !,LR("%"),!?5,"RESULT OF ",LRO(68)," (",LRABV,") SEARCH: "
  • Line Location: F+0
Function Call: WRITE
  • Prompt: !,LRO(68)," ORGAN/TISSUE SPECIMENS WITHIN PERIOD SEARCHED: ",LR
  • Line Location: F+2
Function Call: WRITE
  • Prompt: !!,$J(LRB,5)," OF ",$J(LR(2),5)," ",LRAA(1)," PATIENTS(",$J(LRB*100/LR(2),5,2),"%) FOUND"
  • Line Location: F+3
Function Call: WRITE
  • Prompt: !!,"The following fields were used for the search :",!?5,"TOPOGRAPHY FIELD: ",S(2)
  • Line Location: F+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD( C
^LAB( U
^LAB(61 - [#61] P+1
^LAB(61.2 - [#61.2] E
^LR - [#63] P+1, T, T+1, E
^TMP("LR" LRAPSEM1+4, Y, A, P, L, W, B+1
^VA(200 - [#200] LRAPSEM1+2

Label References

Name Line Occurrences
A Y
B W
C F+5
D C
E U
F LRAPSEM1+2, LRAPSEM1+5
G T+1
H H1, H2, F
H1 LRAPSEM1+3, LRAPSEM1+4, H3
H2 LRAPSEM1+5, B
H3 S, H4
H4 T+1, U, H5
H5 E
L LRAPSEM1+5
P A
S P+1
T S
U T
W L
Y LRAPSEM1+4

Naked Globals

Name Field # of Occurrence
^( LRAPSEM1+4, P+1, T, T+1, E
^(0 LRAPSEM1+2, U, E

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A C*, D
>> B Y*, L*, D*
>> C W*
DUZ LRAPSEM1+2
>> F C*
>> G D*
IOSL LRAPSEM1+4, S, T+1, U, E, B
IOST H
>> LR F+2
>> LR( G
>> LR("%" Y+1, H1, H2, F
>> LR("F" LRAPSEM1+3*, H
>> LR("Q" LRAPSEM1+4, LRAPSEM1+5, Y, Y+1, A, P+1, S, T, T+1, U
, E, L, W, B, H, H1, H2, H3, H4, H5
, F
>> LR(2 F+1, F+3
>> LR(3 F+1
>> LRAA(1 F+1, F+3
>> LRABV F
>> LRAN A*, P, W*, B+1
>> LRB LRAPSEM1+4*, F+3
>> LRC A*
>> LRD T+1
>> LRD(0 F+3
>> LRD(1 LRAPSEM1+2
>> LRDFN P+1*, T, T+1, E
>> LRE E*
>> LRG P+1*, S
>> LRH H+2
>> LRI P+1*, T, T+1, E
>> LRJ(1 LRAPSEM1+2*, H+2
>> LRLST H+1
>> LRM T*, T+1*, E
>> LRM(1 U*, H5
>> LRN( S, F+5, C
>> LRN(2 D
>> LRO(68 H+1, F, F+1, F+2
>> LRP LRAPSEM1+2*, LRAPSEM1+4*, Y, A, H3
>> LRSN( U, C
>> LRSS P+1, T, T+1, G, E, F+1
>> LRSTR H+1
>> LRT P+1*, T, T+1, E
>> LRT(1 P+1*, S, H4
>> LRW LRAPSEM1+4*, P*, P+1, B+1*, H3, H4
>> LRW(1 P*, S
>> LRW(2 P*, S
>> LRX T*, T+1*, G, U, E*
>> LRX(1 T*, U
>> LRY LRAPSEM1+5*, Y*, A, P, L*, W, B+1
>> S(2 F+4
U LRAPSEM1+2, B+1
>> V S*, T, U, F+5*, C
>> W G*
>> X LRAPSEM1+4*, T*, G*
>> Y LRAPSEM1+4*, 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