Routine: VALMW3

Information

VALMW3 ; ALB/MJK - Create transport routines for LM;03:39 PM 16 Dec 1992

Source file <VALMW3.m>

Package	Total	Caller Graph
Registration	2	VALMW VALMW4

Name	Comments	DBIA/ICR reference
Q3
MAX1
ROU1
BLD	; -- build utility
NS()	; -- ask for namespace
ADHOC(X)	; -- pick any namespace
SET(X)	; -- set line utility
QUOTE(X)	; -- add double quotes
LQ
NSQ
FILE(VALMROU)	; -- file routines
DUZ()	; -- check duz and duz(0)
EN	; -- exporter main entry point
ROU(VALMNS)	; -- ask for export routine name
L
ENQ
NS1
OS()	; -- get os #
SAVE(VALMROU,VALMNUM,VALMLN,VALMDATE)	; -- save to routine
MAXQ
MAX()	; -- ask for max size of routines
ROUQ

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,!?20,"* List Template Export Utility *" Line Location: EN+4
Function Call: WRITE	Prompt: !!!,">>> Exporting LIST TEMPLATES with namespace '"_VALMNS_"'." Line Location: EN+10
Function Call: WRITE	Prompt: !!,">>> Enter the Name of the Package (2-4 characters): " Line Location: NS1+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:60) Variable: X Line Location: NS1+2
Function Call: WRITE	Prompt: ! Line Location: ROU1+1
Function Call: WRITE	Prompt: !!,"I am going to create a series of '",VALMROU,"*' routines." Line Location: ROU1+4
Function Call: WRITE	Prompt: *7,!,"but '"_VALMROU_"' is ALREADY ON FILE!" Line Location: ROU1+5
Function Call: WRITE	Prompt: !,"Is that OK" Line Location: ROU1+6
Function Call: WRITE	Prompt: !!,">>> MAXIMUM ROUTINE SIZE(BYTES): ",^DD("ROU"),"// " Line Location: MAX1+1
Function Call: READ	Timeout: $S($D(DTIME):DTIME,1:60) Variable: Y Line Location: MAX1+2
Function Call: WRITE	Prompt: !!,"Package "_X_" not found" Line Location: L+0
Function Call: WRITE	Prompt: !,"Please enter the package namespace you wish to export: " Line Location: L+1
Function Call: WRITE	Prompt: !,"Namespace too long" Line Location: L+4
Function Call: WRITE	Prompt: "." Line Location: SET+1
Function Call: WRITE	Prompt: !,X_" has been filed..." Line Location: SAVE+5
Routine Call	%ZIS Line Location: EN+3
Routine Call	DIR Line Location: ROU1+2
Routine Call	DIC Line Location: NS1+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("OS"	OS+1
^%ZOSF("TEST"	ROU1+5
^DD("OS" - [#.7]	SAVE+5
^DD("ROU"	MAX1+1, MAX1+3
^SD(409.61 - [#409.61]	BLD+3
^UTILITY($J	EN+2!, SET+1, SAVE+2!, SAVE+3, SAVE+4*

Name	Line Occurrences
$$ADHOC	NS1+6
$$DUZ	EN+5
$$MAX	EN+9
$$NS	EN+7
$$OS	EN+6
$$QUOTE	BLD+11
$$ROU	EN+8
BLD	EN+11
ENQ	EN+5, EN+6, EN+7, EN+8, EN+9
FILE	EN+11
L	L+4
LQ	L+3
MAX	MAX1+5
MAXQ	MAX1+2, MAX1+4
NS1	NS1+3
NSQ	NS1+2
ROU1	ROU1+8
ROUQ	ROU1+3, ROU1+7
SAVE	FILE+5
SET	BLD+5, BLD+6, BLD+7, BLD+8, BLD+11, BLD+13, BLD+14, BLD+15, BLD+16

Name	Field # of Occurrence
>> %	ROU1+7, ROU1+8
%H	FILE+1~, FILE+2*
>> D	NS1+4*
>> DIC	NS1+4*
>> DIC(0	NS1+4*
DIR	ROU+1~, ROU1+2!
DIR("A"	ROU1+2*
DIR("B"	ROU1+1*
DIR(0	ROU1+2*
DTIME	EN+2*, NS1+2, MAX1+2
DUZ(0	DUZ+1
IOF	EN+4
L	QUOTE+1~, QUOTE+2, QUOTE+3
LINE	SAVE+1~, SAVE+3*, SAVE+4
P	QUOTE+1~, QUOTE+2, QUOTE+3
Q	ROU+1~, ROU1+5*
ROU	ROU+1~
>> SDPK	NS1+5*
SIZE	SAVE+1~, SAVE+2, SAVE+3
U	EN+2*, NS1+5, MAX1+4, BLD+3
VALM	BLD+1~, BLD+3*, BLD+10
VALMAX	EN+1~, EN+9*, SAVE+3
VALMDATE	FILE+1~, FILE+3*, FILE+5, SAVE~, SAVE+2
VALMGLB	BLD+1~, BLD+10*, BLD+11
VALMLN	BLD+1~, BLD+2, SET+1, FILE+1~, FILE+4, FILE+5, SAVE~, SAVE+3, SAVE+4
VALMNAME	BLD+1~, BLD+3*, BLD+4, BLD+5, BLD+6, BLD+7
VALMNS	EN+1~, EN+7, EN+8, EN+10, NS1, NS1+4, NS1+5, NS1+6*, NSQ, ROU~ , ROU1+1, BLD+2, BLD+3
VALMNUM	FILE+1~, FILE+4, FILE+5, SAVE~, SAVE+2, SAVE+4, SAVE+5
VALMROU	EN+1~, EN+8, EN+11, ROU1, ROU1+3, ROU1+4, ROU1+5, ROU1+7, ROUQ, FILE~ , FILE+5, SAVE~, SAVE+2, SAVE+4, SAVE+5
VALMSYS	EN+1~, EN+6*, SAVE+5
VALMX	BLD+1~, BLD+2, BLD+3
X	NS1+2, NS1+3, NS1+6, ROU+1~, ADHOC~, L, L+2, L+3, L+4, LQ , BLD+10, BLD+11, SET~, SET+1, QUOTE~, QUOTE+2, QUOTE+3, QUOTE+4, SAVE+5*
Y	DUZ+3, DUZ+4, DUZ+5, OS+2, OS+3, OS+4, NS1+5, NS1+6, ROU1+3, MAX+1~ , MAX1, MAX1+2, MAX1+3, MAX1+4, MAX1+5, MAXQ, FILE+3
Y(0	NS1+5