Routine: LA7VSET

Package	Total	Call Graph
Automated Lab Instruments	4	($$FINDSITE,$$NVAF,$$RETFACID)^LA7VHLU2 TCP^LA7VLL COLLECT^LA7VSET1 HOST^LA7VSTP
VA FileMan	4	(,$$FIND1)^DIC ^DIE ($$GET1,GETS)^DIQ ^DIR
Health Level Seven	1	LINK^HLUTIL3
Kernel	1	$$NS^XUAF4
Registration	1	($$PRIM,$$SITE)^VASITE

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7V SETUP LA7VSET1

Name	Comments	DBIA/ICR reference
MAIN()	; Display the main LEDI setup screen
KDIR	; kill all DIR variables
HOST	; HOST Lab Setup Menu
HOSTBLD	; Build list of host facilities. ; Identify all HOST labs using LA7 MESSAGE PARAMETER file (#62.48)
HSTHDR	; HOST setup header
HOSTLST	;
AEHOST	;
HSTHDR2	;
LMC	; Edit lab message configuration file.
HLAB(LRI)	;Add Host LAB
HLL	;add/edit logical link
CHTST	;Enter CHEM Test into the AUTO INSTRUMENT file (#62.4)
CHSET	; Edit chem test multiple for selected fields ; Entry locked from above.
REMOTE	;COLLECTION Lab Setup Menu
MHLP	;Main help
H1HLP	;HOST Lab(s) help
H2HLP	;HOST Lab Setup help
CONV	;Convert #62.4 and #62.48 from REMOTE to COLLECTION (File #771 will remain REMOTE).
GETLL(LA7X)	; Get Lower Level Protocol information for displaying ; Call with LA7X = ien of file #101 protocol

Name	Field # of Occurrence
^DIC	LMC+5, HLAB+10, CHTST+5, CHSET+7
$$FIND1^DIC	HSTHDR2+12, HSTHDR2+13, HSTHDR2+18, HSTHDR2+21
^DIE	LMC+9, CHTST+15, CHSET+13, CONV+10, CONV+20
$$GET1^DIQ	HSTHDR2+14, HSTHDR2+19, HSTHDR2+22, CHSET+10, GETLL+11
GETS^DIQ	GETLL+7
^DIR	MAIN+14, HOST+7, AEHOST+2, HLAB+4, HLL+18, CONV+26
LINK^HLUTIL3	HSTHDR2+9
$$FINDSITE^LA7VHLU2	HOSTBLD+9
$$NVAF^LA7VHLU2	HLAB+21
$$RETFACID^LA7VHLU2	HLAB+15
TCP^LA7VLL	HLL+20
COLLECT^LA7VSET1	REMOTE+2
HOST^LA7VSTP	HLAB+22
$$PRIM^VASITE	LA7VSET+11
$$SITE^VASITE	LA7VSET+13
$$NS^XUAF4	HOSTBLD+10, HLAB+15

Interaction Calls

Name	Line Occurrences
Function Call: READ	Formatting: ! Prompt: "Press RETURN to continue: " Variable: X Timeout: DTIME Line Location: LA7VSET+16
Function Call: WRITE	Prompt: !!,"No Primary Site is defined!!!!",!! Line Location: LA7VSET+16
Function Call: WRITE	Prompt: @IOF,! Line Location: MAIN+2
Function Call: WRITE	Prompt: "-" Line Location: MAIN+2
Function Call: WRITE	Prompt: !,?((80-$L(HDR))/2),HDR Line Location: MAIN+3
Function Call: WRITE	Prompt: ! Line Location: MAIN+4
Function Call: WRITE	Prompt: "-" Line Location: MAIN+4
Function Call: WRITE	Prompt: ! Line Location: MAIN+5
Function Call: WRITE	Prompt: !,"COLLECTION Labs: Use option #1 to setup HOST labs." Line Location: MAIN+6
Function Call: WRITE	Prompt: !," HOST Labs : Use option #2 to setup COLLECTION labs." Line Location: MAIN+7
Function Call: WRITE	Prompt: !! Line Location: MAIN+8
Function Call: WRITE	Prompt: !,HDRCNT,".",?5,HDR(HDRCNT) Line Location: MAIN+10
Function Call: WRITE	Prompt: !! Line Location: MAIN+12
Function Call: WRITE	Prompt: !! Line Location: HOST+6
Function Call: WRITE	Prompt: @IOF,! Line Location: HSTHDR+2
Function Call: WRITE	Prompt: "-" Line Location: HSTHDR+2
Function Call: WRITE	Prompt: !,?((80-$L(HOST))/2),HOST Line Location: HSTHDR+3
Function Call: WRITE	Prompt: ! Line Location: HSTHDR+4
Function Call: WRITE	Prompt: "-" Line Location: HSTHDR+4
Function Call: WRITE	Prompt: !! Line Location: HSTHDR+5
Function Call: WRITE	Prompt: !,LA7,".",?5,$P(HOST(LA7),U,2)_" ("_$P(HOST(LA7),U,3)_")" Line Location: HOSTLST+2
Function Call: WRITE	Prompt: !,LA7CNT,".",?5,"Add HOST Lab" Line Location: HOSTLST+3
Function Call: WRITE	Prompt: !!,"1. HOST Lab: ",?15,$P(HOST(LA7A),U,2) Line Location: HSTHDR2+4
Function Call: WRITE	Prompt: !,"2. Logical Link: ",$G(LA7X(LA7870)) Line Location: HSTHDR2+16
Function Call: WRITE	Prompt: !,"3. Message Configuration: ",$$GET1^DIQ(62.48,LA76248_",",.01) Line Location: HSTHDR2+19
Function Call: WRITE	Prompt: !,"4. Auto Instrument: ",$$GET1^DIQ(62.4,LA7624_",",.01) Line Location: HSTHDR2+22
Function Call: WRITE	Prompt: !,"You have not entered a "_LAB_" lab." Line Location: LMC+6
Function Call: WRITE	Prompt: !,"To add your Hospital as a HOST site just add COLLECTION sites." Line Location: HLAB+13
Function Call: WRITE	Prompt: @IOF,! Line Location: HLL+4
Function Call: WRITE	Prompt: "-" Line Location: HLL+4
Function Call: WRITE	Prompt: !,?((80-$L(HDR))/2),HDR Line Location: HLL+5
Function Call: WRITE	Prompt: ! Line Location: HLL+6
Function Call: WRITE	Prompt: "-" Line Location: HLL+6
Function Call: WRITE	Prompt: !,?3,"Protocol",?40,"Logical Link",!,?3,"----------",?40,"---------------" Line Location: HLL+7
Function Call: WRITE	Prompt: !! Line Location: HLL+8
Function Call: WRITE	Prompt: !! Line Location: HLL+15
Function Call: WRITE	Prompt: !!,"AUTOMATED INSTRUMENT: ",$P(^LAB(62.4,LA7624,0),U) Line Location: CHTST+9
Function Call: WRITE	Prompt: !,?5,"Another user is editing this entry." Line Location: CHTST+12
Function Call: WRITE	Prompt: !,"Add Chem Tests to the "_AI_" Automated Instrument for "_$P(HOST(LA7A),U,2)_".",!! Line Location: CHTST+16
Function Call: WRITE	Prompt: ! Line Location: CHSET+14
Function Call: WRITE	Prompt: !,"Renaming Auto-Instrument "_$P(^LAB(62.4,IEN,0),U)_" to "_NAME Line Location: CONV+9
Function Call: WRITE	Prompt: !,"Renaming LA7 Message Configuration "_$P(^LAHM(62.48,IEN,0),U)_" to "_NAME Line Location: CONV+19
Function Call: WRITE	Prompt: !!,"For consistency and clarity the above Auto-Instrument names" Line Location: CONV+24
Function Call: WRITE	Prompt: !,"and Message Configurations have been changed from REMOTE to COLLECTION." Line Location: CONV+25
Function Call: WRITE	Prompt: !,?3,$G(LA7Y(101,LA7X_",",.01,"E")) Line Location: GETLL+9
Function Call: WRITE	Prompt: ?40,$G(LA7Y(101,LA7X_",",770.7,"E")) Line Location: GETLL+10
Function Call: WRITE	Prompt: " ("_$$GET1^DIQ(870,+LA7Y(101,LA7X_",",770.7,"I")_",",2)_")" Line Location: GETLL+11
Routine Call	DIC Line Location: LMC+5 HLAB+10 CHTST+5 CHSET+7
Routine Call	DIC Line Location: HSTHDR2+12 HSTHDR2+13 HSTHDR2+18 HSTHDR2+21
Routine Call	DIE Line Location: LMC+9 CHTST+15 CHSET+13 CONV+10 CONV+20
Routine Call	DIR Line Location: MAIN+14 HOST+7 AEHOST+2 HLAB+4 HLL+18 CONV+26

FileNo	Call Tags
^ORD(101 - [#101]	GETS^DIQ
^DIC(4 - [#4]	Classic Fileman Calls
^LAB(62.4 - [#62.4]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ
^LAHM(62.48 - [#62.48]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ
^LAM - [#64]	GET1^DIQ
^HLCS(870 - [#870]	FIND1^DIC, GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^DD(62.4	CHSET+5
^LAB(60 - [#60]	CHSET+10
^LAB(62.4 - [#62.4]	CHTST+9, CHTST+11, CHTST+19, CONV+5, CONV+6, CONV+7, CONV+9
^LAHM(62.48 - [#62.48]	HOSTBLD+7, CONV+15, CONV+16, CONV+17, CONV+19
^ORD(101 - [#101]	HLL+9, HLL+12

Name	Line Occurrences
$$MAIN	LA7VSET+20
@(	LA7VSET+20
AEHOST	HOST+9
CHSET	CHTST+17
CHTST	AEHOST+6
CONV	LA7VSET+7
GETLL	HLL+10, HLL+13
H1HLP	HOST+7
H2HLP	AEHOST+2
HLAB	AEHOST+3
HLL	AEHOST+4
HOSTBLD	HOST+5
HOSTLST	HOST+5
HSTHDR	HOST+5, AEHOST+2
HSTHDR2	AEHOST+2
KDIR	MAIN+11, MAIN+16, HOST+5, AEHOST+2, AEHOST+7, HLAB+4, HLL+16
LMC	AEHOST+5
MHLP	MAIN+14

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
AI	CHTST+2~, CHTST+4*, CHTST+16
CHA	AEHOST+1~, AEHOST+2*, AEHOST+3, AEHOST+4, AEHOST+5, AEHOST+6
DA	LA7VSET+22!, LMC+2~, LMC+8, HLAB+7~, CHTST+2~, CHTST+14, CHSET+2~, CHSET+9~, CHSET+11, CONV+2! , CONV+8, CONV+12!, CONV+18*
DA(1	CHSET+4, CHSET+5, CHSET+11
DIC	LA7VSET+22!, LMC+2~, LMC+4, HLAB+7~, HLAB+8, CHTST+2~, CHTST+5, CHTST+14, CHSET+2~, CHSET+5 , CHSET+8, CHSET+9~
DIC("DR"	CHSET+5*
DIC("P"	CHSET+5*
DIC("S"	HLAB+9*
DIC(0	LMC+4, HLAB+8, CHTST+5, CHSET+5
DIE	LA7VSET+22!, LMC+2~, LMC+8, CHTST+2~, CHTST+14, CHSET+2~, CHSET+8, CONV+2!, CONV+3, CONV+12! , CONV+13*
DIR	KDIR+1!, CONV+23~
DIR("?"	MHLP+1, MHLP+2, MHLP+3, MHLP+4, MHLP+5, MHLP+6, MHLP+7, MHLP+8, MHLP+9, H1HLP+1 , H1HLP+2, H2HLP+1, H2HLP+2, H2HLP+3, H2HLP+4, H2HLP+5, H2HLP+6*
DIR("A"	HLAB+4, HLL+17
DIR(0	MAIN+13, HOST+6, AEHOST+2, HLAB+4, HLL+17, CONV+26
DIROUT	KDIR+1!
DIRUT	KDIR+1!, HOST+8, HLL+19, CONV+23~
DLAYGO	CHSET+2~, CHSET+4*, CHSET+9~
DO	LA7VSET+22!, HLAB+7~, CHSET+2~
DR	LA7VSET+22!, LMC+2~, LMC+8, CHTST+2~, CHTST+14, CHSET+2~, CHSET+12, CONV+2!, CONV+8, CONV+12! , CONV+18*
DT	LA7VSET+11, LA7VSET+13
DTIME	LA7VSET+16
DTOUT	KDIR+1!
DUOUT	KDIR+1!
DUZ(2	HLAB+12
HDR	LA7VSET+9~, LA7VSET+18, MAIN+3, HLL+2~, HLL+3, HLL+5
HDR(	MAIN+10
HDR(1	LA7VSET+19*
HDR(2	LA7VSET+19*
HDRA	MAIN+1~, MAIN+15*, MAIN+17
HDRCNT	MAIN+1~, MAIN+9, MAIN+10
HOST	LA7VSET+9~, HOST+2~, HOSTBLD+5!, HSTHDR+1, HSTHDR+3, AEHOST+2
HOST(	HOSTBLD+11, HOSTBLD+12, HOSTLST+2, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+9, HSTHDR2+12, HSTHDR2+13 , HSTHDR2+18, HSTHDR2+21, HLAB+4, HLAB+6, HLAB+14, HLAB+15, HLAB+17*, HLAB+19, HLAB+21, HLAB+22 , HLL+3, HLL+9, HLL+12, HLL+20, CHTST+4, CHTST+16
IEN	CONV+1~, CONV+6, CONV+7, CONV+8, CONV+9, CONV+16, CONV+17, CONV+18, CONV+19
INST	HLAB+2~, HLAB+11*, HLAB+12, HLAB+15
IOF	MAIN+2, HSTHDR+2, HLL+4
LA7	HOST+2~, HOSTBLD+3~, HOSTBLD+6, HOSTBLD+7, HOSTBLD+8, HOSTBLD+11, HOSTLST+1, HOSTLST+2
LA74	HOSTBLD+3~, HOSTBLD+9*, HOSTBLD+10, HOSTBLD+11
LA7624	HSTHDR2+1~, HSTHDR2+21, HSTHDR2+22, CHTST+2~, CHTST+7, CHTST+9, CHTST+11, CHTST+14, CHTST+19, CHSET+4 , CHSET+11
LA76248	LA7VSET+9~, HOSTBLD+3~, HSTHDR2+1~, HSTHDR2+18*, HSTHDR2+19
LA7629	LA7VSET+9~, HOSTBLD+3~, HLAB+2~
LA7870	HSTHDR2+1~, HSTHDR2+10, HSTHDR2+11, HSTHDR2+12, HSTHDR2+13*, HSTHDR2+14, HSTHDR2+16
LA7A	HOST+2~, HOST+4, HOST+8, HOST+9, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+9, HSTHDR2+12 , HSTHDR2+13, HSTHDR2+18, HSTHDR2+21, LMC+4, HLAB+4, HLAB+6, HLAB+14, HLAB+15, HLAB+17, HLAB+19 , HLAB+21, HLAB+22, HLL+3, HLL+9, HLL+12, HLL+20, CHTST+4, CHTST+16
LA7CNT	HOST+2~, HOST+6, HOSTBLD+6, HOSTBLD+11, HOSTBLD+12, HOSTLST+1, HOSTLST+2, HOSTLST+3, AEHOST+2, HSTHDR2+3* , HSTHDR2+15, HSTHDR2+18, HSTHDR2+21*, H1HLP+1, H1HLP+2
LA7LL	HLL+2~
LA7NLT	CHSET+2~, CHSET+10*, CHSET+12
LA7P	HOST+2~, HOSTBLD+6*, HOSTBLD+7
LA7VER	HLAB+2~, HLAB+20, HLAB+21, HLAB+22
LA7VNVC	LA7VSET+9~, HLAB+2~
LA7VS	LA7VSET+9~, LA7VSET+11, LA7VSET+12, LA7VSET+13, LA7VSET+14, HLL+20
LA7X	HSTHDR2+1~, HSTHDR2+9, HLAB+2~, GETLL~, GETLL+7, GETLL+9, GETLL+10, GETLL+11
LA7X(	HSTHDR2+14*, HSTHDR2+16
LA7X(0	HSTHDR2+10
LA7Y	CHSET+2~, CHSET+6, CHSET+7*, CHSET+10, CHSET+11, GETLL+5~
LA7Y(101	GETLL+9, GETLL+10, GETLL+11
LAB	LA7VSET+9~, LA7VSET+20*, LMC+4, LMC+6
LRI	HLAB~
LRX	LA7VSET+9~
LRY	LA7VSET+9~
NAME	LA7VSET+9~, CONV+7, CONV+8, CONV+9, CONV+17, CONV+18, CONV+19
PR	HLL+2~, HLL+9, HLL+10, HLL+12, HLL+13
PRIMARY	LA7VSET+9~, LA7VSET+14*, LA7VSET+16, HLAB+12, HLAB+19, HLAB+22
PRSITE	LA7VSET+9~, LA7VSET+14*, HLAB+22
REMOTE	LA7VSET+9~
RMT	CONV+1~, CONV+4, CONV+5, CONV+6, CONV+14, CONV+15, CONV+16
RMT1	CONV+1~, CONV+4, CONV+5, CONV+14, CONV+15
SNAME	HOST+2~, HOST+10!, HOSTBLD+3~, HOSTBLD+10*, HOSTBLD+11
SNUM	HOST+2~, HOSTBLD+3~, HOSTBLD+8*, HOSTBLD+9, HOSTBLD+11
U	LA7VSET+14, HOSTBLD+11, HOSTLST+2, AEHOST+3, HSTHDR2+4, HSTHDR2+5, HSTHDR2+7, HSTHDR2+12, HSTHDR2+13, HSTHDR2+18 , HSTHDR2+21, LMC+4, HLAB+4, HLAB+6, HLAB+15, HLAB+17, HLAB+19, HLAB+22, HLL+3, HLL+9 , HLL+12, CHTST+4, CHTST+9, CHTST+16, CHSET+5, CHSET+10, CONV+7, CONV+9, CONV+17, CONV+19
UI	AEHOST+1~
UPDT	CONV+1~, CONV+11, CONV+21, CONV+22
X	LA7VSET+16, MAIN+2, MAIN+4, KDIR+1!, HSTHDR+2, HSTHDR+4, LMC+4, HLL+4, HLL+6, CHTST+4*
Y	MAIN+15, KDIR+1!, HOST+9, AEHOST+2, LMC+6, LMC+8, HLAB+4, HLAB+10, HLAB+11, HLL+20 , CHTST+6, CHTST+7, CHSET+7

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VSET

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: