VPRUTILS ;SLC/AGP -- VPR utilities routine ;8/14/13 11:22
Source file <VPRUTILS.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| 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") |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^XTMP( | SETERROR+3*, SETERROR+5* |
| Name | Line Occurrences |
|---|---|
| $$SETUID | SETPROV+1 |
| $$SETVURN | SPLITVAL+5 |
| SETERRTX | SETERROR+6, SETERROR+8 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ADDDATA | SETUID~, SETUID+4 |
| ARRAY | SPLITVAL~ |
| ARRAY( | SPLITVAL+2, SPLITVAL+3, SPLITVAL+5, SPLITVAL+6* |
| CNT | SETERROR+1~, SETERRTX+2*, SETERRTX+3, SPLITVAL+1~, SPLITVAL+3*, SPLITVAL+4 |
| CODESET | SETNCS~, SETNCS+1 |
| D | JSONDT+1~, JSONDT+4*, JSONDT+6 |
| DATA | SETERROR~, SETERROR+5 |
| DATE | JSONDT+1~, JSONDT+2*, JSONDT+3, JSONDT+4, JSONDT+5!, JSONDT+6*, JSONDT+7*, JSONDT+8 |
| DOMAIN | SETUID~, SETUID+3, SETFCURN~, SETFCURN+1, SETVURN~, SETVURN+2 |
| DT | SETERROR+3 |
| ERROR | SETERROR~, SETERROR+6, SETERRTX~ |
| ERROR( | SETERRTX+2, SETERRTX+3 |
| EXTERROR | SETERROR~, SETERROR+8 |
| FACILITY | SETFCURN~, SETFCURN+1 |
| FIELD | SPLITVAL+1~, SPLITVAL+5* |
| FIRST | SETTEXT+1~, SETTEXT+2* |
| I | SETTEXT+1~, SETTEXT+3*, SETTEXT+4, SETTEXT+6 |
| ID | SETUID~, SETUID+3 |
| LINE | SETTEXT+1~, SETTEXT+4*, SETTEXT+6 |
| M | JSONDT+1~, JSONDT+4*, JSONDT+6 |
| NAME | SPLITVAL+1~, SPLITVAL+2*, SPLITVAL+3, SPLITVAL+5, SPLITVAL+6 |
| NODE | SPLITVAL~, SPLITVAL+4, SETPROV~, SETPROV+1, SETPROV+2 |
| PAT | SETUID~, SETUID+3 |
| PROV | SETPROV~ |
| PROV("providerName" | SETPROV+2* |
| PROV("providerUid" | SETPROV+1* |
| RESULT | SETERROR~, SETUID+1~, SETUID+3*, SETUID+4*, SETUID+5, SETVURN+1~*, SETVURN+2*, SETVURN+3 |
| RESULT("error" | SETERROR+6*, SETERROR+7*, SETERROR+8* |
| RESULT("success" | SETERROR+4* |
| SYS | SETUID+1~, SETUID+2*, SETUID+3 |
| TEMP | SETERROR+1~, SETERROR+6, SETERROR+8, SETERRTX~, SETERRTX+1*, SETERRTX+3* |
| TIME | JSONDT+1~, JSONDT+3*, JSONDT+7 |
| U | SETERROR+3, SPLITVAL+4, SPLITVAL+5, SETPROV+2 |
| VALUE | SETTEXT~, SETTEXT+6, SPLITVAL+1~, SPLITVAL+4*, SPLITVAL+5*, SPLITVAL+6, SETFCURN~, SETFCURN+1, SETVURN~, SETVURN+2 , SETNCS~, SETNCS+1 |
| >> VPRSYS | SETUID+2 |
| VPRTEMP | SETERROR+1~, SETERROR+2*, SETERROR+3, SETERROR+5, SETERROR+7 |
| X | SETTEXT~, SETTEXT+3, SETTEXT+4, JSONDT~, JSONDT+2, FACILITY~, FACILITY+5, FACILITY+6 |
| XCNT | SETERROR+1~, SETERROR+5*, SETERROR+7 |
| Y | JSONDT+1~, JSONDT+4*, JSONDT+6, FACILITY~, FACILITY+5, FACILITY+6 |
