HLUCM003 ;CIOFO-O/LJA - HL7/Capacity Mgt API-II ;10/23/01 12:01
Source file <HLUCM003.m>
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
|