Routine: LRAPSEM2

Information

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

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