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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA Fileman 5 ^DIC  YN^DICN  ^DIE  ^DIK  ^DIR  
Kernel 1 ($$CJ,$$LOW)^XLFSTR  
Lab Service 1 ^LRCAPD  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LR7O 60-64 AUTO  LR7OU5  

Entry Points

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

External References

Name Field # of Occurrence
^DIC 91+5, 9+5
YN^DICN LK+1, L1
^DIE L2+1, XSS+1
^DIK DXSS+3
^DIR LIST+2, LIST+4, LIST+6
^LRCAPD LIST+3
$$CJ^XLFSTR 64+1, 64+2, 64+3, 64+4, LK, LK+1, LK+2, LAB+3
$$LOW^XLFSTR MIXED+4, MIXED+5

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
  • Timeout: DTIME
  • Variable: X
  • 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
Routine Call
  • DIE
  • Line Location:
    • L2+1
    • XSS+1
Routine Call
  • DIC
  • Line Location:
    • 91+5
    • 9+5
Routine Call
  • DIR
  • Line Location:
    • LIST+2
    • LIST+4
    • LIST+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^LAB(60 - [#60] Classic Fileman Calls
^LAM - [#64] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LAB+1, LAB+2, CHECK+1, CHECK+2, 91+1, 91+4, 9+1, 9+4, L2, XSS+2
, DXSS+1, 60+2, 60+3, 60+4
^LAM - [#64] CHECK+4, CHECK+5, CHECK+6, CHECK+7, 91+4, 9+4, DXSS+2, 60+5
^LAM("AE" XSS+2
^LAM("C" CHECK+5
^LAM("D" CHECK+3

Label References

Name Line Occurrences
$$MIXED MIXED+7
$$UPPER CHECK+3
9 91+1
91 CHECK+3
CHECK LAB+2
DXSS L2
END LIST+2, LIST+6, LK+1, LAB+4
L1 L1+2
L2 LINK+1
LINK CHECK+9
LK LIST+2, LK+2

Naked Globals

Name Field # of Occurrence
^( LAB+2
^(0 CHECK+2, CHECK+4, CHECK+7, 91+4, 9+4
^(64 60+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% LK+1*, LK+2, LK+3, LINK+1*, L1*, L1+2, END+2!
AUTO LK+3*, CHECK+9, END+2!
D0 END+3!
D1 END+3!
DA L2+1!*, XSS!*, DXSS~, DXSS+2*, DXSS+3, END+2!
DA(1 DXSS+1*, DXSS+2, DXSS+3
DIC 91+5!*, 9+5!*, L2+1!, XSS!, XSS+1!, DXSS~, END+2!
DIC("A" 91+5*, 9+5*
DIC("V" XSS+1*
DIC(0 91+5*, 9+5*
DIE L2+1!*, XSS!*, DXSS~, END+2!
DIK DXSS~, DXSS+1*
DIR LIST+1!, LIST+3!, LIST+5!, END+2!
DIR("A" LIST+1*, LIST+3*, LIST+5*
DIR("B" LIST+1*
DIR(0 LIST+1*, LIST+3*, LIST+5*
>> DIROUT LIST+6
>> DIRUT LIST+2
DLAYGO L2+1*!, XSS*, XSS+1!, DXSS~, DXSS+1*, END+3!, END+4!
DOIT LINK~, LINK+1, END+2!
DR L2+1!*, XSS!*, DXSS~, END+2!
DR(1 XSS*
DR(2 XSS*
DTIME XSS+4
>> DTOUT LIST+2, LIST+6, 91+6, 9+6, L1+1, XSS+4
>> DUOUT LIST+2, LIST+6
END LAB+1*, LAB+2, LAB+3, CHECK+1, CHECK+3, 91+6*, 9+6*, L1*, L1+1*, XSS+4*
, END+2!, END+3!
FLG END+4!, MIXED~, MIXED+4, MIXED+5, MIXED+6
I 91+4*, 9+4*, END+3!, MIXED+3~, MIXED+7*
>> LINKED 60+5*
LRCODE CHECK+4*, CHECK+5, CHECK+8, END+3!
LRDATA CHECK+2*, CHECK+8, 91+2, 9+2, LINK+1*, END+2!
>> LRDBUG END+1
LRIEN LAB+2*, CHECK+1, CHECK+2, CHECK+9, 91+1, 91+4, 91+5, 9+1, 9+4, 9+5
, END+2!
LRMIEN CHECK+3*, CHECK+4, CHECK+5*, CHECK+6, CHECK+7, CHECK+9, 91+6*, 9+6*, END+2!
LRMNAME CHECK+6*, CHECK+7*, CHECK+8, END+3!
LRN LAB+1*, LAB+2, CHECK+3, END+2!
LRNU CHECK+3*, END+2!
LRSUF END+3!
LRTY CHECK+2*, END+3!
SSS 60+1!, 60+3*
U CHECK+2, CHECK+4, CHECK+6, CHECK+7, 91+4, 91+6, 9+4, 9+6, XSS+4
X 91+6, 9+6, XSS+4*, END+3!, END+4!, UPPER~, UPPER+1, 60~, 60+1, 60+2*
, 60+3*, 60+4*, 60+5*, 60+6, MIXED~, MIXED+4*, MIXED+5*, MIXED+7, MIXED+8*, MIXED+9
X60 LINK~, LINK+1, L2, L2+1, XSS+2, DXSS+1, DXSS+2, END+3!
X64 LINK~, XSS, END+3!
XXX END+4!, 60+1~*, 60+3
Y LIST+2, LIST+6, 91+6, 9+6, END+3!, END+4!
Y64 END+4!
Z MIXED+3~, MIXED+6*, MIXED+7*, MIXED+8
ZZ END+4!, 60+2*, 60+4*
ZZ1 END+4!, 60+2*, 60+4*, 60+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All