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

Package: Automated Lab Instruments

Routine: LA7UCFG


Information

LA7UCFG ;DALOI/JMC - Configure Lab Universal Interface ;9/26/16 12:13

Source Information

Source file <LA7UCFG.m>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Kernel 9 (,HOME)^%ZIS  ^%ZISC  ^%ZTLOAD  ($$FMTE,$$HTE)^XLFDT  $$HLNAME^XLFNAME  $$REPEAT^XLFSTR  $$KSP^XUPARAM  $$DIV4^XUSER  
EN^XUTMDEVQ  
VA FileMan 6 NOW^%DTC  EN^DDIOL  (,$$FIND1)^DIC  (,FILE)^DIE  $$GET1^DIQ  ^DIR  
Automated Lab Instruments 2 ENACK^LA7UCFG1  $$RETFACID^LA7VHLU2  
Toolkit 2 $$GET^XPAR  EDITPAR^XPAREDIT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Automated Lab Instruments 1 LA7 UI SETUP  

Entry Points

Name Comments DBIA/ICR reference
EN ; Configure files #62.48 and #62.4 and auto release
E6248 ; Setup/edit file #62.48
E624 ; Setup/edit file #62.4
PRINT ; Print lab universal interface configuration report
DQP ; entry point from above and TaskMan
CLEAN ; Clean up and quit
HDR ; Header for lab universal interface configuration report
SH1 ;Sub header #1
SH2 ;Sub head #2
TERM ;
ENKEY ;entry point to holder(s) of lab key(s) option
START ;print users holding lab keys
EXIT ;
KEYHDR ;header for security key report

External References

Name Field # of Occurrence
NOW^%DTC START+3
^%ZIS PRINT+9
HOME^%ZIS PRINT+10
^%ZISC PRINT+13, CLEAN+2, EXIT+4
^%ZTLOAD PRINT+13
EN^DDIOL PRINT+3, PRINT+14
^DIC E6248+5, E624+8, PRINT+5, ENKEY+3, ENKEY+11
$$FIND1^DIC DQP+15, DQP+38
^DIE E6248+11, E624+18, E624+40
FILE^DIE E624+27
$$GET1^DIQ DQP+18, DQP+24, DQP+25, DQP+26, DQP+28, DQP+31, DQP+32, DQP+34, DQP+43, DQP+45
, DQP+46, DQP+61, DQP+64, DQP+65, DQP+73, DQP+74, DQP+75, DQP+76
^DIR EN+6, TERM+2, ENKEY+8, EXIT+2, KEYHDR+2
ENACK^LA7UCFG1 EN+16
$$RETFACID^LA7VHLU2 DQP+17
$$FMTE^XLFDT START+3
$$HTE^XLFDT DQP+5
$$HLNAME^XLFNAME DQP+21
$$REPEAT^XLFSTR DQP+7, DQP+8
$$GET^XPAR DQP+11
EDITPAR^XPAREDIT EN+12, EN+15
$$KSP^XUPARAM DQP+16
$$DIV4^XUSER DQP+39
EN^XUTMDEVQ ENKEY+15

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: E6248+3
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: E6248+9
Function Call: WRITE
  • Prompt: !
  • Line Location: E624+6
Function Call: WRITE
  • Prompt: !?5,"Another user is editing this entry."
  • Line Location: E624+13
Function Call: WRITE
  • Prompt: !!,"Setting fields for auto download FILE BUILD ENTRY (#93) to: EN"
  • Line Location: E624+23
Function Call: WRITE
  • Prompt: !," FILE BUILD ROUTINE (#94) to: LA7UID"
  • Line Location: E624+24
Function Call: WRITE
  • Prompt: !,"Error Reported by FileMan: ",$G(LA7ERR(1,"DIERR",1,"TEXT",1))
  • Line Location: E624+29
Function Call: WRITE
  • Prompt: !!,"As this auto instrument is configured for auto release,"
  • Line Location: E624+36
