Routine: LA7UCFG

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

Package	Total	Caller Graph
Automated Lab Instruments	1	LA7 UI SETUP

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

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

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

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

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

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

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7UCFG

Information

Source Information

Call Graph

Call Graph Total: 19

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: