Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: LRAPSEM

Package: Lab Service

Routine: LRAPSEM


Information

LRAPSEM ;AVAMC/REG - MULTIAXIAL SNOMED SEARCH ;8/15/95 09:53 ;

Source Information

Source file <LRAPSEM.m>

Entry Points

Name Comments DBIA/ICR reference
TP
C
QUE
END
Y
Y1
LRDFN
I
T
TG
M
N
E
O
PRT
PR
ASK
ET
AE
R
S

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!?10,LRO(68)," multiaxial SNOMED search"
  • Line Location: LRAPSEM+2
Function Call: WRITE
  • Prompt: $C(7),!!?26,"Not yet available"
  • Line Location: LRAPSEM+3
Function Call: READ
  • Prompt: "For all sites type 'ALL' : "
  • Variable: X
  • Timeout: DTIME
  • 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
  • Formatting: !!
  • Prompt: "Enter SEARCH COMMENT: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !
  • Line Location: C+2
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • 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
  • Variable: X
  • Timeout: DTIME
  • 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
Info |  Source |  Entry Points |  Interaction Calls