Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  All
Print Page as PDF
Routine: A5A5

Package: Uncategorized

Routine: A5A5


Information

A5A5 ;FIX USER/PERSON STRUCTURE CJS/SLC ; 8/27/86 3:05 PM ; [ 04/09/90 8:29 AM ]

Source Information

Source file <A5A5.m>

Entry Points

Name Comments DBIA/ICR reference
ANYMATCH
C
END
THIRD
LEND
PERMATCH
CHOICE
SECOND
CLOMATCH
FIRST

Interaction Calls

Name Line Occurrences
Function Call: READ
  • Timeout: 60
  • Variable: X
  • Line Location: CHOICE+0
Function Call: WRITE
  • Prompt: !,"If you've finished the first pass, you may restart at the second pass, etc."
  • Line Location: CHOICE+1
Function Call: WRITE
  • Prompt: !,"Please enter 1, 2 or 3."
  • Line Location: CHOICE+2
Function Call: WRITE
  • Prompt: !,"Finding all perfect matches, '.' for non-matches, ',' for matches."
  • Line Location: FIRST+0
Function Call: WRITE
  • Prompt: $S(P<0:".",1:"")
  • Line Location: FIRST+1
Function Call: WRITE
  • Prompt: !!,"Finding all last name matches. Answer yes if they're the same."
  • Line Location: SECOND+0
Function Call: WRITE
  • Prompt: !,"Checking through the PERSON file to find possible match(es) for the USER file"
  • Line Location: SECOND+1
Function Call: WRITE
  • Prompt: !,"OK, We'll pick up later where you left off."
  • Line Location: SECOND+3
Function Call: WRITE
  • Prompt: !!,"Now the entries that had no matches."
  • Line Location: THIRD+0
Function Call: WRITE
  • Prompt: !,"Ready to do the x-referencing"
  • Line Location: END+0
Function Call: WRITE
  • Prompt: !,"You may do the x-referencing later."
  • Line Location: END+1
Function Call: WRITE
  • Prompt: !,"NOW CREATING THE 'A6' X-REF ON THE PERSON FILE",!
  • Line Location: END+2
Function Call: WRITE
  • Prompt: "."
  • Line Location: END+3
Function Call: WRITE
  • Prompt: !,"NOW I WILL RE-INDEX THE PERSON FILE ENTRIES THAT HAVE USER POINTERS",!
  • Line Location: END+4
Function Call: WRITE
  • Prompt: "."
  • Line Location: END+5
Function Call: WRITE
  • Prompt: "."
  • Line Location: PERMATCH+0
Function Call: WRITE
  • Prompt: ","
  • Line Location: PERMATCH+1
Function Call: WRITE
  • Prompt: !!,"USER: ",N1," PERSON: ",$P(Y,"^",2),!," OK"
  • Line Location: CLOMATCH+0
Function Call: WRITE
  • Prompt: !,"If you're not sure, you can answer NO and come back to it later."
  • Line Location: CLOMATCH+0
Function Call: WRITE
  • Prompt: !,"Use the 'PERSON' name: ",$P(Y,"^",2)
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"YES selects the PERSON name, NO selects the USER name, for both entries."
  • Line Location: C+0
Function Call: WRITE
  • Prompt: !,"""^"" not allowed, you must make a choice."
  • Line Location: C+1
Function Call: WRITE
  • Prompt: !!,"USER: ",N," PERSON beginning with: ",X
  • Line Location: ANYMATCH+0
Function Call: WRITE
  • Prompt: !," Nothing even close, accept the default to stuff it."
  • Line Location: ANYMATCH+0
Function Call: WRITE
  • Prompt: !,"WANT TO QUIT"
  • Line Location: ANYMATCH+2
Function Call: WRITE
  • Prompt: !,"If you're not sure, you can answer NO and come back to it later."
  • Line Location: ANYMATCH+2
Info |  Source |  Entry Points |  Interaction Calls |  All