Routine: HLUCM090

Information

HLUCM090 ;CIOFO-O/LJA - Facility Finder Software ;2/20/2003 - 12:35

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Health Level Seven	3	$$BTE^HLCSMON INCR^HLUCM001 ACCUMLAT^HLUCM009
Kernel	2	ENDR^%ZISS $$REPEAT^XLFSTR
VA Fileman	2	MIX^DIC1 EN^DIQ1
Registration	1	$$SITE^VASITE

Caller Graph

Caller Graph Total: 3

Package	Total	Caller Graph
Health Level Seven	3	HLUCM001 HLUCM002 HLUCM050

Entry Points

Name	Comments	DBIA/ICR reference
IEN773(IEN772,IEN773)	; Find associated 773 entries...
PRINT1	;
SEG772(IEN772)	; Try to find SEGment in 772, and extract facility...
PRINT2
MSH773(IEN772)	; Try to extract from MSH segment in file 773...
EOR	;HLUCM090 - Facility Finder Software ;2/20/2003 - 12:35
MAIL870(IEN772)	;
FACDNS(FAC)	; Return STA#~STA-NAME~DNS if remote...
INST870(IEN772,INST)	;
MSHXTRCT(MSH,WAY)	; Given I/O WAY and MSH segment, return facility
FACVAR	; Set up variables...
BLDHL4	; Build facility conversions...
SPRXTRCT(IEN772,SPR)	; Given SPR segment, extract facility
FRSTANO(STANO)	;
PRINTDBG	; Print data in ^TMP($J,"HLUCMSTORE")
MSH870(IEN772)	; Find facility name from MSH in 870 OUT QUEUE...
ACCUMFAC	; Create ^TMP(TOTALS,$J,"RFAC") data...
FACNM(IEN772)	; Return FACILITY NAME for one 772 entry...
LINK(IEN772)	;
FACILITY(IEN772)	; Return facility name for REMOTE entries ; IMPORTANT!! Do not call here unless the entry is REMOTE
FACFROM(FAC)	; Find STA#~STA-NAME~DNS if remote...

External References

Name	Field # of Occurrence
ENDR^%ZISS	PRINTDBG+4
MIX^DIC1	FACFROM+16
EN^DIQ1	FACVAR+5
$$BTE^HLCSMON	PRINT2+3, PRINT2+4
INCR^HLUCM001	ACCUMFAC+6
ACCUMLAT^HLUCM009	ACCUMFAC+3
$$SITE^VASITE	FACILITY+7, FACDNS+4
$$REPEAT^XLFSTR	PRINTDBG+22, PRINT2+7, PRINT2+24

Interaction Calls

