source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRAPSE.m@ 861

Last change on this file since 861 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 689 bytes
RevLine 
[613]1LRAPSE ;AVAMC/REG - AP SEARCHES ;8/15/95 09:46 ;
2 ;;5.2;LAB SERVICE;**72**;Sep 27, 1994
3 D @$S(LRSS'="AU":"^LRAPSM",1:"^LRAUSM"),END Q
4 ;
5M D ^LRAP G:'$D(Y) END S S(7)="MORPHOLOGY",LRSN=61.1,V=2 G LRAPSE
6D D ^LRAP G:'$D(Y) END S S(7)="DISEASE",LRSN=61.4,V=1 G LRAPSE
7F D ^LRAP G:'$D(Y) END S S(7)="FUNCTION",LRSN=61.3,V=3 G LRAPSE
8E D ^LRAP G:'$D(Y) END S S(7)="ETIOLOGY",LRSN=61.2,V=2 G LRAPSE
9P D ^LRAP G:'$D(Y) END S S(7)="PROCEDURE",LRSN=61.5,V=4 G LRAPSE
10L S LRDICS="SPCYEM" D ^LRAP G:'$D(Y) END S S(7)="MULTI-AXIAL" D ^LRAPSEM,END Q
11I D ^LRAP G:'$D(Y) END D @$S(LRSS'="AU":"^LRSPSICD",1:"^LRAUSICD"),END Q
12T D ^LRAP G:'$D(Y) END D ^LRAPFTS,END Q ;free text search
13 ;
14END D V^LRU Q
Note: See TracBrowser for help on using the repository browser.