HLUCM ;CIOFO-O/LJA - HL7/Capacity Mgt API ;09/13/04 14:01
Source file <HLUCM.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
CM(START,END,PNMSP,IEN101,TOTALS,COND,ERRINFO) | ; Capacity management totals
|
|
CMF(START,END,PNMSP,IEN101,TOTALS,COND,ERRINFO) | ; Collect Remote Facility data - SYNC
|
|
CM2(START,END,PNMSP,IEN101,TOTALS,COND,ERRINFO) | ; Capacity management totals
|
|
CM2F(START,END,PNMSP,IEN101,TOTALS,COND,ERRINFO) | ; Collect Remote Facility data - SYNC
|
|
LOOP() | ; Loop thru 772's .01... (Called from LOOP^HLUCM)
|
|
CMDBD | ; Create $$CM debug data...
; HLAPI,START,END -- req |
|
UPTOT | ; Up the totals...
; TOT,TOT(SUB) -- req |
|
PP(IEN772) | ; Get store value for NMSP and PROT...
|
|
LOAD | ; Load data (Called by $$CM, $$CM2, and all other APIs)
; START,END -- req |
|
TOTALCM | ; Loop, total for $$CM...
; HLAPI -- req |
|
COLLSYNC(IEN772,START,END) | ; Does entry fall in START/END range?
|
|
OK772(IEN772) | ; Valid entry?
|
|
COLLECT(PAR,IEN772) | ; Collect 772 data and associated 773 data...
|
|
TOT772C(IEN772) | ; Total number of characters in message...
|
|
TOT772T(IEN772) | ; Processing time...
; No totals here. Just set times in DATA() array for later use... |
|
TOT773C(IEN773) | ; Total number of characters...
; DATA() -- passed in (See COLLECT) |
|
MSGSIZE(IEN773) | ; Number characters in 773 entry...
|
|
TOT773T(IEN773) | ; Set TIMEs...
; DATA() -- passed in (See COLLECT) |
|
ERR(REA) | ; Record error...
|
|
SEC(FMDT) | ;
|
|
TMDIFF | ; DATA("TIME",...) -- req --> DATA("DIFF")
|
|
XTMP | ; Store in ^XTMP...
; API Parameters -- req |
|
EOR | ; HLUCM - HL7/Capacity Mgt API ;2/27/01 10:15
|