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

Package: Lab Service

Routine: LRAPSM1


Information

LRAPSM1 ;AVAMC/REG/CYM - SEARCH BY SNOMED CODE PRINT ;8/13/97 09:58 ;

Source Information

Source file <LRAPSM1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Lab Service 1 (F,M)^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: 5

Package Total Caller Graph
Lab Service 5 LRAPQACN  LRAPQAFS  LRAPQAMR  LRAPSM  LRAUSM  

Entry Points

Name Comments DBIA/ICR reference
Y
ABC
PRT
M1
L
W
PT
M
H
H1
H2
H3
H4
H5
H6

External References

Name Field # of Occurrence
F^LRU H+1
M^LRU H

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?21,"RESULT OF ",LRO(68)," SEARCH: "
  • Line Location: LRAPSM1+5
Function Call: WRITE
  • Prompt: !!,$J(A,5)," OF ",$J(LR(2),5)," PATIENTS(",$J(A*100/LR(2),5,2),"%)"
  • Line Location: LRAPSM1+7
Function Call: WRITE
  • Prompt: !,$J(LR(13),5)," OF ",$J(LR(1),5)," SNOMED CODE ",S(2)," SPECIMENS(",$J(LR(13)*100/LR(1),5,2),"%)"
  • Line Location: LRAPSM1+8
Function Call: WRITE
  • Prompt: !,$J(LR,14)," ORGAN/TISSUE SPECIMENS WITHIN PERIOD SEARCHED",!?15,"(SNOMED TOPOGRAPHY CODE ",S(2)," IS ",$J(LR(1)*100/LR,5,2),"%)"
  • Line Location: LRAPSM1+9
Function Call: WRITE
  • Prompt: !
  • Line Location: Y+0
Function Call: WRITE
  • Prompt:
  • Condition for execution: $P(LR(11),"^",7)'=2 "#" W $E(N,1,17),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3) S H(2)=0 F B=0:1 S H(2)=$O(^TMP($J,"B",N,H(2))) Q:'H(2)!(LR("Q"))
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: B
  • Line Location: Y+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: C>0
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?27,$P(LR(11),"^",2)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: ?31,$J($P(LR(11),"^"),7)
  • Line Location: PRT+0
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: ?46,$E(LR(5),1,15)
  • Line Location: PRT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: ?62,$E($P(LR(6),"^"),1,Y)
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: ?80,$S(X=0:"Neg",X=1:"Pos",1:"?")
  • Condition for execution: X]""
  • Line Location: M1+0
Function Call: WRITE
  • Prompt: $E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5)
  • Line Location: PT+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: E>1
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: ?52,$E(LR(5),1,15)
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: Z>1
  • Line Location: M+0
Function Call: WRITE
  • Prompt: ?69,$E($P(LR(6),"^"),1,Y)
  • Line Location: M+0
Function Call: WRITE
  • Prompt: ?86,$S(X=0:"Neg",X=1:"Pos",1:"?")
  • Condition for execution: Y=11
  • Line Location: M+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") SEARCH(",LRSTR,"=>",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"# = Not VA patient",!,"SNOMED TOPOGRAPHY CODE: ",S(2)_$E("-----",1,5-$L(S(2))),?46,"SNOMED ",S(7)," CODE: ",LRN_$E("-----",1,5-$L(LRN))
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: H+3
Function Call: WRITE
  • Prompt: !!,?8,"NAME",?19,"ID",?23,"SEX",?27,"AGE",?32,"ACC #",?43,"ORGAN/TISSUE",?62,S(7)
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!
  • Line Location: H1+0
Function Call: WRITE
  • Prompt: !!,"ACC #",?16,"NAME",?33,"ID",?37,"SEX",?41,"AGE",?45,"MO/DA",?52,"ORGAN/TISSUE",?69,S(7)
  • Line Location: H2+0
Function Call: WRITE
  • Prompt: !,$E(N,1,18),?19,$P(LR(11),"^",5),?25,$P(LR(11),"^",3),?27,$P(LR(11),"^",2),?31,$J($P(LR(11),"^"),7)
  • Line Location: H3+0
Function Call: WRITE
  • Prompt: !,$P(LR(11),"^"),?16,$E($P(LR(11),"^",4),1,15),?33,$P(LR(11),"^",5),?38,$P(LR(11),"^",3),?41,$J($P(LR(11),"^",2),3),?45,$J($P(LR(11),"^",6),5)
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: ?43,$E(LR(5),1,15)
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: ?55,$E(LR(5),1,15)
  • Line Location: H6+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J LRAPSM1+3, YABCPRTPRT+1, M1LWPT+1, PT+2
M

Label References

Name Line Occurrences
ABC Y
H LRAPSM1+2, LRAPSM1+3, LRAPSM1+4, LRAPSM1+5, PTH3H4
H1 LRAPSM1+2, LRAPSM1+3, H3
H2 LRAPSM1+4, PTH4
H3 PRT+1, H5
H4 PT+2, H6
H5 M1
H6 M
L LRAPSM1+4
M PT+2
M1 PRT+1
PRT ABC
PT W
W L
Y LRAPSM1+3

Naked Globals

Name Field # of Occurrence
^( LRAPSM1+3, PRT+1, M1PT+2, M

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A LRAPSM1+3*, LRAPSM1+7
>> B Y*, L*
>> C ABC*, PRT, W*
>> E PRT+1*, PT+2*
>> H(2 LRAPSM1+4*, Y*, ABCPRTPRT+1, M1, L*, WPT+1, PT+2
M
IOSL LRAPSM1+3, PRT+1, M1PTPT+2, M
IOST H
>> LR LRAPSM1+9
>> LR("%" H+3
>> LR("F" LRAPSM1+2*, H
>> LR("Q" LRAPSM1+3, LRAPSM1+4, LRAPSM1+5, YABCPRT+1, M1LWPT
PT+2, MHH1H2H3H4H5H6
>> LR(1 LRAPSM1+8, LRAPSM1+9
>> LR(11 LRAPSM1+3*, Y, PRT*, PT+1*, H3H4
>> LR(13 LRAPSM1+2*, LRAPSM1+8, PRT+1*
>> LR(2 LRAPSM1+6, LRAPSM1+7
>> LR(3 LRAPSM1+6
>> LR(5 PRT+1*, PT+2*, H5H6
>> LR(6 M1*, M*
>> LR(7 PRT+1*, M1PT+2*, M
>> LRAA(1 LRAPSM1+6
>> LRABV H+1
>> LRAN ABC*, PRTPRT+1, M1, W*, PT+1, PT+2, M
>> LRAX LRAPSM1+3*
>> LRLST H+1
>> LRN LRAPSM1+2*, H+2
>> LRO(68 LRAPSM1+5, LRAPSM1+6, H+1
>> LRSS LRAPSM1+6
>> LRSTR H+1
>> LRYA LRAPSM1+3*
>> M M1*, M*
>> N LRAPSM1+2*, LRAPSM1+3*, YABCH3
>> S(2 LRAPSM1+8, LRAPSM1+9, H+2
>> S(7 H+2, H1H2
>> T LRAPSM1+2*
>> X M1*, M*
>> Y M1*, M*
>> Z M1*, M*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All