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
|
