VALMW5 ; alb/mjk - Help for export tool ;02:30 PM 16 Dec 1992;
;;1;List Manager;;Aug 13, 1993
;
NS ; HELP FOR PREFIX
W !?5,"Enter a unique 2 to 4 character prefix beginning with an uppercase",!?5,"letter and followed only by uppercase letters or numbers." Q:X'?1"??".E
W !?5,"If this is an established package, you may enter one of the prefixes",!?5,"listed in the right column below."
S DIC=9.4,DIC(0)="QE",DIC("W")="W ?35,$P(^(0),U,2)",DIZ=15 D ^DIC K DIC,DIZ Q
;
ROU ; HELP FOR RTN NAME
W !?5,"Answer YES if you want to create a program called "_X W:$D(Q) !?5,"even though there already is one on file. (It will be overwritten.)" W !?5,"Answer NO if you don't want to do this." Q
;
MAX ; HELP FOR MAX RTN SIZE
W !?5,"Enter the maximum number of characters you would like each routine",!?5,"contain. This number must be between 2000 and 10000." Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HVALMW5 878 printed Nov 22, 2024@17:20:20 Page 2
VALMW5 ; alb/mjk - Help for export tool ;02:30 PM 16 Dec 1992;
+1 ;;1;List Manager;;Aug 13, 1993
+2 ;
NS ; HELP FOR PREFIX
+1 WRITE !?5,"Enter a unique 2 to 4 character prefix beginning with an uppercase",!?5,"letter and followed only by uppercase letters or numbers."
if X'?1"??".E
QUIT
+2 WRITE !?5,"If this is an established package, you may enter one of the prefixes",!?5,"listed in the right column below."
+3 SET DIC=9.4
SET DIC(0)="QE"
SET DIC("W")="W ?35,$P(^(0),U,2)"
SET DIZ=15
DO ^DIC
KILL DIC,DIZ
QUIT
+4 ;
ROU ; HELP FOR RTN NAME
+1 WRITE !?5,"Answer YES if you want to create a program called "_X
if $DATA(Q)
WRITE !?5,"even though there already is one on file. (It will be overwritten.)"
WRITE !?5,"Answer NO if you don't want to do this."
QUIT
+2 ;
MAX ; HELP FOR MAX RTN SIZE
+1 WRITE !?5,"Enter the maximum number of characters you would like each routine",!?5,"contain. This number must be between 2000 and 10000."
QUIT
+2 ;
