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

Package: Lab Service

Routine: LRAPSEM2


Information

LRAPSEM2 ;AVAMC/REG/CYM- SEARCH BY SNOMED CODE PRINT ;3/10/98 10:16 ;

Source Information

Source file <LRAPSEM2.m>

Entry Points

Name Comments DBIA/ICR reference
Y
S
T
G
U
B
E
H
H1
H4
H5
A

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?15,A(1)
  • Line Location: Y+2
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: Y+6
Function Call: WRITE
  • Prompt: !,LR("%")
  • Line Location: Y+8
Function Call: WRITE
  • Prompt: !?5,"T-",LRT(2)," ",LRT(1)
  • Line Location: S+0
Function Call: WRITE
  • Prompt: !?10,Z," ",W," Date: ",Y
  • Line Location: G+0
Function Call: WRITE
  • Prompt: !?10,$P(LRSN(V),"^",2),"-",LRM(2)," ",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,"E-",LRX(2)," ",LRX
  • Line Location: E+0
Function Call: WRITE
  • Prompt: !,LRO(68)," (",LRABV,") SEARCH (",LRSTR,"-",LRLST,")"
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Date",?8,"# = Not VA patient",?35,"For:",LRJ(1)
  • Line Location: H+1
Function Call: WRITE
  • Prompt: !,"Taken",?11,"Patient",?30,"ID",?35,"Physician",?48,"LOC",?55,"Acc#",?67,"PATHOLOGIST",!,LR("%")
  • Line Location: H+2
Function Call: WRITE
  • Prompt: !?5,LRT(1)
  • Line Location: H4+0
Function Call: WRITE
  • Prompt: !?10,LRM(1)
  • Line Location: H5+0
Function Call: WRITE
  • Prompt: !,$$Y2K^LRX(LRA(1),"5D"),?10,LRW(7),?11,LRP,?32,$P($P(LRW,"^",5),"-",3),?37,LRA(7),?50,LRA(8),?57,$P(LRA,"^",6),?69,LRA(2)
  • Line Location: A+0
Info |  Source |  Entry Points |  Interaction Calls