Routine: PXRMCOPY

Package	Total	Call Graph
VA Fileman	6	^DIC ($$GET1,FIELD)^DID (FILE,UPDATE)^DIE (,IX)^DIK $$GET1^DIQ ^DIR
Clinical Reminders	4	SETSTART^PXRMCOPY EDIT^PXRMEDIT $$VNAME^PXRMINTR ($$FNFR,AWRITE)^PXRMUTIL
Kernel	1	($$FMTE,$$NOW)^XLFDT

Package	Total	Caller Graph
Clinical Reminders	21	PXRM DEFINITION COPY PXRM LOCATION LIST COPY PXRM TAXONOMY COPY PXRM TERM COPY PXRMCFED PXRMCOPY PXRMCPLS PXRMDBL3 PXRMDCPY PXRMDEDT PXRMEFED PXRMEGED PXRMEPED PXRMLLED PXRMLRED PXRMREDT PXRMSPED PXRMSTS PXRMTEDT PXRMTMED PXRMV1I
PCE Patient Care Encounter	4	PXRM DEFINITION COPY PXRM LOCATION LIST COPY PXRM TAXONOMY COPY PXRM TERM COPY

Entry Points

Name	Comments	DBIA/ICR reference
COPY(PROMPT,ROOT,WHAT)	;Copy an entry of ROOT into a new entry.
SCAS(FILENUM,IEN,CLASS,SPONSOR)	;Set the class field to CLASS and the sponsor
DELETE(DIK,DA)	;Delete the entry just added.
GETFOIEN(ROOT)	;Return the first open IEN in ROOT. This should be called
COPYTAX	;Copy a taxonomy.
COPYREM	;Copy a reminder definition.
INIEH(FILENUM,ROOT,IENN,IENO)	;Initialize the edit history after a copy.
GETORGR	;Look-up logic to get and copy source entry to destination.
COPYLL	;Copy a location list.
SETSTART(ROOT)	;Set the starting value to add new entries. Start
MERGE(IENN,IENO,ROOT)	;Use MERGE to copy ROOT(IENO into ROOT(IENN.
COPYTERM	;Copy a reminder term.
GETNAM

External References

Name	Field # of Occurrence
^DIC	GETORGR+5
$$GET1^DID	GETORGR+18
FIELD^DID	INIEH+3
FILE^DIE	GETNAM+11, INIEH+11, SCAS+6
UPDATE^DIE	INIEH+21
^DIK	DELETE+1
IX^DIK	GETNAM+22
$$GET1^DIQ	INIEH+18, INIEH+20
^DIR	GETNAM, GETNAM+29
SETSTART^PXRMCOPY	GETORGR+11
EDIT^PXRMEDIT	GETNAM+30
$$VNAME^PXRMINTR	GETNAM+5
$$FNFR^PXRMUTIL	GETORGR+17
AWRITE^PXRMUTIL	INIEH+12, INIEH+22, SCAS+7
$$FMTE^XLFDT	INIEH+17
$$NOW^XLFDT	INIEH+17

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ! Line Location: GETORGR+4
Function Call: WRITE	Prompt: !,NAME," is not a unique name!" Line Location: GETNAM+14
Function Call: WRITE	Prompt: ! Line Location: GETNAM+23
Function Call: WRITE	Prompt: !!,"New entry not created due to invalid name!",! Line Location: DELETE+2
Routine Call	DIE Line Location: INIEH+21
Routine Call	DIE Line Location: GETNAM+11 INIEH+11 SCAS+6
Routine Call	DIR Line Location: GETNAM GETNAM+29
Routine Call	DIC Line Location: GETORGR+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^VA(200 - [#200]	GET1^DIQ

Label References

Name	Line Occurrences
$$GETFOIEN	GETORGR+12
COPY	COPYLL+5, COPYREM+5, COPYTAX+5, COPYTERM+5
DELETE	GETNAM+1
GETNAM	GETNAM+5, GETNAM+13
GETORGR	COPY+2
INIEH	GETNAM+18
MERGE	GETORGR+13
SCAS	GETNAM+16

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
CLASS	SCAS~, SCAS+4
CUR	SETSTART+2~
DA	GETORGR+1~, GETNAM+21*, DELETE~
DEST	MERGE+1~, MERGE+2*, MERGE+4, MERGE+6, MERGE+8
DIC	GETORGR+1~, GETORGR+3*, GETORGR+11
DIC("A"	GETORGR+3*
DIC(0	GETORGR+3*
DIE	GETORGR+1~
DIK	GETORGR+1~, GETNAM+21*, DELETE~
>> DILOCKTM	MERGE+4
DIR	GETORGR+1~
DIR("A"	GETORGR+20, GETNAM+27, GETNAM+28*
DIR(0	GETORGR+19, GETNAM+26
DIROUT	COPY+1~, COPY+2, GETORGR+6, GETORGR+8
DIRUT	GETORGR+1~, GETNAM+1, GETNAM+29
DTOUT	COPY+1~, COPY+2, GETORGR+6
DUOUT	COPY+1~, GETORGR+6
DUZ	INIEH+18
ENTRY	GETFOIEN+2~, GETFOIEN+3, GETFOIEN+4, GETFOIEN+5, GETFOIEN+6, INIEH+2~, INIEH+6, INIEH+8, SETSTART+2~, SETSTART+3* , SETSTART+4*
FDA	GETORGR+1~, INIEH+2~, INIEH+14!, SCAS+2~
FDA(	GETNAM+9, INIEH+10, INIEH+11, INIEH+17, INIEH+18, INIEH+19, SCAS+4, SCAS+5*
FDAIEN	INIEH+2~
FDAIEN(	INIEH+16*
FIELDLEN	GETORGR+1~, GETORGR+18*, GETORGR+19
FILE	GETORGR+1~, GETORGR+17*, GETORGR+18, GETNAM+9, GETNAM+16, GETNAM+18
FILENUM	INIEH~, INIEH+3, INIEH+20, SCAS~, SCAS+4, SCAS+5
IEN	SCAS~, SCAS+3
IENN	GETORGR+2~, GETORGR+12*, GETORGR+13, GETNAM+1, GETNAM+8, GETNAM+16, GETNAM+18, GETNAM+21, GETNAM+30, INIEH~ , INIEH+6, INIEH+9, INIEH+15, INIEH+16, MERGE~, MERGE+2
IENO	GETORGR+2~, GETORGR+7*, GETORGR+8, GETORGR+13, GETORGR+16, GETNAM+18, INIEH~, INIEH+20, MERGE~, MERGE+5
IENS	GETORGR+2~, GETNAM+8, GETNAM+9, INIEH+2~, INIEH+9, INIEH+10, INIEH+15, INIEH+17, INIEH+18, INIEH+19 , SCAS+2~, SCAS+3, SCAS+4, SCAS+5
IND	INIEH+2~, INIEH+7, INIEH+8, INIEH+9
MSG	GETORGR+2~, GETNAM+10!, INIEH+2~, INIEH+12, INIEH+14!, INIEH+22, SCAS+2~, SCAS+7
MSG("DIERR"	GETNAM+13
NAME	GETORGR+2~, GETNAM+2*, GETNAM+5, GETNAM+9, GETNAM+14, GETNAM+28
NIEN	GETFOIEN+2~, GETFOIEN+6*
OIEN	GETFOIEN+2~, GETFOIEN+4, GETFOIEN+5, GETFOIEN+6, GETFOIEN+7
ORGNAME	GETORGR+2~, GETORGR+16*, GETNAM+28
PROMPT	COPY~, GETORGR+3, COPYLL+1~, COPYLL+4, COPYLL+5, COPYREM+1~, COPYREM+4, COPYREM+5, COPYTAX+1~, COPYTAX+4* , COPYTAX+5, COPYTERM+1~, COPYTERM+4*, COPYTERM+5
ROOT	COPY~, GETORGR+3, GETORGR+12, GETORGR+13, GETORGR+16, GETORGR+17, GETNAM+1, GETNAM+18, GETNAM+21, GETNAM+30 , COPYLL+1~, COPYLL+3, COPYLL+5, COPYREM+1~, COPYREM+3, COPYREM+5, COPYTAX+1~, COPYTAX+3, COPYTAX+5, COPYTERM+1~ , COPYTERM+3, COPYTERM+5, GETFOIEN~, GETFOIEN+3, GETFOIEN+5, GETFOIEN+6, INIEH~, INIEH+6, MERGE~, MERGE+2 , MERGE+5, SETSTART~, SETSTART+3
SFN	INIEH+2~, INIEH+4*, INIEH+5, INIEH+10, INIEH+11, INIEH+17, INIEH+18, INIEH+19
SOURCE	MERGE+1~, MERGE+5*, MERGE+6
SPONSOR	SCAS~, SCAS+5
TARGET	INIEH+2~
TARGET("SPECIFIER"	INIEH+4
U	GETORGR+7, GETORGR+16, GETORGR+19, GETFOIEN+4, SETSTART+4
WHAT	COPY~, GETNAM+28, COPYLL+1~, COPYLL+2, COPYLL+5, COPYREM+1~, COPYREM+2, COPYREM+5, COPYTAX+1~, COPYTAX+2* , COPYTAX+5, COPYTERM+1~, COPYTERM+2*, COPYTERM+5
WP	INIEH+2~
WP(1	INIEH+20*
X	GETORGR+2~
Y	GETORGR+2~, GETORGR+7, GETNAM+2, GETNAM+30

Customize PDF page

Package: Clinical Reminders

Routine: PXRMCOPY

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 25

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Label References

Local Variables

Legend: