Routine: HLUCM004

Package	Total	Call Graph
Kernel	2	ENDR^%ZISS ($$CJ,$$REPEAT)^XLFSTR

Package	Total	Caller Graph
Health Level Seven	1	HLUCM002

Entry Points

Name	Comments	DBIA/ICR reference
HOLDINCL(DATA,INCL)	; Does DATA hold one of the INCLUDEs?
LOOPU1
EXCL(EXCL)	; What entries to exclude? (Searches PARENT node)
XTMPGBL(SHOW)	; Display XTMP data totals?
INCL(INCL)	; What entries to include? (Searches PARENT node)
OK(IENPAR,RNOMSG,EXCL,INCL)	; Exclude and INcludes..
ASK(TYPE,ENTRY)	; Repeatedly ask...
EOR	; HLUCM004 - HL7/Capacity Mgt API ;3/13/03 09:37
FULL(HL)	; Display one entry in FULL format... ; IOINHI,IOINORM -- req
HOLDEXCL(DATA,EXCL)	; Includes text that should be excluded?
DATA(IEN772)	; Return what is displayed...
SHOWU(IENPAR,VIEW)	; Show one entry in VIEW format...
LOOPU	; Loop thru ^TMP($J,"HLUCMSTORE","U") data. Full-screen view...

External References

