%AUPTFXS ;BRJ/IHS OHPD STACK FILE/$O/DA VARIABLE TABLES [ 03/17/87 10:39 AM ]
Source file <AUPTFXS.m>
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 | Line Occurrences |
---|---|
Function Call: WRITE |
|
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 | Line Occurrences |
---|---|
@( | LOOPIT+3 |
BLDSERCH | SETGLREF+6 |
LOOPIT | EN+2 |
STACK | EN+2 |
STACKIT | STACK+2 |
TBLDA | BLDDA+4, UPDD+1 |
UPDDFDCK | UPDD+1 |
UPDDNMCK | UPDD+1 |
Name | Field # of Occurrence |
---|---|
^("GL" | SETGLREF+2 |
^("NM" | UPDD+1 |
^("UP" | UPDD+1 |
^(0 | BLDDA+2 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
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 |