Routine: HLUCM090

Information

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

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

Name	Line Occurrences
Function Call: READ	Formatting: !! Prompt: "Print T nodes(Y/N): No// " Variable: ANS Timeout: 999 Line Location: PRINTDBG+7
Function Call: READ	Formatting: !! Prompt: "Print X nodes(Y/N): No// " Variable: ANS Timeout: 999 Line Location: PRINTDBG+10
Function Call: READ	Formatting: !! Prompt: "Print U nodes(Y/N): Yes// " Variable: ANS Timeout: 999 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	Variable: X Timeout: 999 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

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