Function Call: WRITE
  • Prompt: !,"please designate the associated load list profile to be used for auto release.",!
  • Line Location: E624+37
Function Call: WRITE
  • Prompt: !,"Editing load list: ",$P(^LRO(68.2,LA7682,0),U),!
  • Line Location: E624+38
Function Call: WRITE
  • Prompt: !,"VistA Lab Auto Release Master: ",$S($$GET^XPAR("SYS^PKG","LA UI AUTO RELEASE MASTER",1,"E")="":"NO (DISABLED)",1:$$GET^XPAR("SYS^PKG","LA UI AUTO RELEASE MASTER",1,"E"))
  • Line Location: DQP+11
Function Call: WRITE
  • Prompt: !!,"VistA Application Proxy",?28,"ID/DUZ",?45,"HL7 encoding format",!,LA7LINE2
  • Line Location: DQP+13
Function Call: WRITE
  • Prompt: ?38," ",LA7PROXID_"-"_LA7SITE_"^"_$$HLNAME^XLFNAME(LA7PROXY,"S","^")_"^^^^99VA4"
  • Line Location: DQP+21
Function Call: WRITE
  • Prompt: !!,"HL7 Components: <ID Number (ST)> ^ <Family Name (FN)> ^ <Given Name (ST)> ^ ^ ^ ^ ^ <Source Table (IS)> ^"
  • Line Location: DQP+22
Function Call: WRITE
  • Prompt: !!!,"Instrument Auto Download Status.: ",$$GET1^DIQ(62.4,LA7624_",",98)
  • Line Location: DQP+24
Function Call: WRITE
  • Prompt: !?10,"**Warning - Auto Download not enabled for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+25
Function Call: WRITE
  • Prompt: !,"Instrument Auto Download Routine: ",$S($$GET1^DIQ(62.4,LA7624_",",93)'="":$$GET1^DIQ(62.4,LA7624_",",93),1:"(Entry Not Defined)"),$S($$GET1^DIQ(62.4,LA7624_",",94)'="":"^"_$$GET1^DIQ(62.4,LA7624_",",94),1:"(Routine Not Defined)")
  • Line Location: DQP+26
Function Call: WRITE
  • Prompt: !!,"Instrument Auto Release Status: ",$$GET1^DIQ(62.4,LA7624_",",99)
  • Line Location: DQP+28
Function Call: WRITE
  • Prompt: !?10,"**Warning - Auto Release not enabled for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+29
Function Call: WRITE
  • Prompt: !!,"Associated Lab UI Message Configuration: ",$$GET1^DIQ(62.4,LA7624_",",8)
  • Line Location: DQP+31
Function Call: WRITE
  • Prompt: !?10,"**Warning - Message Configuration not defined for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+32
Function Call: WRITE
  • Prompt: !!,"Associated Load/Work List: ",$$GET1^DIQ(62.4,LA7624_",",3)
  • Line Location: DQP+34
Function Call: WRITE
  • Prompt: !?10,"**Warning - No load/work list defined for auto instrument: ",$P(LA7624(0),"^",1)
  • Line Location: DQP+36
Function Call: WRITE
  • Prompt: !?10,"**Warning - Unable to identify proxy 'LRLAB,AUTO RELEASE' in NEW PERSON file"
  • Line Location: DQP+38
Function Call: WRITE
  • Prompt: !?5,"Auto Release Profile: ",$$GET1^DIQ(68.23,LRPROF_","_LRLL_",",.01)
  • Line Location: DQP+45
Function Call: WRITE
  • Prompt: !?11,"**Warning - 'LRLAB,AUTO RELEASE' proxy has not been assigned division '",LRDN,"' in",!?24,"the file NEW PERSON (#200), field DIVISION (#16)."
  • Line Location: DQP+49
Function Call: WRITE
  • Prompt: !?11,"**Warning - Performing lab required to be specified for Auto Release."
  • Line Location: DQP+50
