Routine: GMPLCOPY

Information

GMPLCOPY ;ISP/TC - Copy Problem Selection Lists/Categories ;09/21/16 09:03

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
VA FileMan	5	^DIC $$GET1^DID FILE^DIE (,IX)^DIK ^DIR
Kernel	2	$$DT^XLFDT MES^XPDUTL
Problem List	1	$$VNAME^GMPLINTR

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Problem List	1	GMPLBLDC

Entry Points

Name	Comments	DBIA/ICR reference
SETCLDLM(GMPFLNM,GMPIEN,GMPCLASS)	;Set the class field to GMPCLASS and update Date Last Modified
COPY(GMPPRMPT,GMPROOT,GMPWHAT,GMPVAL)	;Copy an entry of GMPROOT into a new entry.
COPYCAT(GMPVAL)	;Copy a selection list category.
COPYLIST	;Copy a selection list.
DELETE(DIK,DA)	;Delete the entry just added.
GETFOIEN(GMPROOT)	;Return the first open IEN in GMPROOT. This should be called
GETORIG
GETORIGC(GMPIENO,GMPIENN,GMPROOT,GMPWHAT,GMPVAL)	;
GETNAM
MERGE(GMPIENN,GMPIENO,GMPROOT)	;Use MERGE to copy GMPROOT(GMPIENO into GMPROOT(GMPIENN.
SETSTART(GMPROOT)	;Set the starting value to add new entries. Start
AWRITE(GMPREF)	;Write all the descendants of the array reference, including the

External References

Name	Field # of Occurrence
^DIC	GETORIG+4
$$GET1^DID	GETORIGC+12
FILE^DIE	SETCLDLM+6, GETNAM+11
^DIK	DELETE+1
IX^DIK	GETNAM+20
^DIR	GETNAM
$$VNAME^GMPLINTR	GETNAM+5
$$DT^XLFDT	SETCLDLM+5
MES^XPDUTL	AWRITE+20

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"New entry not created due to invalid name!",! Line Location: DELETE+2
Function Call: WRITE	Prompt: ! Line Location: GETORIG+3
Function Call: WRITE	Prompt: !,GMPNAME," is not a unique name!" Line Location: GETNAM+14
Function Call: WRITE	Prompt: !!,"The original "_GMPWHAT_" "_GMPORGNM_" has been copied into "_GMPNAME_"." Line Location: GETNAM+24
Routine Call	DIC Line Location: GETORIG+4
Routine Call	DIE Line Location: SETCLDLM+6 GETNAM+11
Routine Call	DIR Line Location: GETNAM

Label References

Name	Line Occurrences
$$GETFOIEN	GETORIGC+6
AWRITE	SETCLDLM+7
COPY	COPYCAT+5, COPYLIST+5
DELETE	GETNAM+1
GETNAM	GETNAM+5, GETNAM+13
GETORIG	COPY+2
GETORIGC	GETORIG+8
MERGE	GETORIGC+7
SETCLDLM	GETNAM+16
SETSTART	GETORIGC+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	DELETE~, GETORIGC+1~, GETNAM+19*
DIC	GETORIG+1~, GETORIG+2, GETORIGC+1~, GETORIGC+3, GETORIGC+5
DIC("A"	GETORIG+2*
DIC(0	GETORIG+2*
DIE	GETORIGC+1~
DIK	DELETE~, GETORIGC+1~, GETNAM+19*
>> DILOCKTM	MERGE+4
DIR	GETORIGC+1~
DIR("A"	GETORIGC+14*
DIR(0	GETORIGC+13*
DIROUT	COPY+1~, COPY+2, GETORIG+5, GETORIG+7
DIRUT	GETORIGC+1~, GETNAM+1
DTOUT	COPY+1~, COPY+2, GETORIG+5
DUOUT	COPY+1~, GETORIG+5
GMPCLASS	SETCLDLM~, SETCLDLM+4
GMPCUR	SETSTART+2~
GMPDEST	MERGE+1~, MERGE+2*, MERGE+4, MERGE+6, MERGE+8
GMPDONE	AWRITE+3~, AWRITE+12, AWRITE+13, AWRITE+19
GMPENTRY	GETFOIEN+2~, GETFOIEN+3, GETFOIEN+4, GETFOIEN+5, GETFOIEN+6, SETSTART+2~, SETSTART+3, SETSTART+4*
GMPFDA	SETCLDLM+1~, GETORIGC+1~
GMPFDA(	SETCLDLM+4, SETCLDLM+5, GETNAM+9*
GMPFILE	GETORIGC+1~, GETORIGC+11*, GETORIGC+12, GETNAM+9, GETNAM+16
GMPFLD	SETCLDLM+1~, SETCLDLM+3*, SETCLDLM+4
GMPFLDLN	GETORIGC+1~, GETORIGC+12*, GETORIGC+13
GMPFLNM	SETCLDLM~, SETCLDLM+3, SETCLDLM+4, SETCLDLM+5
GMPIEN	SETCLDLM~, SETCLDLM+2
GMPIENN	GETORIG+1~, GETORIG+8, GETORIGC~, GETORIGC+6*, GETORIGC+7, GETNAM+1, GETNAM+8, GETNAM+16, GETNAM+19, GETNAM+22 , GETNAM+23, MERGE~, MERGE+2
GMPIENO	GETORIG+1~, GETORIG+6*, GETORIG+7, GETORIG+8, GETORIGC~, GETORIGC+7, GETORIGC+10, MERGE~, MERGE+5
GMPIENS	SETCLDLM+1~, SETCLDLM+2, SETCLDLM+4, SETCLDLM+5, GETORIGC+2~, GETNAM+8, GETNAM+9
GMPIND	AWRITE+3~, AWRITE+16*, AWRITE+17
GMPL0	GETORIGC+2~, GETNAM+22*, GETNAM+23
GMPLEN	AWRITE+3~, AWRITE+15*, AWRITE+16
GMPLN	AWRITE+3~, AWRITE+5, AWRITE+17
GMPMSG	SETCLDLM+1~, SETCLDLM+7, GETORIGC+2~, GETNAM+10!
GMPMSG("DIERR"	GETNAM+13
GMPNAME	GETORIGC+2~, GETNAM+2*, GETNAM+5, GETNAM+9, GETNAM+14, GETNAM+24
GMPNIEN	GETFOIEN+2~, GETFOIEN+6*
GMPOIEN	GETFOIEN+2~, GETFOIEN+4, GETFOIEN+5, GETFOIEN+6, GETFOIEN+7
GMPORGNM	GETORIGC+2~, GETORIGC+10*, GETNAM+24
GMPPRMPT	COPY~, COPYCAT+1~, COPYCAT+4, COPYCAT+5, COPYLIST+1~, COPYLIST+4, COPYLIST+5, GETORIG+2
GMPPRT	AWRITE+3~, AWRITE+6*, AWRITE+17
GMPREF	AWRITE~, AWRITE+4, AWRITE+6, AWRITE+8, AWRITE+10, AWRITE+11, AWRITE+13, AWRITE+14, AWRITE+15, AWRITE+16 , AWRITE+17, AWRITE+18, AWRITE+19
GMPROOT	COPY~, COPYCAT+1~, COPYCAT+3, COPYCAT+5, COPYLIST+1~, COPYLIST+3, COPYLIST+5, GETFOIEN~, GETFOIEN+3, GETFOIEN+5 , GETFOIEN+6, GETORIG+2, GETORIG+8, GETORIGC~, GETORIGC+3, GETORIGC+6, GETORIGC+7, GETORIGC+10, GETORIGC+11, GETNAM+1 , GETNAM+19, GETNAM+22, MERGE~, MERGE+2, MERGE+5, SETSTART~, SETSTART+3, AWRITE+3~, AWRITE+9*, AWRITE+11 , AWRITE+14, AWRITE+19
GMPSRCE	MERGE+1~, MERGE+5*, MERGE+6
GMPSTRT	AWRITE+3~, AWRITE+14*, AWRITE+16
GMPTMP	AWRITE+3~, AWRITE+8*, AWRITE+9
GMPTXT	AWRITE+3~, AWRITE+20
GMPTXT(	AWRITE+17*
GMPVAL	COPY~, COPYCAT~, COPYCAT+5, GETORIG+8, GETORIGC~, GETNAM+23*
GMPWHAT	COPY~, COPYCAT+1~, COPYCAT+2, COPYCAT+5, COPYLIST+1~, COPYLIST+2, COPYLIST+5, GETORIG+8, GETORIGC~, GETNAM+24
U	GETFOIEN+4, GETORIG+6, GETORIGC+10, GETORIGC+11, GETORIGC+13, GETNAM+23, SETSTART+4
X	GETORIGC+2~
Y	GETORIG+1~, GETORIG+6, GETORIGC+2~, GETNAM+2

Customize PDF page

Package: Problem List