10 lines
499 B
Mathematica
10 lines
499 B
Mathematica
LRUU ;AVAMC/REG - FIND FIELD FOR A SUBSCRIPT & PIECE ; 9/2/87 09:35 ;
|
|
;;5.2;LAB SERVICE;;Sep 27, 1994
|
|
S:'$D(DTIME) DTIME=300
|
|
W !!?20,"Enter file/subfile #, subscript and piece",!?30,"separated by commas: "
|
|
R X:DTIME Q:X=""!(X["^")
|
|
F A=1:1:3 S A(A)=$P(X,",",A)
|
|
F A=1:1:3 I A(A)="" W $C(7),!!,"File, subscript and piece must be entered and separated by commas (',')." G LRUU
|
|
S X=$O(^DD(A(1),"GL",A(2),A(3),0)) I X="" W $C(7),!!,"Field not found. Try again." G LRUU
|
|
W !!,^DD(A(1),X,0) G LRUU
|