|
Last change
on this file since 931 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
689 bytes
|
| Line | |
|---|
| 1 | LRAPSE ;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 | ;
|
|---|
| 5 | M D ^LRAP G:'$D(Y) END S S(7)="MORPHOLOGY",LRSN=61.1,V=2 G LRAPSE
|
|---|
| 6 | D D ^LRAP G:'$D(Y) END S S(7)="DISEASE",LRSN=61.4,V=1 G LRAPSE
|
|---|
| 7 | F D ^LRAP G:'$D(Y) END S S(7)="FUNCTION",LRSN=61.3,V=3 G LRAPSE
|
|---|
| 8 | E D ^LRAP G:'$D(Y) END S S(7)="ETIOLOGY",LRSN=61.2,V=2 G LRAPSE
|
|---|
| 9 | P D ^LRAP G:'$D(Y) END S S(7)="PROCEDURE",LRSN=61.5,V=4 G LRAPSE
|
|---|
| 10 | L S LRDICS="SPCYEM" D ^LRAP G:'$D(Y) END S S(7)="MULTI-AXIAL" D ^LRAPSEM,END Q
|
|---|
| 11 | I D ^LRAP G:'$D(Y) END D @$S(LRSS'="AU":"^LRSPSICD",1:"^LRAUSICD"),END Q
|
|---|
| 12 | T D ^LRAP G:'$D(Y) END D ^LRAPFTS,END Q ;free text search
|
|---|
| 13 | ;
|
|---|
| 14 | END D V^LRU Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
