LRAPSE ;AVAMC/REG - AP SEARCHES ;8/15/95 09:46 ;
;;5.2;LAB SERVICE;**72**;Sep 27, 1994
D @$S(LRSS'="AU":"^LRAPSM",1:"^LRAUSM"),END Q
;
M D ^LRAP G:'$D(Y) END S S(7)="MORPHOLOGY",LRSN=61.1,V=2 G LRAPSE
D D ^LRAP G:'$D(Y) END S S(7)="DISEASE",LRSN=61.4,V=1 G LRAPSE
F D ^LRAP G:'$D(Y) END S S(7)="FUNCTION",LRSN=61.3,V=3 G LRAPSE
E D ^LRAP G:'$D(Y) END S S(7)="ETIOLOGY",LRSN=61.2,V=2 G LRAPSE
P D ^LRAP G:'$D(Y) END S S(7)="PROCEDURE",LRSN=61.5,V=4 G LRAPSE
L S LRDICS="SPCYEM" D ^LRAP G:'$D(Y) END S S(7)="MULTI-AXIAL" D ^LRAPSEM,END Q
I D ^LRAP G:'$D(Y) END D @$S(LRSS'="AU":"^LRSPSICD",1:"^LRAUSICD"),END Q
T D ^LRAP G:'$D(Y) END D ^LRAPFTS,END Q ;free text search
;
END D V^LRU Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HLRAPSE 703 printed Oct 16, 2024@18:09:02 Page 2
LRAPSE ;AVAMC/REG - AP SEARCHES ;8/15/95 09:46 ;
+1 ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
+2 DO @$SELECT(LRSS'="AU":"^LRAPSM",1:"^LRAUSM")
DO END
QUIT
+3 ;
M DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="MORPHOLOGY"
SET LRSN=61.1
SET V=2
GOTO LRAPSE
D DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="DISEASE"
SET LRSN=61.4
SET V=1
GOTO LRAPSE
F DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="FUNCTION"
SET LRSN=61.3
SET V=3
GOTO LRAPSE
E DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="ETIOLOGY"
SET LRSN=61.2
SET V=2
GOTO LRAPSE
P DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="PROCEDURE"
SET LRSN=61.5
SET V=4
GOTO LRAPSE
L SET LRDICS="SPCYEM"
DO ^LRAP
if '$DATA(Y)
GOTO END
SET S(7)="MULTI-AXIAL"
DO ^LRAPSEM
DO END
QUIT
I DO ^LRAP
if '$DATA(Y)
GOTO END
DO @$SELECT(LRSS'="AU":"^LRSPSICD",1:"^LRAUSICD")
DO END
QUIT
T ;free text search
DO ^LRAP
if '$DATA(Y)
GOTO END
DO ^LRAPFTS
DO END
QUIT
+1 ;
END DO V^LRU
QUIT
