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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: HLUCM003

Package: Health Level Seven

Routine: HLUCM003


Information

HLUCM003 ;CIOFO-O/LJA - HL7/Capacity Mgt API-II ;10/23/01 12:01 [ 12/23/2003 3:49 PM ]

Source Information

Source file <HLUCM003.m>

Call Graph

Call Graph Total: 7

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  

Caller Graph

Caller Graph Total: 5

Package Total Caller Graph
Health Level Seven 5 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*

Label References

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*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables |  All