| [613] | 1 | NURCRL3 ;HIRMFO/RM-SELECT MULTIPLE NURSING LOCATION UTILITY ;9/11/91
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | ;;
|
|---|
| 4 | MDIC() ; 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
|
|---|
| 7 | DIC W !,$S('$D(NURSNLOC):"Select",1:"Another")_" Nursing Unit: " R X:DTIME E S X="^^"
|
|---|
| 8 | RETURN 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
|
|---|
| 14 | HLP ; 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
|
|---|
