Routine: HLUCM003

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Package	Total	Call Graph
Health Level Seven	5	ERR^HLUCM ($$OKPAR101,$$REFPCKG,$$REFPROT)^HLUCM001 ($$OK0CALL,$$OKPAR)^HLUCM002 $$FIXNMSP^HLUCM003 $$NMSPCHG^HLUCM050
Kernel	1	$$FMDIFF^XLFDT
MailMan	1	REC^XMS3

Package

Total

Call Graph

Health Level Seven

ERR^HLUCM ($$OKPAR101,$$REFPCKG,$$REFPROT)^HLUCM001 ($$OK0CALL,$$OKPAR)^HLUCM002 $$FIXNMSP^HLUCM003 $$NMSPCHG^HLUCM050

Kernel

$$FMDIFF^XLFDT

MailMan

REC^XMS3

Package	Total	Caller Graph
Health Level Seven	5	HLUCM HLUCM002 HLUCM003 HLUCM009 HLUCM050

Package

Total

Caller Graph

Health Level Seven

HLUCM HLUCM002 HLUCM003 HLUCM009 HLUCM050

Entry Points

Name	Comments	DBIA/ICR reference
PCKGMSH(MSH,INOUT)	; Extract PCKG namespace from MSH segment
RECNM(PFX,IEN772,FULLNM,REPNM,SRCE)	; Record where name found... ; PFX - [n] for namespace, and [p] for protocol ; IEN772 - IEN of 772 ; FULLNM - What is in entry itself, uninferred... ; REPNM - What is to be reported ; SRCE - Where it was inferred from
CORRECT(PAR,CHLDIEN,PCE,NEW)	; Change CHILD data...
MSH773(IEN772)	; Get PCKG from MSH segment in 773...
MSHMAIL(IEN772)	;
ADJPAR(IENPAR)	; Adjust times for one unit...
ERRCHK	; Error checks...
INOUT(IEN772)	;
CTPROT(PROT)	; Should entry be counted on basis of protocol? ; (Might be countable if package matches remember.) ; IEN,PROTYPE -- req
EOR	; HLUCM003 - HL7/Capacity Mgt API-II ;10/23/01 12:01
ADJTIME	; Adjust ^TMP times on basis of unit...
FIXNMSP(PCKG,I772)	; First space piece, strip _
SETMORE	; More defaults... ; ; Check format of PNMSP... ; If not passed by reference...
CTPCKG(PCKG)	; Should entry be counted on basis of package? ; (Might be countable if protocol matches remember.) ; If list of packages passed by reference, is PCKG in array? ; IEN101,NMSPTYPE,PNMSP -- req
MSH772(IEN772)	; Get PCKG from MSH segment in 772... ; Call here ONLY if can't get MSH segment from 773...

External References