Function Call: WRITE
  • Prompt: !?10,"**Warning - No profile defined for auto release"
  • Line Location: DQP+51
Function Call: WRITE
  • Prompt: !?10,"**Warning - No profile enabled for auto release"
  • Line Location: DQP+52
Function Call: WRITE
  • Prompt: !?10,"**Warning - Multiple profiles enabled for auto release (should only be one)"
  • Line Location: DQP+53
Function Call: WRITE
  • Prompt: !,$J("["_I_"]",4),?5,$$GET1^DIQ(62.41,I_","_LA7624_",",.01),?45,$$GET1^DIQ(62.41,I_","_LA7624_",",6),?75,$$GET1^DIQ(62.41,I_","_LA7624_",",7),?95,$$GET1^DIQ(60,LR60_",",400)," [",$P($G(^LAB(60,LR60,.2)),"^",1),"]"
  • Line Location: DQP+61
Function Call: WRITE
  • Prompt: !
  • Line Location: DQP+63
Function Call: WRITE
  • Prompt: ?10,"Specimen: ",$$GET1^DIQ(62.41,I_","_LA7624_",",8)
  • Line Location: DQP+64
Function Call: WRITE
  • Prompt: ?90,"Urgency: ",$$GET1^DIQ(62.41,I_","_LA7624_",",9)
  • Line Location: DQP+65
Function Call: WRITE
  • Prompt: !,$J("["_I_"]",4),?5,$$GET1^DIQ(62.41,I_","_LA7624_",",.01),?45,$$GET1^DIQ(62.41,I_","_LA7624_",",6),?75,$J($$GET1^DIQ(62.41,I_","_LA7624_",",12),5),?85,$$GET1^DIQ(62.41,I_","_LA7624_",",13),?95,$$GET1^DIQ(62.41,I_","_LA7624_",",14)
  • Line Location: DQP+73
Function Call: WRITE
  • Prompt: ?105,$$GET1^DIQ(62.41,I_","_LA7624_",",16),?115,$$GET1^DIQ(62.41,I_","_LA7624_",",17),?125,$$GET1^DIQ(62.41,I_","_LA7624_",",18)
  • Line Location: DQP+74
Function Call: WRITE
  • Prompt: !?10,"Remark Prefix: ",$$GET1^DIQ(62.41,I_","_LA7624_",",19)
  • Line Location: DQP+75
Function Call: WRITE
  • Prompt: !?10,"Param 1: ",$$GET1^DIQ(62.41,I_","_LA7624_",",2)
  • Line Location: DQP+76
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: CLEAN+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: !,"Lab Universal Interface Configuration Report",?IOM-29," Page: ",LA7PAGE
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !," for interface: ",$P(LA7624(0),"^"),?IOM-32," Printed: ",LA7NOW
  • Line Location: HDR+5
Function Call: WRITE
  • Prompt: !,LA7LINE,!
  • Line Location: HDR+6
Function Call: WRITE
  • Prompt: !!,"ORDERABLE TESTS"
  • Line Location: SH1+1
Function Call: WRITE
  • Prompt: !,"Entry",?10,"Name",?45,"UI Test Code",?75,"Accession Area",?95,"Data Name [IEN]"
  • Line Location: SH1+2
Function Call: WRITE
  • Prompt: !,LA7LINE2
  • Line Location: SH1+3
Function Call: WRITE
  • Prompt: !!,"REPORTABLE TESTS"
  • Line Location: SH2+1
Function Call: WRITE
  • Prompt: ?75,"Decimal",?84,"Result to",?95,"Accept",?105,"Ignore",?115,"Remove",?125,"Store"
  • Line Location: SH2+2
Function Call: WRITE
  • Prompt: !,"Entry",?10,"Name",?45,"UI Test Code",?75,"Places",?85,"Remark",?95,"Results",?105,"Results",?115,"Spaces",?125,"Remarks"
  • Line Location: SH2+3
