ORCDLGH.m

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

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