EDPX ;SLC/KCM - Common Utilities ;6/8/12 12:09pm
Source file <EDPX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ESC(X) | ; Escape for XML transmission
; Q $ZCONVERT(X,"O","HTML") ; uncomment for fastest performance on Cache |
|
| UES(X) | ; Unescape XML
|
|
| UESREQ(REQ) | ; Unescape HTTP post
|
|
| VAL(X,R) | ; Returns parameter value or null
; HTTP passes HTML-escaped values in an array as REC(param,1) |
|
| NVPARSE(LST,IN) | ; Parses tab delimited name-value pairs into array
|
|
| XMLS(TAG,DATA,LBL) | ; Return XML node as <TAG data="9" label="XXX" />
|
|
| XMLA(TAG,ATT,END) | ; Return XML node as <TAG att1="a" att2="b"... />
|
|
| XMLQA(EDPTAG,EDPATT,EDPEND) | ; Return XML node as <TAG att1="a" att2="b"... />
; tag is built this way to work with most any output array.drp 04122012 patch2 ; tag added with EDP*2.0*2 |
|
| XMLE(SRC) | ; Append list to XML array as elements
|
|
| XML(X) | ; Add a line of XML to be returned
|
|
| XMLG(X,EDPCNT,EDPXML) | ; Add line of XML to global array
|
|
| CODE(X) | ; Return internal value for a code
|
|
| SAVERR(TYP,ERR) | ; Output a save error
|
|
| SAVERRG(EDPXML,TYP,ERR) | ;
|
|
| MSG(MSG) | ; Write out error message
|