Function Call: WRITE
  • Prompt: !,LA7LINE2
  • Line Location: SH2+4
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+2
Function Call: WRITE
  • Prompt: !!?5,"There are no holders of this key."
  • Line Location: ENKEY+4
Function Call: WRITE
  • Prompt: !!,"No security keys selected."
  • Line Location: ENKEY+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ENKEY+10
Function Call: WRITE
  • Prompt: !,"NO DEVICE SELECTED OR REPORT PRINTED!!"
  • Line Location: ENKEY+16
Function Call: WRITE
  • Prompt: !,$J(LRID,9),?10,LRNAM
  • Line Location: START+14
Function Call: WRITE
  • Prompt: ?KTAB(LRK),"X"
  • Line Location: START+16
Function Call: WRITE
  • Prompt: !," ** NO USERS FOR SELECTED LAB KEY(S) **"
  • Line Location: START+17
Function Call: WRITE
  • Prompt: !
  • Line Location: EXIT+3
Function Call: WRITE
  • Prompt: !
  • Line Location: KEYHDR+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: KEYHDR+3
Function Call: WRITE
  • Prompt: !,PRTDT,?IOM-10,"Page: ",PG
  • Line Location: KEYHDR+5
Function Call: WRITE
  • Prompt: !,?(IOM\2-($L(LIN(I))\2)),LIN(I)
  • Line Location: KEYHDR+7
Function Call: WRITE
  • Prompt: !!?1,"DUZ/ID",?10,"NAME"
  • Line Location: KEYHDR+8
Function Call: WRITE
  • Prompt: ?TAB,I
  • Line Location: KEYHDR+8
Function Call: WRITE
  • Prompt: !,LN
  • Line Location: KEYHDR+9
Routine Call
  • DIC
  • Line Location:
    • E6248+5
    • E624+8
    • PRINT+5
    • ENKEY+3
    • ENKEY+11
Routine Call
  • DIC
  • Line Location:
    • DQP+15
    • DQP+38
Routine Call
  • DIE
  • Line Location:
    • E6248+11
    • E624+18
    • E624+40
Routine Call
  • DIE
  • Line Location:
    • E624+27
