Last change
on this file since 752 was 628, checked in by George Lilly, 15 years ago |
initial load of FOIAVistA 6/30/08 version
|
File size:
499 bytes
|
Rev | Line | |
---|
[628] | 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.