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: LR7OU64

Package: Lab Service

Routine: LR7OU64


Information

LR7OU64 ;SLC/DCM/FHS/DALISC - RESULT CODE NLT LINKING UTILITY AUTO ; 12/3/1997

Source Information

Source file <LR7OU64.m>

Call Graph

Call Graph Total: 10

Package Total Call Graph
Kernel 4 ^%ZIS  ^%ZISC  ^%ZTLOAD  $$CJ^XLFSTR  
Lab Service 3 $$UPCASE^LRAFUNC  ($$DTF,$$NOW)^LRAFUNC1  EN^LRDIQ  
VA Fileman 3 YN^DICN  ^DIE  ^DIR  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Lab Service 2 LR7O AUTO RESULT NLT  LR7OU641  

Entry Points

Name Comments DBIA/ICR reference
EN ;
END ;
LIST ;
LK
LAB ;
LST ;
LINK(X60,X641,DOIT) ;Link the 2 files
64 ;Look for NATIONAL VA LAB CODE
CLEAN
L1
MSG
L2
CHECK ;
DQ

External References

Name Field # of Occurrence
^%ZIS LST+4
^%ZISC LST+5
^%ZTLOAD LST+5
YN^DICN LK+1, L1
^DIE L2
^DIR LIST+2, LIST+4, LIST+6, 64+6
$$UPCASE^LRAFUNC CHECK+4
$$DTF^LRAFUNC1 DQ+2
$$NOW^LRAFUNC1 DQ+2
EN^LRDIQ DQ+9
$$CJ^XLFSTR LK, LK+1, LK+2, LAB+4, LST+2, LST+3, DQ+1, MSG, MSG+1, MSG+2
, MSG+3, MSG+4

Interaction Calls

Name Line Occurrences
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: 64+3
Function Call: WRITE
  • Prompt: !," Want to use the ["_$P(^LAM(LRMIEN,0),U)_"] NATIONAL VA LAB CODE instead?"
  • Line Location: 64+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: L2+1
Function Call: READ
  • Timeout: 1
  • Variable: X
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !?20,"User terminated update",!,$C(7)
  • Line Location: L2+2
Function Call: WRITE
  • Prompt: !!?15,"***************** NOT LINKED ***************",!
  • Line Location: L2+3
Function Call: READ
  • Timeout: DTIME
  • Variable: X
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !!?5,"Press Return to continue"
  • Line Location: L2+4
Function Call: WRITE
  • Prompt: !,"Nothing in X-Ref to Print.",!!
  • Line Location: LST+1
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("I will produce a list of ",80)
  • Line Location: LST+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),!
  • Line Location: LST+3
Function Call: WRITE
  • Prompt: !!?10,"Report Queued to "_ION,!
  • Line Location: LST+5
Function Call: WRITE
  • Prompt: !!,$$CJ^XLFSTR("List of NATIONAL VA Code / Result NLT codes from LABORATORY TEST file",80),!!
  • Line Location: DQ+1
Function Call: WRITE
  • Prompt: ?6,$$DTF^LRAFUNC1($$NOW^LRAFUNC1),!
  • Line Location: DQ+2
Function Call: WRITE
  • Prompt: !,"Test Name: ",$P(^LAB(60,DA,0),U)
  • Line Location: DQ+8
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("This option will Auto Link NLT RESULT CODE to Laboratory test file (#60).",80)
  • Line Location: MSG+0
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("NLT RESULT CODE is used by the LEDI software to identify",80)
  • Line Location: MSG+1
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("test results returned by Host Laboratories.",80)
  • Line Location: MSG+2
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("ONLY GENERIC NLT CODES CAN BE LINKED TO LAB TEST ",80),!!
  • Line Location: MSG+3
Function Call: WRITE
  • Prompt: !,$$CJ^XLFSTR("Only ATOMIC lab tests can have an NLT RESUTL CODE.",80),!
  • Line Location: MSG+4
Routine Call
  • DIE
  • Line Location:
    • L2
Routine Call
  • DIR
  • Line Location:
    • LIST+2
    • LIST+4
    • LIST+6
    • 64+6
