ORCDLGH ; SLC/MKB - Help for Order Dialogs ;4/7/97 10:00
;;3.0;ORDER ENTRY/RESULTS REPORTING;**71,68**;Dec 17, 1997
P ; -- pointer
N DIC,D,DZ S DIC(0)="EQS"
S DIC=$S(+DOMAIN:$G(^DIC(+DOMAIN,0,"GL")),1:U_$P(DOMAIN,":")),DZ="??"
S D=$S($D(ORDIALOG(PROMPT,"D")):$P(ORDIALOG(PROMPT,"D"),";"),1:"B")
S:$D(ORDIALOG(PROMPT,"S")) DIC("S")=ORDIALOG(PROMPT,"S")
D DQ^DICQ
Q
;
S ; -- set of codes
N X,I W !!,"Choose from:"
F I=1:1:$L(DOMAIN,";") S X=$P(DOMAIN,";",I) Q:'$L(X) W !,?10,$P(X,":"),?20,$P(X,":",2)
Q
;
D ; -- date
R ; -- free text date
N %DT S %DT=$P(DOMAIN,":",3) S:$L($P(DOMAIN,":")) %DT(0)=$P(DOMAIN,":")
D HELP^%DTC
Q
;
OLDR ; -- [old help for] free text date
W !!,"Examples of Valid Dates:"
W !," JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"
W !," T (for TODAY) T+1 (for TOMORROW) T+2 T+7 etc."
W !," T-1 (for YESTERDAY) T-3W (for 3 WEEKS AGO) etc."
;W !," V (for the NEXT VISIT) V-1 (for DAY BEFORE NEXT VISIT) etc."
W !,"If the year is omitted, the current year is assumed."
I DOMAIN'["R",DOMAIN'["T" W !,"Time may not be entered." Q
W !,"If only the time is entered, the current date is assumed."
W !,"The date "_$S(DOMAIN["R":"must",1:"may")_" be followed by a time, such as JAN 20@10, T@10AM, etc."
W !,"You may enter a time such as NOON, MIDNIGHT, or NOW."
W !,"You may also enter NOW+3' (for current date and time plus 3 minutes)"
Q
;
F ; -- free text
W !!,"This response can be free text" I '$L(DOMAIN) W "." Q
W ", from "_+DOMAIN_"-"_+$P(DOMAIN,":",2)_" characters in length."
Q
;
N ; -- numeric
W !!,"This response must be a number" I '$L(DOMAIN) W "." Q
W " between "_+DOMAIN_" and "_+$P(DOMAIN,":",2)
I $P(DOMAIN,":",3) W ", up to "_+$P(DOMAIN,":",3)_" decimal places"
W "." Q
;
Y ; -- yes/no
N DOMAIN S DOMAIN="1:YES;2:NO" G S
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORCDLGH 1861 printed Dec 13, 2024@02:28:03 Page 2
ORCDLGH ; SLC/MKB - Help for Order Dialogs ;4/7/97 10:00
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**71,68**;Dec 17, 1997
P ; -- pointer
+1 NEW DIC,D,DZ
SET DIC(0)="EQS"
+2 SET DIC=$SELECT(+DOMAIN:$GET(^DIC(+DOMAIN,0,"GL")),1:U_$PIECE(DOMAIN,":"))
SET DZ="??"
+3 SET D=$SELECT($DATA(ORDIALOG(PROMPT,"D")):$PIECE(ORDIALOG(PROMPT,"D"),";"),1:"B")
+4 if $DATA(ORDIALOG(PROMPT,"S"))
SET DIC("S")=ORDIALOG(PROMPT,"S")
+5 DO DQ^DICQ
+6 QUIT
+7 ;
S ; -- set of codes
+1 NEW X,I
WRITE !!,"Choose from:"
+2 FOR I=1:1:$LENGTH(DOMAIN,";")
SET X=$PIECE(DOMAIN,";",I)
if '$LENGTH(X)
QUIT
WRITE !,?10,$PIECE(X,":"),?20,$PIECE(X,":",2)
+3 QUIT
+4 ;
D ; -- date
R ; -- free text date
+1 NEW %DT
SET %DT=$PIECE(DOMAIN,":",3)
if $LENGTH($PIECE(DOMAIN,"
SET %DT(0)=$PIECE(DOMAIN,":")
+2 DO HELP^%DTC
+3 QUIT
+4 ;
OLDR ; -- [old help for] free text date
+1 WRITE !!,"Examples of Valid Dates:"
+2 WRITE !," JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"
+3 WRITE !," T (for TODAY) T+1 (for TOMORROW) T+2 T+7 etc."
+4 WRITE !," T-1 (for YESTERDAY) T-3W (for 3 WEEKS AGO) etc."
+5 ;W !," V (for the NEXT VISIT) V-1 (for DAY BEFORE NEXT VISIT) etc."
+6 WRITE !,"If the year is omitted, the current year is assumed."
+7 IF DOMAIN'["R"
IF DOMAIN'["T"
WRITE !,"Time may not be entered."
QUIT
+8 WRITE !,"If only the time is entered, the current date is assumed."
+9 WRITE !,"The date "_$SELECT(DOMAIN["R":"must",1:"may")_" be followed by a time, such as JAN 20@10, T@10AM, etc."
+10 WRITE !,"You may enter a time such as NOON, MIDNIGHT, or NOW."
+11 WRITE !,"You may also enter NOW+3' (for current date and time plus 3 minutes)"
+12 QUIT
+13 ;
F ; -- free text
+1 WRITE !!,"This response can be free text"
IF '$LENGTH(DOMAIN)
WRITE "."
QUIT
+2 WRITE ", from "_+DOMAIN_"-"_+$PIECE(DOMAIN,":",2)_" characters in length."
+3 QUIT
+4 ;
N ; -- numeric
+1 WRITE !!,"This response must be a number"
IF '$LENGTH(DOMAIN)
WRITE "."
QUIT
+2 WRITE " between "_+DOMAIN_" and "_+$PIECE(DOMAIN,":",2)
+3 IF $PIECE(DOMAIN,":",3)
WRITE ", up to "_+$PIECE(DOMAIN,":",3)_" decimal places"
+4 WRITE "."
QUIT
+5 ;
Y ; -- yes/no
+1 NEW DOMAIN
SET DOMAIN="1:YES;2:NO"
GOTO S
+2 QUIT