Name	Line Occurrences
Function Call: READ	Prompt: "Print T nodes(Y/N): No// " Formatting: !! Timeout: 999 Variable: ANS Line Location: PRINTDBG+7
Function Call: READ	Prompt: "Print X nodes(Y/N): No// " Formatting: !! Timeout: 999 Variable: ANS Line Location: PRINTDBG+10
Function Call: READ	Prompt: "Print U nodes(Y/N): Yes// " Formatting: !! Timeout: 999 Variable: ANS Line Location: PRINTDBG+13
Function Call: WRITE	Prompt: !,PRINT Line Location: PRINTDBG+23
Function Call: WRITE	Prompt: " ",IOINHI,"<",IOINORM Line Location: PRINTDBG+26
Function Call: READ	Timeout: 999 Variable: X Line Location: PRINTDBG+27
Function Call: WRITE	Prompt: !!," Total Total Total Main" Line Location: PRINT2+5
Function Call: WRITE	Prompt: !,"#Chars #Msgs #Sec Sort Sub1 Sub2 Sub3" Line Location: PRINT2+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: PRINT2+7
Function Call: WRITE	Prompt: !,$J(+TOT,6),?8,$J($P(TOT,U,2),6),?16,$J($P(TOT,U,3),6) Line Location: PRINT2+18
Function Call: WRITE	Prompt: ?24,L1,?29,L2,?34,L3,?39,$S($L(L4)<42:L4,1:$E(L4,1,40)_"~") Line Location: PRINT2+19
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("-",IOM),!,$J(TOT1,6),?8,$J(TOT2,6),?16,$J(TOT3,6),! Line Location: PRINT2+24

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(4 - [#4]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(4 - [#4]	FRSTANO+2, FRSTANO+3
^HL(772 - [#772]	MSH870+7, SEG772+2, SEG772+3, LINK+2
^HLCS(870 - [#870]	MSH870+12, MSH870+14, INST870+3, MAIL870+3
^HLMA - [#773]	IEN773+8, IEN773+10, SPRXTRCT+3, LINK+5
^HLMA("B"	IEN773+7, SPRXTRCT+2, LINK+4
^ORD(101 - [#101]	MSH870+9, MSH870+10
^TMP(	ACCUMFAC+5, ACCUMFAC+7*, PRINTDBG+5
^TMP($J	MSH870+4, FACFROM+6, FACFROM+9, FACFROM+23, FACFROM+38, BLDHL4+1*

Label References

Name	Line Occurrences
$$FACDNS	FACNM+4, FACNM+7, FACNM+10
$$FACFROM	FACDNS+8
$$FACNM	FACILITY+11
$$FRSTANO	MSHXTRCT+4
$$IEN773	MSH773+2
$$LINK	INST870+2, MAIL870+2
$$MSH773	FACNM+4
$$MSH870	FACNM+10
$$MSHXTRCT	MSH870+15, SEG772+4, IEN773+11
$$SEG772	FACNM+7
$$SPRXTRCT	SEG772+5
BLDHL4	FACFROM+6
FACVAR	FACFROM+18, FACFROM+33

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> ANS	PRINTDBG+7, PRINTDBG+8, PRINTDBG+10, PRINTDBG+11, PRINTDBG+13*, PRINTDBG+14
CHAR	SPRXTRCT+1~, PRINTDBG+1~
CT	FACNM+1~, MSH870+1~, MSH870+11, MSH870+12, MSH870+13, PRINTDBG+1~, PRINTDBG+16, PRINTDBG+25, PRINTDBG+28*
D	FACFROM+1~, FACFROM+15, FACFROM+30!, FACFROM+31
>> DA	FACVAR+4*
DATA	FACNM+1~, MSH870+1~, MSH870+14, MSH870+15, PRINTDBG+19, PRINTDBG+20, PRINTDBG+21, PRINTDBG+22, PRINT1+1~
DATA("PCKG"	ACCUMFAC+3
DATA("PROT"	ACCUMFAC+3
DATA(4	FACVAR+6
DEL	IEN773+1~, MSHXTRCT+1~, MSHXTRCT+2*, MSHXTRCT+3
DIC	FACFROM+1~, FACFROM+15, FACFROM+30!, FACFROM+31, FACVAR+1~, FACVAR+4*
DIC(0	FACFROM+15, FACFROM+31
>> DIQ	FACVAR+4*
>> DIQ(0	FACVAR+4*
DIV	SPRXTRCT+1~, SPRXTRCT+4, SPRXTRCT+5, SPRXTRCT+6
>> DR	FACVAR+4*
FAC	ACCUMFAC+3, FACDNS~, FACDNS+5, FACDNS+8, FACFROM~, FACFROM+3, FACFROM+9, FACFROM+15, FACFROM+23, FACFROM+26 , FACFROM+27, FACFROM+31, FACFROM+38
FACNM	FACILITY+3~, FACILITY+4~, FACILITY+9, FACILITY+10, FACILITY+11, FACILITY+13, FACNM+1~, FACNM+4, FACNM+7, FACNM+10* , MSH870+8, MSH870+9, MSH870+12, MSH870+15, MSH870+16, MSH773+1~, MSH773+3, FACDNS+1~, FACDNS+8, FACDNS+10 , FACDNS+11, FACDNS+13, FACFROM+1~, FACFROM+9, FACFROM+21, FACFROM+22, FACFROM+23, FACFROM+26, FACFROM+27, FACFROM+36 , FACFROM+37, FACFROM+38, FACVAR+2
>> FACNO	FACVAR+2*, FACVAR+3, FACVAR+4, FACVAR+6
GBL	PRINT2~*, PRINT2+2, PRINT2+9, PRINT2+12, PRINT2+14, PRINT2+16, PRINT2+17, PRINT2+22, PRINT2+23
I	BLDHL4+1~*
I773	SPRXTRCT+1~, SPRXTRCT+2*, SPRXTRCT+3
IEN	IEN773+1~, IEN773+6, IEN773+7, IEN773+8, IEN773+10, IEN773+12, FRSTANO+1~, FRSTANO+2*, FRSTANO+3
IEN772	FACILITY~, FACILITY+9, FACILITY+10, FACILITY+11, FACNM~, FACNM+4, FACNM+7, FACNM+10, MSH870~, MSH870+4 , MSH870+5, SEG772~, SEG772+2, SEG772+3, SEG772+5, MSH773~, MSH773+2, IEN773~, IEN773+7, SPRXTRCT~ , SPRXTRCT+2, INST870~, INST870+2, MAIL870~, MAIL870+2, LINK~, LINK+2, LINK+4, PRINTDBG+1~
IEN772(	FACILITY+10
IEN772N	MSH870+1~, MSH870+4, MSH870+5, MSH870+7
IEN773	FACILITY+4~, MSH773+1~, MSH773+2, IEN773~, IEN773+3!, IEN773+4, IEN773+14, IEN773+16, LINK+1~, LINK+4* , LINK+5, PRINTDBG+1~
IEN773(	IEN773+12, IEN773+13
IEN773(""	MSH773+3
INFO	ACCUMFAC+1~
INST	INST870~, INST870+4
INST870	INST870+1~, INST870+3*, INST870+4
IOINHI	PRINTDBG+1~, PRINTDBG+19, PRINTDBG+26
IOINORM	PRINTDBG+1~, PRINTDBG+19, PRINTDBG+26
IOM	PRINT2+7, PRINT2+24
JOBN	PRINTDBG+3~*, PRINTDBG+5, PRINT2
L1	PRINT1+1~, PRINT2+8, PRINT2+9, PRINT2+12, PRINT2+14, PRINT2+16, PRINT2+17, PRINT2+19, PRINT2+20, PRINT2+22 , PRINT2+23
L2	PRINT1+1~, PRINT2+11, PRINT2+12, PRINT2+14, PRINT2+16, PRINT2+17, PRINT2+19, PRINT2+20, PRINT2+22, PRINT2+23
L3	PRINT1+1~, PRINT2+13, PRINT2+14, PRINT2+16, PRINT2+17, PRINT2+19, PRINT2+22
L4	PRINT1+1~, PRINT2+15, PRINT2+16, PRINT2+17, PRINT2+19
L5	PRINT1+1~
LAST	PRINT1+1~
LINK	INST870+1~, INST870+2, INST870+3, MAIL870+1~, MAIL870+2, MAIL870+3, LINK+1~, LINK+2, LINK+3, LINK+5 , LINK+6
LL	MSH870+1~, MSH870+10*, MSH870+12, MSH870+14
LOCAL	FACILITY+4~, FACILITY+7, FACILITY+13, FACDNS+1~, FACDNS+4, FACDNS+5, FACDNS+10, FACDNS+11, FACDNS+15
LP	PRINTDBG+1~, PRINTDBG+5, PRINTDBG+17, PRINTDBG+18, PRINTDBG+19
MAIL	MAIL870+1~, MAIL870+3*, MAIL870+4
MSH	FACILITY+4~, FACNM+1~, MSH870+1~, MSH870+11, MSH870+12, MSH870+15, IEN773+1~, IEN773+10, IEN773+11, MSHXTRCT~ , MSHXTRCT+2, MSHXTRCT+3, SPRXTRCT+1~, SPRXTRCT+3, SPRXTRCT+4
NM	FRSTANO+1~, FRSTANO+3*, FRSTANO+4
NO	FACNM+1~, MSH870+1~, MSH870+11, MSH870+12, MSH870+14
NO773	FACILITY+4~, MSH773+1~, MSH773+2*, MSH773+3
PARENT	ACCUMFAC+1~
PAUSE	PRINTDBG+1~, PRINTDBG+16, PRINTDBG+24, PRINTDBG+27
PRINT	PRINTDBG+1~, PRINTDBG+21*, PRINTDBG+23
PROT	FACNM+1~, MSH870+1~, MSH870+7*, MSH870+9
PROTS	MSH870+1~, MSH870+8, MSH870+9, MSH870+10
>> PX	PRINTDBG+19*, PRINTDBG+22
RFN	IEN773+1~, IEN773+11, IEN773+12, IEN773+13, MSHXTRCT+1~, MSHXTRCT+3, MSHXTRCT+4*, MSHXTRCT+5
S1	PRINTDBG+2~
S2	PRINTDBG+2~
SEG	SEG772+1~, SEG772+3*, SEG772+4, SEG772+5
SKIP	PRINTDBG+2~, PRINTDBG+8, PRINTDBG+11, PRINTDBG+14*, PRINTDBG+18
SPR	SPRXTRCT~, SPRXTRCT+6
ST	PRINTDBG+2~, PRINTDBG+5*, PRINTDBG+17, PRINTDBG+19
STANO	FRSTANO~, FRSTANO+2, FACFROM+1~, FACFROM+22, FACFROM+37, FACVAR+2, FACVAR+6
>> START	ACCUMFAC+3
STOP	PRINTDBG+2~, PRINTDBG+16, PRINTDBG+17, PRINTDBG+20, PRINTDBG+27
>> SUB	PRINT2, PRINT2+4
T	BLDHL4+1~*
TOT	PRINT1+1~, PRINT2+1, PRINT2+17, PRINT2+18, PRINT2+21
TOT1	PRINT1+1~, PRINT2+1, PRINT2+10, PRINT2+21*, PRINT2+24
TOT2	PRINT1+1~, PRINT2+1, PRINT2+10, PRINT2+21*, PRINT2+24
TOT3	PRINT1+1~, PRINT2+1, PRINT2+10, PRINT2+21*, PRINT2+24
>> TOTALS	ACCUMFAC+5, ACCUMFAC+7
>> TOTCURR	ACCUMFAC+5*, ACCUMFAC+7
TYP	PRINT1+1~
TYPE	ACCUMFAC+1~
U	FACILITY+7, MSH870+7, MSH870+10, SEG772+2, IEN773+9, FRSTANO+3, INST870+3, MAIL870+3, LINK+2, LINK+5 , PRINTDBG+7, PRINTDBG+10, PRINTDBG+13, PRINTDBG+27, PRINT2+18, PRINT2+21, FACDNS+4, FACVAR+2, BLDHL4+1
VAL	IEN773+1~, IEN773+8*, IEN773+9, PRINTDBG+2~
WAY	SEG772+1~, SEG772+2, SEG772+4, IEN773+1~, IEN773+9, IEN773+11, IEN773+12, MSHXTRCT~, MSHXTRCT+3, PRINT2+22 , PRINT2+23, PRINT2+24
X	MSHXTRCT+1~, MSHXTRCT+4, PRINTDBG+4, PRINTDBG+18, PRINTDBG+27, PRINT2+3, PRINT2+4, PRINT2+22, PRINT2+23, FACFROM+1~ , FACFROM+15, FACFROM+30!, FACFROM+31, FACVAR+1~
Y	FACFROM+1~, FACFROM+30!, FACVAR+2

Marked Items

Name	Field # of Occurrence
$T(BLDHL4+I	BLDHL4+1

Customize PDF page

Package: Health Level Seven

Routine: HLUCM090

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend:

Marked Items