|
Last change
on this file since 1150 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
499 bytes
|
| Line | |
|---|
| 1 | LRUU ;AVAMC/REG - FIND FIELD FOR A SUBSCRIPT & PIECE ; 9/2/87 09:35 ;
|
|---|
| 2 | ;;5.2;LAB SERVICE;;Sep 27, 1994
|
|---|
| 3 | S:'$D(DTIME) DTIME=300
|
|---|
| 4 | W !!?20,"Enter file/subfile #, subscript and piece",!?30,"separated by commas: "
|
|---|
| 5 | R X:DTIME Q:X=""!(X["^")
|
|---|
| 6 | F A=1:1:3 S A(A)=$P(X,",",A)
|
|---|
| 7 | F A=1:1:3 I A(A)="" W $C(7),!!,"File, subscript and piece must be entered and separated by commas (',')." G LRUU
|
|---|
| 8 | S X=$O(^DD(A(1),"GL",A(2),A(3),0)) I X="" W $C(7),!!,"Field not found. Try again." G LRUU
|
|---|
| 9 | W !!,^DD(A(1),X,0) G LRUU
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
