Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All
Print Page as PDF
Routine: HLUCM090

Package: Health Level Seven

Routine: HLUCM090


Information

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

Source Information

Source file <HLUCM090.m>

Call Graph

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

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables |  Marked Items |  All