Routine: A4A7161

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

Entry Points

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

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

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

>>	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

Customize PDF page

Package: Kernel

Routine: A4A7161

Information

Source Information

Call Graph

Call Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: