Routine: LA7VLL

Information

LA7VLL ;DALOI\JMC - Setup HL7 v1.6 Logical Link for Consolidation ; 12/3/1997

Call Graph

Call Graph Total: 7

Package	Total	Call Graph
VA FileMan	5	(,$$FIND1)^DIC (,FILE)^DIE CLEAN^DILF $$GET1^DIQ ^DIR
Health Level Seven	1	LINK^HLUTIL3
MailMan	1	$$MG^XMBGRP

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 2

Package	Total	Caller Graph
Automated Lab Instruments	2	LA7VSET LA7VSET1

Entry Points

Name	Comments	DBIA/ICR reference
MAIL(LRI)	;
MAILGRP	; Create mail group for HL7 protocol logical link
ERROR	; Error creating domain
TCP(LRI,PRIMARY)	;
LL	;
SETPRO(LA7X,LA7FLDS)	;

External References

Name	Field # of Occurrence
^DIC	MAIL+18, MAILGRP+20, TCP+19, TCP+40, SETPRO+5
$$FIND1^DIC	MAIL+9, MAIL+13, TCP+10, TCP+14, TCP+32, TCP+35
^DIE	SETPRO+9
FILE^DIE	MAIL+25, TCP+26, TCP+48
CLEAN^DILF	MAIL+26, TCP+27, TCP+49
$$GET1^DIQ	MAILGRP+14
^DIR	LL+17
LINK^HLUTIL3	TCP+7, TCP+30
$$MG^XMBGRP	MAILGRP+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Updating HL LOGICAL LINK file (#870)." Line Location: MAIL+8
Function Call: WRITE	Prompt: !,?5,"Adding LA7V"_$P(LRI,"^") Line Location: MAIL+16
Function Call: WRITE	Prompt: !!,"Failure LA7V"_$P(LRI,"^")_" was not created in file #870." Line Location: MAIL+21
Function Call: WRITE	Prompt: !!,"Creating mail group "_LA7VMGP_" for use by the" Line Location: MAILGRP+4
Function Call: WRITE	Prompt: !,"HL7 v1.6 Logical Link "_LA7VMGP_"." Line Location: MAILGRP+5
Function Call: WRITE	Prompt: !!,"Failure: mail group ",LA7VMGP," was not created in file #3.8." Line Location: MAILGRP+12
Function Call: WRITE	Prompt: !!,"The INSTITUTION file (#4) entry for "_$P(LRI,"^",2)_" does not contain a domain." Line Location: ERROR+2
Function Call: WRITE	Prompt: !,"Unable to create the COLLECTION system link for mail group ",$G(LA7VMGP),"." Line Location: ERROR+3
Function Call: WRITE	Prompt: !,"The REMOTE MEMBER, S.HL V16 SERVER@domain name will need to be manually" Line Location: ERROR+4
Function Call: WRITE	Prompt: !,"added to the mail group "_$G(LA7VMGP),"." Line Location: ERROR+5
Function Call: WRITE	Prompt: !!,"Updating HL LOGICAL LINK file (#870)." Line Location: TCP+9
Function Call: WRITE	Prompt: !,?5,"Adding "_LA7X Line Location: TCP+17
Function Call: WRITE	Prompt: !!,"Failure "_LA7X_" was not created in file #870." Line Location: TCP+22
Function Call: WRITE	Prompt: !,?5,"Adding "_LA7X Line Location: TCP+38
Function Call: WRITE	Prompt: !!,"Failure "_LA7X_" was not created in file #870." Line Location: TCP+43
Function Call: WRITE	Prompt: !,"Updating the PROTOCOL file (#101)." Line Location: LL+2
Routine Call	DIC Line Location: MAIL+18 MAILGRP+20 TCP+19 TCP+40 SETPRO+5
Routine Call	DIC Line Location: MAIL+9 MAIL+13 TCP+10 TCP+14 TCP+32 TCP+35
Routine Call	DIE Line Location: SETPRO+9
Routine Call	DIE Line Location: MAIL+25 TCP+26 TCP+48
Routine Call	DIR Line Location: LL+17

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ORD(101 - [#101]	Classic Fileman Calls
^DIC(4 - [#4]	GET1^DIQ
^HLCS(870 - [#870]	Classic Fileman Calls, FIND1^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD(3.8	MAILGRP+18

Label References

Name	Line Occurrences
ERROR	MAILGRP+15
LL	MAIL+27, TCP+51
MAILGRP	MAIL+6
SETPRO	LL+7, LL+9, LL+13, LL+15

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
D0	SETPRO+2~
DA	MAIL+4~, MAILGRP+2~, TCP+2~, SETPRO+2~, SETPRO+8*
DA(1	MAILGRP+18*
DIC	MAIL+4~, MAIL+17, MAILGRP+2~, MAILGRP+18, TCP+2~, TCP+18, TCP+39, SETPRO+2~, SETPRO+4*, SETPRO+8
DIC("P"	MAILGRP+18*
DIC(0	MAIL+17, MAILGRP+18, TCP+18, TCP+39, SETPRO+4*
DIE	MAIL+4~, TCP+2~, SETPRO+2~, SETPRO+8*
DIR	LL+1~
DIR(0	LL+17*
DIROUT	LL+1~
DIRUT	LL+1~
DLAYGO	MAIL+4~, MAIL+17, MAILGRP+2~, MAILGRP+18, TCP+2~, TCP+18, TCP+39, SETPRO+2~, SETPRO+4*
DOMAIN	MAILGRP+2~, MAILGRP+14*, MAILGRP+15, MAILGRP+19
DR	MAIL+4~, TCP+2~, SETPRO+2~, SETPRO+8*
DTOUT	LL+1~
DUOUT	LL+1~
DUZ	MAILGRP+10
FDA	MAIL+4~, TCP+2~
FDA(1	MAIL+14, MAIL+23, MAIL+24, TCP+15, TCP+24, TCP+25
FDA(2	TCP+36, TCP+46, TCP+47*
>> HOST(0	LL+5
LA738	MAILGRP+2~, MAILGRP+10*, MAILGRP+11, MAILGRP+18
LA7DIE	MAIL+4~, TCP+2~
LA7FLDS	SETPRO~, SETPRO+8
LA7IENS	MAIL+4~, MAIL+22, MAIL+23, MAIL+24, TCP+2~, TCP+23, TCP+24, TCP+25, TCP+44!, TCP+45* , TCP+46, TCP+47
LA7LINK	MAIL+4~, TCP+2~, TCP+7
LA7LINK(	MAIL+10, MAIL+14, MAIL+19, TCP+11, TCP+15, TCP+20, LL+4
LA7LINK(0	TCP+8, LL+4
LA7P	TCP+2~, TCP+30
LA7P(0	TCP+31
LA7VDESC	MAILGRP+2~, MAILGRP+10
LA7VDESC(1	MAILGRP+8*
LA7VDESC(2	MAILGRP+9*
LA7VMGP	MAIL+4~, MAIL+6*, MAIL+24, MAILGRP+4, MAILGRP+5, MAILGRP+10, MAILGRP+12, ERROR+3, ERROR+5
LA7VX	MAIL+4~, TCP+2~
LA7VXMY	MAILGRP+2~, MAILGRP+7*, MAILGRP+10
LA7X	MAIL+4~, MAIL+9, MAIL+10, MAIL+14, TCP+2~, TCP+10, TCP+11, TCP+15, TCP+17, TCP+18 , TCP+22, TCP+32, TCP+36, TCP+38, TCP+39, TCP+43, LL+1~, LL+6, LL+7, LL+8* , LL+9, LL+12, LL+13, LL+14, LL+15, SETPRO~, SETPRO+4
LA7Y	MAIL+4~, MAIL+9, MAIL+10, MAIL+12, MAIL+13, MAIL+14, MAIL+15, MAIL+19, MAIL+20, MAIL+22 , TCP+2~, TCP+10, TCP+11, TCP+13, TCP+14, TCP+15, TCP+16, TCP+20, TCP+21, TCP+23 , TCP+32, TCP+34, TCP+35, TCP+36, TCP+37, TCP+41*, TCP+42, TCP+45
LINK	LL+1~, LL+4*, LL+7, LL+9, LL+13, LL+15
LRI	MAIL~, MAIL+2, MAIL+6, MAIL+9, MAIL+13, MAIL+16, MAIL+17, MAIL+21, MAILGRP+9, MAILGRP+14 , ERROR+2, TCP~, TCP+4, TCP+7, TCP+10, TCP+14, LL+6, LL+8, LL+12, LL+14
PRIMARY	TCP~, TCP+4, TCP+30, TCP+32, TCP+35
>> REMOTE(0	LL+11
U	MAIL+13, MAIL+19, MAILGRP+18, TCP+10, TCP+14, TCP+20, TCP+32, TCP+35
X	MAIL+4~, MAIL+17, MAILGRP+19, TCP+2~, TCP+18, TCP+39, LL+1~, LL+4, SETPRO+2~, SETPRO+4
Y	MAIL+19, TCP+20, TCP+41, SETPRO+2~, SETPRO+6, SETPRO+8

Customize PDF page

Package: Automated Lab Instruments