source: WorldVistAEHR/trunk/r/LAB_SERVICE-LR-LS/LRUU.m@ 1078

Last change on this file since 1078 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 499 bytes
RevLine 
[613]1LRUU ;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.