Routine Call
  • %ZIS
  • Line Location:
    • LST+4

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] LAB+2, LAB+3, CHECK+2, CHECK+3, CHECK+6, 64+1, L2+1, LST+1, DQ+3, DQ+4
, DQ+5, DQ+8
^LAM - [#64] CHECK+4, CHECK+6, CHECK+7, 64+1, 64+5
^LAM("D" CHECK+4
^TMP("LR" LST+1!, DQ!, DQ+5*, CLEAN!

Label References

Name Line Occurrences
64 CHECK+5
CHECK LAB+3
CLEAN LST+4, LST+5
END LIST+2, LIST+6, LK+1, LAB+5
L1 L1+2
L2 LINK+1
LINK CHECK+9
LK LIST+2, LK+2
LST LIST+3
MSG EN+2

Naked Globals

Name Field # of Occurrence
^( LAB+3
^(0 CHECK+2, CHECK+3, CHECK+4, CHECK+6, CHECK+7, 64+1

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!
%ZIS LST+4!*
%ZIS("A" LST+4*
AUTO LK+3*, LAB+1, CHECK+9, END+2!
D0 END+3!
D1 END+3!
DA L2!*, END+2!, DQ+8*, CLEAN!
DIC L2!, END+2!, LST+1!, DQ+6*, CLEAN!
DIE L2!*, END+2!
DIR LIST+1!, LIST+3!, LIST+5!, 64+4!, 64+6!, END+2!
DIR("A" LIST+1*, LIST+3*, LIST+5*
DIR("B" LIST+1*
DIR(0 LIST+1*, LIST+3*, LIST+5*, 64+6*
>> DIROUT LIST+6
>> DIRUT LIST+2
DLAYGO L2*!, END+3!, END+4!
DOIT LINK~, LINK+1, END+2!
DR L2!*, END+2!, DQ+8*, CLEAN!
DTIME L2+4
>> DTOUT LIST+2, LIST+6, L1+1, L2+4
>> DUOUT LIST+2, LIST+6
DX END+4!, DQ!, CLEAN!
END LAB+2*, LAB+3, LAB+4, CHECK+2, CHECK+5, L1*, L1+1*, L2+2*, L2+4*, END+2!
, END+3!
FLG END+4!
I 64+1*, END+3!
IO LST+5
IO("Q" LST+5
IO(0 LST+5
ION LST+5
IOST DQ+9
LRCODE CHECK+6*, CHECK+8, END+3!
LRDATA CHECK+3*, CHECK+8, 64+3, LINK+1*, END+2!
>> LRDBUG END+1
LRIEN LAB+3*, CHECK+2, CHECK+3, CHECK+9, 64+1, END+2!
LRLAB DQ+4*, DQ+5, CLEAN!
LRMIEN CHECK+1*, CHECK+4*, CHECK+5, CHECK+6, CHECK+7, CHECK+9, 64+1*, 64+2, 64+5, 64+6*
, END+2!
LRMNAME CHECK+7*, CHECK+8, END+3!
LRN LAB+2*, LAB+3, CHECK+4, END+2!
LRNLT DQ+3*, DQ+4, DQ+5, CLEAN!
LRNU CHECK+4*, END+2!
LRSUF END+3!
LRTY CHECK+3*, END+3!
NODE DQ+7*, DQ+8, CLEAN!
>> POP LST+4
S END+4!, DQ+9*, CLEAN!
U CHECK+2, CHECK+3, CHECK+6, CHECK+7, 64+1, 64+5, L2+1, L2+4, DQ+5, DQ+8
X CHECK+4*, L2+2*, L2+4*, END+3!, END+4!
X60 LINK~, LINK+1, L2, L2+1, END+3!
X64 END+3!
X641 LINK~, L2
XXX END+4!
Y LIST+2, LIST+6, 64+6, END+3!, END+4!
Y64 END+4!
>> ZTDESC LST+5*
>> ZTIO LST+5*
>> ZTQUEUED DQ
>> ZTREQ DQ*
>> ZTRTN LST+5*
ZZ END+4!
ZZ1 END+4!
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