Routine: TIUFHA5

Select the objects that you wish to see in the downloaded PDF

Info
Source
Entry Points
Interaction Calls
FileMan Files Accessed Via FileMan Db Call

Information

TIUFHA5 ; SLC/MAM - COPYFDA(FILEDA,ITEMFLG,PFILEDA,CFILEDA,CNODE0,VCNTAJ), CREATE(NAME,FILEDA), CP0,etc. ;7/1/97 14:02

Source file <TIUFHA5.m>

Name	Comments	DBIA/ICR reference
COPYFDA(FILEDA,ITEMFLG,PFILEDA,CFILEDA,CNODE0,VCNTAJ)	; Copy entry FILEDA into
READNM
COPYFDX	;
CREATE(NAME,FILEDA)	; Creates Document Definition File record of Name NAME with IFN FILEDA ; Requires NAME for new record; Returns FILEDA of new record ; Returns FILEDA<0 if can't create.
CREAX
CP0(FILEDA,DA,NODE0)	; Copy root node NODE0 into DA. DON'T copy status, Shared, or National. If object, don't copy abbrev or printname.
CP0X
CP1(FILEDA,DA)	; Copy node 1 of FILEDA into DA.
CP1X
CP3(FILEDA,DA)	; Copy node 3 of FILEDA into DA. DON'T copy OK to Distribute.
CP3X
CP4T9(FILEDA,DA)	; Copy nodes 4 thru 9 of FILEDA into DA.
CP4T9X
CP10(FILEDA,CFILEDA,VCNTA)	; Copy Items into new entries, Add new entries as Items. (If item is SHARED ancestor of nonSHARED entry selected for
CP10X
CP11T13(FILEDA,CFILEDA)	; Copy Nodes 11 thru 13 of FILEDA into CFILEDA.
CP11X
CPDFLT(FILEDA,CFILEDA)	; Copy Default Node "DFLT".
CPDIAL	;
CPHEAD(FILEDA,CFILEDA)	; Copy Node "HEAD".
CPITEM(FILEDA,CFILEDA)	; Copy Node "ITEM".

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Entry accessed by another user; Please try again later.",! Line Location: COPYFDA+16
Function Call: WRITE	Prompt: !," Name of copy must be different from original name. Original is provided as the",!,"default since it may be similar to new name, but original must be changed.",!," Enter ^ to exit." Line Location: READNM+2
Function Call: WRITE	Prompt: !!,TIUFIMSG,! Line Location: READNM+4
Function Call: WRITE	Prompt: !!,TIUFTMSG("T"),!,"Can't Copy entry",! Line Location: READNM+7
Function Call: WRITE	Prompt: !!," Please enter a different Name; File already has entry of that Type with that",!,"Name",! Line Location: READNM+8
Function Call: WRITE	Prompt: !!," Copy accessed by another user; Please recopy" Line Location: READNM+10
Function Call: WRITE	Prompt: !!," Copying Items. . . ",! Line Location: CP10+4