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

Package: Lab Service

Routine: LRAPSEM


Information

LRAPSEM ; IHS/DIR/AAB - MULTIAXIAL SNOMED SEARCH 8/15/95 09:53 ;

Source Information

Source file <LRAPSEM.m>

Call Graph

Call Graph Total: 8

Package Total Call Graph
Lab Service 6 ^LRAPSEM1  POS^LRAPSM  CK^LRAUSM  (B,L,SSN,XR,YN)^LRU  EN^LRUA  (BEG,END)^LRUTL  
Kernel 1 ^%ZIS  
VA Fileman 1 ^%DTC  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Lab Service 1 LRAPSE  

Entry Points

Name Comments DBIA/ICR reference
O
PR
C
END
PRT ;S X=^LR(LRDFN,0),(LRDPF,LRA)=$P(X,"^",2),Y=$P(X,"^",3),X=^DIC(LRA,0,"GL") Q:'$D(@(X_Y_",0)"))
I
ET
M
AE
TP
N
Y1
S
R
QUE
T
LRDFN
Y
TG
ASK
E

External References

Name Field # of Occurrence
^%DTC PRT+2
^%ZIS LRAPSEM+3
^LRAPSEM1 END
POS^LRAPSM TP+3
CK^LRAUSM TP+1, ASK+1, AE+1
B^LRU TP+4
L^LRU QUE
SSN^LRU PRT+2
XR^LRU QUE
YN^LRU TP+5, S, S+1
EN^LRUA QUE
BEG^LRUTL C+2
END^LRUTL END

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,LRO(68)," multiaxial SNOMED search"
  • Line Location: LRAPSEM+3
Function Call: WRITE
  • Prompt: $C(7),!!?26,"Not yet available"
  • Line Location: LRAPSEM+4
Function Call: READ
  • Prompt: "For all sites type 'ALL' : "
  • Timeout: DTIME
  • Variable: X
  • Line Location: TP+0
Function Call: WRITE
  • Prompt: !!,"TOPOGRAPHY (Organ/Tissue)",!?5,"Select 1 or more characters of the code",!?5
  • Line Location: TP+0
Function Call: WRITE
  • Prompt: !!,$P(LRX,U,2)
  • Line Location: TP+3
Function Call: WRITE
  • Prompt: !?5,"For all choices type 'ALL'"
  • Line Location: TP+3
Function Call: WRITE
  • Prompt: !
  • Line Location: TP+4
Function Call: WRITE
  • Prompt: !!,"List by accession number with specimens and microscopic dx "
  • Line Location: TP+5
Function Call: READ
  • Prompt: "Enter SEARCH COMMENT: "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: X
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !,$P(LRX,"^",2),?12,"choice #",$J(B,2),": Select 1 or more characters of the code: "
  • Line Location: ASK+0
Function Call: WRITE
  • Prompt: !?5,"ETIOLOGY (for all choices type 'ALL')"
  • Line Location: ET+1
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: AE+0
Function Call: WRITE
  • Prompt: !?15,"Choice #",$J(A,2),": Select 1 or more characters of the code: "
  • Line Location: AE+0
Function Call: WRITE
  • Prompt: !,"Enter 2-68 character free text comment to appear at top of each page of search."
  • Line Location: R+0
Function Call: WRITE
  • Prompt: !!,"List special studies "
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !!,"Include SNOMED CODES on report "
  • Line Location: S+1
Routine Call
  • %ZIS
  • Line Location:
    • LRAPSEM+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC - [#1] PRT+1
^LAB( N
^LAB(61 - [#61] TG
^LAB(61.2 - [#61.2] E+1
^LR - [#63] QUE+1, LRDFN, I, T, T+1, M, M+1, E+1, O, PRT+1
, PR
^TMP("LR" QUE!, PRT+4*, PRT+5*
^TMP($J QUE!

Label References

Name Line Occurrences
AE ET+1, AE+1
ASK TP+3, ASK+1
C C, C+1
E N+1
ET ASK, ASK+1
I LRDFN
LRDFN QUE+1
M TG+2
N M+1
O M, E
PR M
PRT TG+3
R C, C+1
S TP+6
T I
TG T+1
TP TP+1
Y N+1, E+1
Y1 TG

Naked Globals

Name Field # of Occurrence
^( T+1, M+1, E+1, PR
^(0 T, TG, N, E+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % TP+5*, S*, S+1*
>> A N+1*, E, E+1, ET+1*, AE
>> A("B" TP!, TP+1, ASK!, ASK+1, AE!, AE+1
>> AGE PRT+2*, PRT+4
>> B TP+3*, E+1*, ASK
>> DFN PRT+1*
>> DOB PRT+2*
DTIME TP, C, ASK, AE
>> E E+1*
>> F N+1*
>> G E+1*
>> HRCN PRT+4
>> I(1 Y1*
>> I(2 Y1*
IO QUE
IOF LRAPSEM+3
>> IOP LRAPSEM+3*
>> LR LRAPSEM+5*, T+2*
>> LR(1 LRAPSEM+5*, TG+1*
>> LR(12 T*, PRT+4
>> LR(2 LRAPSEM+5*, QUE*, LRDFN*
>> LR(3 LRAPSEM+5*, T*
>> LR(4 T*, PRT+2
>> LR(5 TG*
>> LR(8 M+1*, N, E+1*
>> LR(9 T+1*, T+2
>> LRA PRT+1*, PRT+4
>> LRABV T
>> LRAC T*, PRT+4
>> LRAN T*, PRT+4, PRT+5
>> LRB QUE*
>> LRD LRAPSEM+5*, S*
>> LRD(0 LRAPSEM+5*, TP+5*, S+1
>> LRD(1 LRAPSEM+5*, TP+5*
>> LRD(2 S+1*
>> LRDFN LRDFN*, I, T, T+1, M, M+1, E+1, O, PRT+1, PRT+4
, PR
>> LRDPF PRT+1*
>> LRE ASK, ASK+1, ET*, ET+1, AE, AE+1
>> LRF Y*, Y1*, TG, TG+1*, TG+2, TG+3, M*, M+1*, N+1, E+1*
, O*, PR*
>> LRH C+2*
>> LRI I*, T, T+1, M, M+1, E+1, O, PRT+4, PR
>> LRLDT TP+4*, QUE+1
LRM TP+2!, M+1*, N
LRN TP+2!, TP+4
LRN( TP+3, TG+2, M, N+1, E+1, ASK*, ASK+1*
LRN(2 M, E, ET+1, AE*, AE+1*
>> LRO TP+2*, TP+4*, M, N, PR
>> LRO(68 LRAPSEM+3
>> LRP PRT+2*, PRT+4, PRT+5
>> LRSDT TP+4*, QUE+1*, LRDFN, I
>> LRSN( QUE*, N
>> LRSS LRAPSEM+4, T, T+1, M, M+1, E+1, O, PR
>> LRT T+1*, TG
>> LRX TP+3*, QUE+1*, ASK, ASK+1
>> LRXR QUE+1, LRDFN, I
>> LRY T*, PRT+4, PRT+5
>> M M+1*, E, E+1
>> POP C+2
>> S(1 TP+1*, TG
>> S(2 TP*, TP+1*, TG
>> SEX PRT+2*, PRT+4
>> SSN PRT+2*
>> T T+1*, M, M+1, E+1, O, PR
U TP+3, T
>> V TG+2*, M, M+1, N, N+1, E+1
>> W N*, N+1, E+1*
>> X TP*, TP+1, TP+3, C*, C+1, C+2, QUE*, Y, Y1, TG*
, M*, M+1*, N+1*, E*, E+1*, O, PRT+1*, PRT+2*, PR*, ASK*
, ASK+1*, ET, ET+1, AE*, AE+1
>> X1 PRT+2*
>> X2 PRT+2*
>> Y TP+4, O*, PRT+1*, PRT+2
>> Y(1 Y, Y1, TG*, N+1*, E+1*
>> Y(2 Y, Y1, TG*, N+1*, E+1*
>> ZTRTN C+2*
>> ZTSK C+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All