LRAPSE.m

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 ---LRAPSE   703     printed  Apr 09, 2024@21:24:14                                                                                                                                                                                                       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