Name	Field # of Occurrence
ERR^HLUCM	ERRCHK+4, ERRCHK+5, ERRCHK+9, ERRCHK+18, SETMORE+7, SETMORE+14, SETMORE+18
$$OKPAR101^HLUCM001	SETMORE+15
$$REFPCKG^HLUCM001	CTPCKG+10
$$REFPROT^HLUCM001	CTPROT+10
$$OK0CALL^HLUCM002	CTPCKG+13, CTPROT+14
$$OKPAR^HLUCM002	SETMORE+6, SETMORE+13
$$FIXNMSP^HLUCM003	PCKGMSH+4
$$NMSPCHG^HLUCM050	FIXNMSP+11
$$FMDIFF^XLFDT	CORRECT+11
REC^XMS3	MSHMAIL+8

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^HL(772 - [#772]	MSHMAIL+2, MSHMAIL+3, MSH772+5, MSH772+7, INOUT+2, FIXNMSP+8
^HLMA - [#773]	MSH773+4, FIXNMSP+7
^HLMA("B"	MSH773+2, FIXNMSP+6
^TMP($J	ADJTIME+3, ADJPAR+4, ADJPAR+12, ADJPAR+13, ADJPAR+20, ADJPAR+22, ADJPAR+27, ADJPAR+28, CORRECT+4, CORRECT+15* , RECNM+7, RECNM+11, RECNM+12, RECNM+13, RECNM+14

Name	Line Occurrences
$$INOUT	MSH772+4, MSH773+3
$$PCKGMSH	MSHMAIL+11, MSH772+10, MSH773+6, MSH773+11
ADJPAR	ADJTIME+4
CORRECT	ADJPAR+21, ADJPAR+23, ADJPAR+35, ADJPAR+39, ADJPAR+43
RECNM	MSHMAIL+12, MSH772+11, MSH773+13

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
APPR	FIXNMSP+1~, FIXNMSP+9*
APPS	FIXNMSP+1~, FIXNMSP+9*
BEG	ADJPAR+1~, ADJPAR+17, ADJPAR+21, CORRECT+1~, CORRECT+10, CORRECT+11
CHILD	CORRECT+1~, CORRECT+7, CORRECT+10, CORRECT+12
CHLDIEN	CORRECT~, CORRECT+4, CORRECT+15
>> COND	ERRCHK+13
CT	MSHMAIL+1~, MSHMAIL+5, MSHMAIL+6, MSHMAIL+7, MSH772+2~, MSH772+3, MSH772+5, MSH772+6
CTPCKG	CTPCKG+4~
CTPROT	CTPROT+4~
DATA	ADJPAR+1~, ADJPAR+13, ADJPAR+14, ADJPAR+15, ADJPAR+28, ADJPAR+29
DEL	PCKGMSH+1~, PCKGMSH+2*, PCKGMSH+3
DIFF	CORRECT+1~, CORRECT+11*, CORRECT+12
END	ADJPAR+1~, ADJPAR+17, ADJPAR+23, CORRECT+1~, CORRECT+10, CORRECT+11, ERRCHK+3*, ERRCHK+5, ERRCHK+8
>> ERRINFO("INVA	LID END TIME" , ERRCHK+7, LID PROTOCOL PARAMETER" , SETMORE+16, LID START TIME" , ERRCHK+6
FACR	FIXNMSP+1~, FIXNMSP+9*
FACS	FIXNMSP+1~, FIXNMSP+9*
FULLNM	RECNM~, RECNM+14
>> HLCHILD	CORRECT+4*, CORRECT+15
I772	FIXNMSP~, FIXNMSP+3*, FIXNMSP+6, FIXNMSP+8
I773	FIXNMSP+1~, FIXNMSP+6*, FIXNMSP+7
>> IEN101	ERRCHK+16, SETMORE+13, SETMORE+15*, SETMORE+17, CTPROT+7, CTPROT+14, CTPROT+17
IEN772	ADJPAR+1~, ADJPAR+3, ADJPAR+4, ADJPAR+11, ADJPAR+12, ADJPAR+13, ADJPAR+20, ADJPAR+21, ADJPAR+22, ADJPAR+23 , ADJPAR+26, ADJPAR+27, ADJPAR+28, ADJPAR+35, ADJPAR+39, ADJPAR+43, RECNM~, RECNM+14, MSHMAIL~, MSHMAIL+2 , MSHMAIL+3, MSHMAIL+12, MSH772~, MSH772+4, MSH772+5, MSH772+7, MSH772+11, MSH773~, MSH773+2, MSH773+3 , MSH773+13, INOUT~, INOUT+2
IEN773	MSH773+1~, MSH773+2*, MSH773+4
IENPAR	ADJTIME+1~, ADJTIME+2, ADJTIME+3, ADJTIME+4, ADJPAR~, ADJPAR+4, ADJPAR+12, ADJPAR+20, ADJPAR+21, ADJPAR+22 , ADJPAR+23, ADJPAR+27, ADJPAR+35, ADJPAR+39, ADJPAR+43
IN	MSH772+2~, MSH772+3, MSH772+5, MSH772+7
INOUT	MSHMAIL+1~, MSHMAIL+3, MSHMAIL+4, MSHMAIL+10, MSHMAIL+11, MSH772+2~, MSH772+4, MSH772+9, MSH772+10, MSH773+1~ , MSH773+3, MSH773+5, MSH773+6, MSH773+9, MSH773+10, MSH773+11, INOUT+1~, INOUT+2, INOUT+3, INOUT+4 , PCKGMSH~, PCKGMSH+2, PCKGMSH+3
MIEN	MSHMAIL+1~, MSHMAIL+2*, MSHMAIL+5
MSH	MSH773+1~, MSH773+4, MSH773+5, MSH773+6, MSH773+10, MSH773+11, PCKGMSH~, PCKGMSH+2, PCKGMSH+3, FIXNMSP+1~ , FIXNMSP+7, FIXNMSP+8*, FIXNMSP+9
NEW	CORRECT~, CORRECT+4, CORRECT+7
NIEN	MSHMAIL+1~
NMSP	MSH773+8~, MSH773+9*, MSH773+12
>> NMSPTYPE	SETMORE+4, CTPCKG+10
NUM	ADJPAR+1~, ADJPAR+3, ADJPAR+5, ADJPAR+8
P1	ERRCHK+14~, ERRCHK+15*, ERRCHK+17
P2	ERRCHK+14~, ERRCHK+16*, ERRCHK+17
P3	ERRCHK+14~, ERRCHK+17*
PAR	CORRECT~
PCE	CORRECT~, CORRECT+4, CORRECT+7
PCKG	MSHMAIL+1~, MSHMAIL+5, MSHMAIL+6, MSHMAIL+11, MSHMAIL+12, MSHMAIL+13, MSH772+2~, MSH772+3, MSH772+5, MSH772+10 , MSH772+11, MSH772+12, MSH773+1~, MSH773+6, MSH773+7, MSH773+9, MSH773+11, MSH773+12, MSH773+13, MSH773+14 , FIXNMSP~, FIXNMSP+11, FIXNMSP+13, CTPCKG~, CTPCKG+10, CTPCKG+13, CTPCKG+14*
PFROM	PCKGMSH+1~, PCKGMSH+3*, PCKGMSH+4
PFX	RECNM~, RECNM+9
>> PNMSP	ERRCHK+15, SETMORE+6, CTPCKG+7, CTPCKG+13, CTPCKG+14
PREVTM	ADJPAR+1~, ADJPAR+26, ADJPAR+32, ADJPAR+33, ADJPAR+36, ADJPAR+38, ADJPAR+39, ADJPAR+40, ADJPAR+46
PROT	CTPROT~, CTPROT+10, CTPROT+14, CTPROT+16, CTPROT+18*
>> PROTYPE	SETMORE+11, CTPROT+10
RECNM	MSHMAIL+1~, MSHMAIL+10, MSHMAIL+12, MSH772+2~, MSH772+9, MSH772+11, MSH773+1~, MSH773+5, MSH773+10, MSH773+13
REPNM	RECNM~, RECNM+9*, RECNM+12, RECNM+13, RECNM+14
SEC	CORRECT+1~
SRCE	RECNM~, RECNM+13, RECNM+14
>> START	ERRCHK+3*, ERRCHK+4, ERRCHK+8
STORE	CORRECT+1~
TIME	ADJPAR+1~
TIME(	ADJPAR+14, ADJPAR+15
TIME(":"	ADJPAR+17
TIME(0	ADJPAR+17
TIME(1	ADJPAR+29, ADJPAR+33, ADJPAR+35, ADJPAR+36, ADJPAR+38, ADJPAR+40, ADJPAR+42, ADJPAR+43, ADJPAR+44
TIME(2	ADJPAR+29, ADJPAR+33, ADJPAR+42, ADJPAR+44, ADJPAR+46
TXT	MSHMAIL+1~, MSHMAIL+6, MSHMAIL+9, MSHMAIL+10, MSHMAIL+11, MSH772+2~, MSH772+7, MSH772+8, MSH772+9, MSH772+10
U	ADJPAR+14, ADJPAR+15, ADJPAR+29, CORRECT+4, CORRECT+7, CORRECT+10, CORRECT+12, MSHMAIL+2, MSHMAIL+3, INOUT+2 , CTPCKG+14, CTPROT+17
VAL	CTPROT+15~, CTPROT+17*, CTPROT+18
X	ADJPAR+14, ADJPAR+15, MSHMAIL+1~, MSHMAIL+10, MSH772+2~, MSH772+9, MSH773+1~, MSH773+5, MSH773+10, FIXNMSP+8* , FIXNMSP+9*
XMER	MSHMAIL+1~, MSHMAIL+5*, MSHMAIL+6
XMPOS	MSHMAIL+1~
XMRG	MSHMAIL+1~, MSHMAIL+9
XMZ	MSHMAIL+1~, MSHMAIL+5*

Customize PDF page

Package: Health Level Seven

Routine: HLUCM003

Information

Source Information