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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: LR7OU4

Package: Lab Service

Routine: LR7OU4


Information

LR7OU4 ;DALOI/DCM/FHS/RLM-NLT LINKING UTILITY AUTO ;8/11/97

Source Information

Source file <LR7OU4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
64 ;Find matches between file 64 and 60
LIST ;
LK
LAB ;
CHECK ;
91 ;Look for Accession WKLD codes
9 ;Look for Verify WKLD codes
LINK(X60,X64,DOIT) ;Link the 2 files
L1
L2
XSS
DXSS
END ;
UPPER(X) ; Convert lower case X to UPPER CASE
60(X) ;Find matching item in file 60
MIXED(X,FLG) ;Return mixed case

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will look for potential matches between file 64 (NLT) and file 60.",80),!,$$CJ^XLFSTR("You will be allowed to create a permanent link between matching entries in",80)
  • Line Location: 64+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("these files. Tests with the type of NEITHER will be omitted during link phase.",80)
  • Line Location: 64+2
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("ONLY GENERIC NLT CODES CAN BE LINKED TO LAB TEST ",80),!!
  • Line Location: 64+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Those LAB TEST already linked to the NLT file will also be omitted.",80),!
  • Line Location: 64+4
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Do you want to automatically link entries when there is an exact match",80)
  • Line Location: LK+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("on the NAME in both files",80)
  • Line Location: LK+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("Answer YES to automatically link the entries, or NO to be prompted for each",80)
  • Line Location: LK+2
Function Call: WRITE
  • Prompt: !!,"60 = ",LRDATA,!,"64 = ",LRMNAME_" "_LRCODE
  • Line Location: CHECK+8
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"Did not find a exact name match for Lab Test "_LRDATA
  • Line Location: 91+2
Function Call: WRITE
  • Prompt: !," Want to use a Accession WKLD code instead?",!
  • Line Location: 91+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 91+5
Function Call: WRITE
  • Prompt: !
  • Line Location: 91+5
Function Call: WRITE
  • Prompt: !!,$C(7),?5,"Did not find a exact name match for Lab Test "_LRDATA
  • Line Location: 9+2
Function Call: WRITE
  • Prompt: !," Want to use a Verify WKLD code instead?",!
  • Line Location: 9+3
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+5
Function Call: WRITE
  • Prompt: !
  • Line Location: 9+5
Function Call: WRITE
  • Prompt: !?5,"Link the two entries"
  • Line Location: L1+0
Function Call: WRITE
  • Prompt: !,"Enter Yes to link the entries, No to leave it alone."
  • Line Location: L1+2
Function Call: WRITE
  • Prompt: !?32,"o----LINKED----o",!
  • Line Location: XSS+2
Function Call: WRITE
  • Prompt: !!?15,"***************** NOT LINKED ***************",!
  • Line Location: XSS+3
Function Call: READ
  • Variable: X
  • Timeout: DTIME
  • Line Location: XSS+4
Function Call: WRITE
  • Prompt: !!?5,"Press Return to continue"
  • Line Location: XSS+4
Function Call: WRITE
  • Prompt: !,$P(^LAM(ZZ1,0),"^")_" => "_X,?60,"Already linked"
  • Line Location: 60+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAM - [#64] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call