Routine: AUPTFXS

Information

%AUPTFXS ;BRJ/IHS OHPD STACK FILE/$O/DA VARIABLE TABLES [ 03/17/87 10:39 AM ]

Package	Total	Call Graph
Utilities	3	GET^AUPTFXD ERR^AUPTFXT EN^AUPTFXX

Package	Total	Caller Graph
Utilities	1	AUPTFX

Name	Comments	DBIA/ICR reference
EN	;ENTRY FROM ^%AUPTFX DRIVER
SETGLREF	;GET GLOBAL REFERENCE FROM ^DIC FOR THIS FILE OR SUBFILE
TBLDAFL	;ADD THE FILE NAME AND NUMBER TO THE 'DA' TABLE ENTRY
LOOPIT	;LOOP THRU SUB-ROUTINES AND SWAP DATA VALUES
BLDSERCH	;BUILD SEARCH $O ARRAY USED TO POSITION DATA GLOBAL FOR FILE/SUBFILE
STACKIT	;GET FIELD NUMBER FOR STACK
UPDDNMCK	;CHECK IF "NM" VALUE OR ^DD(file,0,"NM" node exists
TBLDA	;
UPDDFDCK	;CHECK IF "B" VALUE OR ^DD(file,"B",name,field node exists
BLDDA	;LOOP UP ^DD TO BUILD 'DA' TABLE FROM FILE/SUBFILE INFO
UPDD	;GO UP ^DD FOR ALL SUBFILES AND ADD TO 'DA' TABLE
SWAP	;CALL ^%AUPTFXX to exchange data values
STACK	;STACK ALL FILES WITH "PT" NODES (POINTING OR POINTED TO)
DDCK	;CHECK ^DD FOR EXISTANCE OF FILE/FIELD '0' NODE
TBLDACMT	;CHECK IF THIS IS A FIELD NODE FOR THIS FILE/FIELD

Name	Field # of Occurrence
GET^AUPTFXD	SWAP+1
ERR^AUPTFXT	LOOPIT+4, DDCK+2, BLDDA+2, UPDDNMCK+1, UPDDFDCK+1, UPDDFDCK+2, TBLDA+1, SETGLREF+1
EN^AUPTFXX	SWAP+1

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"%AUPTFXS cannot be run stand-alone. Check your documentation!" Line Location: AUPTFXS+1

Name	Line Occurrences (* Changed, ! Killed)
^AUPTFXD(	SWAP+1
^AUPTSTCK(	STACKIT+2*, LOOPIT+3
^DD(	STACK+2, STACKIT+2, DDCK+1, BLDDA+2, UPDD+1, UPDDFDCK+2, TBLDA+1, TBLDA+2, TBLDAFL+1, TBLDAFL+2
^DIC - [#1]	TBLDA+1, TBLDAFL+1, SETGLREF+1

Name	Field # of Occurrence
>> AUPTCOMA	SETGLREF+3*
>> AUPTDA	BLDSERCH+1*, BLDSERCH+2, BLDSERCH+3, BLDSERCH+4
>> AUPTDACT	UPDD+2*, SETGLREF+6, BLDSERCH+2
AUPTDAL	BLDDA+3!
AUPTDAL(	UPDD+3, TBLDA+2, TBLDAFL+1, TBLDAFL+2*, SETGLREF+6, BLDSERCH+1, BLDSERCH+3
>> AUPTDDFL	STACK+2*, STACKIT+2
>> AUPTDIN	BLDDA+1, BLDDA+2, SWAP+1
>> AUPTDXGL	BLDDA+2*
>> AUPTEC	LOOPIT+4, DDCK+2, BLDDA+2, UPDDNMCK+1, UPDDFDCK+1, UPDDFDCK+2, TBLDA+1, SETGLREF+1
>> AUPTFSTK(	STACK+2, STACKIT+2*
>> AUPTHIT	LOOPIT+2, LOOPIT+4, DDCK+1
>> AUPTI	BLDDA+1, UPDD+2, TBLDA+2, TBLDAFL+1, TBLDAFL+2, SETGLREF+5, SETGLREF+6, BLDSERCH+1, BLDSERCH+3, BLDSERCH+4
>> AUPTI1	STACK+1, STACK+2
>> AUPTI2	STACK+1, STACKIT+2
>> AUPTL	SETGLREF+6*, BLDSERCH+2, BLDSERCH+3, BLDSERCH+4
>> AUPTLBL	LOOPIT+3*
AUPTO	SETGLREF+5!
AUPTO(	BLDSERCH+2, BLDSERCH+3, BLDSERCH+4*
>> AUPTORGG	SETGLREF+2*, SETGLREF+3, BLDSERCH+3
>> AUPTP	UPDD+3*
>> AUPTPFD	LOOPIT+3*, DDCK+1
>> AUPTPFL	LOOPIT+2, LOOPIT+3, DDCK+1
>> AUPTPGL	SETGLREF+2, SETGLREF+6
AUPTPGM	EN+1~*
>> AUPTPSFD	LOOPIT+3, BLDDA+2, UPDD+1, UPDDFDCK+1, UPDDFDCK+2, TBLDA+2, TBLDAFL+2, SWAP+1
>> AUPTPSFL	LOOPIT+3, BLDDA+2, UPDD+1, UPDDFDCK+2, TBLDA+1, TBLDA+2, TBLDAFL+1, TBLDAFL+2, SETGLREF+1, SWAP+1
>> AUPTPSNM	UPDD+1*, UPDDNMCK+1
>> AUPTPTFD	STACKIT+1, STACKIT+2
>> AUPTPTFL	STACK+2*, STACKIT+2
>> AUPTSKIP	LOOPIT+3, BLDDA+2, BLDDA+5, UPDD+1
DA	BLDDA+3!
>> L	STACK+2, STACKIT+2, LOOPIT+3, UPDD+1
U	BLDDA+2, UPDD+3, TBLDA+2, TBLDAFL+1, TBLDAFL+2, SETGLREF+6, BLDSERCH+1, BLDSERCH+3

Name	Field # of Occurrence
$T(	EN+1