Routine: HMPUTILS

Package	Total	Call Graph
Kernel	5	$$CRC16^XLFCRC $$FMADD^XLFDT $$UP^XLFSTR $$BASE^XLFUTL $$KSP^XUPARAM
Enterprise Health Management Platform	4	$$GETSECS^HMPDJFSP STATUS^HMPMETA $$FMTHL7^HMPSTMP $$SYS^HMPUTILS
Toolkit	1	($$GET,GETLST)^XPAR
VA FileMan	1	FIND^DIC

Package	Total	Caller Graph
Enterprise Health Management Platform	51	HMPAT HMPCAC HMPCORD4 HMPCORD5 HMPCRPC1 HMPDCRC HMPDJ HMPDJ00 HMPDJ01 HMPDJ02 HMPDJ03 HMPDJ04 HMPDJ04A HMPDJ04E HMPDJ05 HMPDJ05V HMPDJ06 HMPDJ07 HMPDJ08 HMPDJ09 HMPDJ09M HMPDJ1 HMPDJ2 HMPDJFS HMPDJFSG HMPDJFSP HMPDJFSQ HMPDJX HMPEASU HMPEF HMPEF1 HMPELAB HMPFPTC HMPHTTP HMPMETA HMPMON HMPMONX HMPPARAM HMPPTRPC HMPPXRM HMPROS8 HMPSTMP HMPTFU2 HMPUTIL1 HMPUTIL2 HMPUTILS HMPWB1 HMPWB2 HMPWB5 HMPWBIM1 HMPYCSO

Entry Points

Name	Comments	DBIA/ICR reference
CHKSP(HMPFHMP)	; ^XTMP check before patient subscription starts to cache BEGINS68-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

External References

