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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
Print Page as PDF
Routine: A4A7163

Package: Kernel

Routine: A4A7163


Information

A4A7163 ; GLRISC/REL - New Person conversion ;3/12/89 17:50 ;

Source Information

Source file <A4A7163.m>

Call Graph

Call Graph Total: 1

Package Total Call Graph
Kernel 1 ^A4A7164  

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Kernel 1 A4A7162  

Entry Points

Name Comments DBIA/ICR reference
P6
P5
A61
A51
A5
A6
E5
E4
E7
E6
E1
E3
E2

External References

Name Field # of Occurrence
^A4A7164 P6+7

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"There is the possibility of duplicate SSN's in File 16 which"
  • Line Location: P5+0
Function Call: WRITE
  • Prompt: !,"could be moved to File 200. We will check for duplicate"
  • Line Location: P5+1
Function Call: WRITE
  • Prompt: !,"SSN's and list any for you to correct."
  • Line Location: P5+2
Function Call: WRITE
  • Prompt: !!,"Beginning Pass 5 ...",!
  • Line Location: P5+3
Function Call: WRITE
  • Prompt: !!,"There may be File 6 entries which do not point to a correct"
  • Line Location: P6+0
Function Call: WRITE
  • Prompt: !,"File 16 entry either because that entry is missing or because"
  • Line Location: P6+1
Function Call: WRITE
  • Prompt: !,"the File 16 back-pointer is incorrect. We will list such cases."
  • Line Location: P6+2
Function Call: WRITE
  • Prompt: !!,"Beginning Pass 6 ...",!
  • Line Location: P6+3
Function Call: WRITE
  • Prompt: !!?14,"Duplicate SSN's",!,"SSN",?12,"File 16 #",?30,"File 16 Name",!
  • Line Location: A51+2
Function Call: WRITE
  • Prompt: !!,SSN,?12,K1,?30,$P(^DIC(16,K1,0),"^",1)
  • Line Location: A51+3
Function Call: WRITE
  • Prompt: !?12,K1,?30,$P(^DIC(16,K1,0),"^",1)
  • Line Location: A51+4
Function Call: WRITE
  • Prompt: !!,?14,"File 6 Entries with Incorrect File 16 pointer",!,"File 6# Pointer to 16 File 16 Back-pointer",!
  • Line Location: A61+0
Function Call: WRITE
  • Prompt: !,K,?12,P16,?31,P6
  • Line Location: A61+1
Function Call: WRITE
  • Prompt: !!!?8,"* * * The ",$S(VER="V":"VERIFY",1:"UPDATE")," run is now complete. * * *",!
  • Line Location: E1+0
Function Call: WRITE
  • Prompt: !!,"During Pass 2 there were ",ERR1," name mis-matches found"
  • Line Location: E1+2
Function Call: WRITE
  • Prompt: !,"between File 3 and File 16. Check them. We will use the"
  • Line Location: E1+3
Function Call: WRITE
  • Prompt: !,"File 3 name during the update pass. If the File 3 name is incorrectly"
  • Line Location: E1+4
Function Call: WRITE
  • Prompt: !,"spelled, edit it. You may ignore incorrect spellings in File 16."
  • Line Location: E1+5
Function Call: WRITE
  • Prompt: !,"if you wish."
  • Line Location: E1+6
Function Call: WRITE
  • Prompt: !!,"During Pass 2 there were ",ERR2," duplicates in File 16;"
  • Line Location: E2+1
Function Call: WRITE
  • Prompt: !,"that is, cases where two File 16 entries pointed to the SAME"
  • Line Location: E2+2
Function Call: WRITE
  • Prompt: !,"File 3 entry. If not corrected, during the update run File 200"
  • Line Location: E2+3
Function Call: WRITE
  • Prompt: !,"will use the File 3 name and the SSN of the first File 16 entry."
  • Line Location: E2+4
