source: FOIAVistA/trunk/r/NURSING_SERVICE-NUR/NURCRL3.m@ 897

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

initial load of FOIAVistA 6/30/08 version

File size: 1021 bytes
Line 
1NURCRL3 ;HIRMFO/RM-SELECT MULTIPLE NURSING LOCATION UTILITY ;9/11/91
2 ;;4.0;NURSING SERVICE;;Apr 25, 1997
3 ;;
4MDIC() ; FUNTION RETURNS NURSNLOC(NLOC,NLOCIEN)=""
5 ; FUNCTION VALUE IS -1 IF USER ABORT, 0 IF NO LOCS PICKED, ELSE 1
6 N DIC,MDIC,NEG,X,Y K NURSNLOC
7DIC W !,$S('$D(NURSNLOC):"Select",1:"Another")_" Nursing Unit: " R X:DTIME E S X="^^"
8RETURN I "^^"[X S MDIC=$S(X["^":-1,1:''$D(NURSNLOC)) Q MDIC
9 I X?1"?".E D HLP S:Y<0 X="^^" G:Y<0 RETURN S X="?"
10 S NEG=X?1"-".E,X=$E(X,NEG+1,$L(X)),DIC="^NURSF(211.4,",DIC(0)="EQMNZ" D ^DIC I +Y'>0 G DIC
11 I 'NEG S NURSNLOC(Y(0,0),+Y)=""
12 E K NURSNLOC(Y(0,0),+Y)
13 G DIC
14HLP ; PRINT LOCATIONS SELECTED ALREADY
15 W $C(7) I $D(NURSNLOC) W !?3,"YOU HAVE ALREADY SELECTED: "
16 S Y="",X=0 F S Y=$O(NURSNLOC(Y)) Q:Y="" W !?5,Y S X=X+1 I X>5 W """^"" TO STOP: " R X:DTIME S:'$T X="^^" S:X="^^" Y=-1 Q:X="^"!(Y<0) S X=0
17 Q:Y<0
18 W !!?3,"You may deselect from the list by typing the - followed by unit name.",!?4,"E.g. -3E would delete 3E from the list of units already selected."
19 Q
Note: See TracBrowser for help on using the repository browser.