| [613] | 1 | LRSPS ;AVAMC/REG - CY/EM/SP PATH SEARCH LROPT SELECTOR ; 6/24/86 12:21 PM ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | S IOP="HOME" D ^%ZIS,XR^LRU
|
|---|
| 4 | OPTS W !!,"Select ",LRAA(1)," Search: " R X:DTIME Q:X=""!(X[U)
|
|---|
| 5 | F A=1:1 S Y=$P($T(OPT+A),";",3) Q:Y="" G:$E(X,1)=$P(Y,U,2) DO
|
|---|
| 6 | W !!,"Select from:" G LST
|
|---|
| 7 | DO W " ",$E($P(Y,U,1),7,$L($P(Y,U,1))),! S LROPT=$P(Y,U,3,4) D @LROPT G OPTS
|
|---|
| 8 | LST W ! F A=1:1 W !,?15,$P($P($T(OPT+A),";",3),U,1) Q:$T(OPT+A)=""
|
|---|
| 9 | G OPTS
|
|---|
| 10 | M S S(7)="MORPHOLOGY",LRSN=61.1,V=2 D ^LRAPSM Q
|
|---|
| 11 | D S S(7)="DISEASE",LRSN=61.4,V=1 D ^LRAPSM Q
|
|---|
| 12 | F S S(7)="FUNCTION",LRSN=61.3,V=3 D ^LRAPSM Q
|
|---|
| 13 | E S S(7)="ETIOLOGY",LRSN=61.2,V=2 D ^LRAPSM Q
|
|---|
| 14 | P S S(7)="PROCEDURE",LRSN=61.5,V=4 D ^LRAPSM Q
|
|---|
| 15 | OPT ;OPTION LIST
|
|---|
| 16 | ;;M ==> Morphology Code Search, SNOMED^M^M
|
|---|
| 17 | ;;D ==> Disease Code Search, SNOMED^D^D
|
|---|
| 18 | ;;F ==> Function Code Search, SNOMED^F^F
|
|---|
| 19 | ;;E ==> Etiology Code Search, SNOMED^E^E
|
|---|
| 20 | ;;P ==> Procedure Code Search, SNOMED^P^P
|
|---|
| 21 | ;;I ==> ICD9CM code Search^I^^LRSPSICD
|
|---|
