EDPX ;SLC/KCM - Common Utilities ;6/8/12 12:09pm
Source file <EDPX.m>
Package | Total | Call Graph |
---|---|---|
Emergency Department Integration Software | 1 | ($$ESC,XML,XMLG)^EDPX |
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
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^EDPB(233.1 - [#233.1] | CODE+1 |
Name | Line Occurrences |
---|---|
$$ESC | XMLS+1, XMLA+4, XMLQA+8, XMLE+3 |
$$UES | UESREQ+4 |
XML | XMLE+4 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ATT | XMLA~ |
ATT( | XMLA+4 |
DATA | XMLS~, XMLS+1 |
EDPATT | XMLQA~ |
EDPCNT | XMLG~, XMLG+1*, XMLG+2, SAVERRG+1 |
EDPEND | XMLQA~, XMLQA+11 |
EDPLNODE | XMLQA+3~, XMLQA+4*, XMLQA+8*, XMLQA+11*, XMLQA+12 |
EDPLSUB | XMLQA+3~, XMLQA+7*, XMLQA+8 |
EDPLX | XMLQA+3~, XMLQA+5*, XMLQA+6, XMLQA+7, XMLQA+8 |
EDPTAG | XMLQA~, XMLQA+4 |
EDPXML | XML+1*, XML+2, XMLG~, XMLG+2, SAVERRG~, SAVERRG+1 |
EDPXML( | XML+2* |
END | XMLA~, XMLA+5 |
ERR | SAVERR~, SAVERR+1, SAVERRG~, SAVERRG+1 |
I | ESC+3~, ESC+4*, ESC+5*, ESC+6*, ESC+7*, ESC+8*, UESREQ+1~, UESREQ+3*, UESREQ+4, NVPARSE+1~ , NVPARSE+3* |
IN | NVPARSE~, NVPARSE+3 |
LBL | XMLS~, XMLS+1 |
LST | NVPARSE~ |
LST( | NVPARSE+3* |
MSG | MSG~, MSG+1, MSG+2, MSG+3, MSG+4, MSG+5, MSG+6, MSG+7, MSG+8, MSG+9 , MSG+10, MSG+11, MSG+12, MSG+13, MSG+14, MSG+15, MSG+16, MSG+17, MSG+18, MSG+19 , MSG+20 |
NM | NVPARSE+1~, NVPARSE+3* |
NODE | XMLA+1~*, XMLA+4*, XMLA+5*, XMLA+6, XMLE+1~, XMLE+3*, XMLE+4 |
QOT | ESC+3~*, ESC+8 |
R | VAL~ |
R( | VAL+2 |
REQ | UESREQ~ |
REQ( | UESREQ+2, UESREQ+3, UESREQ+4* |
SRC | XMLE~ |
SRC( | XMLE+2, XMLE+3 |
TAB | NVPARSE+1~, NVPARSE+2*, NVPARSE+3 |
TAG | XMLS~, XMLS+1, XMLA~, XMLA+1 |
TYP | SAVERR~, SAVERR+1, SAVERRG~, SAVERRG+1 |
VAL | NVPARSE+1~, NVPARSE+3* |
X | ESC~, ESC+4, ESC+5*, ESC+6*, ESC+7*, ESC+8*, UES~, UES+1, UESREQ+1~, UESREQ+2* , UESREQ+3, UESREQ+4, VAL~, VAL+2, NVPARSE+1~, NVPARSE+3*, XMLA+2~, XMLA+4*, XMLE+1~, XMLE+2* , XMLE+3, XML~, XML+2, XMLG~, XMLG+2, CODE~, CODE+1, MSG+1*, MSG+2*, MSG+3* , MSG+4*, MSG+5*, MSG+6*, MSG+7*, MSG+8*, MSG+9*, MSG+10*, MSG+11*, MSG+12*, MSG+13* , MSG+14*, MSG+15*, MSG+16*, MSG+17*, MSG+18*, MSG+19*, MSG+20*, MSG+21 |
Y | ESC+3~, ESC+4*, ESC+5*, ESC+6*, ESC+7*, ESC+8*, ESC+9 |