Routine Call
  • DIR
  • Line Location:
    • EN+6
    • TERM+2
    • ENKEY+8
    • EXIT+2
    • KEYHDR+2
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+9
Routine Call
  • %ZIS
  • Line Location:
    • PRINT+10

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19.1 - [#19.1] Classic Fileman Calls
^VA(200 - [#200] Classic Fileman Calls,  FIND1^DIC
^DIC(4 - [#4] GET1^DIQ
^LAB(60 - [#60] GET1^DIQ
^LAB(62.4 - [#62.4] Classic Fileman Calls,  GET1^DIQ
62.41 GET1^DIQ
^LAHM(62.48 - [#62.48] Classic Fileman Calls
^LRO(68.2 - [#68.2] Classic Fileman Calls
68.23 GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^LAB(60 - [#60] DQP+61
^LAB(62.4 - [#62.4] E624+12, E624+21, E624+32, E624+34, E624+42, DQP+6, DQP+58, DQP+71
^LAHM(62.48 - [#62.48] E6248+8, E6248+12, E624+22
^LRO(68.2 - [#68.2] E624+35, E624+38, DQP+41, DQP+46
^TMP("LA7UCFG" START+2!, START+6*, START+8*, START+11, START+12, START+15, START+17, EXIT+1!
^VA(200 - [#200] START+6, START+8
^XUSEC( ENKEY+4, START+5, START+7

Label References

Name Line Occurrences
CLEAN DQP+56, DQP+67, DQP+69, DQP+79
E624 EN+11
E6248 EN+8
ENKEY EN+14
EXIT START+10
HDR DQP+9, DQP+55, DQP+60, DQP+68, DQP+72
KEYHDR START+10, START+13
PRINT EN+13
SH1 DQP+57, DQP+60
SH2 DQP+70, DQP+72
TERM DQP+78, HDR+1

Naked Globals

Name Field # of Occurrence
^( DQP+58, DQP+71
^(2 DQP+58

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% START+1~, START+3
%ZIS PRINT+1~, PRINT+9*
ARPCNT DQP+10~, DQP+40*, DQP+44*, DQP+52, DQP+53
DA E6248+2~, E6248+7*, E624+2~, E624+10*, E624+22, E624+33~, E624+39*
DIC E6248+2~, E6248+4*, E6248+10, E624+2~, E624+7*, E624+15, PRINT+1~, PRINT+4*, ENKEY+1~, ENKEY+2*
, ENKEY+10!*
DIC("A" ENKEY+2*, ENKEY+10*
DIC("S" E6248+4*, E6248+5!, E624+7*, E624+8!, PRINT+4*, ENKEY+2*
DIC(0 E6248+4*, E624+7*, PRINT+4*, ENKEY+2*, ENKEY+10*
DIE E6248+2~, E6248+10*, E624+2~, E624+15*, E624+33~, E624+39*
>> DILOCKTM E6248+8, E624+12
DIR EN+1~, TERM+1~, ENKEY+8!, EXIT+2!, KEYHDR+2!
DIR("A" EN+5*, ENKEY+8*
DIR("B" ENKEY+8*
DIR(0 EN+3*, EN+4*, TERM+2*, ENKEY+8*, EXIT+2*, KEYHDR+2*
DIROUT EN+1~
DIRUT EN+1~, EN+2, EN+7, TERM+1~, TERM+2, ENKEY+8
DLAYGO E6248+2~, E6248+4*, E624+2~, E624+7*
DR E6248+2~, E6248+10*, E624+2~, E624+15*, E624+33~, E624+39*
DR(2 E624+16*, E624+17*, E624+39*
DTOUT TERM+1~
DUOUT EN+1~, TERM+1~
DUZ(0 E624+16
FDA E624+2~
FDA(1 E624+25*, E624+26*
I DQP+58*, DQP+61, DQP+64, DQP+65, DQP+71*, DQP+73, DQP+74, DQP+75, DQP+76, START+1~
, KEYHDR+7*, KEYHDR+8*
IO("Q" PRINT+11
IOF CLEAN+1, HDR+2, KEYHDR+3
IOM DQP+7, DQP+8, HDR+4, HDR+5, START+2, KEYHDR+5, KEYHDR+7
IOSL DQP+55, DQP+60, DQP+68, DQP+72, START+13
IOST DQP+78, CLEAN+1, HDR+1, EXIT+2, KEYHDR+1, KEYHDR+2, KEYHDR+3
JJ START+1~, EXIT+3*, KEYHDR+1*
KTAB START+1~
KTAB( START+16, KEYHDR+8*
LA7624 E624+2~, E624+10*, E624+12, E624+21, E624+25, E624+26, E624+32, E624+34, E624+42, PRINT+1~
, PRINT+7*, DQP+6, DQP+24, DQP+25, DQP+26, DQP+28, DQP+31, DQP+32, DQP+34, DQP+58
, DQP+61, DQP+64, DQP+65, DQP+71, DQP+73, DQP+74, DQP+75, DQP+76
LA7624(0 DQP+6*, DQP+25, DQP+32, DQP+35, DQP+36, HDR+5
LA76248 E6248+2~, E6248+7*, E6248+8, E6248+12, E624+2~, E624+21*, E624+22
LA7682 E624+33~, E624+34*, E624+35, E624+38, E624+39
LA7DIV DQP+10~, DQP+16*, DQP+17, DQP+18
LA7ERR E624+2~
LA7ERR(1 E624+28, E624+29
LA7EXIT DQP+3~, DQP+5*, DQP+56, DQP+58, DQP+60, DQP+67, DQP+69, DQP+71, DQP+72, DQP+78
, HDR+1, TERM+2*
LA7LINE DQP+3~, DQP+7*, HDR+6
LA7LINE2 DQP+3~, DQP+8*, DQP+13, SH1+3, SH2+4
LA7NOW DQP+3~, DQP+5*, HDR+5
LA7PAGE DQP+3~, DQP+5*, HDR+1, HDR+3*, HDR+4
LA7PROXID DQP+10~, DQP+15*, DQP+20, DQP+21
LA7PROXY DQP+10~, DQP+14*, DQP+15, DQP+20, DQP+21
LA7QUIT EN+1~, EN+10*, EN+11, E624+9*
LA7SITE DQP+10~, DQP+17*, DQP+19*, DQP+21
LA7VAF DQP+10~, DQP+18*, DQP+19
LIN START+1~
LIN( KEYHDR+7
LIN(1 KEYHDR+6*
LN START+1~, START+2*, KEYHDR+9
LR60 DQP+10~, DQP+59*, DQP+61
LRD DQP+10~, DQP+46*, DQP+48
LRDN DQP+10~, DQP+46*, DQP+47, DQP+49, DQP+50
LRID START+1~, START+5*, START+6, START+7*, START+8, START+12*, START+14, START+15
LRK START+1~, START+5*, START+6, START+7*, START+8, START+15*, START+16
LRKEY ENKEY+1~, ENKEY+2, ENKEY+6
LRKEY( ENKEY+5*, START+5, START+7, KEYHDR+8
LRLL DQP+4~, DQP+35*, DQP+36, DQP+41, DQP+43, DQP+45, DQP+46
LRNAM START+1~, START+11*, START+12, START+14, START+15
LRPROF DQP+4~, DQP+40*, DQP+41*, DQP+43, DQP+45, DQP+46
LRUSER ENKEY+1~, ENKEY+9*, ENKEY+10, START+5
LRUSER( ENKEY+12*, START+7
LRUSER(0 START+7
LRX DQP+10~, DQP+38*, DQP+39
PCNT DQP+10~, DQP+40*, DQP+42*, DQP+51
PG START+1~, START+2*, START+13, KEYHDR+2, KEYHDR+4*, KEYHDR+5
POP PRINT+10, ENKEY+15, START+1~
PRTDT START+1~, START+3*, KEYHDR+5
QFLG START+1~, START+2*, START+10, START+11, START+13, EXIT+2, KEYHDR+2*
SS START+1~, EXIT+3*, KEYHDR+1*
TAB START+1~, KEYHDR+8*
U E624+32, E624+34, E624+38, START+2*
X EN+1~, E6248+2~, E624+2~, PRINT+1~, DQP+2~, TERM+1~, ENKEY+1~, ENKEY+7, ENKEY+13, START+1~
X(0 DQP+58*, DQP+59
X(2 DQP+58*, DQP+62, DQP+64, DQP+65, DQP+71*, DQP+75
XURET DQP+10~, DQP+39*
XURET( DQP+48
Y EN+1~, EN+8, EN+9, EN+12, EN+13, EN+14, EN+15, EN+16, E6248+2~, E6248+6
, E6248+7, E624+2~, E624+9, E624+10, PRINT+1~, PRINT+6, PRINT+7, DQP+2~, TERM+1~, ENKEY+1~
, ENKEY+2, ENKEY+3, ENKEY+4, ENKEY+5, ENKEY+9, ENKEY+10, ENKEY+11, ENKEY+12, START+1~, KEYHDR+2
>> ZTDESC PRINT+12*
ZTDTH PRINT+1~
ZTIO PRINT+1~
>> ZTQUEUED DQP+78, CLEAN+2, HDR+1, EXIT+5
>> ZTREQ CLEAN+3*, EXIT+5*
ZTRTN PRINT+1~, PRINT+12*
ZTSAVE PRINT+1~, ENKEY+15
ZTSAVE("LA7624" PRINT+12*
ZTSAVE("LRKEY*" ENKEY+14*
ZTSAVE("LRUSER*" ENKEY+14*
ZTSK PRINT+1~, PRINT+14
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