Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: HMPUTILS

Package: Enterprise Health Management Platform

Routine: HMPUTILS


Information

HMPUTILS ;SLC/AGP,ASMR/ASF,JC-HMP utilities ;Jan 20, 2017 17:18:18

Source Information

Source file <HMPUTILS.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(19 - [#19] FIND^DIC
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call