- LRAPSE ; IHS/DIR/AAB - AP SEARCHES ; 17-Oct-2014 09:22 ; MKK
- ;;5.2;LR;**1002,72,1034**;NOV 1, 1997;Build 88
- ;
- 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
- LRAPSE ; IHS/DIR/AAB - AP SEARCHES ; 17-Oct-2014 09:22 ; MKK
- +1 ;;5.2;LR;**1002,72,1034**;NOV 1, 1997;Build 88
- +2 ;
- +3 DO @$SELECT(LRSS'="AU":"^LRAPSM",1:"^LRAUSM")
- DO END
- QUIT
- +4 ;
- 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
