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 |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: A4A7161

Package: Kernel

Routine: A4A7161


Information

A4A7161 ; GLRISC/REL - New Person File conversion ;5/4/89 14:27 ;

Source Information

Source file <A4A7161.m>

Call Graph

Call Graph Total: 2

Package Total Call Graph
Kernel 1 ^A4A7162  
VA Fileman 1 DT^DICRW  

Entry Points

Name Comments DBIA/ICR reference
P2
A21
P0
P1
AD1
A23
A22
ADD200
A1
A2

External References

Name Field # of Occurrence
^A4A7162 P2+12
DT^DICRW A4A7161+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** WARNING! *** This program will take all File 16 entries"
  • Line Location: A4A7161+2
Function Call: WRITE
  • Prompt: !,"and add them to the New Person File. This conversion REQUIRES"
  • Line Location: A4A7161+3
Function Call: WRITE
  • Prompt: !,"that the prior A5A5 File 3-16 linkage programs have been run."
  • Line Location: A4A7161+4
Function Call: WRITE
  • Prompt: !,"A VERIFY run will perform the same checks as the UPDATE run"
  • Line Location: A4A7161+6
Function Call: WRITE
  • Prompt: !,"except that no entries are moved to the New Person file"
  • Line Location: A4A7161+7
Function Call: WRITE
  • Prompt: !,"nor are any persons in File 16 added to File 3."
  • Line Location: A4A7161+8
Function Call: WRITE
  • Prompt: !!,"You should run VERIFY first. Correct as many errors as"
  • Line Location: A4A7161+9
Function Call: WRITE
  • Prompt: !,"possible and then make an UPDATE run which will move"
  • Line Location: A4A7161+10
Function Call: WRITE
  • Prompt: !,"entries into the New Person File. The final step is the"
  • Line Location: A4A7161+11
Function Call: WRITE
  • Prompt: !,"initialization of the files using A4A7INIT and re-indexing File 200."
  • Line Location: A4A7161+12
Function Call: READ
  • Prompt: "Verify or Update run? VER// "
  • Formatting: !!
  • Timeout: DTIME
  • Variable: VER
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: *7," Enter V or U"
  • Line Location: P0+0
Function Call: WRITE
  • Prompt: !!,"Pass 1 will be made through File 3 to make sure"
  • Line Location: P1+0
Function Call: WRITE
  • Prompt: !,"that the 3-16 pointer has a 16-3 back-pointer."
  • Line Location: P1+1
Function Call: WRITE
  • Prompt: !!,"Beginning Pass 1...",!
  • Line Location: P1+2
Function Call: WRITE
  • Prompt: *7,!!,"***** Less than 80% of your File 3 entries have pointers"
  • Line Location: P1+5
Function Call: WRITE
  • Prompt: !,"to File 16. It appears that your A5A5 initialization was"
  • Line Location: P1+6
Function Call: WRITE
  • Prompt: !,"never performed or was incomplete. We cannot continue with"
  • Line Location: P1+7
Function Call: WRITE
  • Prompt: !,"this ",$S(VER="V":"verification",1:"update")," until the A5A5 updating is complete.",!
  • Line Location: P1+8
Function Call: WRITE
  • Prompt: !!,"During Pass 2 the File 16 pointer to File 3 will be checked"
  • Line Location: P2+0
Function Call: WRITE
  • Prompt: !,"as well as the File 3 to 16 back-pointer."
  • Line Location: P2+1
Function Call: WRITE
  • Prompt: !!,"Two possible error conditions may occur: the name in File 3"
  • Line Location: P2+2
Function Call: WRITE
  • Prompt: !,"may not match that in 16. Most likely this is the result of"
  • Line Location: P2+3
Function Call: WRITE
  • Prompt: !,"a typing error. A list of such mis-matches will be produced."
  • Line Location: P2+4
Function Call: WRITE
  • Prompt: !!,"A second condition is if more than one entry in File 16"
  • Line Location: P2+5
Function Call: WRITE
  • Prompt: !,"points to the same File 3 entry. Such cases are also listed.",!
  • Line Location: P2+6
Function Call: WRITE
  • Prompt: !,"File 200 entries will be created during this pass.",!,"If the File 3 name differs from that in 16, the File 3 name is used.",!
  • Line Location: P2+7
Function Call: WRITE
  • Prompt: !!,"Beginning Pass 2...",!
  • Line Location: P2+8
Function Call: WRITE
  • Prompt: !!?18,"File 3 - File 16 Name Mis-Matches",!,"File 3 #",?12,"File 3 Name",?45,"File 16 #",?57,"File 16 Name",!
  • Line Location: A2+6
Function Call: WRITE
  • Prompt: !,+P3,?12,NAM3,?45,K,?57,NAM16
  • Line Location: A2+7
Function Call: WRITE
  • Prompt: !!?8,"File 3 Entries pointed to by More than 1 File 16 Entry"
  • Line Location: A22+0
Function Call: WRITE
  • Prompt: !,"File 3 #",?12,"File 3 Name",?45,"File 16 #",?57,"File 16 Name",!
  • Line Location: A22+1
Function Call: WRITE
  • Prompt: !!,P3,?12,NAM3,?45,K1,?57,$S($D(^DIC(16,K1,0))#2:$P(^(0),"^",1),1:"")
  • Line Location: A23+1
Function Call: WRITE
  • Prompt: !?45,K2,?57,$S($D(^DIC(16,K2,0))#2:$P(^(0),"^",1),1:"")
  • Line Location: A23+2

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(16 - [#16] P2+10, A1+1, A1+3*, A2!, A2+1!, A23+1, A23+2
^DIC(3 - [#3] P1+3, A1, A1+2*, A1+4*, A2+1, A2+2*, A23
^UTILITY($J P2+9!, P2+11!, A2+4*, A21*, A22+2, A23
^VA(200 - [#200] ADD200, AD1+1*, AD1+2*

Label References

Name Line Occurrences
A1 P1+3
A2 P2+10
A21 A2+5
A22 P2+11
A23 A22+2
AD1 AD1
ADD200 A21
P0 P0
P2 P1+4

Naked Globals

Name Field # of Occurrence
^( A22+2
^("A3" A1+1, A2
^(0 A1, A2, A2+1, A23, A23+1, A23+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DTIME P0
>> ERR1 P2+9*, A2+6, A2+7*
>> ERR2 P2+9*, P2+11, A2+4*
>> K P1+3*, P2+10*, A1, A1+2, A1+3, A1+4, A2, A2+1, A2+2, A2+4
, A2+7, A21
>> K1 A23*, A23+1
>> K2 A22+2*, A23+2
>> LAST200 A4A7161+5*, ADD200*
>> NAM16 A2+3*, A2+5, A2+7
>> NAM3 A2+3*, A2+5, A2+7, A23*, A23+1, ADD200, AD1*, AD1+1
>> NUM200 A4A7161+5*, ADD200*
>> P16 A1*, A1+1, A1+3, A2+2*
>> P3 A1+1*, A1+2, A2*, A2+1, A2+2, A2+4, A2+7, A21, A22+2*, A23
, A23+1, ADD200, AD1+1, AD1+2
>> PTR A4A7161+5*, P1+4, A1+1*
>> SSN A2+3*, AD1+2
>> TOT A4A7161+5*, P1+4, A1*
U A4A7161+2*
>> VER P0*, P0+1*, P1+8, P2+7, A21
>> X0 A2*, A2+3
>> X3 A2+1*, A2+2, A2+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All