Name	Field # of Occurrence
FIND^DIC	VERSRV+2
$$GETSECS^HMPDJFSP	CHKSP+5
STATUS^HMPMETA	CHKSP+4, CHKSP+5
$$FMTHL7^HMPSTMP	JSONDT+7
$$SYS^HMPUTILS	SETUID+2
$$CRC16^XLFCRC	SYS+7
$$FMADD^XLFDT	SETERROR+3, JSONDT+6
$$UP^XLFSTR	VERSRV+4
$$BASE^XLFUTL	SYS+7
$$GET^XPAR	SYS+4, GETMAX+2
GETLST^XPAR	GETSIZE+10
$$KSP^XUPARAM	SYS+5

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DIC(19 - [#19]	FIND^DIC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	SETERROR+3, SETERROR+5, WDWH+12, NODATA+6, GETSIZE+13, GETSIZE+14, GETSIZE+15, WALK+3, WALK+4

Label References

Name	Line Occurrences
$$GETMAX	CHKSP+4
$$GETSIZE	CHKSP+4
$$SETUID	SETPROV+1
$$SETVURN	SPLITVAL+5
$$SYS	SYS+5
$$WALK	GETSIZE+17
SETERRTX	SETERROR+6, SETERROR+8

Naked Globals

Name	Field # of Occurrence
^(	WALK+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	NODATA~, NODATA+6
ADDDATA	SETUID~, SETUID+4
ARRAY	SPLITVAL~
ARRAY(	SPLITVAL+2, SPLITVAL+3, SPLITVAL+5, SPLITVAL+6*
BATCH	GETSIZE+7~, GETSIZE+12, GETSIZE+13, GETSIZE+14, GETSIZE+15, GETSIZE+17, WALK~, WALK+3, WALK+4
CNT	SETERROR+1~, SETERRTX+1, SETERRTX+2, SPLITVAL+1~, SPLITVAL+3*, SPLITVAL+4
CODESET	SETNCS~, SETNCS+1
CUR	VERCMP~, VERCMP+2
CURMAJOR	VERCMP+1~, VERCMP+2*, VERCMP+8
CURMINOR	VERCMP+1~, VERCMP+2, VERCMP+5, VERCMP+7*, VERCMP+9
CURSNAP	VERCMP+1~, VERCMP+2*, VERCMP+10
DATA	SETERROR~, SETERROR+5
DOMAIN	SETUID~, SETUID+3, SETFCURN~, SETFCURN+1, SETVURN~, SETVURN+1, GETSIZE+7~, GETSIZE+14*, GETSIZE+15, GETSIZE+16 , GETSIZE+17, WALK~, WALK+3, WALK+4
DT	SETERROR+3
ERROR	SETERROR~, SETERROR+6, SETERRTX~
ERROR(	SETERRTX+2
EXTERROR	SETERROR~, SETERROR+8
FACILITY	SETFCURN~, SETFCURN+1
FIELD	SPLITVAL+1~, SPLITVAL+5*
FIRST	SETTEXT+1~, SETTEXT+2*
HL7DT	JSONDT+1~, JSONDT+7, JSONDT+8, JSONDT+9
HMPA	WDWH+9~, WDWH+10, WDWH+12, WDWH+13, NODATA+4~, NODATA+5, NODATA+6
HMPB	WDWH+9~, WDWH+13*, WDWH+14
HMPF	NODATA+4~, NODATA+5, NODATA+6, NODATA+7
HMPFHMP	CHKSP~, CHKSP+4, CHKSP+5
HMPLIM	GETMAX+2~*, GETMAX+3
HMPLST	VERSRV+1~
HMPLST("DILIST"	VERSRV+3
HMPMODE	GETSIZE~, GETSIZE+8, GETSIZE+9, GETSIZE+10, GETSIZE+16
>> HMPOD	WDWH+12
HMPOK	CHKSP+2~, CHKSP+3, CHKSP+4, CHKSP+5
HMPOPD	WDWH+9~, WDWH+10, WDWH+13, WDWH+15, WDWH+16, WDWH+17
HMPPAT	WDWH+9~, WDWH+10, WDWH+12, WDWH+14, WDWH+15, WDWH+16, WDWH+17
HMPRET	WDWH+9~, WDWH+10, WDWH+15, WDWH+16, WDWH+17, WDWH+18
HMPSRVN	GETSIZE~, GETSIZE+12
>> HMPSYS	SETUID+2
HMPTEMP	SETERROR+1~, SETERROR+2*, SETERROR+3, SETERROR+5, SETERROR+7
I	SETTEXT+1~, SETTEXT+3*, SETTEXT+4, SETTEXT+6
ID	SETUID~, SETUID+3
L	GETSIZE+7~, GETSIZE+12*, GETSIZE+13
LINE	SETTEXT+1~, SETTEXT+4*, SETTEXT+6
NAME	SPLITVAL+1~, SPLITVAL+2*, SPLITVAL+3, SPLITVAL+5, SPLITVAL+6, SYS~, SYS+5, SYS+6, SYS+7
NODE	SPLITVAL~, SPLITVAL+4, SETPROV~, SETPROV+1, WALK+1~, WALK+4*
OBJ	WALK+1~, WALK+2, WALK+3, WALK+4
OBJCNT	GETSIZE+7~, GETSIZE+12, GETSIZE+15, GETSIZE+18
OBJS	GETSIZE+7~, GETSIZE+15*, GETSIZE+16
OBJSIZES	GETSIZE+7~, GETSIZE+10
OBJSIZES(	GETSIZE+16
PAT	SETUID~, SETUID+3
PROV	SETPROV~
PROV("providerName"	SETPROV+1*
PROV("providerUid"	SETPROV+1*
RESULT	SETERROR~, SETUID+1~, SETUID+3, SETUID+4, SETUID+5
RESULT("error"	SETERROR+6, SETERROR+7, SETERROR+8*
RESULT("success"	SETERROR+4*
ROOT	GETSIZE+7~, GETSIZE+12*, GETSIZE+13
SIZE	WALK+1~, WALK+2, WALK+4, WALK+5
SYS	SETUID+1~, SETUID+2, SETUID+3, SYS+3~, SYS+4, SYS+5, SYS+6
T	JSONDT+1~, JSONDT+4*, JSONDT+5, JSONDT+6, JSONDT+8
TASK	GETSIZE+7~, GETSIZE+14*, GETSIZE+15, GETSIZE+17, WALK~, WALK+3, WALK+4
TEMP	SETERROR+1~, SETERROR+6, SETERROR+8, SETERRTX~, SETERRTX+1, SETERRTX+2
TOTAL	GETSIZE+7~, GETSIZE+12, GETSIZE+16, GETSIZE+17*, GETSIZE+18
U	SETERROR+3, SPLITVAL+4, SPLITVAL+5, SETPROV+1, GETSIZE+9
VAL	VERSRV+1~, VERSRV+3*, VERSRV+4, VERCMP~, VERCMP+3
VALMAJOR	VERCMP+1~, VERCMP+3*, VERCMP+8
VALMINOR	VERCMP+1~, VERCMP+3, VERCMP+4, VERCMP+5, VERCMP+6*, VERCMP+9
VALSNAP	VERCMP+1~, VERCMP+3*, VERCMP+10
VALUE	SETTEXT~, SETTEXT+6, SPLITVAL+1~, SPLITVAL+4, SPLITVAL+5, SPLITVAL+6, SETFCURN~, SETFCURN+1, SETVURN~, SETVURN+1 , SETNCS~, SETNCS+1
X	SETTEXT~, SETTEXT+3, SETTEXT+4, JSONDT~, JSONDT+4, JSONDT+5, FACILITY~, FACILITY+5, FACILITY+6
XCNT	SETERROR+1~, SETERROR+5*, SETERROR+7
Y	JSONDT+1~, JSONDT+5, JSONDT+6, JSONDT+7, FACILITY~, FACILITY+5, FACILITY+6

Customize PDF page

Package: Enterprise Health Management Platform

Routine: HMPUTILS

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 51

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: