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 |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: A4A7CLUP

Package: Kernel

Routine: A4A7CLUP


Information

A4A7CLUP ;SFISC/RWF - CLEAN UP THE NEW PERSON FILE FOF ;12/27/90 16:25

Source Information

Source file <A4A7CLUP.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
VA Fileman 2 ^DIR  EN^DIU2  

Entry Points

Name Comments DBIA/ICR reference
A
PROV ;
U2 ;
EXIT
USER ;
N

External References

Name Field # of Occurrence
^DIR N+4, U2+3, PROV+3
EN^DIU2 N+5, U2+4, PROV+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,*7,"You must have VA FileMan Programmer access"
  • Line Location: A+0
Function Call: WRITE
  • Prompt: !!,"This routine will check and see if your site is using the new File Access",!,"method for VA FileMan. If not it will let you remove the fields in the "
  • Line Location: A+1
Function Call: WRITE
  • Prompt: !,"New Person and User file that could change the access method by accident"
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"You don't have a New Person file"
  • Line Location: N+0
Function Call: WRITE
  • Prompt: !!,*7,"You have data in your File 200 'AFOF' X-ref. This means that you are using the",!,"'ACCESSIBLE FILE' access."
  • Line Location: N+2
Function Call: WRITE
  • Prompt: !!,"Your NEW PERSON file has the 'ACCESSIBLE FILE' field:"
  • Line Location: N+3
Function Call: WRITE
  • Prompt: !!,*7,"You have data in your File 3 'AFOF' X-ref. This means that you are using the",!,"'ACCESSIBLE FILE' access."
  • Line Location: USER+2
Function Call: WRITE
  • Prompt: !,"You must remove this FIRST if you want to run this option."
  • Line Location: USER+3
Function Call: WRITE
  • Prompt: !,"You don't have the 'ACCESSIBLE FILE' field in your user file."
  • Line Location: U2+1
Function Call: WRITE
  • Prompt: !!,"Your USER file has the 'ACCESSIBLE FILE' field:"
  • Line Location: U2+2
Function Call: WRITE
  • Prompt: !!,"The 'MNEMONIC' field in the PROVIDER file has been causing problems.",!,"It is sugested that it be removed."
  • Line Location: PROV+2
Function Call: WRITE
  • Prompt: !!,"EXIT"
  • Line Location: EXIT+0
Routine Call
  • DIR
  • Line Location:
    • N+4
    • U2+3
    • PROV+3

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(200 N
^DD(200.032 N+1
^DD(3.032 U2+1
^DD(6.01 PROV+1
^DIC(3 - [#3] USER+1
^VA(200 - [#200] N+2

Label References

Name Line Occurrences
EXIT PROV+1, PROV+3
PROV N+4, USER+3, U2+1, U2+3
U2 USER+1
USER N, N+1, N+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR EXIT!
DIR("A" N+4*, U2+3*, PROV+3*
DIR(0 N+4*, U2+3*, PROV+3*
>> DIRUT N+4, U2+3, PROV+3
DIU N+5*, U2+4*, PROV+4*, EXIT!
DIU(0 N+5*, U2+4*, PROV+4*
DUZ(0 A
Y N+5, U2+4, PROV+4, EXIT!
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All