Function Call: WRITE
  • Prompt: !!,"During Pass 3 there were ",ERR3," cases where entries existed"
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !,"in File 16 but not in File 3. These are providers who are"
  • Line Location: E3+2
Function Call: WRITE
  • Prompt: !,"not users but will be added to File 3 during the update run."
  • Line Location: E3+3
Function Call: WRITE
  • Prompt: !!,"During Pass 4 there were ",ERR4," cases where entries existed"
  • Line Location: E4+1
Function Call: WRITE
  • Prompt: !,"in File 3 but not in File 16. This means the File 3-16 linkage"
  • Line Location: E4+2
Function Call: WRITE
  • Prompt: !,"was missing and no SSN was available for transfer to File 200"
  • Line Location: E4+3
Function Call: WRITE
  • Prompt: !,"since the SSN exists only in File 16. If possible, you might wish"
  • Line Location: E4+4
Function Call: WRITE
  • Prompt: !,"to correct these cases by editing Field 100 in File 3;"
  • Line Location: E4+5
Function Call: WRITE
  • Prompt: !,"this will create a File 16 entry with an SSN."
  • Line Location: E4+6
Function Call: WRITE
  • Prompt: !!,"During Pass 5 there were ",ERR5," instances of duplicate SSN's"
  • Line Location: E5+1
Function Call: WRITE
  • Prompt: !,"found during verification. These should be corrected."
  • Line Location: E5+2
Function Call: WRITE
  • Prompt: !,"If the two persons are different, edit the SSN in File 16"
  • Line Location: E5+3
Function Call: WRITE
  • Prompt: !,"which is incorrect so as to eliminate the duplicate."
  • Line Location: E5+4
Function Call: WRITE
  • Prompt: !!,"If the two people are the same then the situation is more"
  • Line Location: E5+5
Function Call: WRITE
  • Prompt: !,"difficult. Neither should be deleted at this time."
  • Line Location: E5+6
Function Call: WRITE
  • Prompt: !!,"During Pass 6 there were ",ERR6," instances where File 6"
  • Line Location: E6+1
Function Call: WRITE
  • Prompt: !,"pointed to an incorrect File 16 entry. Edit the .01 field"
  • Line Location: E6+2
Function Call: WRITE
  • Prompt: !,"of File 6 to correct this."
  • Line Location: E6+3
Function Call: WRITE
  • Prompt: !!?11,"* * * * * D O N E * * * * *",!
  • Line Location: E7+0

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIC(16 - [#16] P5+5, A51+3, A51+4, A6, A6+1, A6+2*
^DIC(6 - [#6] P6+5
^UTILITY($J P5+4!, P5+5*, P6+4!, P6+6!, A51, A51+1, A51+4
^VA(200 - [#200] P6+7*

Label References

Name Line Occurrences
A5 P5+6
A51 A51, A51+1, A51+5
A6 P6+5
A61 A6
E1 P6+8
E2 E1+1
E3 E2
E4 E3
E5 E4
E6 E5
E7 E1+1, E6

Naked Globals

Name Field # of Occurrence
^( P6+5
^("A6" A6+1
^(0 P5+5, P6+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> ERR1 E1+1, E1+2
>> ERR2 E2, E2+1
>> ERR3 E3, E3+1
>> ERR4 E4, E4+1
>> ERR5 P5+4*, A51+2, A51+4*, E5, E5+1
>> ERR6 P6+4*, A61, A61+1*, E6, E6+1
>> K P5+5*, P6+5*, A6+1, A6+2, A61+1
>> K1 A51*, A51+1, A51+3, A51+4*
>> LAST200 P6+7
>> NUM200 P6+7
>> P16 P6+5*, A6, A6+1, A6+2, A61+1
>> P6 A6*, A6+1*, A6+2, A61+1
>> SSN P5+5*, A5*, A51*, A51+1, A51+3, A51+4
>> VER P6+7, E1, E1+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All