| 1 | ORCDLGH ; SLC/MKB - Help for Order Dialogs ;4/7/97 10:00
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;**71,68**;Dec 17, 1997
|
|---|
| 3 | P ; -- pointer
|
|---|
| 4 | N DIC,D,DZ S DIC(0)="EQS"
|
|---|
| 5 | S DIC=$S(+DOMAIN:$G(^DIC(+DOMAIN,0,"GL")),1:U_$P(DOMAIN,":")),DZ="??"
|
|---|
| 6 | S D=$S($D(ORDIALOG(PROMPT,"D")):$P(ORDIALOG(PROMPT,"D"),";"),1:"B")
|
|---|
| 7 | S:$D(ORDIALOG(PROMPT,"S")) DIC("S")=ORDIALOG(PROMPT,"S")
|
|---|
| 8 | D DQ^DICQ
|
|---|
| 9 | Q
|
|---|
| 10 | ;
|
|---|
| 11 | S ; -- set of codes
|
|---|
| 12 | N X,I W !!,"Choose from:"
|
|---|
| 13 | F I=1:1:$L(DOMAIN,";") S X=$P(DOMAIN,";",I) Q:'$L(X) W !,?10,$P(X,":"),?20,$P(X,":",2)
|
|---|
| 14 | Q
|
|---|
| 15 | ;
|
|---|
| 16 | D ; -- date
|
|---|
| 17 | R ; -- free text date
|
|---|
| 18 | N %DT S %DT=$P(DOMAIN,":",3) S:$L($P(DOMAIN,":")) %DT(0)=$P(DOMAIN,":")
|
|---|
| 19 | D HELP^%DTC
|
|---|
| 20 | Q
|
|---|
| 21 | ;
|
|---|
| 22 | OLDR ; -- [old help for] free text date
|
|---|
| 23 | W !!,"Examples of Valid Dates:"
|
|---|
| 24 | W !," JAN 20 1957 or 20 JAN 57 or 1/20/57 or 012057"
|
|---|
| 25 | W !," T (for TODAY) T+1 (for TOMORROW) T+2 T+7 etc."
|
|---|
| 26 | W !," T-1 (for YESTERDAY) T-3W (for 3 WEEKS AGO) etc."
|
|---|
| 27 | ;W !," V (for the NEXT VISIT) V-1 (for DAY BEFORE NEXT VISIT) etc."
|
|---|
| 28 | W !,"If the year is omitted, the current year is assumed."
|
|---|
| 29 | I DOMAIN'["R",DOMAIN'["T" W !,"Time may not be entered." Q
|
|---|
| 30 | W !,"If only the time is entered, the current date is assumed."
|
|---|
| 31 | W !,"The date "_$S(DOMAIN["R":"must",1:"may")_" be followed by a time, such as JAN 20@10, T@10AM, etc."
|
|---|
| 32 | W !,"You may enter a time such as NOON, MIDNIGHT, or NOW."
|
|---|
| 33 | W !,"You may also enter NOW+3' (for current date and time plus 3 minutes)"
|
|---|
| 34 | Q
|
|---|
| 35 | ;
|
|---|
| 36 | F ; -- free text
|
|---|
| 37 | W !!,"This response can be free text" I '$L(DOMAIN) W "." Q
|
|---|
| 38 | W ", from "_+DOMAIN_"-"_+$P(DOMAIN,":",2)_" characters in length."
|
|---|
| 39 | Q
|
|---|
| 40 | ;
|
|---|
| 41 | N ; -- numeric
|
|---|
| 42 | W !!,"This response must be a number" I '$L(DOMAIN) W "." Q
|
|---|
| 43 | W " between "_+DOMAIN_" and "_+$P(DOMAIN,":",2)
|
|---|
| 44 | I $P(DOMAIN,":",3) W ", up to "_+$P(DOMAIN,":",3)_" decimal places"
|
|---|
| 45 | W "." Q
|
|---|
| 46 | ;
|
|---|
| 47 | Y ; -- yes/no
|
|---|
| 48 | N DOMAIN S DOMAIN="1:YES;2:NO" G S
|
|---|
| 49 | Q
|
|---|
