Routine: AUPTFXX

Information

%AUPTFXX ;BRJ/IHS OHPD-TUCSON EXCHANGE OLD ENTRY NUMBER FOR NEW [ 03/20/87 9:22 AM ]

Source file <AUPTFXX.m>

Package	Total	Call Graph
Utilities	2	PUT^AUPTFXD ERR^AUPTFXT

Package	Total	Caller Graph
Utilities	2	AUPTFXD AUPTFXS

Name	Comments	DBIA/ICR reference
EN	;ENTRY FROM ^AUPTFX
SWAPX	;EXCHANGE DATA VALUES - (DINUM=X) VALUES DONE IN ^AUPTFXDI
RESETXR	;RESET ANY TRIGGER,X-REF,ETC
BLDGNDE	;BUILD GLOBAL NODE OF FILE ENTRY
SWAP	;POSITION DATA GLOBAL AND SWAP POINTER VALUES
CKSWAP	;DETERMINE IF SWAP AND SAVE OLD/NEW VALUES

Name	Field # of Occurrence
PUT^AUPTFXD	EN+7
ERR^AUPTFXT	RESETXR+3

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"%AUPTFXX cannot be run stand-alone. Bye Bye!" Line Location: AUPTFXX+2
Function Call: WRITE	Prompt: !!,*7,AUPTPGM,?11,"Beginning to exchange pointer values for:" Line Location: EN+2
Function Call: WRITE	Prompt: !,?11,"File/Subfile // ",$P(AUPTDAL(AUPTPO),U,3)," ",$P(AUPTDAL(AUPTPO),U,4) Line Location: EN+4
Function Call: WRITE	Prompt: !,?18,"Field // ",$P(AUPTDAL(-1),U,5)," ",$P(AUPTDAL(-1),U,6),!,?18,"Piece // ",AUPTP Condition for execution: AUPTPO=(-1) Line Location: EN+4
Function Call: WRITE	Prompt: "-" Line Location: SWAPX+1
Function Call: WRITE	Prompt: !!,AUPTPGM,?11,"<OLD> ",AUPTGNDE,"=",@AUPTGNDE Line Location: SWAPX+2
Function Call: WRITE	Prompt: "X" Line Location: SWAPX+4
Function Call: WRITE	Prompt: !,?11,"<NEW> ",AUPTGNDE,"=",@AUPTGNDE Line Location: SWAPX+5
Function Call: WRITE	Prompt: "\|" Line Location: RESETXR+3
Function Call: WRITE	Prompt: "\|" Line Location: RESETXR+3

Name	Line Occurrences (* Changed, ! Killed)
^DD(	SWAPX+6, RESETXR+3

Name	Field # of Occurrence
^(	RESETXR+3
^(2	RESETXR+3

Name	Field # of Occurrence
>> AUPTDACT	EN+6
>> AUPTDAL(	EN+4, BLDGNDE+2
>> AUPTDIN	EN+7, RESETXR+3
>> AUPTDSPY	EN+5, SWAPX+1, SWAPX+4, RESETXR+1
>> AUPTEC	RESETXR+2*
>> AUPTGNDE	BLDGNDE+1, BLDGNDE+2, SWAPX+2, SWAPX+3*, SWAPX+5
>> AUPTI	EN+7*
>> AUPTI1	BLDGNDE+1, BLDGNDE+2
>> AUPTL	EN+6*
>> AUPTNEWX	CKSWAP+2*, SWAPX+3, RESETXR+3
>> AUPTO(	EN+6, EN+7
>> AUPTOLDX	CKSWAP+1*, CKSWAP+2, RESETXR+3
>> AUPTORGG	BLDGNDE+1
>> AUPTP	EN+4, CKSWAP+1, SWAPX+3
>> AUPTPGL	EN+7, CKSWAP+1
AUPTPGM	EN+1~*, EN+2, SWAPX+2
>> AUPTPO	EN+3, EN+4
>> AUPTPSFD	SWAPX+6, RESETXR+3
>> AUPTPSFL	SWAPX+6, RESETXR+3
>> AUPTSKIP	RESETXR+3, RESETXR+4*
>> AUPTSWAP	EN+7, CKSWAP+1, CKSWAP+2
>> AUPTUFLE	CKSWAP+2
>> AUPTXI1	RESETXR+2, RESETXR+3
>> DA	EN+7
>> L	EN+4, EN+7, BLDGNDE+2, RESETXR+3
U	EN+4, CKSWAP+1, BLDGNDE+2, SWAPX+3
>> X	RESETXR+3*

Name	Field # of Occurrence
$T(	EN+1