source: WorldVistAEHR/trunk/r/KERNEL-XU-A4A7-USC-XG-XLF-XNOA-XPD-XQ-XVIR-ZI-ZOSF-ZOSV-ZT-ZU-%Z-XIP--XQAB--XUC--XUR--ZIN--ZTED/XQORM4.m@ 623

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

initial load of WorldVistAEHR

File size: 1.7 KB
Line 
1XQORM4 ; SLC/KCM - Menu Messages ;10/19/90 14:31 ;
2 ;;8.0;KERNEL;**62**;Jul 10, 1995
3HELP ;From: XQORM1
4 Q:XQORM(0)'["A"
5 I $D(XQORM("??")) X:$L(XQORM("??")) XQORM("??") Q
6 I X="?" D:XQORM(0)'["D" DISP^XQORM1 D HELP1^XQORM5 Q
7 D HELP1^XQORM5,HELP2^XQORM5 F I=0:0 W !!,$S(XQORM(0)["D":"Red",1:"D"),"isplay items" S %=1 D YN^DICN Q:% W !!?4,"Enter a ""Y"" or ""N""."
8 D:%=1 DISP^XQORM1 W !
9 Q
10 ;Error messages From: XQORM routines
11CC W !!,">>> Control characters and function keys may not be entered.",! Q
12LL W !!,">>> Entry is too long.",! Q
13NE W !!,">>> Only "_+XQORM(0)_$S(+XQORM(0)=1:" entry",1:" entries")_" allowed.",! Q
14IR W !!,">>> Range entered improperly: ",X,".",! Q
15LR W !!,">>> Range too large: ",X,".",! Q
16NS W !!,">>> ",$P(Y(ORUB),"^",3)," may not be selected at this point.",! Q
17NN W !!,">>> The ""-"" may not be used with " D SHO W ".",! Q
18NF W !!,ORUW," is not a valid selection.",! Q
19SC W !!,">>> Semi-colon may not be at the front of an item. To jump, use '^^'.",! Q
20NU I $L(XQORM("NO^")),XQORM("NO^")'="OUTOK" W !!,">>> ",@XQORM("NO^"),! Q
21 W !!,">>> Up-arrow not allowed.",!
22 Q
23UR W !!,">>> Unable to resolve ",XQORMSAV,".",! Q
24SHO I $D(^XUTL("XQORM",XQORM,ORUDA,0)) W $P(^(0),"^",3)
25 Q
26ALL ;From: XQORM2
27 N X K ^TMP("XQORM",$J)
28 S ORUDA=0 F I=0:0 S ORUDA=$O(^XUTL("XQORM",XQORM,ORUDA)) Q:ORUDA'>0 I $D(^(ORUDA,0)),+^(0) S ORUB=1000*$P(ORUDA,".",2)+$P(ORUDA,".",1),^TMP("XQORM",$J,ORUB)=ORUDA
29 S ORUB=0 F I=0:0 S ORUB=$O(^TMP("XQORM",$J,ORUB)) Q:ORUB'>0 S ORUDA=+^(ORUB) D UPD^XQORM3
30 K ^TMP("XQORM",$J) Q
31LAST ;From: XQORM2
32 S X="" F I=0:0 S I=$O(^DISV(DUZ,"XQORM",XQORM,I)) Q:I'>0 S X=X_^DISV(DUZ,"XQORM",XQORM,I)_"," I $L(X)>160 K ^DISV(DUZ,"XQORM",XQORM) S X="" Q
33 S X=$E(X,1,$L(X)-1) ;I $L(X) W:XQORM(0)["A" X
34 Q
Note: See TracBrowser for help on using the repository browser.