Routine: TIUFLJ1

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

Info
Source
Entry Points
Interaction Calls

Information

TIUFLJ1 ;SLC/MAM - DOCUMENTATION, LOCKEMB(FILEDA,NAP,LUNLOCK), STATEMB(FILEDA,STATFLG,NAP), EDBTEXT(FILEDA,NAPNAME) ;;7/1/97

Source file <TIUFLJ1.m>

Name	Comments	DBIA/ICR reference
LOCKEMB(FILEDA,NAP,LUNLOCK)	; Function returns 1 if has successfully locked or unlocked all Titles in ^TMP("TIUFEMBED",$J,FILEDA,"TIUFTL",NAP) ; NAP See top of rtn TIUFLJ ; LUNLOCK = + or -
LOCKX
STATEMB(FILEDA,STATFLG,NAP)	; Inactivate/reactivate titles in ^TMP("TIUFEMBED",$J,FILEDA,"TIUFTL",NAP). ; Edit Status to original status if STATFLG="O", to inactive if STATFLG="I". ; If restoring to Active, checks for problems, does not reactivate if problems are found.
EDBTEXT(FILEDA,NAP)	; Edit boilerplate text of the Titles in ^TMP("TIUFEMBED",$J,FILEDA,"TIUFTL",NAP).

Name	Line Occurrences
Function Call: WRITE	Prompt: !!," Another user is editing one of the Titles you need to edit. Please try later.",! Line Location: LOCKEMB+7
Function Call: WRITE	Prompt: !!,"Restoring IFN ",TITLEDA,"..." Line Location: STATEMB+9
Function Call: WRITE	Prompt: !,MSG,! Line Location: STATEMB+10
Function Call: WRITE	Prompt: " ." Line Location: STATEMB+11
Function Call: WRITE	Prompt: " ." Line Location: STATEMB+12
Function Call: WRITE	Prompt: " ." Line Location: STATEMB+13
Function Call: WRITE	Prompt: !!,"Finished Restoring Titles to original Status.",! Line Location: STATEMB+14