Name	Field # of Occurrence
ENDR^%ZISS	LOOPU+2
$$CJ^XLFSTR	LOOPU1+1, LOOPU1+4, LOOPU1+5, LOOPU1+9, FULL+9, FULL+41, XTMPGBL+5
$$REPEAT^XLFSTR	LOOPU1+2, FULL+11, FULL+35, XTMPGBL+5, XTMPGBL+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: @IOF,$$CJ^XLFSTR("Display of ^TMP($J,""HLUCMSTORE"",""U"") Data",IOM) Line Location: LOOPU1+1
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: LOOPU1+2
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR("Type Totals",IOM) Line Location: LOOPU1+4
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR("--------------------------------",IOM) Line Location: LOOPU1+5
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR(TYPE_" "_DATA,IOM) Line Location: LOOPU1+9
Function Call: WRITE	Prompt: !!,"Enter text in messages to include and exclude..." Line Location: LOOPU1+11
Function Call: WRITE	Prompt: ! Line Location: LOOPU1+12
Function Call: WRITE	Prompt: ! Line Location: LOOPU1+14
Function Call: READ	Timeout: 999 Variable: X Line Location: LOOPU1+27
Function Call: WRITE	Prompt: !!,"No data exists..." Line Location: LOOPU1+29
Function Call: WRITE	Prompt: !,"#"_CT_" entries skipped..." Line Location: LOOPU1+33
Function Call: WRITE	Prompt: !!,"Every parent node that includes one of the EXCLUDE values that you enter now" Line Location: EXCL+1
Function Call: WRITE	Prompt: !,"will not be included in the entries displayed." Line Location: EXCL+2
Function Call: WRITE	Prompt: ! Line Location: EXCL+3
Function Call: WRITE	Prompt: !!,"Every parent node that doesn't include one of the INCLUDE values that you" Line Location: INCL+1
Function Call: WRITE	Prompt: !,"enter now will not be included in the entries displayed." Line Location: INCL+2
Function Call: WRITE	Prompt: ! Line Location: INCL+3
Function Call: WRITE	Prompt: !,TYPE,": " Line Location: ASK+3
Function Call: READ	Timeout: 999 Variable: ANS Line Location: ASK+4
Function Call: WRITE	Prompt: @IOF Line Location: FULL+6
Function Call: WRITE	Prompt: !,$$CJ^XLFSTR($E(DATA,1,70),IOM) Line Location: FULL+9
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: FULL+11
Function Call: WRITE	Prompt: !,IEN772,?12,"-",?14 Line Location: FULL+23
Function Call: WRITE	Prompt: DATAP Line Location: FULL+33
Function Call: READ	Timeout: 120 Variable: X Line Location: FULL+34
Function Call: WRITE	Prompt: " ",IOINHI,"<",IOINORM Line Location: FULL+34
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR($S($O(HL(IEN772)):"-",1:"="),IOM) Line Location: FULL+35
Function Call: WRITE	Prompt: $$CJ^XLFSTR(RES_" - "_DATAR,IOM) Line Location: FULL+41
Function Call: WRITE	Prompt: !!,$$CJ^XLFSTR(" XTMP-stored Reports ",IOM),!,$$REPEAT^XLFSTR("=",IOM) Line Location: XTMPGBL+5
Function Call: WRITE	Prompt: !,"#",?4,"Run-time",?20,"API Call" Line Location: XTMPGBL+6
Function Call: WRITE	Prompt: !,$$REPEAT^XLFSTR("=",IOM) Line Location: XTMPGBL+7
Function Call: WRITE	Prompt: !,$E("#"_HOLD_" ",1,4),DATA Line Location: XTMPGBL+29
Function Call: WRITE	Prompt: !!,"You may choose to print the totals report from stored XTMP data if you like." Line Location: XTMPGBL+33
Function Call: WRITE	Prompt: !,"If so, enter the number of the XTMP report from above now. (Otherwise," Line Location: XTMPGBL+34
Function Call: WRITE	Prompt: !,"press RETURN.)" Line Location: XTMPGBL+35
Function Call: READ	Prompt: "Enter XTMP Report#: " Formatting: !! Timeout: 999 Variable: NO Line Location: XTMPGBL+37

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	LOOPU1+7, LOOPU1+8, LOOPU1+22, OK+5, OK+13, OK+21, OK+35, SHOWU+2, DATA+2, DATA+3 , DATA+4
^XTMP(	XTMPGBL+4, XTMPGBL+8, XTMPGBL+10, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+17, XTMPGBL+40

Label References

Name	Line Occurrences
$$DATA	OK+22, OK+36, FULL+19
$$HOLDEXCL	OK+16, OK+23
$$HOLDINCL	OK+31, OK+37
$$OK	LOOPU1+24
ASK	EXCL+4, INCL+4
EXCL	LOOPU1+13
INCL	LOOPU1+15
SHOWU	LOOPU1+26

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
ANS	ASK+1~, ASK+2, ASK+4*, ASK+5, XTMPGBL+1~
API	XTMPGBL+1~, XTMPGBL+17*, XTMPGBL+19
BEG	XTMPGBL+1~, XTMPGBL+9, XTMPGBL+10, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+19
COND	XTMPGBL+1~, XTMPGBL+13, XTMPGBL+14, XTMPGBL+15, XTMPGBL+19
COUNT	FULL+2~, FULL+16, FULL+18, FULL+34
CT	LOOPU+1~, LOOPU1+21, LOOPU1+25, LOOPU1+32, LOOPU1+33*
CT(1	LOOPU1+21, LOOPU1+23, LOOPU1+29, LOOPU1+31, LOOPU1+33
DATA	LOOPU+1~, LOOPU1!, LOOPU1+8, LOOPU1+9, OK+1~, OK+13, OK+16, OK+22, OK+23, OK+31 , OK+36, OK+37, HOLDEXCL~, HOLDEXCL+4, HOLDINCL~, HOLDINCL+4, FULL+2~, FULL+7, FULL+8, FULL+9 , FULL+10, FULL+19, FULL+20, FULL+21, FULL+22, FULL+24, FULL+25, FULL+26, DATA+1~, DATA+4 , DATA+5, DATA+6, XTMPGBL+1~, XTMPGBL+15, XTMPGBL+16, XTMPGBL+17, XTMPGBL+25, XTMPGBL+26*, XTMPGBL+29
DATA4	FULL+2~
DATAN	FULL+2~, FULL+26*, FULL+31
DATAP	FULL+2~, FULL+25, FULL+27, FULL+28, FULL+29, FULL+30, FULL+31, FULL+33
DATAR	FULL+2~, FULL+40*, FULL+41
END	XTMPGBL+1~, XTMPGBL+11, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+19
ENTRY	ASK~
ENTRY(	ASK+5*
EXCL	LOOPU+1~, LOOPU1!, LOOPU1+13, LOOPU1+24, OK~, OK+16, OK+23, EXCL~, EXCL+4, HOLDEXCL~ , HOLDEXCL+2, HOLDEXCL+3, HOLDEXCL+4
EXCL(	HOLDEXCL+3
EXCL(""	OK+19
FAIL	OK+1~
HL	SHOWU+1~, SHOWU+2*, FULL~, FULL+7, FULL+13
HL(	FULL+17, FULL+35, FULL+39, FULL+40
HOLD	HOLDEXCL+1~, HOLDEXCL+2, HOLDEXCL+3, HOLDEXCL+4, HOLDEXCL+5, HOLDINCL+1~, HOLDINCL+2, HOLDINCL+3, HOLDINCL+4, HOLDINCL+5 , XTMPGBL+1~, XTMPGBL+3, XTMPGBL+18, XTMPGBL+19, XTMPGBL+21, XTMPGBL+27, XTMPGBL+28, XTMPGBL+29, XTMPGBL+31
HOLD(	XTMPGBL+19*, XTMPGBL+22, XTMPGBL+24, XTMPGBL+25
HOLD("N"	XTMPGBL+28*, XTMPGBL+37, XTMPGBL+38
HOLDEXCL	OK+1~, OK+20, OK+21, OK+23, OK+25
>> HOLDINCL	OK+34, OK+35, OK+37, OK+39
IEN772	LOOPU+1~, LOOPU1!, OK+1~, OK+4, OK+5, OK+20, OK+21, OK+22, OK+34, OK+35 , OK+36, FULL+2~, FULL+16, FULL+17, FULL+19, FULL+23, FULL+35, DATA~, DATA+2, DATA+3 , DATA+4
IENPAR	LOOPU+1~, LOOPU1!, LOOPU1+21, LOOPU1+22, LOOPU1+24, LOOPU1+26, OK~, OK+5, OK+13, OK+21 , OK+35, SHOWU~, SHOWU+2, DATA+1~, DATA+2*, DATA+3, DATA+4
INCL	LOOPU+1~, LOOPU1!, LOOPU1+15, LOOPU1+24, OK~, OK+31, OK+37, INCL~, INCL+4, HOLDINCL~ , HOLDINCL+2, HOLDINCL+3, HOLDINCL+4
INCL(	HOLDINCL+3
INCL(""	OK+28
IOF	LOOPU1+1, FULL+6
IOINHI	LOOPU+1~, FULL+20, FULL+29, FULL+34
IOINORM	LOOPU+1~, FULL+20, FULL+29, FULL+34
IOM	LOOPU1+1, LOOPU1+2, LOOPU1+4, LOOPU1+5, LOOPU1+9, FULL+9, FULL+11, FULL+32, FULL+35, FULL+41 , XTMPGBL+5, XTMPGBL+7
L	FULL+2~, FULL+20*
LEN	FULL+2~, FULL+28, FULL+30, FULL+32
NO	XTMPGBL+1~, XTMPGBL+23, XTMPGBL+24, XTMPGBL+25, XTMPGBL+37*, XTMPGBL+38
NUM	OK+1~, OK+4, OK+6, OK+9, OK+10
PNO	FULL+3~, FULL+24*, FULL+25, FULL+26
PROTC	FULL+3~, FULL+21*, FULL+22
PROTP	FULL+3~, FULL+13*, FULL+22
RES	FULL+3~, FULL+38, FULL+39, FULL+40, FULL+41, DATA+1~, DATA+3*, DATA+4
RNOMSG	LOOPU+1~, LOOPU1!, LOOPU1+17, LOOPU1+18, LOOPU1+19, LOOPU1+24, OK~, OK+9, OK+10
RUN	XTMPGBL+1~
RUN(	XTMPGBL+20*
SHOW	XTMPGBL~, XTMPGBL+3*
STOP	LOOPU+1~, LOOPU1!, LOOPU1+21, LOOPU1+22, LOOPU1+27, FULL+3~, FULL+16, FULL+17, FULL+34
SVNO	XTMPGBL+1~, XTMPGBL+16, XTMPGBL+17, XTMPGBL+19, XTMPGBL+20, XTMPGBL+26, XTMPGBL+28, XTMPGBL+38*, XTMPGBL+40
TIME	XTMPGBL+1~, XTMPGBL+16, XTMPGBL+19, XTMPGBL+21, XTMPGBL+22*, XTMPGBL+24, XTMPGBL+25
TYPE	LOOPU+1~, LOOPU1!, LOOPU1+6, LOOPU1+7, LOOPU1+8, LOOPU1+9, ASK~, ASK+3
U	LOOPU1+27, ASK+4, FULL+13, FULL+21, FULL+22, FULL+24, FULL+25, FULL+26, FULL+31, FULL+34 , XTMPGBL+16, XTMPGBL+17, XTMPGBL+19, XTMPGBL+25, XTMPGBL+26, XTMPGBL+28, XTMPGBL+38
VIEW	SHOWU~, SHOWU+3
X	LOOPU+1~, LOOPU+2, LOOPU1+27, SHOWU+1~, SHOWU+3, FULL+20, FULL+34*
XTMP	XTMPGBL+1~, XTMPGBL+3, XTMPGBL+4, XTMPGBL+8, XTMPGBL+10, XTMPGBL+12, XTMPGBL+14, XTMPGBL+15, XTMPGBL+17, XTMPGBL+19 , XTMPGBL+20, XTMPGBL+25, XTMPGBL+28, XTMPGBL+38, XTMPGBL+40

Customize PDF page

Package: Health Level Seven

Routine: HLUCM004

Information

Source Information

Call Graph

Call Graph Total: 2

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: