Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: AUPTFXT

Package: Utilities

Routine: AUPTFXT


Information

%AUPTFXT ;BRJ/IHS [ 03/09/87 7:32 AM ]

Source Information

Source file <AUPTFXT.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
VA Fileman 1 ^DIC  

Caller Graph

Caller Graph Total: 3

Package Total Caller Graph
Utilities 3 AUPTFX  AUPTFXS  AUPTFXX  

Entry Points

Name Comments DBIA/ICR reference
ERR ;DISPLAY ERROR MESSAGES FROM ^AUPTFIX
TIMEOUT ;QUIT IF TIMEOUT ON READS OCCUR
ASKFILE ;ASK FILEMAN TO GET FILENAME
ASKFM
1 ;;File did not contain any "PT" nodes. No action.
3 ;;<SNAFU> Missing "NM" node at ^DD(fl,0,"NM",sflname)
NOARRAY ;USER ARRAY DOES NOT EXIST OR WASN'T ENTERED BY OPERATOR
5 ;;<SNAFU> Missing ^(1) or ^(2) node at ^DD(fl,fd,1,xridx,xrnbr)
4 ;;<SNAFU> Missing "B" node at ^DD(fl,"B",flname,upsflnbr)
7 ;;<SNAFU> Missing "global name" at ^DD(fl,fd,0) for DINUM=X
6 ;;<SNAFU> Missing "GL" node at ^DIC(fl,0,"GL")
9 ;;<TIME-OUT> Your took too long to respond. SO SORRY!! Bye bye!
8 ;;<SNAFU> Missing "0" node at ^DIC(fl,0)
HLPARRAY ;HELP USER
EN ;ENTRY FROM %AUPTFX - RUN %AUFXPT THEN ASK FOR FILEMAN AND USER FILE NAMES
NOFILE ;FILEMAN FILE WAS NOT ENTERED OR NOT FOUND
GO ;OFF AND RUNNING
2 ;;<SNAFU> Missing "0" node at ^DD(fl,fd,0)
INFO ;INFORM USER WHAT'S GOING TO HAPPEN AND CALL %AUFIXPT TO CLEAN UP "PT" NODE
ASKDSPLY ;ASK TO DISPLAY DATA NODES ARE THEY ARE EXCHANGED
ASKARRAY ;ASK FOR USER ARRAY GLOBAL NAME
ERRMSG ;;ERROR MESSAGE LIST

External References

Name Field # of Occurrence
^DIC ASKFM

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"%AUPTFXT cannot be executed at this entry point!!"
  • Line Location: AUPTFXT+1
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"This program will exchange old (BAD!) pointer values for new (GOOD?)",!,?11,"pointer values in all FM files that point to a given file."
  • Line Location: INFO+1
Function Call: WRITE
  • Prompt: !!,?11,"The new pointer values should already be in a global array."
  • Line Location: INFO+2
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"Please enter the name of this global.",!!,?15,*7,"Global name = ^"
  • Line Location: ASKARRAY+1
Function Call: READ
  • Timeout: DTIME
  • Variable: AUPTANS
  • Line Location: ASKARRAY+2
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"G o o d b y e !!"
  • Line Location: ASKARRAY+4
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"Your global name was not entered or does not exist!!",!,?15,"Do you want to continue?",!,?15,*7,"[Y]es or [N]o <N>// "
  • Line Location: NOARRAY+1
Function Call: READ
  • Timeout: DTIME
  • Variable: AUPTANS
  • Line Location: NOARRAY+2
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"OK - I'm getting out now!!"
  • Line Location: NOARRAY+3
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"This program requires the user to have created a global that contains",!,?11,"the old/new pointer values.",!!,?11,"The format for the global is ^gbl(""old"")=new where:"
  • Line Location: HLPARRAY+1
Function Call: WRITE
  • Prompt: !,?15,"^gbl is the global name",!,?15,"""old"" is the old (BAD!) entry number",!,?21,"i.e. the value to be corrected",!,?15,"""new"" is the new (GOOD?) entry number",!,?21,"i.e. the correct value."
  • Line Location: HLPARRAY+2
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"I'm going to have FileMan ask you to enter the FM name or number of",!,?11,"the 'pointed to' file to be processed.",!,*7
  • Line Location: ASKFILE+1
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"No file was selected."
  • Line Location: NOFILE+1
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"Do you want to select another file?",!!,?15,*7,"[Y]es or [N]o <N>// "
  • Line Location: NOFILE+2
Function Call: READ
  • Timeout: DTIME
  • Variable: AUPTANS
  • Line Location: NOFILE+3
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"OKIE DOKE - No action on this run. B Y E....."
  • Line Location: NOFILE+4
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"Do you want me to display the 'before and after' of each global node",!,?11,"when an exchange occurs?",!!,?11,"Answering <Y>es may extend the run time substantially!!",!!,?15,*7,"[Y]es or [N]o? <N>// "
  • Line Location: ASKDSPLY+1
Function Call: READ
  • Timeout: DTIME
  • Variable: AUPTANS
  • Line Location: ASKDSPLY+2
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"O K - I'm set up to go.",!,?11,"Be prepared for this program to take some time."
  • Line Location: GO+1
Function Call: WRITE
  • Prompt: !,AUPTPGM,?11,"I will display which FM file/field is being processed."
  • Line Location: GO+2
Function Call: WRITE
  • Prompt: !!,?11,"Also, if you didn't want to display the 'before and after,",!,?11,"I will display the following characters accordingly:"
  • Line Location: GO+3
Function Call: WRITE
  • Prompt: !,?15,"a ""-"" indicates a data node was found",!,?15,"a ""X"" indicates an exchange occurred.",!,?15,"a ""|"" indicates setting cross references, triggers, etc.",!,?19,"occurred."
  • Line Location: GO+4
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"Press <RETURN> when ready!! W A I T I N G . . ."
  • Line Location: GO+5
Function Call: READ
  • Timeout: DTIME
  • Variable: AUPTANS
  • Line Location: GO+6
Function Call: WRITE
  • Prompt: !!,AUPTPGM,?11,"I'm off and running......"
  • Line Location: GO+7
Function Call: WRITE
  • Prompt: !!,*7,AUPTPGM,?11,$P($T(ERRMSG+(AUPTEC)),";;",2)
  • Line Location: ERR+2
Function Call: WRITE
  • Prompt: !,?15,"FILE= ",$P(AUPTY,U,1)," - ",$P(AUPTY,U,2)
  • Line Location: ERR+4
Function Call: WRITE
  • Prompt: !,?15,"FILE= ",AUPTPSFL," FIELD= ",AUPTPSFD,!!,AUPTPGM,?11,"Skipping to next ""PT"" node."
  • Line Location: ERR+5
Routine Call
  • DIC
  • Line Location:
    • ASKFM

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC - [#1] Classic Fileman Calls

Label References

Name Line Occurrences
@( EN+2
ASKARRAY ASKARRAY+3, ASKARRAY+5, ASKARRAY+8
ASKFM ASKFM+1
ERR TIMEOUT+1
HLPARRAY ASKARRAY+3
NOARRAY ASKARRAY+5, ASKARRAY+8
NOFILE ASKFM+1
TIMEOUT ASKARRAY+2, NOARRAY+2, NOFILE+3, ASKDSPLY+2, GO+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
AUPTANS EN+3!, ASKARRAY+2*, ASKARRAY+3, ASKARRAY+4, ASKARRAY+5, ASKARRAY+6*, ASKARRAY+7, NOARRAY+2*, NOARRAY+3, NOFILE+3*
, NOFILE+4, ASKDSPLY+2*, ASKDSPLY+3, GO+6*
AUPTDDFL EN+3!
>> AUPTDSPY ASKDSPLY+3*
>> AUPTEC TIMEOUT+1*, ERR+3, ERR+4
>> AUPTFILE ASKFM*, ASKFM+1, ASKFM+2
>> AUPTFSTK(1 ASKFM+2*
AUPTI1 EN+3!
AUPTI2 EN+3!
>> AUPTLBL EN+2*
AUPTPGM EN+1~*, INFO+1, ASKARRAY+1, ASKARRAY+4, NOARRAY+1, NOARRAY+3, HLPARRAY+1, ASKFILE+1, NOFILE+1, NOFILE+2
, NOFILE+4, ASKDSPLY+1, GO+1, GO+2, GO+5, GO+7, ERR+2, ERR+5
>> AUPTPSFD ERR+5
>> AUPTPSFL ERR+5
AUPTPTFD EN+3!
AUPTPTFL EN+3!
>> AUPTQUIT EN+2, ASKARRAY+4*, ASKARRAY+5, ASKARRAY+8, NOARRAY+3*, ASKFM+1, NOFILE+4*, TIMEOUT+1*
>> AUPTSKIP ERR+1*
>> AUPTUFLE ASKARRAY+7*, ASKARRAY+8, ASKARRAY+9*
>> AUPTY ASKFM*, ERR+4
DIC ASKFM*!
DIC(0 ASKFM*!
DTIME ASKARRAY+2, NOARRAY+2, NOFILE+3, ASKDSPLY+2, GO+6
U ASKARRAY+4, ASKARRAY+6, ASKFM, ERR+4
Y ASKFM!

Marked Items

Name Field # of Occurrence
$T( EN+1
$T(ERRMSG+(1) ERR+2
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables |  Marked Items |  All