Routine: HLUCM003

Information

HLUCM003 ;CIOFO-O/LJA - HL7/Capacity Mgt API-II ;10/23/01 12:01

Name	Comments	DBIA/ICR reference
ADJTIME	; Adjust ^TMP times on basis of unit...
ADJPAR(IENPAR)	; Adjust times for one unit...
CORRECT(PAR,CHLDIEN,PCE,NEW)	; Change CHILD data...
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
MSHMAIL(IEN772)	;
MSH772(IEN772)	; Get PCKG from MSH segment in 772... ; Call here ONLY if can't get MSH segment from 773...
MSH773(IEN772)	; Get PCKG from MSH segment in 773...
INOUT(IEN772)	;
PCKGMSH(MSH,INOUT)	; Extract PCKG namespace from MSH segment
ERRCHK	; Error checks...
SETMORE	; More defaults... ; ; Check format of PNMSP... ; If not passed by reference...
FIXNMSP(PCKG,I772)	; First space piece, strip _
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
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