VPRUTILS ;SLC/AGP -- VPR utilities routine ;8/14/13 11:22
Source file <VPRUTILS.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
SETERROR(RESULT,ERROR,EXTERROR,DATA) | ; -- error text for JSON
|
|
SETERRTX(TEMP,ERROR) | ;
|
|
SETTEXT(X,VALUE) | ; -- format word processing
|
|
SPLITVAL(NODE,ARRAY) | ; -- split a value into a list
|
|
SETPROV(NODE,PROV) | ; -- providers
|
|
SETUID(DOMAIN,PAT,ID,ADDDATA) | ; -- create uid string
|
|
SETFCURN(DOMAIN,FACILITY,VALUE) | ; -- create facility urn
|
|
SETVURN(DOMAIN,VALUE) | ; -- create VA urn
|
|
SYS() | ; -- return hashed system name
|
|
SETNCS(CODESET,VALUE) | ; -- create national codeset urn
|
|
JSONDT(X) | ; -- convert FileMan DT to HL7 DT for JSON
|
|
FACILITY(X,Y) | ; -- add facility info to array for JSON
; X=STATION NUMBER^STATION NAME ; Y=Variable array name ; >D FACILITY^VPRUTILS("500^CAMP MASTER","LAB") |