Routine: XPARTPV1

Package	Total	Call Graph
VA Fileman	2	^DIC ^DIR
Toolkit	1	$$EXT^XPARDD

Package

Total

Call Graph

^DIC ^DIR

$$EXT^XPARDD

Package	Total	Caller Graph
Toolkit	1	XPARTPV

Package

Total

Caller Graph

Name	Comments	DBIA/ICR reference
MAKEID(I)	; return two char ID based on integer, (0..9,A..Z)=base 36
VALTOTMP(PKG,NMSP)	; gather package level parameter values & put in ^TMP
SAVEROU	; loop thru ^TMP($J,"ROU") and save routines
ROU(NAME)	; get routine name
ZPKG(IEN,NAME)	; get package IEN & Name
PKG(IEN,NAME,NMSP)	; get namespace and associated package
MAX(SIZ)	; get maximum routine size

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This will create a series of ",NAME," routines." Line Location: ROU+5
Function Call: WRITE	Prompt: !,"But "_NAME_" already exists!" Line Location: ROU+6
Function Call: WRITE	Prompt: "." Line Location: VALTOTMP+11
Function Call: WRITE	Prompt: !,"Saving ",X Line Location: SAVEROU+3
Routine Call	DIC Line Location: ZPKG+3
Routine Call	DIR Line Location: PKG+4 ROU+4 ROU+8 MAX+4

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("SAVE"	SAVEROU+5
^DIC(9.4 - [#9.4]	PKG+5, PKG+7, PKG+8, PKG+9
^TMP($J	VALTOTMP+1!, VALTOTMP+9, VALTOTMP+10, SAVEROU+2
^XTV(8989.5 - [#8989.5]	VALTOTMP+2, VALTOTMP+4, VALTOTMP+8
^XTV(8989.51 - [#8989.51]	VALTOTMP+5

Name	Field # of Occurrence
^(1	VALTOTMP+4
^(2	VALTOTMP+8

Name	Field # of Occurrence
CNT	VALTOTMP+1~, VALTOTMP+2, VALTOTMP+11
DIC	ZPKG+1~, ZPKG+3*
DIC(0	ZPKG+3*
DIE	SAVEROU+1~, SAVEROU+4*
DIR	PKG+1~, ROU+1~, MAX+1~
DIR("A"	PKG+3, ROU+3, ROU+7, MAX+3
DIR(0	PKG+3, ROU+3, ROU+7, MAX+3
DIRUT	PKG+1~, PKG+4, ROU+1~, ROU+4, ROU+8, MAX+1~, MAX+4
DTOUT	PKG+1~, ROU+1~, MAX+1~
DUOUT	PKG+1~, ROU+1~, MAX+1~
I	VALTOTMP+1~, VALTOTMP+2*, VALTOTMP+4, VALTOTMP+8, VALTOTMP+9, VALTOTMP+10, MAKEID~, MAKEID+1
IEN	ZPKG~, ZPKG+2, ZPKG+4, PKG~, PKG+2, PKG+5, PKG+8, PKG+9
INST	VALTOTMP+3~, VALTOTMP+4, VALTOTMP+7, VALTOTMP+9
NAME	ZPKG~, ZPKG+2, ZPKG+4, PKG~, PKG+2, PKG+9, ROU~, ROU+2, ROU+4, ROU+5 , ROU+6, ROU+8*
NMSP	PKG~, PKG+2, PKG+4, PKG+5, PKG+6, PKG+7, VALTOTMP~, VALTOTMP+6
PAR	VALTOTMP+3~, VALTOTMP+4*, VALTOTMP+5, VALTOTMP+7
PARNAME	VALTOTMP+3~, VALTOTMP+5*, VALTOTMP+6, VALTOTMP+9
PKG	PKG+1~, PKG+6, PKG+7, PKG+8, VALTOTMP~, VALTOTMP+2
SIZ	MAX~, MAX+2, MAX+4
U	ZPKG+4, PKG+9, VALTOTMP+4, VALTOTMP+5, VALTOTMP+9
VAL	VALTOTMP+3~, VALTOTMP+4, VALTOTMP+7, VALTOTMP+8*, VALTOTMP+10
VAL(0	VALTOTMP+8!
X	ZPKG+1~, VALTOTMP+3~, VALTOTMP+4, SAVEROU+1~, SAVEROU+2, SAVEROU+3, SAVEROU+4
XCM	SAVEROU+1~
XCN	SAVEROU+1~, SAVEROU+4*
Y	ZPKG+1~, ZPKG+3, ZPKG+4, PKG+4, ROU+4, ROU+8, MAX+4

Information