Routine: AUPTFXD

Information

%AUPTFXD ; BRJ/OHPD-TUCSON PROCESS DINUM=X VALUES [ 03/10/87 3:58 PM ]

Source Information

Source file <AUPTFXD.m>

Call Graph

Call Graph Total: 2

Package	Total	Call Graph
Utilities	1	RESETXR^AUPTFXX
VA Fileman	1	^DIK

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Utilities	2	AUPTFXS AUPTFXX

Entry Points

Name	Comments	DBIA/ICR reference
BLDSS	;
DSPXRCK	;CHECK FOR DISPLAY AND FIRING XREFS AND TRIGGERS
GET	;GET GLOBAL REFERENCES AND VALUES FROM ^AUPTFXD AND SET THEM
DATAHIT	;
GETEN	;GET ENTRY NUMBER LEVEL OF ^AUPTFXD AND "DA" VALUES
DSPLYIT	;DISPLAY OLD/NEW NODES AND VALUES
FILEIT	;PUT GLOBAL NODE AND VALUE OF NEW 'DINUM=X' IN ^AUPTFXD
SVOLDNEW	;SAVE OLD/NEW NODES AND VALUES FOR LATER DISPLAY
GETNODES	;GET LAST NODE FOR POSTING DATA
PUT	;PUT GLOBAL NODES AND VALUES OF -POINTING FILE- IN ^AUPTFXD
GETDA	;RESTORE "DA" VALUES FOR ^DIK
FRAMEIT	;DETERMINE NODE TYPE (NUMBER, ALPA'VARIABLE OR ALPHA&VARIABLE

External References

Name	Field # of Occurrence
RESETXR^AUPTFXX	DSPXRCK+2
^DIK	PUT+13

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"%AUPTFXD cannot be run stand-alone. Please check your documentation!" Line Location: AUPTFXD+2
Function Call: WRITE	Prompt: !,AUPTPGM,?11,"Pointing field is .01 and DINUM=X.",!,?11,"Saving these changes in ^AUPTFXD.",!,?11,"Also, I must remove the old entries and cross references!",!,?11,"Please wait . . .",!,?11 Line Location: PUT+2
Function Call: WRITE	Prompt: "-X" Line Location: PUT+11
Function Call: WRITE	Prompt: !,?11,"Retrieving .01 DINUM=X actions stored in ^AUPTFXD.",!,?11,"Please wait. . .",!,?11 Line Location: GET+2
Function Call: WRITE	Prompt: !!,AUPTPGM,?11,"<OLD> ",^AUPTFXD(AUPTPSFL,AUPTPSFD,AUPTXGEN,"OLD","REF"),"=",^("VAL") Line Location: DSPLYIT+1
Function Call: WRITE	Prompt: !,?11,"<NEW> ",^AUPTFXD(AUPTPSFL,AUPTPSFD,AUPTXGEN,"NEW","REF"),"=",^("VAL") Line Location: DSPLYIT+2

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^AUPTFXD(	PUT+2, PUT+5, SVOLDNEW+1, SVOLDNEW+3, SVOLDNEW+7, DATAHIT+6, DATAHIT+7, DATAHIT+8*, GETEN+2, GETDA+2 , GETNODES+2, DSPLYIT+1, DSPLYIT+2
^DD(	DSPXRCK+2

Label References

Name	Line Occurrences
BLDSS	FILEIT+5
DATAHIT	BLDSS+2
DSPLYIT	DSPXRCK+2
DSPXRCK	GETNODES+2
FILEIT	PUT+12
FRAMEIT	DATAHIT+4
GETDA	GETEN+2
GETNODES	GETEN+2
SVOLDNEW	PUT+8

Naked Globals

Name	Field # of Occurrence
^(	PUT+2, PUT+3, GETEN+2, GETDA+2
^("DA"	PUT+6*, GETDA+1
^("OLDX"	PUT+6*
^("VAL"	DSPLYIT+1, DSPLYIT+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> AUPTCOMA	PUT+9, PUT+10, SVOLDNEW+5
>> AUPTDACT	PUT+9, PUT+10, SVOLDNEW+5
>> AUPTDAI	PUT+7, GETDA+2
>> AUPTDAL(	PUT+2, PUT+3
>> AUPTDSPY	DSPXRCK+1, DSPXRCK+2
>> AUPTFXD(	PUT+7*
>> AUPTGNDE	PUT+9, PUT+10, SVOLDNEW+1, SVOLDNEW+2, SVOLDNEW+4, SVOLDNEW+6
>> AUPTNEWX	PUT+5, PUT+6, PUT+10, SVOLDNEW+2, SVOLDNEW+5, DATAHIT+8, GETEN+2*
>> AUPTOLDX	PUT+6
>> AUPTORGG	PUT+10, PUT+13
>> AUPTP	SVOLDNEW+2, DATAHIT+8
AUPTPGM	PUT+1~, PUT+2, GET+1~, DSPLYIT+1
>> AUPTPSFD	PUT+3, PUT+5, PUT+7, SVOLDNEW+1, SVOLDNEW+3, SVOLDNEW+7, DATAHIT+6, DATAHIT+7, DATAHIT+8, GETEN+2 , GETDA+2, GETNODES+2, DSPXRCK+2, DSPLYIT+1, DSPLYIT+2
>> AUPTPSFL	PUT+2, PUT+3, PUT+5, PUT+7, SVOLDNEW+1, SVOLDNEW+3, SVOLDNEW+7, DATAHIT+6, DATAHIT+7, DATAHIT+8 , GETEN+2, GETDA+2, GETNODES+2, DSPXRCK+2, DSPLYIT+1, DSPLYIT+2
>> AUPTXGCK	DATAHIT+7*, DATAHIT+8
>> AUPTXGEN	PUT+3, PUT+4, PUT+5, PUT+7, SVOLDNEW+1, SVOLDNEW+3, SVOLDNEW+7, DATAHIT+6, DATAHIT+7, DATAHIT+8 , GETEN+1, GETEN+2, GETDA+2, GETNODES+2, DSPLYIT+1, DSPLYIT+2
>> AUPTXGFM	PUT+9*, FILEIT+1, FILEIT+2
>> AUPTXGGN	DATAHIT+3, DATAHIT+4, DATAHIT+6, GETNODES+2*
>> AUPTXGII	FILEIT+2, FILEIT+3
>> AUPTXGLL	FILEIT+1, FILEIT+5, BLDSS+1, BLDSS+2, BLDSS+3*, DATAHIT+1
>> AUPTXGNE	FILEIT+4, DATAHIT+5, DATAHIT+6, DATAHIT+7, DATAHIT+8, GETNODES+1, GETNODES+2
>> AUPTXGNF	FILEIT+1*, BLDSS+1
>> AUPTXGNT	FILEIT+1*, DATAHIT+1
>> AUPTXGNW	SVOLDNEW+2, SVOLDNEW+3, SVOLDNEW+4, SVOLDNEW+5, SVOLDNEW+6, SVOLDNEW+7
>> AUPTXGTF	FILEIT+2*, BLDSS+1
>> AUPTXGTO	PUT+10*, FILEIT+1, FILEIT+3
>> AUPTXGTT	FILEIT+3*, DATAHIT+1
>> AUPTXGWK	DATAHIT+2, DATAHIT+4
>> AUPTXGWV	DATAHIT+4, FRAMEIT+1, FRAMEIT+2*
>> AUPTXGXX	BLDSS+1*, BLDSS+2
>> AUPTXGYY	BLDSS+1*, BLDSS+2, DATAHIT+7
>> AUPTXGZZ	DATAHIT+1*, DATAHIT+2, DATAHIT+3
>> DA	GETDA+1*
>> DA(	PUT+7, GETDA+2*
>> DA(1	PUT+7
>> DIK	PUT+13*
>> L	PUT+7, FILEIT+5, DATAHIT+4, GETEN+2, GETDA+2, GETNODES+2
>> S1	FILEIT+1*
U	PUT+2, PUT+3, SVOLDNEW+2, DATAHIT+8

Customize PDF page

Package: Utilities

Routine: AUPTFXD

Call Graph Total: 2

Caller Graph Total: 2