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
Print Page as PDF
Routine: LR7OU3

Package: Lab Service

Routine: LR7OU3


Information

LR7OU3 ;slc/dcm - Match entries in file 60 to 64 ;8/11/97

Source Information

Source file <LR7OU3.m>

Entry Points

Name Comments DBIA/ICR reference
6 ;Find matches starting with file 60 ->64
A1(X) ;Find matching item in file 64

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" = "_Y,?60,"Match on name"
  • Line Location: 6+3
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" = "_Y,?60,"Match on U-case name"
  • Line Location: 6+4
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" = "_Y,?60,"Synonym match "_Z
  • Line Location: 6+6
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" = "_Y,?60,"Synonym U-case match "_Z
  • Line Location: 6+7
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" ~ "_$P(^LAM(Z,0),"^"),?60,"Close match"
  • Line Location: 6+9
Function Call: WRITE
  • Prompt: !,$P(X,"^")_" ~ "_$P(^LAM(Z,0),"^"),?60,"Close match"
  • Line Location: 6+11
Function Call: WRITE
  • Prompt: !,$P(X,"^"),?65,"NO MATCH"
  • Line Location: 6+12
Function Call: WRITE
  • Prompt: !!,"TOTAL ENTRIES IN 64: "_$P(^LAM(0),"^",4),!,"TOTAL ENTRIES IN 60: "_$P(^LAB(60,0),"^",4),!,"TOTAL MATCHES: "_CTR,!,"TOTAL CLOSE MATCHES: "_CTR1
  • Line Location: 6+13
Info |  Source |  Entry Points |  Interaction Calls