HMPUTILS ;SLC/AGP,ASMR/ASF,JC-HMP utilities ;Jan 20, 2017 17:18:18
Source file <HMPUTILS.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHKSP(HMPFHMP) | ; ^XTMP check before patient subscription starts to cache *BEGIN*S68-PJH
; HMPFHMP - server name |
|
| SETERROR(RESULT,ERROR,EXTERROR,DATA) | ; -- error text for JSON
|
|
| SETERRTX(TEMP,ERROR) | ; concatenate errors from ERROR array, put CR, LF between them
|
|
| SETTEXT(X,VALUE) | ; -- format word processing text
|
|
| SPLITVAL(NODE,ARRAY) | ; -- split a value into a list
|
|
| SETPROV(NODE,PROV) | ; -- providers
|
|
| SETUID(DOMAIN,PAT,ID,ADDDATA) | ; function, UID string
|
|
| SETFCURN(DOMAIN,FACILITY,VALUE) | ; function, create facility URN
|
|
| SETVURN(DOMAIN,VALUE) | ; function, create VA urn
|
|
| SYS(NAME) | ; -- return hashed system name from HMP SYSTEM NAME parameter, or calculate from NAME parameter if it exists
; DE4463 4/22/2016 CK - changed HMP routines to all call this function ; SYS^HMPUTILS returns a 4 digit hashed site, padded with leading zeros |
|
| SETNCS(CODESET,VALUE) | ; -- create national codeset URN
|
|
| JSONDT(X) | ; function, convert FileMan date-time to HL7 date-time for JSON
|
|
| FACILITY(X,Y) | ; -- add facility info to array for JSON
; X=STATION NUMBER^STATION NAME ; Y=Variable array name ; >D FACILITY^HMPUTILS("500^CAMP MASTER","LAB") |
|
| VERSRV() | ||
| VERCMP(CUR,VAL) | ; Returns 1 if CUR<VAL, -1 if CUR>VAL, 0 if equal
|
|
| WDWH() | ; What kind of data exist?, DE6644, 7 September 2016
; HMPA = loop counter ; HMPB = node information ; HMPOPD = 1 if operational data exists, 0 otherwise ; HMPPAT = 1 if patient data exist, 0 otherwise ; HMPRET = return variable - 0 if no data exist ; 1 if ONLY patient data exist ; 2 if ONLY operational data exist ; 3 if BOTH patient and operational data exist |
|
| NODATA(A) | ; boolean function, is there any patient data for stream in A?; JD - 2/23/15
; Returns 1 if there is no patient data, 0 Otherwise, DE6644, 7 September 2016 ; HMPA = Loop counter ; HMPF = Flag indicating data found |
|
| GETSIZE(HMPMODE,HMPSRVN) | ; function, returns aggregate extract size for extracts waiting to be sent to HMP servers
; returns: total size ^ object count ; HMPMODE = estimate - use estimated domain average sizes (default) ; actual - walk though object nodes to calculate using $LENGTH ; HMPSRVN = name of HMP server [optional - defaults to all HMP servers] ; DE7401, move function here, 20 January 2017 ; loop through extracts for server(s) |
|
| WALK(BATCH,TASK,DOMAIN) | ; function, walk through domain objects in task to get actual size
|
|
| GETMAX() | ; function, return the max allowable aggregate extract size in bytes
|
| FileNo | Call Tags |
|---|---|
| ^DIC(19 - [#19] | FIND^DIC |
