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

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

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
Info |  Source |  Entry Points |  Interaction Calls