Routine: LA7VSTP

Package	Total	Call Graph
VA Fileman	4	^DIC (,FILE)^DIE CLEAN^DILF ^DIR
Automated Lab Instruments	1	(HOST,REMOTE)^LA7VSTP1

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7VSET LA7VSET1

Entry Points

Name	Comments	DBIA/ICR reference
HOST(PRIMARY,PRSITE,LRI,SITE,LA7VER)	;
SETPRO(FIELDS)	;sets up the PROTOCOL file #101 ; Call with LA7X = Protocol name ; FIELDS = FileMan fields array
ADDSUB(LA7EVNT,LA7SUB)	; Add subscriber to event protocol ; Call with LA7EVNT = name of event protocol ; LA7SUB = name of subscriber protocol
SETAPP(LA7X,LA7FAC)	;sets up the HL7 APPLICATION PARAMETER file #771
EXIT	; Exit with message
REMOTE(PRIMARY,PRSITE,LRI,SITE,LA7VER)	;

External References

Name	Field # of Occurrence
^DIC	SETAPP+9, SETPRO+7, ADDSUB+18
^DIE	SETAPP+15
FILE^DIE	SETPRO+15, SETPRO+17
CLEAN^DILF	SETPRO+18
^DIR	EXIT+4
HOST^LA7VSTP1	HOST+72
REMOTE^LA7VSTP1	REMOTE+71

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Setting up the following Host Labs for "_PRSITE Line Location: HOST+6
Function Call: WRITE	Prompt: !," Updating HL7 APPLICATION PARAMETER file (#771)." Line Location: HOST+7
Function Call: WRITE	Prompt: !," Updating PROTOCOL file (#101)." Line Location: HOST+16
Function Call: WRITE	Prompt: !,"Setting up the REMOTE Lab, "_SITE_" and HOST Lab "_PRSITE Line Location: REMOTE+5
Function Call: WRITE	Prompt: !," Updating HL7 APPLICATION PARAMETER file (#771)." Line Location: REMOTE+6
Function Call: WRITE	Prompt: !," Updating PROTOCOL file (#101)." Line Location: REMOTE+15
Function Call: WRITE	Prompt: !!,"HL7 v1.6 Environment setup is complete!!" Line Location: EXIT+1
Function Call: WRITE	Prompt: !,FIELDS Line Location: SETPRO+8
Function Call: WRITE	Prompt: !," Adding "_X Condition for execution: $P(Y,U,3) Line Location: SETPRO+8
Routine Call	DIC Line Location: SETAPP+9 SETPRO+7 ADDSUB+18
Routine Call	DIE Line Location: SETAPP+15
Routine Call	DIE Line Location: SETPRO+15 SETPRO+17
Routine Call	DIR Line Location: EXIT+4

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls
^HL(771 - [#771]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(101	ADDSUB+17
^ORD(101 - [#101]	ADDSUB+6, ADDSUB+7, ADDSUB+10, ADDSUB+11, ADDSUB+14

Label References

Name	Line Occurrences
$$SETAPP	HOST+11, HOST+14, REMOTE+10, REMOTE+13
ADDSUB	HOST+42, HOST+70, REMOTE+42, REMOTE+69
EXIT	HOST+4, HOST+73, REMOTE+3, REMOTE+72
SETPRO	HOST+27, HOST+39, HOST+56, HOST+67, REMOTE+28, REMOTE+39, REMOTE+54, REMOTE+66

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	ADDSUB+4~
DA	SETAPP+14, SETPRO+4~, SETPRO+9, SETPRO+10, SETPRO+12, ADDSUB+4~
DA(1	ADDSUB+16*
DIC	SETAPP+5~, SETAPP+8, SETPRO+4~, SETPRO+6, ADDSUB+4~, ADDSUB+16*
DIC("P"	ADDSUB+17*
DIC(0	SETAPP+8, SETPRO+6, ADDSUB+17*
DIE	SETAPP+5~, SETAPP+14*
DIR	EXIT+3!
DIR(0	EXIT+4*
DLAYGO	SETAPP+5~, SETAPP+8, SETPRO+6, ADDSUB+4~, ADDSUB+17*
DR	SETAPP+5~, SETAPP+14*, ADDSUB+4~
DUZ	SETPRO+16
FDA	SETPRO+4~
FDA(1	SETPRO+13, SETPRO+14
FDA(2	SETPRO+16*
FIELDS	SETPRO~, SETPRO+6, SETPRO+8
FIELDS(	SETPRO+13
I	HOST+38, HOST+52, HOST+53, HOST+65, HOST+66, REMOTE+26, REMOTE+38, REMOTE+53, REMOTE+62, REMOTE+63 , SETPRO+4~, SETPRO+12, SETPRO+13
LA7101E	ADDSUB+4~, ADDSUB+10*, ADDSUB+14, ADDSUB+16
LA7101S	ADDSUB+4~, ADDSUB+11*, ADDSUB+14
LA7DIE	SETPRO+4~
LA7EVNT	ADDSUB~, ADDSUB+7, ADDSUB+10
LA7FAC	SETAPP~, SETAPP+14
LA7IENS	SETPRO+4~, SETPRO+12*, SETPRO+13, SETPRO+14, SETPRO+16
>> LA7QUIET	SETPRO+8
LA7SUB	ADDSUB~, ADDSUB+6, ADDSUB+11, ADDSUB+16
LA7VER	HOST~, HOST+9, HOST+26, HOST+36, HOST+54, HOST+64, REMOTE~, REMOTE+8, REMOTE+25, REMOTE+37 , REMOTE+52, REMOTE+64, EXIT+2
LA7X	SETAPP~, SETAPP+7, SETAPP+11
LA7Y	HOST+2~, REMOTE+1~, SETAPP+5~, SETAPP+10*, SETAPP+11, SETAPP+12, SETAPP+14, SETAPP+16
LACLNT	HOST+2~, HOST+29!, HOST+30, HOST+39, HOST+42, HOST+58!, HOST+59, HOST+67, HOST+70, REMOTE+1~ , REMOTE+30!, REMOTE+31, REMOTE+39, REMOTE+42, REMOTE+56!, REMOTE+57, REMOTE+66, REMOTE+69
LACLNT(	HOST+32, HOST+33, HOST+34, HOST+35, HOST+36, HOST+38, HOST+61, HOST+62, HOST+63, HOST+64 , HOST+65, HOST+66, REMOTE+33, REMOTE+34, REMOTE+35, REMOTE+36, REMOTE+37, REMOTE+38, REMOTE+59, REMOTE+60 , REMOTE+61, REMOTE+62, REMOTE+63, REMOTE+64
LACLNT(4	HOST+31, HOST+60, REMOTE+32, REMOTE+58
LACLNT(771	HOST+37, REMOTE+65
LAHOST	HOST+2~, HOST+13, HOST+14, HOST+23, HOST+61, REMOTE+1~, REMOTE+9, REMOTE+10, REMOTE+22, REMOTE+59
LAREMOTE	HOST+2~, HOST+10, HOST+11, HOST+32, HOST+49, REMOTE+1~, REMOTE+12, REMOTE+13, REMOTE+33, REMOTE+49
LASERV	HOST+2~, HOST+20!, HOST+21, HOST+27, HOST+42, HOST+46!, HOST+47, HOST+56, HOST+70, REMOTE+1~ , REMOTE+19!, REMOTE+20, REMOTE+28, REMOTE+42, REMOTE+46!, REMOTE+47, REMOTE+54, REMOTE+69
LASERV(	HOST+23, HOST+24, HOST+25, HOST+26, HOST+49, HOST+50, HOST+51, HOST+52, HOST+53, HOST+54 , REMOTE+22, REMOTE+23, REMOTE+24, REMOTE+25, REMOTE+26, REMOTE+49, REMOTE+50, REMOTE+51, REMOTE+52, REMOTE+53 , EXIT+2*
LASERV(4	HOST+22, HOST+48, REMOTE+21, REMOTE+48
LASERV(772	HOST+55, REMOTE+27
LRI	HOST~, HOST+4, HOST+13, HOST+14, HOST+21, HOST+30, HOST+47, HOST+59, REMOTE~, REMOTE+3 , REMOTE+12, REMOTE+13, REMOTE+20, REMOTE+31, REMOTE+47, REMOTE+57
LRS	HOST+2~, REMOTE+1~
ORU	HOST+2~, REMOTE+1~
PRIMARY	HOST~, HOST+10, HOST+11, REMOTE~, REMOTE+9, REMOTE+10
PROT	HOST+2~, REMOTE+1~
PRSITE	HOST~, HOST+6, REMOTE~, REMOTE+5
SITE	HOST~, REMOTE~, REMOTE+5
U	SETPRO+8, ADDSUB+17
X	SETAPP+7, SETPRO+6, SETPRO+8, ADDSUB+4~, ADDSUB+16*
Y	SETAPP+10, SETPRO+8, SETPRO+9, ADDSUB+4~

Customize PDF page

Package: Automated Lab Instruments

Routine: LA7VSTP

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

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: