/_zewdCompiler7.m

http://github.com/robtweed/EWD · Objective C · 1405 lines · 1405 code · 0 blank · 0 comment · 8 complexity · 6121e654da32b99c64f061f4ed4620e7 MD5 · raw file 

    

  1. %zewdCompiler7	; Enterprise Web Developer Compiler Functions
    2. 

  2.  ;
    3. 

  3.  ; Product: Enterprise Web Developer (Build 931)
    4. 

  4.  ; Build Date: Fri, 27 Jul 2012 12:05:04
    5. 

  5.  ; 
    6. 

  6.  ; ----------------------------------------------------------------------------
    7. 

  7.  ; | Enterprise Web Developer for GT.M and m_apache                           |
    8. 

  8.  ; | Copyright (c) 2004-12 M/Gateway Developments Ltd,                        |
    9. 

  9.  ; | Reigate, Surrey UK.                                                      |
    10. 

  10.  ; | All rights reserved.                                                     |
    11. 

  11.  ; |                                                                          |
    12. 

  12.  ; | http://www.mgateway.com                                                  |
    13. 

  13.  ; | Email: rtweed@mgateway.com                                               |
    14. 

  14.  ; |                                                                          |
    15. 

  15.  ; | This program is free software: you can redistribute it and/or modify     |
    16. 

  16.  ; | it under the terms of the GNU Affero General Public License as           |
    17. 

  17.  ; | published by the Free Software Foundation, either version 3 of the       |
    18. 

  18.  ; | License, or (at your option) any later version.                          |
    19. 

  19.  ; |                                                                          |
    20. 

  20.  ; | This program is distributed in the hope that it will be useful,          |
    21. 

  21.  ; | but WITHOUT ANY WARRANTY; without even the implied warranty of           |
    22. 

  22.  ; | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the            |
    23. 

  23.  ; | GNU Affero General Public License for more details.                      |
    24. 

  24.  ; |                                                                          |
    25. 

  25.  ; | You should have received a copy of the GNU Affero General Public License |
    26. 

  26.  ; | along with this program.  If not, see <http://www.gnu.org/licenses/>.    |
    27. 

  27.  ; ----------------------------------------------------------------------------
    28. 

  28.  ;
    29. 

  29.  QUIT
    30. 

  30.  ;
    31. 

  31.  ;
    32. 

  32. eventBroker(allArray,docOID,jsOID,phpHeaderArray,filename,docName,routineName,nextPageList,formDeclaration,technology,mgwsiServer,backend) ;
    33. 

  33. 	;
    34. 

  34. 	; Find all ewd:func() calls
    35. 

  35. 	; 
    36. 

  36. 	; First in onXXX attributes
    37. 

  37. 	; 
    38. 

  38. 	n addJSComment,attr,attrName,attrOID,attrValue,%changed,dlim,docName,eventName,eventNo
    39. 

  39. 	n headOID,i,%id,initialEventNo,jsText,jsTextArray,jsTextOID,language,length,line,method,newText
    40. 

  40. 	n nnmOID,nodeOID,nodeType,%np,ntags,%nvp,OIDArray,olOID,%p1,%p2,%p2a,%p2b,%p3,%p4,%p5
    41. 

  41. 	n page,paramList,tagName,%trace,src,%url,value
    42. 

  42. 	;
    43. 

  43. 	s nodeOID="",eventNo=$o(formDeclaration(""),-1),initialEventNo=eventNo
    44. 

  44. 	f  s nodeOID=$o(allArray(0,nodeOID)) q:nodeOID=""  d
    45. 

  45. 	. s nodeType=$$getNodeType^%zewdDOM(nodeOID)
    46. 

  46. 	. i nodeType'=1 q
    47. 

  47. 	. q:$$hasAttributes^%zewdDOM(nodeOID)="false"
    48. 

  48. 	. s tagName=$$getTagName^%zewdDOM(nodeOID)
    49. 

  49. 	. s nnmOID=$$getAttributes^%zewdCompiler(nodeOID,.attr)
    50. 

  50. 	. s attrName=""
    51. 

  51. 	. f  s attrName=$o(attr(attrName)) q:attrName=""  d
    52. 

  52. 	. . q:$e(attrName,1,2)'="on"
    53. 

  53. 	. . s attrOID=attr(attrName)
    54. 

  54. 	. . s attrValue=$$getValue^%zewdDOM(attrOID)
    55. 

  55. 	. . i $e(attrValue,1,13)="EWD.page.goNextPage" d goNextPage^%zewdCompiler(attrName,attrValue,nodeOID) q
    56. 

  56. 	. . i $$zcvt^%zewdAPI(attrValue,"L")["ewdjump" d  q
    57. 

  57. 	. . . s attrValue=$$convertSubstringCase^%zewdHTMLParser(attrValue,"ewdjump","L")
    58. 

  58. 	. . . s %p1=$p(attrValue,"ewdjump",1)
    59. 

  59. 	. . . s %p2=$p(attrValue,"ewdjump",2)
    60. 

  60. 	. . . s page=$$getAttributeValue^%zewdDOM("page",1,nodeOID)
    61. 

  61. 	. . . s value="EWD.page.goNextPage('"_page_"',<?= $tokens("""_page_""") ?>','<?= sessionArray(""ewd_token"") ?>')"
    62. 

  62. 	. . . s attrValue=%p1_value_%p2
    63. 

  63. 	. . . d setAttribute^%zewdDOM(attrName,attrValue,nodeOID)
    64. 

  64. 	. . . d removeAttribute^%zewdAPI("page",nodeOID)
    65. 

  65. 	. . . s nextPageList(page)=""
    66. 

  66. 	. . q:$e(attrValue,1,4)'="ewd:"
    67. 

  67.     . . d parseEventBrokerCall(attrValue)
    68. 

  68. 	;
    69. 

  69. 	;  Now look in all JavaScript functions
    70. 

  70. 	;  
    71. 

  71. 	s docName=$$getDocumentName^%zewdDOM(docOID)
    72. 

  72. 	s ntags=$$getTagsByName^%zewdCompiler("script",docName,.OIDArray)
    73. 

  73. 	s nodeOID=""
    74. 

  74. 	f  s nodeOID=$o(OIDArray(nodeOID)) q:nodeOID=""  d
    75. 

  75. 	. s language=$$getAttributeValue^%zewdDOM("language",1,nodeOID)
    76. 

  76. 	. i language="" s language="javascript"
    77. 

  77. 	. q:$$zcvt^%zewdAPI(language,"L")'["javascript"
    78. 

  78. 	. s src=$$getAttributeValue^%zewdDOM("src",1,nodeOID)
    79. 

  79. 	. q:src'=""
    80. 

  80. 	. s jsTextOID="" k addJSComment
    81. 

  81. 	. f  s jsTextOID=$$getNextChild^%zewdAPI(nodeOID,jsTextOID) q:jsTextOID=""  d
    82. 

  82. 	. . s jsText=$$getData^%zewdDOM(jsTextOID)
    83. 

  83. 	. . i $g(addJSComment(jsTextOID))=1 s jsText="/*ewd:comment"_jsText,addJSComment=0
    84. 

  84. 	. . ;
    85. 

  85. 	. . ; remove any ewd:comment text from within the JavaScript
    86. 

  86. 	. . ;
    87. 

  87. 	. . s %changed=0
    88. 

  88. 	. . i jsText["*/ewd:comment" d
    89. 

  89. 	. . . s %p1=$p(jsText,"*/ewd:comment",1)
    90. 

  90. 	. . . i %p1'["/*ewd:comment" s jsText=$p(jsText,"*/ewd:comment",2,2000)
    91. 

  91. 	. . f  q:jsText'["/*ewd:comment"  d
    92. 

  92. 	. . . s %p1=$p(jsText,"/*ewd:comment",1)
    93. 

  93. 	. . . s %p2=$p(jsText,"*/ewd:comment",2,2000) i jsText'["*/ewd:comment" s addJSComment($$getNextChild^%zewdAPI(nodeOID,jsTextOID))=1
    94. 

  94. 	. . . i %p1=$c(13,10) s %p1=""
    95. 

  95. 	. . . i %p1=$c(10) s %p1=""
    96. 

  96. 	. . . i $e(%p2,1,2)=$c(13,10) s %p2=$e(%p2,3,$l(%p2))
    97. 

  97. 	. . . i $e(%p2,1)=$c(10) s %p2=$e(%p2,2,$l(%p2))
    98. 

  98. 	. . . s jsText=%p1_%p2
    99. 

  99. 	. . . s %changed=1
    100. 

  100. 	. . i %changed s jsTextOID=$$modifyTextData^%zewdDOM(jsText,jsTextOID)
    101. 

  101. 	. . ;
    102. 

  102. 	. . i $l(jsText)>2000 d
    103. 

  103. 	. . . n dlim,jsText1,jsText2,np,p1,textOID
    104. 

  104. 	. . . s jsText1=$e(jsText,1,2000)
    105. 

  105. 	. . . s jsText2=$e(jsText,(2000+1),$l(jsText))
    106. 

  106. 	. . . i $$os^%zewdHTMLParser()="windows" s dlim=$c(13,10)
    107. 

  107. 	. . . e  s dlim=$c(10)
    108. 

  108. 	. . . s np=$l(jsText2,dlim)
    109. 

  109. 	. . . s p1=$p(jsText2,dlim,1)
    110. 

  110. 	. . . s jsText2=$p(jsText2,dlim,2,np)
    111. 

  111. 	. . . s jsText1=jsText1_p1_dlim
    112. 

  112. 	. . . s jsTextOID=$$modifyTextData^%zewdDOM(jsText1,jsTextOID)
    113. 

  113. 	. . . s textOID=$$createTextNode^%zewdDOM(jsText2,docOID)
    114. 

  114. 	. . . i $$getNextChild^%zewdAPI(nodeOID,jsTextOID)="" d
    115. 

  115. 	. . . . s textOID=$$appendChild^%zewdDOM(textOID,nodeOID)
    116. 

  116. 	. . . e  d
    117. 

  117. 	. . . . n nextChildOID
    118. 

  118. 	. . . . s nextChildOID=$$getNextChild^%zewdAPI(nodeOID,jsTextOID)
    119. 

  119. 	. . . . i $$insertBefore^%zewdDOM(textOID,nextChildOID)
    120. 

  120. 	. . . s jsText=jsText1
    121. 

  121. 	. . ;
    122. 

  122. 	. . f  q:jsText'["ewd:"  d
    123. 

  123. 	. . . k %p1,%p2,%p2a,%p2b,%p3
    124. 

  124. 	. . . s %p1=$p(jsText,"ewd:",1)
    125. 

  125. 	. . . s %p2=$p(jsText,"ewd:",2,2000)
    126. 

  126. 	. . . s %p2a=$p(%p2,"(",1)
    127. 

  127. 	. . . i %p2'["class(" d  ; extrinsic
    128. 

  128. 	. . . . s method=%p2a
    129. 

  129. 	. . . . s %p2b=$p(%p2,"(",2,2000)
    130. 

  130. 	. . . . s paramList=$p(%p2b,")",1)
    131. 

  131. 	. . . . s %p2=$p(%p2b,")",2,2000)
    132. 

  132. 	. . . e  d  ; class method
    133. 

  133. 	. . . . s method=$p(%p2,"(",1,2)
    134. 

  134. 	. . . . i $e(method,1,2)'="##" s method="##"_method
    135. 

  135. 	. . . . s %p2a=$p(%p2,"(",3,2000)
    136. 

  136. 	. . . . s paramList=$p(%p2a,")",1)
    137. 

  137. 	. . . . s %p2=$p(%p2a,")",2,2000)
    138. 

  138. 	. . . s dlim=") ;" i paramList'[") ;",paramList[");" s dlim=");"
    139. 

  139. 	. . . s eventNo=eventNo+1
    140. 

  140. 	. . . s eventName="eventU"_$$zcvt^%zewdAPI($p(filename,".",1),"L")_"U"_eventNo
    141. 

  141. 	. . . d
    142. 

  142. 	. . . . n ebCall,nline,nparams,paramString,pval
    143. 

  143. 	. . . . s nline=$o(phpHeaderArray(2,""),-1)+1
    144. 

  144. 	. . . . s phpHeaderArray(2,nline)=" s ebToken("""_method_""")=$$createEBToken^%zewdGTMRuntime("""_method_""",.sessionArray)"
    145. 

  145. 	. . . . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"scriptCalls",$$zcvt^%zewdAPI(pageName,"l"),method)="eventBroker"
    146. 

  146. 	. . . . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"scriptCalledBy",method,$$zcvt^%zewdAPI(pageName,"l"))="eventBroker"
    147. 

  147. 	. . . . ;
    148. 

  148. 	. . . . s nparams=$length(paramList,",")
    149. 

  149. 	. . . . s paramString=""
    150. 

  150. 	. . . . i paramList'="" d
    151. 

  151. 	. . . . . i nparams>0 for i=1:1:nparams do
    152. 

  152. 	. . . . . . s pval=$p(paramList,",",i)
    153. 

  153. 	. . . . . . i $e(pval,1)="""" d
    154. 

  154. 	. . . . . . . set paramString=paramString_"&px"_i_"="_$$zcvt^%zewdAPI($p(paramList,",",i),"O","URL")
    155. 

  155. 	. . . . . . e  d
    156. 

  156. 	. . . . . . . s paramString=paramString_"&px"_i_"=' + "_pval_" + '"
    157. 

  157. 	. . . . s ebCall="EWD.ajax.makeRequest('#($$getRootURL^%zewdCompiler(""gtm""))#ewdeb/eb.mgwsi?ewd_token=#($$getSessionValue^%zewdAPI(""ewd_token"",sessid))#&eb=#(ebToken("""_method_"""))#"_paramString_"','','synch','','')"
    158. 

  158. 	. . . . s jsText=%p1_ebCall_%p2
    159. 

  159. 	. . . . s jsTextOID=$$modifyTextData^%zewdDOM(jsText,jsTextOID)
    160. 

  160. 	. . ;
    161. 

  161. 	. . ; Now expand any ewd.ajaxRequest functions
    162. 

  162. 	. . ;
    163. 

  163. 	. . k %changed,%id,%np,%nvp,%p1,%p2,%p3,%p4,%trace,%url
    164. 

  164. 	. . ;
    165. 

  165. 	. . s %changed=0
    166. 

  166. 	. . s jsText=$$getData^%zewdDOM(jsTextOID)
    167. 

  167. 	. . f  q:jsText'["ewd.ajaxRequest("  d
    168. 

  168. 	. . . s %p1=$p(jsText,"ewd.ajaxRequest(",1)
    169. 

  169. 	. . . s %p2=$p(jsText,"ewd.ajaxRequest(",2,2000)
    170. 

  170. 	. . . s %p3=$p(%p2,")",1),%p4=$p(%p2,")",2,2000)
    171. 

  171. 	. . . s %np=$p(%p3,",",1)
    172. 

  172. 	. . . s %id=$p(%p3,",",2) i %id="" s %id=""""""
    173. 

  173. 	. . . s %nvp=$p(%p3,",",3)
    174. 

  174. 	. . . s %trace=$p(%p3,",",4)
    175. 

  175. 	. . . s %trace=$$removeQuotes^%zewdAPI(%trace)
    176. 

  176. 	. . . s %trace=$$zcvt^%zewdAPI(%trace,"l")
    177. 

  177. 	. . . i %trace'="",%trace'="alert",%trace'="window" s %trace=""
    178. 

  178. 	. . . i %trace="window" d createTraceDiv^%zewdCompiler16(docName)
    179. 

  179. 	. . . s %np=$$removeQuotes^%zewdAPI(%np)
    180. 

  180. 	. . . s %url=$$expandPageName^%zewdCompiler8(%np,.nextPageList,.urlNameList,technology,.jsParams)
    181. 

  181. 	. . . i %nvp="" d
    182. 

  182. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'get','','"_%trace_"')"
    183. 

  183. 	. . . e  i $e(%nvp,1)="""" d
    184. 

  184. 	. . . . s %url=%url_"&"_$$removeQuotes^%zewdAPI(%nvp)
    185. 

  185. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'get','','"_%trace_"')"
    186. 

  186. 	. . . e  d
    187. 

  187. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"&' + "_%nvp_","_%id_",'get','','"_%trace_"')"
    188. 

  188. 	. . . s jsText=%p1_%p5_%p4
    189. 

  189. 	. . . s %changed=1
    190. 

  190. 	. . f  q:jsText'["ewd.ajaxSynchRequest("  d
    191. 

  191. 	. . . s %p1=$p(jsText,"ewd.ajaxSynchRequest(",1)
    192. 

  192. 	. . . s %p2=$p(jsText,"ewd.ajaxSynchRequest(",2,2000)
    193. 

  193. 	. . . s %p3=$p(%p2,")",1),%p4=$p(%p2,")",2,2000)
    194. 

  194. 	. . . s %np=$p(%p3,",",1)
    195. 

  195. 	. . . s %id=$p(%p3,",",2) i %id="" s %id=""""""
    196. 

  196. 	. . . s %nvp=$p(%p3,",",3)
    197. 

  197. 	. . . s %trace=$p(%p3,",",4)
    198. 

  198. 	. . . s %trace=$$removeQuotes^%zewdAPI(%trace)
    199. 

  199. 	. . . s %trace=$$zcvt^%zewdAPI(%trace,"l")
    200. 

  200. 	. . . i %trace'="",%trace'="alert",%trace'="window" s %trace=""
    201. 

  201. 	. . . i %trace="window" d createTraceDiv^%zewdCompiler16(docName)
    202. 

  202. 	. . . s %np=$$removeQuotes^%zewdAPI(%np)
    203. 

  203. 	. . . ;s %id=$$removeQuotes^%zewdAPI(%id)
    204. 

  204. 	. . . s %url=$$expandPageName^%zewdCompiler8(%np,.nextPageList,.urlNameList,technology,.jsParams)
    205. 

  205. 	. . . i %nvp="" d
    206. 

  206. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'synch','','"_%trace_"')"
    207. 

  207. 	. . . e  i $e(%nvp,1)="""" d
    208. 

  208. 	. . . . s %url=%url_"&"_$$removeQuotes^%zewdAPI(%nvp)
    209. 

  209. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'synch','','"_%trace_"')"
    210. 

  210. 	. . . e  d
    211. 

  211. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"&' + "_%nvp_","_%id_",'synch','','"_%trace_"')"
    212. 

  212. 	. . . s jsText=%p1_%p5_%p4
    213. 

  213. 	. . . s %changed=1
    214. 

  214. 	. . i %changed set jsTextOID=$$modifyTextData^%zewdDOM(jsText,jsTextOID)
    215. 

  215. 	s olOID=$$getTagByNameAndAttr^%zewdCompiler3("span","id","ewdajaxonload",0,docName)
    216. 

  216. 	i olOID'="" d
    217. 

  217. 	. n %changed,%id,lineNo,%np,%nvp,%p1,%p2,%p3,%p4,%p5,textArray,%trace,%url
    218. 

  218. 	. s jsText=$$getElementValueByOID^%zewdDOM(olOID,"jsTextArray",1)
    219. 

  219. 	. i jsText'="***Array***" s jsTextArray(1)=jsText
    220. 

  220. 	. s lineNo=""
    221. 

  221. 	. f  s lineNo=$o(jsTextArray(lineNo)) q:lineNo=""  d
    222. 

  222. 	. . s jsText=jsTextArray(lineNo)
    223. 

  223. 	. . i jsText'["ewd.ajaxRequest",jsText'["ewd.ajaxSynchRequest" q
    224. 

  224. 	. . d removeChildTextNodes^%zewdDOM(olOID)
    225. 

  225. 	. . f  q:jsText'["ewd.ajaxRequest"  d
    226. 

  226. 	. . . s %p1=$p(jsText,"ewd.ajaxRequest(",1)
    227. 

  227. 	. . . s %p2=$p(jsText,"ewd.ajaxRequest(",2,2000)
    228. 

  228. 	. . . s %p3=$p(%p2,")",1),%p4=$p(%p2,")",2,2000)
    229. 

  229. 	. . . s %np=$p(%p3,",",1)
    230. 

  230. 	. . . s %id=$p(%p3,",",2) i %id="" s %id=""""""
    231. 

  231. 	. . . s %nvp=$p(%p3,",",3)
    232. 

  232. 	. . . s %trace=$p(%p3,",",4)
    233. 

  233. 	. . . s %trace=$$zcvt^%zewdAPI(%trace,"l")
    234. 

  234. 	. . . s %trace=$$removeQuotes^%zewdAPI(%trace)
    235. 

  235. 	. . . i %trace'="",%trace'="alert",%trace'="window" s %trace=""
    236. 

  236. 	. . . s %np=$$removeQuotes^%zewdAPI(%np)
    237. 

  237. 	. . . s %url=$$expandPageName^%zewdCompiler8(%np,.nextPageList,.urlNameList,technology,.jsParams)
    238. 

  238. 	. . . i %nvp="" d
    239. 

  239. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'get','','"_%trace_"')"
    240. 

  240. 	. . . e  i $e(%nvp,1)="""" d
    241. 

  241. 	. . . . s %url=%url_"&"_$$removeQuotes^%zewdAPI(%nvp)
    242. 

  242. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'get','','"_%trace_"')"
    243. 

  243. 	. . . e  d
    244. 

  244. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"&' + "_%nvp_","_%id_",'get','','"_%trace_"')"
    245. 

  245. 	. . . s jsText=%p1_%p5_%p4
    246. 

  246. 	. . . s %changed=1
    247. 

  247. 	. . f  q:jsText'["ewd.ajaxSynchRequest"  d
    248. 

  248. 	. . . s %p1=$p(jsText,"ewd.ajaxSynchRequest(",1)
    249. 

  249. 	. . . s %p2=$p(jsText,"ewd.ajaxSynchRequest(",2,2000)
    250. 

  250. 	. . . s %p3=$p(%p2,")",1),%p4=$p(%p2,")",2,2000)
    251. 

  251. 	. . . s %np=$p(%p3,",",1)
    252. 

  252. 	. . . s %id=$p(%p3,",",2) i %id="" s %id=""""""
    253. 

  253. 	. . . s %nvp=$p(%p3,",",3)
    254. 

  254. 	. . . s %trace=$p(%p3,",",4)
    255. 

  255. 	. . . s %trace=$$zcvt^%zewdAPI(%trace,"l")
    256. 

  256. 	. . . s %trace=$$removeQuotes^%zewdAPI(%trace)
    257. 

  257. 	. . . i %trace'="",%trace'="alert",%trace'="window" s %trace=""
    258. 

  258. 	. . . s %np=$$removeQuotes^%zewdAPI(%np)
    259. 

  259. 	. . . s %url=$$expandPageName^%zewdCompiler8(%np,.nextPageList,.urlNameList,technology,.jsParams)
    260. 

  260. 	. . . i %nvp="" d
    261. 

  261. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'synch','','"_%trace_"')"
    262. 

  262. 	. . . e  i $e(%nvp,1)="""" d
    263. 

  263. 	. . . . s %url=%url_"&"_$$removeQuotes^%zewdAPI(%nvp)
    264. 

  264. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"',"_%id_",'synch','','"_%trace_"')"
    265. 

  265. 	. . . e  d
    266. 

  266. 	. . . . s %p5="EWD.ajax.makeRequest('"_%url_"&' + "_%nvp_","_%id_",'synch','','"_%trace_"')"
    267. 

  267. 	. . . s jsText=%p1_%p5_%p4
    268. 

  268. 	. . . s %changed=1
    269. 

  269. 	. . i %changed s jsTextOID=$$addTextToElement^%zewdDOM(olOID,jsText)
    270. 

  270. 	;
    271. 

  271. 	q:eventNo=initialEventNo
    272. 

  272. 	QUIT
    273. 

  273. 	;
    274. 

  274. 	; now add the <applet> call to the page
    275. 

  275. 	;
    276. 

  276. 	new attr,appletOID,divOID
    277. 

  277. 	;<div style="visibility:hidden">
    278. 

  278. 	set nodeOID=$$getTagOID^%zewdCompiler("body",docName)
    279. 

  279. 	;
    280. 

  280. 	set attr("style")="visibility:hidden"
    281. 

  281. 	set divOID=$$addElementToDOM^%zewdDOM("div",nodeOID,,.attr,"")
    282. 

  282. 	;
    283. 

  283. 	set attr("name")="m_php"
    284. 

  284. 	set attr("codebase")="/"
    285. 

  285. 	set attr("code")="m_php.class"
    286. 

  286. 	set attr("width")=2
    287. 

  287. 	set attr("height")=2
    288. 

  288. 	set appletOID=$$addElementToDOM^%zewdDOM("applet",divOID,,.attr,"")
    289. 

  289. 	;
    290. 

  290. 	QUIT
    291. 

  291. 	;
    292. 

  292. getJSText(label,technology)
    293. 

  293.  	;
    294. 

  294.  	n i,jsText,line,text,x
    295. 

  295.  	;
    296. 

  296.  	s jsText=""
    297. 

  297. 	s x="s line=$T("_label_"+i^%zewdCompiler2)"
    298. 

  298. 	f i=1:1 x x q:line["***END***"  d
    299. 

  299. 	. s text=$p(line,";;",2,255)
    300. 

  300. 	. i $e(text,1)="*",$e(text,2,4)'=technology q
    301. 

  301. 	. s text=$$replaceAll^%zewdHTMLParser(text,("*"_technology_"*"),"     ")
    302. 

  302. 	. s jsText=jsText_$c(13,10)_text
    303. 

  303. 	QUIT jsText
    304. 

  304. 	;
    305. 

  305. parseEventBrokerCall(ebCall)
    306. 

  306.  ;
    307. 

  307.  n char,method,p1,p2,p3,p4,paramList,paramName,params,pos,quit,quoteSingle
    308. 

  308.  n quoteDouble,x1,x2,x3,xtra
    309. 

  309.  ;
    310. 

  310.  s p1=$p(ebCall,"ewd:",1)
    311. 

  311.  s p2=$p(ebCall,"ewd:",2,300)
    312. 

  312.  f  q:p2'["&php;"  d
    313. 

  313.  . s x1=$p(p2,"&php;",1)
    314. 

  314.  . s x2=$p(p2,"&php;",2)
    315. 

  315.  . s x3=$p(p2,"&php;",3,500)
    316. 

  316.  . s x2=$g(phpVars(x2))
    317. 

  317.  . s p2=x1_"<?="_x2_" ?>"_x3
    318. 

  318.  s p3=$p(p2,";",1)
    319. 

  319.  s p4=$p(p2,";",2,255)
    320. 

  320.  s method=$$stripSpaces^%zewdAPI(p3)
    321. 

  321.  s xtra=$$stripSpaces^%zewdAPI(p4)
    322. 

  322.  i method["class(" d
    323. 

  323.  . s paramList=$p(method,"(",3,999)
    324. 

  324.  . s method=$p(method,"(",1,2)
    325. 

  325.  . i $e(method,1,2)'="##" s method="##"_method
    326. 

  326.  e  d
    327. 

  327.  . s paramList=$p(method,"(",2,999)
    328. 

  328.  . s method=$p(method,"(",1)
    329. 

  329.  s (params,quoteSingle,quoteDouble,quit)=0,paramName=""
    330. 

  330.  f pos=1:1 s char=$e(paramList,pos) q:char=""  d  q:quit
    331. 

  331.  . i char="'" d
    332. 

  332.  . . if quoteSingle,'quoteDouble s quoteSingle=0 w:'$f("|,|)|","|"_$e(paramList,pos+1)) !!,"Error parsing EWD page: ",filename,!?3,"Event broker call: ",ebCall
    333. 

  333.  . . e  s quoteSingle=1
    334. 

  334.  . e  i char="""" d
    335. 

  335.  . . i quoteDouble,'quoteSingle s quoteDouble=0 s quoteSingle=0 w:'$f("|,|)|","|"_$e(paramList,pos+1)) !!,"Error parsing page: ",filename,!?3,"Event broker call: ",ebCall
    336. 

  336.  . . e  s quoteDouble=1
    337. 

  337.  . e  i char=",",'quoteSingle,'quoteDouble s char="",quit=1
    338. 

  338.  . e  i char=")",'quoteSingle,'quoteDouble s char="",quit=2
    339. 

  339.  . i quit s:paramName'="" params($increment(params))=paramName_char,paramName="",(quoteSingle,quoteDouble)=0,quit=quit-1 q
    340. 

  340.  . s paramName=paramName_char
    341. 

  341.  s paramList=""
    342. 

  342.  f pos=1:1:params s paramList=paramList_$s(pos>1:",",1:"")_params(pos)
    343. 

  343.  s eventNo=eventNo+1
    344. 

  344.  s eventName="eventU"_$$zcvt^%zewdAPI($p(filename,".",1),"L")_"U"_eventNo
    345. 

  345.  d
    346. 

  346.  . n nline,nparams,paramString,pval
    347. 

  347.  . s nline=$o(phpHeaderArray(2,""),-1)+1
    348. 

  348.  . s phpHeaderArray(2,nline)=" s ebToken("""_method_""")=$$createEBToken^%zewdWLD("""_method_""",.sessionArray)"
    349. 

  349.  . ;
    350. 

  350.  . s nparams=$l(paramList,",")
    351. 

  351.  . s paramString=""
    352. 

  352.  . i paramList'="" d
    353. 

  353.  .. i nparams>0 f i=1:1:nparams d
    354. 

  354.  ... s pval=$p(paramList,",",i)
    355. 

  355.  ... i $e(pval,1)="""" d
    356. 

  356.  .... s paramString=paramString_"&px"_i_"="_$$zcvt^%zewdAPI($p(paramList,",",i),"O","URL")
    357. 

  357.  ... e  d
    358. 

  358.  .... s paramString=paramString_"&px"_i_"=' + "_pval_" + '"
    359. 

  359.  . s ebCall="EWD.ajax.makeRequest('#($$getRootURL^%zewdCompiler(""gtm""))#ewdeb/eb.mgwsi?ewd_token=#($$getSessionValue^%zewdAPI(""ewd_token"",sessid))#&eb=#(ebToken("""_method_"""))#"_paramString_"','','get','','')"
    360. 

  360.  . d setAttribute^%zewdDOM(attrName,ebCall,nodeOID)
    361. 

  361.   QUIT
    362. 

  362.  ;
    363. 

  363. spanTags(docName,technology,multilingual,inputPath,textidList) ;
    364. 

  364. 	; 
    365. 

  365. 	n appendOnclick,appName,attr,bodyOID,childOID,confirm,confirmText
    366. 

  366. 	n divOID,dlim,docOID,event,formOID,headOID,hiddenForms
    367. 

  367. 	n inputOID,jsArray,jsCount,jsNodeOID,jsOID,language,n,name
    368. 

  368. 	n nextpage,nodeOID,ntags,nvp,nvpCount,nvpStr,OIDArray,onclick
    369. 

  369. 	n pageName,popup,pos,spanCounter,%stop,styleOID,submitOID,text
    370. 

  370. 	n textOID,v,value
    371. 

  371. 	;
    372. 

  372. 	s spanCounter=0
    373. 

  373. 	s appName=inputPath
    374. 

  374. 	s dlim=$$getDelim^%zewdCompiler()
    375. 

  375. 	s appName=$p(appName,$$getApplicationRootPath^%zewdCompiler(),2)
    376. 

  376. 	s appName=$p(appName,dlim,2)
    377. 

  377. 	; 
    378. 

  378. 	s docOID=$$getDocumentNode^%zewdDOM(docName)
    379. 

  379. 	s ntags=$$getTagsByName^%zewdCompiler("span",docName,.OIDArray)
    380. 

  380. 	s nodeOID=""
    381. 

  381. 	f  s nodeOID=$o(OIDArray(nodeOID)) q:nodeOID=""  d
    382. 

  382. 	. k nvp
    383. 

  383. 	. s popup=$$getAttributeValue^%zewdDOM("popup",1,nodeOID)
    384. 

  384. 	. q:popup'=""
    385. 

  385. 	. s nextpage=$$getAttributeValue^%zewdDOM("nextpage",1,nodeOID)
    386. 

  386. 	. q:nextpage=""
    387. 

  387. 	. i $e(nextpage,1)="$" d  q
    388. 

  388. 	. . s event=$$getAttributeValue^%zewdDOM("event",1,nodeOID)
    389. 

  389. 	. . s:event="" event="onclick"
    390. 

  390. 	. . s onclick=$$getAttributeValue^%zewdDOM(event,1,nodeOID)
    391. 

  391. 	. . i onclick'="" s onclick=onclick_" ; "
    392. 

  392. 	. . d
    393. 

  393. 	. . . n parentOID,scriptOID
    394. 

  394. 	. . . s scriptOID=$$createElement^%zewdDOM("script",docOID)
    395. 

  395. 	. . . d setAttribute^%zewdDOM("language","cache",scriptOID)
    396. 

  396. 	. . . d setAttribute^%zewdDOM("runat","server",scriptOID)
    397. 

  397. 	. . . s scriptOID=$$insertBefore^%zewdDOM(scriptOID,nodeOID)
    398. 

  398. 	. . . s text=" s url=..Link("_$extract(nextpage,2,$length(nextpage))_"_"".csp"")"_$char(13,10)
    399. 

  399. 	. . . s text=text_" s click=""document.location='""_url_""'"""
    400. 

  400. 	. . . s textOID=$$createTextNode^%zewdDOM(text,docOID)
    401. 

  401. 	. . . s textOID=$$appendChild^%zewdDOM(textOID,scriptOID)
    402. 

  402. 	. . . s onclick=onclick_"#(click)#"
    403. 

  403. 	. . d setAttribute^%zewdDOM("onclick",onclick,nodeOID)
    404. 

  404. 	. . d removeAttribute^%zewdAPI("nextpage",nodeOID)
    405. 

  405. 	. ;
    406. 

  406. 	. s name="span"_$increment(spanCounter)
    407. 

  407. 	. s pageName=$p(nextpage,"?",1)
    408. 

  408. 	. s pageName=$p(pageName,".ewd",1)
    409. 

  409. 	. s nvp=$p(nextpage,"?",2,255)
    410. 

  410. 	. i nvp'=""  d
    411. 

  411. 	. . s nvp=$$replaceAll^%zewdHTMLParser(nvp,"&php;",$c(1))
    412. 

  412. 	. . s nvpCount=$l(nvp,"&")
    413. 

  413. 	. . f pos=1:1:nvpCount d
    414. 

  414. 	. . . s nvpStr=$p(nvp,"&",pos)
    415. 

  415. 	. . . s n=$p(nvpStr,"=",1)
    416. 

  416. 	. . . s v=$p(nvpStr,"=",2)
    417. 

  417. 	. . . s v=$$replaceAll^%zewdHTMLParser(v,$c(1),"&php;")
    418. 

  418. 	. . . s v=$$replaceVars^%zewdHTMLParser(v,.cspVars,.phpVars,technology)
    419. 

  419. 	. . . s nvp(n)=v
    420. 

  420. 	. ;
    421. 

  421. 	. i '$d(hiddenForms("form",name)) d
    422. 

  422. 	. . k attr ; Attribute Array!
    423. 

  423. 	. . s attr("type")="text/css"
    424. 

  424. 	. . s text="#hiddenForm {visibility: hidden ;}"
    425. 

  425. 	. . s headOID=$$getTagOID^%zewdCompiler("head",docName)
    426. 

  426. 	. . s styleOID=$$addElementToDOM^%zewdDOM("style",headOID,,.attr,text)
    427. 

  427. 	. . k jsArray
    428. 

  428. 	. . s jsCount=$$getTagsByName^%zewdCompiler("script",docName,.jsArray)
    429. 

  429. 	. . s jsNodeOID="",%stop=0
    430. 

  430. 	. . f  s jsNodeOID=$o(jsArray(jsNodeOID)) q:jsNodeOID=""  d  q:%stop
    431. 

  431. 	. . . s language=$$getAttributeValue^%zewdDOM("language",1,jsNodeOID)
    432. 

  432. 	. . . q:$$zcvt^%zewdAPI(language,"L")'["javascript"
    433. 

  433. 	. . . q:$$getFirstChild^%zewdDOM(jsNodeOID)=""
    434. 

  434. 	. . . s %stop=1
    435. 

  435. 	. . ;
    436. 

  436. 	. . s jsOID=jsNodeOID
    437. 

  437. 	. . i jsOID="" d
    438. 

  438. 	. . . k attr
    439. 

  439. 	. . . s attr("language")="javascript"
    440. 

  440. 	. . . s jsOID=$$addElementToDOM^%zewdDOM("script",headOID,,.attr,"")
    441. 

  441. 	. . s childOID=$$getFirstChild^%zewdDOM(jsOID)
    442. 

  442. 	. . s text=$$getData^%zewdDOM(childOID)
    443. 

  443. 	. . ;
    444. 

  444. 	. . s text=text_$c(13,10)_"function ewdNP"_name_"("
    445. 

  445. 	. . i $o(nvp(""))="" s text=text_" "
    446. 

  446. 	. . s n=""
    447. 

  447. 	. . f  s n=$o(nvp(n)) q:n=""  s text=text_n_","
    448. 

  448. 	. . s text=$e(text,1,$l(text)-1)_$s($o(nvp(""))="":"",1:",")_"confirmText) {"_$c(13,10)
    449. 

  449. 	. . s n=""
    450. 

  450. 	. . f  s n=$o(nvp(n)) q:n=""  s text=text_"  document.ewdNP"_name_"Form."_n_".value = "_n_" ;"_$c(13,10)
    451. 

  451. 	. . s text=text_"  document.ewdNP"_name_"Form.ewd_action.value='"_name_"submit' ;"_$c(13,10) 
    452. 

  452. 	. . s text=text_"  document.ewdNP"_name_"Form.ewd_pressed.value='"_name_"submit' ;"_$c(13,10)
    453. 

  453.     . . s text=text_"  if ((confirmText != null) && (confirmText != ''))"_$c(13,10)
    454. 

  454.     . . s text=text_"     {"_$c(13,10)
    455. 

  455. 	. . s text=text_"        confirmText = EWD.utils.replace(confirmText,""&#39;"",""'"") ;"_$c(13,10)
    456. 

  456. 	. . s text=text_"        confirmText = EWD.utils.replace(confirmText,'&#34;','""') ;"_$c(13,10)
    457. 

  457. 	. . s text=text_"        ok=confirm(confirmText) ;"_$c(13,10)
    458. 

  458. 	. . s text=text_"        if (ok) document.ewdNP"_name_"Form.submit() ;"_$c(13,10)
    459. 

  459.     . . s text=text_"     }"_$c(13,10)
    460. 

  460.     . . s text=text_"  else"_$c(13,10)
    461. 

  461. 	. . s text=text_"     document.ewdNP"_name_"Form.submit() ;"_$c(13,10)
    462. 

  462. 	. . s text=text_"}"
    463. 

  463. 	. . s textOID=$$modifyTextData^%zewdDOM(text,childOID)
    464. 

  464. 	. s confirm=$$getAttributeValue^%zewdDOM("confirm",1,nodeOID)
    465. 

  465. 	. s confirmText=$$getAttributeValue^%zewdDOM("confirmtext",1,nodeOID)
    466. 

  466. 	. i confirmText'="",multilingual d
    467. 

  467. 	. . n attrOID,containsVars,event,outputText,text,textid
    468. 

  468. 	. . s event=$$getAttributeValue^%zewdDOM("event",1,nodeOID)
    469. 

  469. 	. . s attrOID=$$getAttributeNode^%zewdDOM(event,nodeOID)
    470. 

  470. 	. . i attrOID="" d setAttribute^%zewdDOM(event,"",nodeOID) s attrOID=$$getAttributeNode^%zewdDOM(event,nodeOID)
    471. 

  471. 	. . s textid=$$encodeValue^%zewdCompiler5(confirmText,attrOID,appName,pageName,.text,.textidList,technology,.containsVars,.outputText)
    472. 

  472. 	. . i textid="" q
    473. 

  473. 	. . i 'containsVars d  q
    474. 

  474. 	. . . s confirmText="#($$displayText^%zewdAPI("""_textid_""",0,"""_technology_"""))#"
    475. 

  475. 	. . . i multilingual=1 s confirmText="#($$displayText^%zewdAPI("""_textid_""",1,"""_technology_"""))#"
    476. 

  476. 	. . ;
    477. 

  477. 	. . ; contains variables
    478. 

  478. 	. . ;
    479. 

  479. 	. . s confirmText=text
    480. 

  480. 	. e  d
    481. 

  481. 	. . s:confirmText["'" confirmText=$$replaceAll^%zewdHTMLParser(confirmText,"'","\&#39;")
    482. 

  482. 	. . s:confirmText["""" confirmText=$$replaceAll^%zewdHTMLParser(confirmText,"""","\&#34;")
    483. 

  483. 	. ;
    484. 

  484. 	. s event=$$getAttributeValue^%zewdDOM("event",1,nodeOID)
    485. 

  485. 	. s:event="" event="onClick"
    486. 

  486. 	. s onclick=$$getAttributeValue^%zewdDOM(event,1,nodeOID)
    487. 

  487. 	. i onclick'="" s onclick=onclick_" ; "
    488. 

  488. 	. s onclick=onclick_"ewdNP"_name_"("
    489. 

  489. 	. i $o(nvp(""))="" s onclick=onclick_" "
    490. 

  490. 	. s n=""
    491. 

  491. 	. f  s n=$o(nvp(n)) q:n=""  d
    492. 

  492. 	. . s v=nvp(n)
    493. 

  493. 	. . i v["document." d  q
    494. 

  494. 	. . . s onclick=onclick_v_","
    495. 

  495. 	. . i $$zcvt^%zewdAPI($e(v,1,11),"l")="javascript." d  q
    496. 

  496. 	. . . s v=$e(v,12,$l(v))
    497. 

  497. 	. . . s onclick=onclick_v_","
    498. 

  498. 	. . if $e(v,1)="$"!($e(v,1)="#") d
    499. 

  499. 	. . . i $e(v,1)="$" d
    500. 

  500. 	. . . . s v=$e(v,2,$l(v))
    501. 

  501. 	. . . e  d
    502. 

  502. 	. . . . i $e(v,1)="#" s v="$$getSessionValue^%zewdAPI("""_$e(v,2,$l(v))_""",sessid)"
    503. 

  503. 	. . . s onclick=onclick_"'#("_v_")#',"
    504. 

  504. 	. . e  d
    505. 

  505. 	. . . s onclick=onclick_"'"_v_"',"
    506. 

  506.     . s onclick=$e(onclick,1,$l(onclick)-1)
    507. 

  507. 	. s onclick=onclick_$s($o(nvp(""))="":"",1:",")_"'"_confirmText_"')"
    508. 

  508. 	. s appendOnclick=$$getAttributeValue^%zewdDOM("appendonclick",1,nodeOID)
    509. 

  509. 	. i appendOnclick'="" d
    510. 

  510. 	. . s onclick=onclick_" ; "_appendOnclick
    511. 

  511. 	. . d removeAttribute^%zewdAPI("appendonclick",nodeOID)
    512. 

  512. 	. d setAttribute^%zewdDOM(event,onclick,nodeOID)
    513. 

  513. 	. d removeAttribute^%zewdAPI("nextpage",nodeOID)
    514. 

  514. 	. d removeAttribute^%zewdAPI("event",nodeOID)
    515. 

  515. 	. ;
    516. 

  516. 	. i '$d(hiddenForms("form",name)) d
    517. 

  517. 	. . k attr ; Attribute Array!
    518. 

  518. 	. . s bodyOID=$$getTagOID^%zewdCompiler("body",docName)
    519. 

  519. 	. . s attr("id")="hiddenForm"
    520. 

  520. 	. . s divOID=$$addElementToDOM^%zewdDOM("div",bodyOID,,.attr,"")
    521. 

  521. 	. . s attr("method")="post"
    522. 

  522. 	. . s attr("action")="ewd"
    523. 

  523. 	. . s attr("name")="ewdNP"_name_"Form"
    524. 

  524. 	. . s formOID=$$addElementToDOM^%zewdDOM("form",divOID,,.attr,"")
    525. 

  525. 	. . s n=""
    526. 

  526. 	. . f  s n=$o(nvp(n)) quit:n=""  d
    527. 

  527. 	. . . s attr("type")="hidden"
    528. 

  528. 	. . . s attr("name")=n
    529. 

  529. 	. . . s attr("value")=""
    530. 

  530. 	. . . s inputOID=$$addElementToDOM^%zewdDOM("input",formOID,,.attr,"")
    531. 

  531. 	. . k attr
    532. 

  532. 	. . s attr("type")="submit"
    533. 

  533. 	. . s attr("name")=name_"submit"
    534. 

  534. 	. . s attr("value")="submit"
    535. 

  535. 	. . s attr("nextpage")=pageName
    536. 

  536. 	. . s submitOID=$$addElementToDOM^%zewdDOM("input",formOID,,.attr,"")
    537. 

  537. 	. . s hiddenForms("form",name)=formOID
    538. 

  538. 	. . s hiddenForms("form",name,"submitOID")=submitOID
    539. 

  539. 	. ;
    540. 

  540. 	. f attr="confirm","confirmtext","action" d
    541. 

  541. 	. . s value=$$getAttributeValue^%zewdDOM(attr,1,nodeOID)
    542. 

  542. 	. . i value'="" d
    543. 

  543. 	. . . i attr="action" do setAttribute^%zewdDOM(attr,value,hiddenForms("form",name,"submitOID"))
    544. 

  544. 	. . . d removeAttribute^%zewdAPI(attr,nodeOID)
    545. 

  545. 	QUIT
    546. 

  546. 	;
    547. 

  547. XSLFO(docName)	;
    548. 

  548. 	;
    549. 

  549. 	n appName,attr,dlim,headOID,nodeOID,npieces,os,prePageScript,scriptOID,text
    550. 

  550. 	;
    551. 

  551. 	s nodeOID=$$getTagOID^%zewdCompiler("ewd:config",docName)
    552. 

  552. 	s prePageScript=$$getAttributeValue^%zewdDOM("prepagescript",1,nodeOID)
    553. 

  553. 	set headOID=$$getTagOID^%zewdCompiler("body",docName)
    554. 

  554. 	if headOID="" set headOID=$$getDocumentNode^%zewdDOM(docName)
    555. 

  555. 	set attr("language")="cache"
    556. 

  556. 	set attr("method")="OnPreHTTP"
    557. 

  557. 	set attr("arguments")=""
    558. 

  558. 	set attr("returntype")="%Library.Boolean"
    559. 

  559. 	set text=" i $$"_prePageScript_"(0)"_$char(13,10)
    560. 

  560. 	s text=text_" s xslfoFilename=""xslfo.txt"""_$c(13,10)
    561. 

  561. 	s text=text_" o xslfoFilename:""NW"""_$c(13,10)
    562. 

  562. 	s text=text_" u xslfoFilename"_$c(13,10)
    563. 

  563. 	s text=text_" s quitStatus=1"_$c(13,10)
    564. 

  564. 	set scriptOID=$$addElementToDOM^%zewdDOM("script",headOID,,.attr,text)
    565. 

  565. 	;
    566. 

  566. 	set attr("language")="cache"
    567. 

  567. 	set attr("method")="OnPostHTTP"
    568. 

  568. 	set attr("arguments")=""
    569. 

  569. 	set attr("returntype")="%Library.Boolean"
    570. 

  570. 	s text=" c xslfoFilename"_$c(13,10)
    571. 

  571. 	s text=text_" QUIT 1"_$c(13,10)
    572. 

  572. 	set scriptOID=$$addElementToDOM^%zewdDOM("script",headOID,,.attr,text)
    573. 

  573. 	;
    574. 

  574. 	s nodeOID=$$removeChild^%zewdAPI(nodeOID)
    575. 

  575. 	set appName=inputPath
    576. 

  576. 	set os=$$os^%zewdHTMLParser()
    577. 

  577. 	if os="windows" set dlim="\"
    578. 

  578. 	else  set dlim="/"
    579. 

  579. 	if $extract(appName,$length(appName))=dlim set appName=$extract(appName,1,$length(appName)-1)
    580. 

  580. 	set npieces=$length(appName,dlim)
    581. 

  581. 	set appName=$piece(appName,dlim,npieces)
    582. 

  582. 	set pageName=$piece(filename,".ewd",1)
    583. 

  583. 	QUIT pageName
    584. 

  584. 	;
    585. 

  585. pageIndex(app,filename,nextPageList) ;
    586. 

  586.  ;
    587. 

  587.  n nextPage,np
    588. 

  588.  ;
    589. 

  589.  i technology="wl"!(technology="gtm")!(technology="ewd")!(technology="node") s app=appx
    590. 

  590.  i $g(rawApp)'="" s app=rawApp
    591. 

  591.  i $e(filename,1,3)'="ewd",isAjax s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"pages",$p(filename,".ewd",1))=$g(config("isFirstPage"))
    592. 

  592.  s nextPage=""
    593. 

  593.  f  s nextPage=$o(nextPageList(nextPage)) q:nextPage=""  d
    594. 

  594.  . s np=$p(nextPage,"?",1)
    595. 

  595.  . q:np="*"
    596. 

  596.  . q:$e(np,1)="#"
    597. 

  597.  . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"pageCalls",$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"),$$zcvt^%zewdAPI(np,"l"))=""
    598. 

  598.  . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"pageCalledBy",$$zcvt^%zewdAPI(np,"l"),$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"))=""
    599. 

  599.  QUIT
    600. 

  600.  ;
    601. 

  601. getIndices(sessid)
    602. 

  602.  ;
    603. 

  603.  n app,dlim,os,pageCalledBy,pageCalls,path,scriptCalledBy,scriptCalls,tagCalls,tagCalledBy,xref
    604. 

  604.  ;
    605. 

  605.  s xref=$$getSessionValue^%zewdAPI("xref",sessid)
    606. 

  606.  i xref="" d
    607. 

  607.  . s xref="pageCalls"
    608. 

  608.  . d setSessionValue^%zewdAPI("xref",xref,sessid)
    609. 

  609.  ;
    610. 

  610.  s path=$$getSessionValue^%zewdAPI("path",sessid)
    611. 

  611.  s os=$$os^%zewdHTMLParser()
    612. 

  612.  s dlim="/" i os="windows" s dlim="\"
    613. 

  613.  i dlim="\" s path=$tr(path,"/",dlim)
    614. 

  614.  s app=$p($re(path),dlim,1)
    615. 

  615.  i app="" s app=$p($re(path),dlim,2)
    616. 

  616.  s app=$re(app)
    617. 

  617.  d setSessionValue^%zewdAPI("app",app,sessid)
    618. 

  618.  s app=$$zcvt^%zewdAPI(app,"l")
    619. 

  619.  ;
    620. 

  620.  i $$getSessionValue^%zewdAPI("clearXRef",sessid)'=0 d
    621. 

  621.  . d clearSessionArray^%zewdAPI("pageCalls",sessid)
    622. 

  622.  . d clearSessionArray^%zewdAPI("pageCalledBy",sessid)
    623. 

  623.  . d clearSessionArray^%zewdAPI("scriptCalls",sessid)
    624. 

  624.  . d clearSessionArray^%zewdAPI("scriptCalledBy",sessid)
    625. 

  625.  . d clearSessionArray^%zewdAPI("tagCalls",sessid)
    626. 

  626.  . d clearSessionArray^%zewdAPI("tagCalledBy",sessid)
    627. 

  627.  ;
    628. 

  628.  i xref="pageCalls" d  QUIT ""
    629. 

  629.  . m pageCalls=^%zewdIndex(app,"pageCalls")
    630. 

  630.  . d mergeArrayToSession^%zewdAPI(.pageCalls,"pageCalls",sessid)
    631. 

  631.  ;
    632. 

  632.  i xref="pageCalledBy" d  QUIT ""
    633. 

  633.  . m pageCalledBy=^%zewdIndex(app,"pageCalledBy")
    634. 

  634.  . d mergeArrayToSession^%zewdAPI(.pageCalledBy,"pageCalledBy",sessid)
    635. 

  635.  ;
    636. 

  636.  i xref="scriptCalls" d  QUIT ""
    637. 

  637.  . m scriptCalls=^%zewdIndex(app,"scriptCalls")
    638. 

  638.  . d mergeArrayToSession^%zewdAPI(.scriptCalls,"scriptCalls",sessid)
    639. 

  639.  ;
    640. 

  640.  i xref="scriptCalledBy" d  QUIT ""
    641. 

  641.  . m scriptCalledBy=^%zewdIndex(app,"scriptCalledBy")
    642. 

  642.  . d mergeArrayToSession^%zewdAPI(.scriptCalledBy,"scriptCalledBy",sessid)
    643. 

  643.  ;
    644. 

  644.  i xref="tagCalls" d  QUIT ""
    645. 

  645.  . m tagCalls=^%zewdIndex(app,"tagCalls")
    646. 

  646.  . d mergeArrayToSession^%zewdAPI(.tagCalls,"tagCalls",sessid)
    647. 

  647.  ;
    648. 

  648.  i xref="tagCalledBy" d  QUIT ""
    649. 

  649.  . m tagCalledBy=^%zewdIndex(app,"tagCalledBy")
    650. 

  650.  . d mergeArrayToSession^%zewdAPI(.tagCalledBy,"tagCalledBy",sessid)
    651. 

  651.  ;
    652. 

  652.  QUIT ""
    653. 

  653. 	;
    654. 

  654. 	;
    655. 

  655. getProperty(nodeOID,attrValues,docOID,technology)
    656. 

  656. 	;
    657. 

  657. 	; <ewd:getProperty sessionName="menuOption" param1="optionNo" propertyName="text" return="$text">
    658. 

  658. 	; <ewd:getProperty localName="menuOption" param1="optionNo" propertyName="text" return="$text">
    659. 

  659. 	; 
    660. 

  660. 	n localName,param,propertyName,pval,return,sessionName,sname,subList,subListq,subs,subscripts
    661. 

  661. 	;
    662. 

  662. 	s param="param",subs=""
    663. 

  663. 	f  s param=$o(attrValues(param)) q:param=""  q:param'["param"  d
    664. 

  664. 	. s pval=attrValues(param)
    665. 

  665. 	. d
    666. 

  666. 	. . i $e(pval,1)="""" s pval=$e(pval,2,$l(pval)-1) q
    667. 

  667. 	. . i $e(pval,1)'="$" s pval="$"_pval
    668. 

  668. 	. s subs=subs_pval_","
    669. 

  669. 	s subscripts=$e(subs,1,$l(subs)-1)
    670. 

  670. 	;
    671. 

  671. 	s propertyName=$$getAttrValue^%zewdCompiler4("propertyName",.attrValues,technology)
    672. 

  672. 	s sessionName=$$getAttrValue^%zewdCompiler4("sessionname",.attrValues,technology)
    673. 

  673. 	s localName=$$getAttrValue^%zewdCompiler4("localname",.attrValues,technology)
    674. 

  674. 	s localName=$$removeQuotes^%zewdAPI(localName)
    675. 

  675. 	s return=$$getAttrValue^%zewdCompiler4("return",.attrValues,technology)
    676. 

  676. 	s subList="",subListq=""
    677. 

  677. 	i subscripts'="" d
    678. 

  678. 	. n nsubs,i
    679. 

  679. 	. s nsubs=$l(subscripts,",")
    680. 

  680. 	. f i=1:1:nsubs d
    681. 

  681. 	. . n sub
    682. 

  682. 	. . s sub=$p(subscripts,",",i)
    683. 

  683. 	. . i $e(sub,1)="$" d
    684. 

  684. 	. . . s sub=$e(sub,2,$l(sub))
    685. 

  685. 	. . . s subList=subList_","_sub
    686. 

  686. 	. . . s subListq=subListq_","_sub
    687. 

  687. 	. . e  d
    688. 

  688. 	. . . s subList=subList_","""_sub_""""
    689. 

  689. 	. . . s subListq=subListq_",&quot;"_sub_"&quot;"
    690. 

  690. 	; 
    691. 

  691. 	i $e(sessionName,1)="""" s sname="&quot;"_$e(sessionName,2,$l(sessionName)-1)_"&quot;"
    692. 

  692. 	e  s sname=sessionName
    693. 

  693. 	i sessionName'="""""" d
    694. 

  694. 	. d
    695. 

  695. 	. . n serverOID,text,useSessGlo
    696. 

  696. 	. . s useSessGlo=+$g(^%zewd("config","csp","useSessionGlobal"))=1
    697. 

  697. 	. . i technology="wl"!(technology="gtm")!(technology="ewd")!(technology="node") s useSessGlo=1
    698. 

  698. 	. . i 'useSessGlo s text=" s "_return_"=%session.Data("_sname_subList_","_propertyName_")"
    699. 

  699. 	. . i useSessGlo s text=" s "_return_"=^%zewdSession(""session"","_sname_subList_","_propertyName_")"
    700. 

  700. 	. . s serverOID=$$addCSPServerScript^%zewdCompiler4(nodeOID,text)
    701. 

  701. 	e  d
    702. 

  702. 	. d
    703. 

  703. 	. . n %p,serverOID,text
    704. 

  704. 	. . s %p=localName_""""_subList
    705. 

  705. 	. . i subList="" s %p=localName_"""" 
    706. 

  706. 	. . s text=" s "_return_"=%ewdVar(""$"_%p_","_propertyName_")" 
    707. 

  707. 	. . s serverOID=$$addCSPServerScript^%zewdCompiler4(nodeOID,text)
    708. 

  708. 	;
    709. 

  709. 	d removeIntermediateNode^%zewdCompiler4(nodeOID)
    710. 

  710. 	;
    711. 

  711. 	QUIT
    712. 

  712. 	;
    713. 

  713. include(nodeOID,attrValues,docOID,technology)
    714. 

  714. 	;
    715. 

  715. 	; <ewd:include file="myFile.inc">
    716. 

  716. 	; 
    717. 

  717. 	n filename
    718. 

  718. 	;
    719. 

  719. 	s filename=$$getAttrValue^%zewdCompiler4("file",.attrValues,technology)
    720. 

  720. 	s filename=$$removeQuotes^%zewdAPI(filename)
    721. 

  721. 	if filename'="" do
    722. 

  722. 	. new %error,fcOID,incDocName,incDocOID,blockOID,newChildOID,ok,tagName,docOID,incOID
    723. 

  723. 	. set incDocName="ewdInclude"
    724. 

  724. 	. quit:$$zcvt^%zewdAPI(filename,"L")'[".inc"
    725. 

  725. 	. set filename=inputPath_filename
    726. 

  726. 	. set %error=$$parseFile^%zewdHTMLParser(filename,incDocName,,.phpVars,1)
    727. 

  727. 	. if %error'="" QUIT
    728. 

  728. 	. set incDocOID=$$getDocumentNode^%zewdDOM(incDocName)
    729. 

  729. 	. set docOID=$$getDocumentNode^%zewdDOM(docName)
    730. 

  730. 	. s fcOID=$$getFirstChild^%zewdDOM(incDocOID)
    731. 

  731. 	. s tagName=$$getTagName^%zewdDOM(fcOID)
    732. 

  732. 	. i tagName'="ewd:content" s fcOID=$$insertNewIntermediateElement^%zewdDOM(incDocOID,"ewd:content",incDocOID)
    733. 

  733. 	. set incOID=$$getTagOID^%zewdCompiler("ewd:content",incDocName)
    734. 

  734. 	. set blockOID=$$importNode^%zewdDOM(incOID,"true",docOID)
    735. 

  735. 	. set newChildOID=$$appendChild^%zewdDOM(blockOID,nodeOID)
    736. 

  736. 	. do removeIntermediateNode^%zewdCompiler4(newChildOID)
    737. 

  737. 	. set ok=$$removeDocument^%zewdDOM(incDocName,0,0)
    738. 

  738. 	;
    739. 

  739. 	do removeIntermediateNode^%zewdCompiler4(nodeOID)
    740. 

  740. 	;
    741. 

  741. 	QUIT
    742. 

  742. 	;
    743. 

  743. testFindCustomTags
    744. 

  744. 	;
    745. 

  745. 	n docName,nodeOID
    746. 

  746. 	s docName="ewd"
    747. 

  747. 	s ok=$$openDOM^%eDOMAPI()
    748. 

  748. 	d initialiseProcessedFlags
    749. 

  749. 	f  s nodeOID=$$findFirstCustomTag(docName) q:nodeOID=""  d
    750. 

  750. 	. w nodeOID," : ",$$getTagName^%eDOMAPI(nodeOID),!
    751. 

  751. 	s ok=$$closeDOM^%eDOMAPI()
    752. 

  752. 	QUIT
    753. 

  753. 	;
    754. 

  754. initialiseProcessedFlags
    755. 

  755. 	n j,n
    756. 

  756. 	k ^CacheTempCTProcessed($j)
    757. 

  757. 	; clear down any old records
    758. 

  758. 	s j=""
    759. 

  759. 	f  s j=$o(^CacheTempCTProcessed(j)) q:j=""  d
    760. 

  760. 	. s n=""
    761. 

  761. 	. f  s n=$o(^CacheTempCTProcessed(j,n)) q:n=""  d
    762. 

  762. 	. . i ^CacheTempCTProcessed(j,n)<$h k ^CacheTempCTProcessed(j,n)
    763. 

  763. 	QUIT
    764. 

  764. 	;
    765. 

  765. setProcessedFlagOn(nodeOID)
    766. 

  766.  s ^CacheTempCTProcessed($j,nodeOID)=+$h
    767. 

  767.  QUIT
    768. 

  768. 	;
    769. 

  769. setProcessedFlagOff(nodeOID)
    770. 

  770.  k ^CacheTempCTProcessed($j,nodeOID)
    771. 

  771.  QUIT
    772. 

  772. 	;
    773. 

  773. findFirstCustomTag(docName)
    774. 

  774.  ;
    775. 

  775.  n docOID,nIncludes,nodeOID,OIDArray,stop
    776. 

  776.  ;
    777. 

  777.  s docOID=$$getDocumentNode^%zewdDOM(docName)
    778. 

  778.  ;
    779. 

  779.  s nIncludes=$$getTagsByName^%zewdCompiler("ewd:include",docName,.OIDArray)
    780. 

  780.  s nodeOID="",stop=0
    781. 

  781.  f  s nodeOID=$o(OIDArray(nodeOID)) q:nodeOID=""  d  q:stop
    782. 

  782.  . i '$d(^CacheTempCTProcessed($j,nodeOID)) s stop=1
    783. 

  783.  i stop d setProcessedFlagOn(nodeOID) QUIT nodeOID
    784. 

  784.  ;
    785. 

  785.  s nodeOID=$$getFirstCustomTag(docOID,0)
    786. 

  786.  i nodeOID'="" d setProcessedFlagOn(nodeOID)
    787. 

  787.  QUIT nodeOID
    788. 

  788.  ;
    789. 

  789. getFirstCustomTag(parentOID,stop)
    790. 

  790. 	;
    791. 

  791. 	; recurses through all child node levels of parent node and 
    792. 

  792. 	; returns them as a text string
    793. 

  793. 	;
    794. 

  794. 	n childOID,grandChildOID,tagName
    795. 

  795. 	;
    796. 

  796. 	s childOID=""
    797. 

  797. 	for  set childOID=$$getNextChild^%zewdAPI(parentOID,childOID) quit:childOID=""  d  quit:stop
    798. 

  798. 	. s tagName=$$getTagName^%zewdDOM(childOID)
    799. 

  799. 	. q:tagName=""
    800. 

  800. 	. i $d(^%zewd("customTag",tagName)),'$d(^CacheTempCTProcessed($j,childOID)) s stop=1 quit
    801. 

  801. 	. s grandChildOID=$$getFirstCustomTag(childOID,.stop) i stop s childOID=grandChildOID quit
    802. 

  802. 	QUIT childOID
    803. 

  803.  ;
    804. 

  804. processTag(tagName,attrList,procName,include,defFile,docName,technology,error)
    805. 

  805. 	;processTag(tagName,procName,docName,technology,error)
    806. 

  806. 	;
    807. 

  807. 	n attr,attrName,attrValue,attrValues,docOID,func,i,isCustomTag,lcAttrName
    808. 

  808. 	n nAttr,nodeOID,ntags,OIDArray,ok,%p,page,x,%zt
    809. 

  809. 	; 
    810. 

  810. 	s error=""
    811. 

  811. 	s docOID=$$getDocumentNode^%zewdDOM(docName)
    812. 

  812. 	s ntags=$$getTagsByName^%zewdCompiler(tagName,docName,.OIDArray)
    813. 

  813. 	s nodeOID=""
    814. 

  814. 	f  s nodeOID=$o(OIDArray(nodeOID)) q:nodeOID=""  d  i error'="" QUIT
    815. 

  815. 	. q:$$getParentNode^%zewdDOM(nodeOID)="" ; detached node
    816. 

  816. 	. k attrValues
    817. 

  817. 	. s nAttr=$l(attrList,",")
    818. 

  818. 	. s ok=$$getAttributes^%zewdCompiler(nodeOID,.attr)
    819. 

  819. 	. s attrName=""
    820. 

  820. 	. f  s attrName=$o(attr(attrName)) q:attrName=""  d
    821. 

  821. 	. . s attrValue=$$getNormalAttributeValue^%zewdAPI(attrName,nodeOID,technology)
    822. 

  822. 	. . s attrValues($$zcvt^%zewdAPI(attrName,"l"))=attrValue
    823. 

  823. 	. . s attrValues(attrName)=attrValue
    824. 

  824. 	. ; the following is old mechanism compatibility code to prevent old custom tags breaking on null values
    825. 

  825. 	. f i=1:1:nAttr d
    826. 

  826. 	. . s attrName=$p(attrList,",",i)
    827. 

  827. 	. . q:attrName=""
    828. 

  828. 	. . s lcAttrName=$$zcvt^%zewdAPI(attrName,"l")
    829. 

  829. 	. . s attrValue=$g(attrValues(lcAttrName))
    830. 

  830. 	. . q:attrValue'=""
    831. 

  831. 	. . s attrValue=""""""
    832. 

  832. 	. . s attrValues($$zcvt^%zewdAPI(attrName,"l"))=attrValue
    833. 

  833. 	. . s attrValues(attrName)=attrValue
    834. 

  834. 	. i include'="" d
    835. 

  835. 	. . n attr,incOID
    836. 

  836. 	. . s attr("file")=include
    837. 

  837. 	. . s incOID=$$addElementToDOM^%zewdDOM("ewd:include",nodeOID,,.attr,"")
    838. 

  838. 	. . do removeIntermediateNode^%zewdCompiler4(nodeOID)
    839. 

  839. 	. i defFile'="" d
    840. 

  840. 	. . ; tag defined in definition file
    841. 

  841. 	. . n blockOID,childOID,dlim,defDocName,dummyOID,eArray,eOID,%error
    842. 

  842. 	. . n newChildOID,ntags,incOID,ipath,name,ok,opath,path,stop
    843. 

  843. 	. . n cspVarsX,phpVarsX
    844. 

  844. 	. . k cspVarsX,phpVarsX
    845. 

  845. 	. . m cspVarsX=cspVars
    846. 

  846. 	. . m phpVarsX=phpVars
    847. 

  847. 	. . s path=$$getApplicationRootPath^%zewdAPI()
    848. 

  848. 	. . s dlim=$$getDelim^%zewdCompiler()
    849. 

  849. 	. . i $e(path,$l(path))'=dlim s path=path_dlim
    850. 

  850. 	. . s ipath=path_defFile
    851. 

  851. 	. . s defDocName="ewdDefFile"
    852. 

  852. 	. . ;s ok=$$openDOM^%zewdAPI()
    853. 

  853. 	. . s ok=$$removeDocument^%zewdDOM(defDocName,0,0)
    854. 

  854. 	. . ;s ok=$$$closeDOM
    855. 

  855. 	. . s %error=$$parseFile^%zewdHTMLParser(ipath,defDocName,.cspVarsX,.phpVarsX,1)
    856. 

  856. 	. . s opath=path_"temp.txt"
    857. 

  857. 	. . s ok=$$openNewFile^%zewdCompiler(opath) u opath
    858. 

  858. 	. . ;o opath:"nw" u opath
    859. 

  859. 	. . s tagNameX=tagName d outputDOM^%zewdHTMLParser(defDocName,"collapse",,.cspVarsX,.phpVarsX,1,technology)
    860. 

  860. 	. . c opath
    861. 

  861. 	. . ;s ok=$$openDOM^%zewdAPI()
    862. 

  862. 	. . s ok=$$removeDocument^%zewdDOM(defDocName,0,0)
    863. 

  863. 	. . s %error=$$parseFile^%zewdHTMLParser(opath,defDocName,.cspVars,.phpVars,1)
    864. 

  864. 	. . s ok=$$deleteFile^%zewdHTMLParser(opath) ;break:tagName["vpitem"
    865. 

  865. 	. . s dummyOID=$$insertNewIntermediateElement^%zewdDOM(nodeOID,"dummy",docOID)
    866. 

  866. 	. . ;<ewd:tagdefinition name='qm:vpSection'>
    867. 

  867. 	. . s ntags=$$getElementsArrayByTagName^%zewdDOM("ewd:tagdefinition",defDocName,,.eArray)
    868. 

  868. 	. . s eOID="",stop=0
    869. 

  869. 	. . f  s eOID=$o(eArray(eOID)) q:eOID=""  d  q:stop
    870. 

  870. 	. . . s name=$$getAttribute^%zewdDOM("name",eOID)
    871. 

  871. 	. . . s name=$$zcvt^%zewdAPI(name,"l")
    872. 

  872. 	. . . i name=tagName s stop=1
    873. 

  873. 	. . i 'stop q  ; definition not actually found!
    874. 

  874. 	. . s incOID=$$getFirstElementByTagName^%zewdDOM("ewd:tagexpansion",,eOID)
    875. 

  875. 	. . set blockOID=$$importNode^%zewdDOM(incOID,"true",docOID)
    876. 

  876. 	. . set newChildOID=$$appendChild^%zewdDOM(blockOID,nodeOID)
    877. 

  877. 	. . ;s childOID=$$getFirstElementByTagName^%eDOMAPI("ewd:children",docName) break
    878. 

  878. 	. . k eArray
    879. 

  879. 	. . s ntags=$$getElementsArrayByTagName^%zewdDOM("ewd:children",docName,,.eArray)
    880. 

  880. 	. . s childOID="",stop=0
    881. 

  881. 	. . f  s childOID=$o(eArray(childOID)) q:childOID=""  d  q:stop
    882. 

  882. 	. . . i $$getParentNode^%zewdDOM(childOID)'="" s stop=1
    883. 

  883. 	. . s dummyOID=$$removeChild^%zewdAPI(dummyOID)
    884. 

  884. 	. . i $$hasChildNodes^%zewdDOM(dummyOID)="true" d
    885. 

  885. 	. . . s dummyOID=$$appendChild^%zewdDOM(dummyOID,childOID)
    886. 

  886. 	. . . do removeIntermediateNode^%zewdCompiler4(dummyOID)
    887. 

  887. 	. . . do removeIntermediateNode^%zewdCompiler4(childOID)
    888. 

  888. 	. . e  d
    889. 

  889. 	. . . s ok=$$removeChild^%zewdAPI(childOID)
    890. 

  890. 	. . do removeIntermediateNode^%zewdCompiler4(newChildOID)
    891. 

  891. 	. . do removeIntermediateNode^%zewdCompiler4(nodeOID)
    892. 

  892. 	. . set ok=$$removeDocument^%zewdDOM(defDocName,0,0)
    893. 

  893. 	. . ;s ok=$$$closeDOM break
    894. 

  894. 	. i include="",defFile="" d  i error'="" q
    895. 

  895. 	. . i $$zcvt^%zewdAPI(procName,"l")["##class" d
    896. 

  896. 	. . e  d
    897. 

  897. 	. . . s x="d "_procName_"(nodeOID,.attrValues,docOID,technology)"
    898. 

  898. 	. . . i $g(^zewd("trace"))=1,$e(tagName,1,4)'="ewd:",tagName'="textarea" d trace^%zewdAPI("Compiling custom tag "_tagName_": about to call "_x)
    899. 

  899. 	. . . s %zt=$zt
    900. 

  900. 	. . . ;s $zt="g processTagError"
    901. 

  901. 	. . . x x
    902. 

  902. 	. . . s $zt=%zt
    903. 

  903. 	. s %p=$g(^%zewd("customTag",tagName))
    904. 

  904. 	. s func=$p(%p,$c(1),1)
    905. 

  905. 	. ;i func'="",func'["^%zewd" d
    906. 

  906. 	. s isCustomTag=1
    907. 

  907. 	. s isCustomTag=0
    908. 

  908. 	. i tagName[":" s isCustomTag=1
    909. 

  909. 	. ;i func'["^%zewd" d
    910. 

  910. 	. i isCustomTag d
    911. 

  911. 	. . n appName
    912. 

  912. 	. . s appName=$$zcvt^%zewdAPI(subPath,"l")
    913. 

  913. 	. . s appName=app
    914. 

  914. 	. . ;s ^%zewdIndex(appName,"tagCalls",$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"),tagName)=""
    915. 

  915. 	. . ;s ^%zewdIndex(appName,"tagCalledBy",tagName,$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"))=""
    916. 

  916. 	. . s ^%zewdIndex($$zcvt^%zewdAPI(appName,"l"),"tagCalls",$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"),tagName)=""
    917. 

  917. 	. . s ^%zewdIndex($$zcvt^%zewdAPI(appName,"l"),"tagCalledBy",tagName,$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"))=""
    918. 

  918. 	. i tagName="ewd:include" s includeFound=1
    919. 

  919. 	QUIT
    920. 

  920. 	;
    921. 

  921. processTagError ;
    922. 

  922. 	;
    923. 

  923. 	i $g(%zt)'="" s $zt=%zt
    924. 

  924. 	;d ^%STACK
    925. 

  925. 	;s error="Error in custom tag processing of the <"_tagName_"> tag : "_procName_" not found in the "_$$namespace^%zewdAPI()_" namespace"
    926. 

  926. 	s error="Error in custom tag processing of the <"_$g(tagName)_"> tag : "_$ze
    927. 

  927. 	QUIT
    928. 

  928. 	;
    929. 

  929. processTagErrorET ;
    930. 

  930. 	;
    931. 

  931. 	;s $etrap=""
    932. 

  932. 	s $ecode=""
    933. 

  933. 	s error="Error in custom tag processing of the <"_$g(tagName)_"> tag : "_$zerror
    934. 

  934. 	QUIT error
    935. 

  935. 	;
    936. 

  936.  ;
    937. 

  937. substitute(string,phpVars,technology)
    938. 

  938.  ;
    939. 

  939.  n p1,value
    940. 

  940.  s string=$$removeQuotes^%zewdAPI(string)
    941. 

  941.  s p1=$p(string,"&php;",2)
    942. 

  942.  s value=$$stripSpaces^%zewdAPI(p1)
    943. 

  943.  i $e(value,1)="$" s value=$e(value,2,$l(value))
    944. 

  944.  QUIT value
    945. 

  945.  ;
    946. 

  946.  ;===============================================================
    947. 

  947.  ;   Javascript functions
    948. 

  948.  ;===============================================================
    949. 

  949.  ;
    950. 

  950. javascriptFunctionExists(functionName,docName)
    951. 

  951.  ;
    952. 

  952.  QUIT $$getJavascriptFunction(functionName,docName)'=""
    953. 

  953.  ;
    954. 

  954. getJavascriptBlock(functionName,docName,textArr) ;
    955. 

  955.  ;
    956. 

  956.  n eArray,eOID,language,lineNo,ntags,OIDArray,refString,stop,text,textArray
    957. 

  957.  ;
    958. 

  958.  s text="",eOID="" k textArr
    959. 

  959.  s refString="function "_functionName
    960. 

  960.  s ntags=$$getElementsArrayByTagName^%zewdDOM("script",docName,,.eArray)
    961. 

  961.  s eOID="",stop=0
    962. 

  962.  f  s eOID=$o(eArray(eOID)) q:eOID=""  d  q:stop
    963. 

  963.  . s language=$$getAttribute^%zewdDOM("language",eOID)
    964. 

  964.  . q:language=""
    965. 

  965.  . q:$$zcvt^%zewdAPI(language,"l")'="javascript"
    966. 

  966.  . s text=$$getElementValueByOID^%zewdDOM(eOID,"textArr",1)
    967. 

  967.  . i '$d(textArr) s textArr(1)=text
    968. 

  968.  . s lineNo="",text=""
    969. 

  969.  . f  s lineNo=$o(textArr(lineNo)) q:lineNo=""  d  q:stop
    970. 

  970.  . . i textArr(lineNo)[refString s stop=1 q
    971. 

  971.  QUIT stop
    972. 

  972.  ;
    973. 

  973. removeJavascriptFunction(functionName,docName)
    974. 

  974.  QUIT $$replaceJavascriptFunction(functionName,"",docName)
    975. 

  975.  ;
    976. 

  976. replaceJavascriptFunction(functionName,newFunctionText,docName)
    977. 

  977.  ;
    978. 

  978.  n childOID,eOID,docOID,found,funcText,lineNo,stop,text,textArr,textOID
    979. 

  979.  ;
    980. 

  980.  s docOID=$$getDocumentNode^%zewdDOM(docName)
    981. 

  981.  s found=$$getJavascriptBlock(functionName,docName,.textArr)
    982. 

  982.  i 'found QUIT 0
    983. 

  983.  ;
    984. 

  984.  s funcText=$$getJavascriptFunction(functionName,docName,.eOID)
    985. 

  985.  s lineNo="",stop=0
    986. 

  986.  f  s lineNo=$o(textArr(lineNo)) q:lineNo=""  d  q:stop
    987. 

  987.  . s text=textArr(lineNo)
    988. 

  988.  . i text[funcText s textArr(lineNo)=$$replace^%zewdAPI(text,funcText,newFunctionText),stop=1
    989. 

  989.  i 'stop QUIT 0
    990. 

  990.  f  q:$$hasChildNodes^%zewdDOM(eOID)="false"  d
    991. 

  991.  . s childOID=$$getFirstChild^%zewdDOM(eOID)
    992. 

  992.  . s childOID=$$removeChild^%zewdAPI(childOID)
    993. 

  993.  ;
    994. 

  994.  s lineNo=""
    995. 

  995.  f  s lineNo=$o(textArr(lineNo)) q:lineNo=""  d
    996. 

  996.  . s text=textArr(lineNo)
    997. 

  997.  . s textOID=$$createTextNode^%zewdDOM(text,docOID)
    998. 

  998.  . s textOID=$$appendChild^%zewdDOM(textOID,eOID)
    999. 

  999.  QUIT 1
    1000. 

  1000.  ;
    1001. 

  1001. getFirstJavascriptFunction(docName,textArr)
    1002. 

  1002.  ;
    1003. 

  1003.  n docOID,eArray,jsText,language,ntags,OIDArray,scriptOID,src,stop,textArray
    1004. 

  1004.  ;
    1005. 

  1005.  s docOID=$$getDocumentNode^%zewdDOM(docName)
    1006. 

  1006.  s ntags=$$getElementsArrayByTagName^%zewdDOM("script",docName,,.eArray)
    1007. 

  1007.  s scriptOID="",stop=0
    1008. 

  1008.  f  s scriptOID=$o(eArray(scriptOID)) q:scriptOID=""  d  q:stop
    1009. 

  1009.  . s language=$$getAttribute^%zewdDOM("language",scriptOID)
    1010. 

  1010.  . q:language=""
    1011. 

  1011.  . q:$$zcvt^%zewdAPI(language,"l")'="javascript"
    1012. 

  1012.  . s src=$$getAttribute^%zewdDOM("src",scriptOID)
    1013. 

  1013.  . q:src'=""
    1014. 

  1014.  . s stop=1
    1015. 

  1015.  i scriptOID="" d
    1016. 

  1016.  . i 'isAjax d
    1017. 

  1017.  . . n attr,headOID
    1018. 

  1018.  . . s headOID=$$getFirstElementByTagName^%zewdDOM("head",docName,"")
    1019. 

  1019.  . . i headOID="" s headOID=$$addElementToDOM^%zewdDOM("head",docOID,,,,1)
    1020. 

  1020.  . . s attr("language")="javascript"
    1021. 

  1021.  . . s scriptOID=$$addElementToDOM^%zewdDOM("script",headOID,,.attr,"")
    1022. 

  1022.  . e  d
    1023. 

  1023.  . . s attr("language")="javascript"
    1024. 

  1024.  . . s scriptOID=$$addElementToDOM^%zewdDOM("script",docOID,,.attr,"")
    1025. 

  1025.  k textArr
    1026. 

  1026.  s jsText=$$getElementValueByOID^%zewdDOM(scriptOID,"textArr",1)
    1027. 

  1027.  i '$d(textArr) s textArr(1)=jsText
    1028. 

  1028.  QUIT scriptOID
    1029. 

  1029.  ;
    1030. 

  1030. addJavascriptFunction(docName,jsText)
    1031. 

  1031.  ;
    1032. 

  1032.  n childOID,lastLineNo,line,lineNo,OIDArray,scriptOID,text,textArr,textOID
    1033. 

  1033.  ;
    1034. 

  1034.  s scriptOID=$$getFirstJavascriptFunction(docName,.textArr)
    1035. 

  1035.  s lastLineNo=$o(textArr(""),-1)
    1036. 

  1036.  s lineNo="",text=""
    1037. 

  1037.  f  s lineNo=$o(jsText(lineNo)) q:lineNo=""  d
    1038. 

  1038.  . i jsText(lineNo)["<?="!(jsText(lineNo)["<%") d
    1039. 

  1039.  . . k ^CacheTempEWD($j)
    1040. 

  1040.  . . s ^CacheTempEWD($j,1)=jsText(lineNo)
    1041. 

  1041.  . . d tokenisePHPVariables^%zewdHTMLParser(.phpVars)
    1042. 

  1042.  . . s jsText(lineNo)=^CacheTempEWD($j,1)
    1043. 

  1043.  . . k ^CacheTempEWD($j)
    1044. 

  1044.  . i $l(text)+$l(jsText(lineNo))<4000 s text=text_jsText(lineNo)_$c(13,10) q
    1045. 

  1045.  . s lastLineNo=lastLineNo+1
    1046. 

  1046.  . s textArr(lastLineNo)=text
    1047. 

  1047.  . s text=jsText(lineNo)_$c(13,10)
    1048. 

  1048.  s lastLineNo=lastLineNo+1
    1049. 

  1049.  s textArr(lastLineNo)=text
    1050. 

  1050.  f  q:$$hasChildNodes^%zewdDOM(scriptOID)="false"  d
    1051. 

  1051.  . s childOID=$$getFirstChild^%zewdDOM(scriptOID)
    1052. 

  1052.  . s childOID=$$removeChild^%zewdAPI(childOID)
    1053. 

  1053.  ;
    1054. 

  1054.  s lineNo=""
    1055. 

  1055.  f  s lineNo=$o(textArr(lineNo)) q:lineNo=""  d
    1056. 

  1056.  . s text=textArr(lineNo)
    1057. 

  1057.  . q:text=""
    1058. 

  1058.  . s textOID=$$createTextNode^%zewdDOM(text,docOID)
    1059. 

  1059.  . s textOID=$$appendChild^%zewdDOM(textOID,scriptOID)
    1060. 

  1060.  QUIT scriptOID 
    1061. 

  1061.  ;
    1062. 

  1062. getJavascriptFunction(functionName,docName,eOID) ;
    1063. 

  1063.  ;
    1064. 

  1064.  n c,comm,dqlvl,eArray,slcomm,language,lc,lineNo,lvl
    1065. 

  1065.  n mlcomm,ntags,OIDArray,%p1,%p2,pos,refString,sqlvl,stop,stop2
    1066. 

  1066.  n text,textArr,textArray
    1067. 

  1067.  ;
    1068. 

  1068.  s text="",eOID=""
    1069. 

  1069.  s refString="function "_functionName_"("
    1070. 

  1070.  s ntags=$$getElementsArrayByTagName^%zewdDOM("script",docName,,.eArray)
    1071. 

  1071.  s eOID="",stop=0
    1072. 

  1072.  f  s eOID=$o(eArray(eOID)) q:eOID=""  d  q:stop
    1073. 

  1073.  . s language=$$getAttribute^%zewdDOM("language",eOID)
    1074. 

  1074.  . q:language=""
    1075. 

  1075.  . q:$$zcvt^%zewdAPI(language,"l")'["javascript"
    1076. 

  1076.  . k textArr
    1077. 

  1077.  . s text=$$getElementValueByOID^%zewdDOM(eOID,"textArr",1)
    1078. 

  1078.  . i '$d(textArr) s textArr(1)=text
    1079. 

  1079.  . s lineNo="",text=""
    1080. 

  1080.  . f  s lineNo=$o(textArr(lineNo)) q:lineNo=""  d  q:stop
    1081. 

  1081.  . . s stop2=0
    1082. 

  1082.  . . i textArr(lineNo)[refString f  d  q:textArr(lineNo)'[refString  q:stop2
    1083. 

  1083.  . . . s %p1=$p(textArr(lineNo),refString,1)
    1084. 

  1084.  . . . s %p1=$re(%p1)
    1085. 

  1085.  . . . s %p1=$p(%p1,$c(10,13),1)
    1086. 

  1086.  . . . s %p1=$re(%p1)
    1087. 

  1087.  . . . i %p1["//"!(%p1["/*") d  q
    1088. 

  1088.  . . . . s textArr(lineNo)=$p(textArr(lineNo),refString,2,1000)
    1089. 

  1089.  . . . s stop2=1
    1090. 

  1090.  . . q:textArr(lineNo)'[refString
    1091. 

  1091.  . . s text=refString_$p(textArr(lineNo),refString,2,1000)
    1092. 

  1092.  . . s %p1=$p(text,"{",1),%p2=$p(text,"{",2,1000)
    1093. 

  1093.  . . s text=%p1_"{",lvl=1,c="",dqlvl=0,sqlvl=0,slcomm=0,mlcomm=0
    1094. 

  1094.  . . f pos=1:1:$l(%p2) d  q:stop
    1095. 

  1095.  . . . s lc=c
    1096. 

  1096.  . . . s c=$e(%p2,pos)
    1097. 

  1097.  . . . i lc="\",c="{" s text=text_c q
    1098. 

  1098.  . . . i lc="\",c="}" s text=text_c q
    1099. 

  1099.  . . . i lc="\",c="""" s text=text_c q
    1100. 

  1100.  . . . i lc="\",c="'" s text=text_c q
    1101. 

  1101.  . . . i lc="/",c="/" s slcomm=1,text=text_c q
    1102. 

  1102.  . . . i lc="/",c="*" s mlcomm=1,text=text_c q
    1103. 

  1103.  . . . i lc="*",c="/" s mlcomm=0,text=text_c q
    1104. 

  1104.  . . . i slcomm,c=$c(10) s slcomm=0,text=text_c q
    1105. 

  1105.  . . . i c="""",dqlvl=0,'slcomm,'mlcomm s dqlvl=1
    1106. 

  1106.  . . . i c="""",dqlvl=1,'slcomm,'mlcomm s dqlvl=0
    1107. 

  1107.  . . . i c="'",sqlvl=0,'slcomm,'mlcomm s sqlvl=1
    1108. 

  1108.  . . . i c="'",sqlvl=1,'slcomm,'mlcomm s sqlvl=0
    1109. 

  1109.  . . . i slcomm!mlcomm s text=text_c q
    1110. 

  1110.  . . . i c="{",dqlvl=1 s text=text_c q
    1111. 

  1111.  . . . i c="}",dqlvl=1 s text=text_c q
    1112. 

  1112.  . . . i c="{",sqlvl=1 s text=text_c q
    1113. 

  1113.  . . . i c="}",sqlvl=1 s text=text_c q
    1114. 

  1114.  . . . i c="{" s lvl=lvl+1
    1115. 

  1115.  . . . i c="}" s lvl=lvl-1 i lvl=0 s stop=1 q
    1116. 

  1116.  . . . s text=text_c
    1117. 

  1117.  . . s text=text_"}"
    1118. 

  1118.  QUIT text
    1119. 

  1119.  ;
    1120. 

  1120. getJavascriptFunctionBody(functionName,docName)
    1121. 

  1121.  ;
    1122. 

  1122.  n body,crlf,eOID,jsText,nLines
    1123. 

  1123.  ;
    1124. 

  1124.  s jsText=$$getJavascriptFunction(functionName,docName,.eOID)
    1125. 

  1125.  s crlf=$c(13,10)
    1126. 

  1126.  s nLines=$l(jsText,crlf)
    1127. 

  1127.  s body=$p(jsText,crlf,2,nLines-1)
    1128. 

  1128.  QUIT body
    1129. 

  1129.  ;
    1130. 

  1130. replaceJavascriptFunctionBody(functionName,newBody,docName)
    1131. 

  1131.  ;
    1132. 

  1132.  n body,call,crlf,eOID,jsText
    1133. 

  1133.  ;
    1134. 

  1134.  s jsText=$$getJavascriptFunction(functionName,docName,.eOID)
    1135. 

  1135.  s crlf=$c(13,10)
    1136. 

  1136.  s call=$p(jsText,crlf,1)
    1137. 

  1137.  s body=call_crlf_newBody_crlf_"   }"
    1138. 

  1138.  s ok=$$replaceJavascriptFunction(functionName,body,docName)
    1139. 

  1139.  QUIT 1
    1140. 

  1140.  ;
    1141. 

  1141.  ;
    1142. 

  1142. ewdConfig(docName,phpHeaderArray,routineName,technology,dataTypeList,inputPath,filename,multilingual,config,pageName)
    1143. 

  1143. 	;
    1144. 

  1144. 	; Get the <ewd:config> tag and process it
    1145. 

  1145. 	; Create the start of the CSP Pre-page script
    1146. 

  1146. 	; 
    1147. 

  1147. 	; attributes are:
    1148. 

  1148. 	; 
    1149. 

  1149. 	;   isFirstPage = true | false ; true is the default
    1150. 

  1150. 	;   prePageScript = Cache function reference
    1151. 

  1151. 	;   defaultTimeout = default session timeout in seconds (default = 1200)
    1152. 

  1152. 	;   pageTimeout = page-specific session timeout in seconds (default = defaultTimeout)
    1153. 

  1153. 	;   homePage = URL of homepage redirection if ewdlogout.php is invoked
    1154. 

  1154. 	;   persistRequest = true | false ; saves the HTTP request name/value pairs to session array
    1155. 

  1155. 	;   overrideTemplate = true | false ; (default=false) determines whether values in template or page take precedence
    1156. 

  1156. 	;   
    1157. 

  1157. 	; 
    1158. 

  1158. 	; If missing, set page to be allowed to be used as a first page,
    1159. 

  1159. 	; and no pre-page Script
    1160. 

  1160. 	; 
    1161. 

  1161. 	n multiLingual,nodeOID,onErrorScript,prePageScript,preProcess,secureRequest,templatePrePageScript
    1162. 

  1162. 	;
    1163. 

  1163. 	i $$isXSLFO^%zewdCompiler(docName) d  QUIT 0
    1164. 

  1164. 	. s pageName=$$XSLFO^%zewdCompiler7(docName)
    1165. 

  1165. 	;
    1166. 

  1166. 	s multiLingual=2
    1167. 

  1167. 	s nodeOID=$$getTagOID^%zewdCompiler("ewd:config",docName)
    1168. 

  1168. 	i nodeOID="" d
    1169. 

  1169. 	. s config("isFirstPage")=1
    1170. 

  1170. 	. s config("defaultTimeout")=1200
    1171. 

  1171. 	. s config("pageTimeout")=config("defaultTimeout")
    1172. 

  1172. 	. ;s config("homePage")="/default.htm"
    1173. 

  1173. 	. s config("homePage")=$g(^zewd("config","homePage"))
    1174. 

  1174. 	. s config("persistRequest")="true"
    1175. 

  1175. 	. s config("errorPage")="ewdError"
    1176. 

  1176. 	. s config("mgwsiServer")="LOCAL" i $$os^%zewdHTMLParser()="gtm" s config("mgwsiServer")="gtm"
    1177. 

  1177. 	. s config("pageType")="html"
    1178. 

  1178. 	. s config("errorClass")=""
    1179. 

  1179. 	e  d
    1180. 

  1180. 	. n serverList
    1181. 

  1181. 	. i $g(backend)="" s backend="m"
    1182. 

  1182. 	. s config("backend")=backend
    1183. 

  1183. 	. s config("pageType")=$$zcvt^%zewdAPI($$getAttributeValue^%zewdDOM("pagetype",1,nodeOID),"l")
    1184. 

  1184. 	. i config("pageType")="" s config("pageType")="html"
    1185. 

  1185. 	. s config("isFirstPage")=$$getAttributeValue^%zewdDOM("isfirstpage",1,nodeOID)
    1186. 

  1186. 	. i config("pageType")="ajax",config("isFirstPage")="" s config("isFirstPage")="false"
    1187. 

  1187. 	. i config("isFirstPage")="" d
    1188. 

  1188. 	. . n public
    1189. 

  1189. 	. . s public=$$getAttributeValue^%zewdDOM("publicpage",1,nodeOID)
    1190. 

  1190. 	. . s config("isFirstPage")="true"
    1191. 

  1191. 	. . i $$zcvt^%zewdAPI(public,"l")="false" s config("isFirstPage")="false"
    1192. 

  1192. 	. ;i config("isFirstPage")="" s config("isFirstPage")="true"
    1193. 

  1193. 	. s config("isFirstPage")=$$zcvt^%zewdAPI(config("isFirstPage"),"l")="true"
    1194. 

  1194. 	. s prePageScript=$$getAttributeValue^%zewdDOM("prepagescript",1,nodeOID)
    1195. 

  1195. 	. i prePageScript="" s prePageScript=$$getAttributeValue^%zewdDOM("fetchmethod",1,nodeOID)
    1196. 

  1196. 	. i prePageScript'="" d
    1197. 

  1197. 	. . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"scriptCalls",$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"),$$zcvt^%zewdAPI(prePageScript,"l"))="prePage"
    1198. 

  1198. 	. . s ^%zewdIndex($$zcvt^%zewdAPI(app,"l"),"scriptCalledBy",$$zcvt^%zewdAPI(prePageScript,"l"),$$zcvt^%zewdAPI($p(filename,".ewd",1),"l"))="prePage"
    1199. 

  1199. 	. d
    1200. 

  1200. 	. . i prePageScript'["^",$e(prePageScript,1,7)'="##class",$e(prePageScript,1)'="$",$g(routineName)'="" s config("prePageScript")=config("prePageScript")_"^"_routineName q
    1201. 

  1201. 	. . i $e(prePageScript,1)="$" s config("prePageScript")=prePageScript_"($ewd_session)" q
    1202. 

  1202. 	. . s config("prePageScript")=prePageScript
    1203. 

  1203. 	. . i $e(prePageScript,1,3)="js:" d
    1204. 

  1204. 	. . . n page
    1205. 

  1205. 	. . . s page=$p(filename,".ewd",1)
    1206. 

  1206. 	. . . s ^zewd("nodeModules","methods",$$zcvt^%zewdAPI(app,"l"),$$zcvt^%zewdAPI(page,"l"))=$p(prePageScript,"js:",2)
    1207. 

  1207. 	. s templatePrePageScript=$$getAttributeValue^%zewdDOM("templateprepagescript",1,nodeOID)
    1208. 

  1208. 	. s preProcess=$$getAttributeValue^%zewdDOM("preprocess",1,nodeOID)
    1209. 

  1209. 	. d
    1210. 

  1210. 	. . i filename="ewdAjaxError.ewd" q
    1211. 

  1211. 	. . i filename="ewdAjaxErrorRedirect.ewd" q
    1212. 

  1212. 	. . i filename="ewdErrorRedirect.ewd" q
    1213. 

  1213. 	. . i templatePrePageScript'["^",$e(templatePrePageScript,1,7)'="##class",$e(templatePrePageScript,1)'="$",$g(routineName)'="" s config("templatePrePageScript")=config("templatePrePageScript")_"^"_routineName q
    1214. 

  1214. 	. . i $e(templatePrePageScript,1)="$" s config("templatePrePageScript")=templatePrePageScript_"($ewd_session)" q
    1215. 

  1215. 	. . i templatePrePageScript["^" s config("templatePrePageScript")=templatePrePageScript
    1216. 

  1216. 	. . s config("templatePrePageScript")=templatePrePageScript
    1217. 

  1217. 	. . i preProcess'["^",$e(preProcess,1,7)'="##class",$e(preProcess,1)'="$",$g(routineName)'="" s config("preProcess")=config("preProcess")_"^"_routineName q
    1218. 

  1218. 	. . i $e(preProcess,1)="$" s config("preProcess")=preProcess_"($ewd_session)" q
    1219. 

  1219. 	. . i preProcess["^" s config("preProcess")=preProcess
    1220. 

  1220. 	. . s config("preProcess")=preProcess
    1221. 

  1221. 	. s onErrorScript=$$getAttributeValue^%zewdDOM("onerrorscript",1,nodeOID)
    1222. 

  1222. 	. d
    1223. 

  1223. 	. . i onErrorScript'["^",$e(onErrorScript,1,7)'="##class",$e(onErrorScript,1)'="$",$g(routineName)'="" s config("onErrorScript")=config("onErrorScript")_"^"_routineName q
    1224. 

  1224. 	. . i $e(onErrorScript,1)="$" s config("onErrorScript")=onErrorScript_"($ewd_session)" q
    1225. 

  1225. 	. . s config("onErrorScript")=onErrorScript
    1226. 

  1226. 	. s config("defaultTimeout")=$$getAttributeValue^%zewdDOM("defaulttimeout",1,nodeOID)
    1227. 

  1227. 	. i config("defaultTimeout")="" s config("defaultTimeout")=1200
    1228. 

  1228. 	. s config("pageTimeout")=$$getAttributeValue^%zewdDOM("pagetimeout",1,nodeOID)
    1229. 

  1229. 	. i config("pageTimeout")="" s config("pageTimeout")=config("defaultTimeout")
    1230. 

  1230. 	. i $$zcvt^%zewdAPI(config("pageTimeout"),"l")="system" d
    1231. 

  1231. 	. . i technology="csp" s config("pageTimeout")="" q
    1232. 

  1232. 	. . s config("pageTimeout")=config("defaultTimeout")
    1233. 

  1233. 	. s config("homePage")=$g(^zewd("config","homePage"))
    1234. 

  1234. 	. i $$getAttributeValue^%zewdDOM("homepage",1,nodeOID)'="" s config("homePage")=$$getAttributeValue^%zewdDOM("homepage",1,nodeOID)
    1235. 

  1235. 	. s config("persistRequest")=$$getAttributeValue^%zewdDOM("persistrequest",1,nodeOID)
    1236. 

  1236. 	. i config("persistRequest")="" s config("persistRequest")="true"
    1237. 

  1237. 	. s config("pageTitle")=$$getAttributeValue^%zewdDOM("pagetitle",1,nodeOID)
    1238. 

  1238. 	. i config("pageTitle")="" s config("pageTitle")=""
    1239. 

  1239. 	. s config("confirmText")=$$getAttributeValue^%zewdDOM("confirmtext",1,nodeOID)
    1240. 

  1240. 	. i config("confirmText")="" s config("confirmText")="Click OK if you're sure you want to delete this record"
    1241. 

  1241. 	. s config("secureRequest")=$$getAttributeValue^%zewdDOM("securerequest",1,nodeOID)
    1242. 

  1242. 	. i config("secureRequest")="" s config("secureRequest")="true"
    1243. 

  1243. 	. s config("errorPage")=$$getAttributeValue^%zewdDOM("errorpage",1,nodeOID)
    1244. 

  1244. 	. i $g(config("isFirstPage")),config("errorPage")="" s config("errorPage")="ewdError"
    1245. 

  1245. 	. s config("errorClass")=$$getAttributeValue^%zewdDOM("errorclass",1,nodeOID)
    1246. 

  1246. 	. s config("mgwsiServer")=$$getAttributeValue^%zewdDOM("mgwsiserver",1,nodeOID)
    1247. 

  1247. 	. i config("mgwsiServer")="" s config("mgwsiServer")=$$getAttributeValue^%zewdDOM("mphpserver",1,nodeOID)
    1248. 

  1248. 	. i config("mgwsiServer")="" s config("mgwsiServer")=$g(ewd("sessionDatabase","mgwsiServer"))
    1249. 

  1249. 	. i config("mgwsiServer")="" s config("mgwsiServer")="LOCAL"
    1250. 

  1250. 	. i $$os^%zewdHTMLParser()="gtm" s config("mgwsiServer")="gtm"
    1251. 

  1251. 	. s config("cachePage")=$$getAttributeValue^%zewdDOM("cachepage",1,nodeOID)
    1252. 

  1252. 	. i config("cachePage")="" s config("cachePage")="true"
    1253. 

  1253. 	. s config("disableGetPage")=$$getAttributeValue^%zewdDOM("disablegetpage",1,nodeOID)
    1254. 

  1254. 	. i config("disableGetPage")="" s config("disableGetPage")="false"
    1255. 

  1255. 	. s config("escapeText")=$$getAttributeValue^%zewdDOM("escapetext",1,nodeOID)
    1256. 

  1256. 	. i config("escapeText")="" s config("escapeText")="false"
    1257. 

  1257. 	. s config("redirection")=$$getAttributeValue^%zewdDOM("redirection",1,nodeOID)
    1258. 

  1258. 	. i config("redirection")="" s config("redirection")="server"
    1259. 

  1259. 	. s config("arraySize")=$$getAttributeValue^%zewdDOM("arraysize",1,nodeOID)
    1260. 

  1260. 	. i config("arraySize")="" s config("arraySize")="128"
    1261. 

  1261. 	. s config("nextPageList")=$$getAttributeValue^%zewdDOM("nextpagelist",1,nodeOID)
    1262. 

  1262. 	. s config("actionIfTimedOut")=$$getAttributeValue^%zewdDOM("actioniftimedout",1,nodeOID)
    1263. 

  1263. 	. s config("maxLines")=$$getAttributeValue^%zewdDOM("maxlines",1,nodeOID)
    1264. 

  1264. 	. s config("websockets")=$$getAttributeValue^%zewdDOM("websockets",1,nodeOID)
    1265. 

  1265. 	. s multiLingual=$$zcvt^%zewdAPI($$getAttributeValue^%zewdDOM("multilingual",1,nodeOID),"l")
    1266. 

  1266. 	. i multiLingual="false" s multiLingual=0
    1267. 

  1267. 	. e  s multiLingual=2
    1268. 

  1268. 	. s config("ewd_sessionServer")=$$getAttributeValue^%zewdDOM("sessionserver",1,nodeOID)
    1269. 

  1269. 	. i config("ewd_sessionServer")="" s config("ewd_sessionServer")=$g(ewd("sessionDatabase","type"))
    1270. 

  1270. 	. i config("ewd_sessionServer")="cache" s config("ewd_sessionServer")="m"
    1271. 

  1271. 	. i config("ewd_sessionServer")="" s config("ewd_sessionServer")="m"
    1272. 

  1272. 	. i $g(persistenceDB)'="" s config("ewd_sessionServer")=persistenceDB
    1273. 

  1273. 	. s config("ewd_sessionServerHostname")=$$getAttributeValue^%zewdDOM("sessionserverhost",1,nodeOID)
    1274. 

  1274. 	. i config("ewd_sessionServerHostname")="" s config("ewd_sessionServerHostname")=$g(ewd("sessionDatabase","host"))
    1275. 

  1275. 	. s config("ewd_sessionServerUsername")=$$getAttributeValue^%zewdDOM("sessionserverusername",1,nodeOID)
    1276. 

  1276. 	. i config("ewd_sessionServerUsername")="" s config("ewd_sessionServerUsername")=$g(ewd("sessionDatabase","username"))
    1277. 

  1277. 	. s config("ewd_sessionServerPassword")=$$getAttributeValue^%zewdDOM("sessionserverpassword",1,nodeOID)
    1278. 

  1278. 	. i config("ewd_sessionServerPassword")="" s config("ewd_sessionServerPassword")=$g(ewd("sessionDatabase","password"))
    1279. 

  1279. 	. s config("startFromWLDOnly")=$$getAttributeValue^%zewdDOM("startfromwldonly",1,nodeOID)
    1280. 

  1280. 	. s config("startFromWLDOnly")=config("startFromWLDOnly")="true"
    1281. 

  1281. 	. s serverList=$$getAttributeValue^%zewdDOM("servernamelist",1,nodeOID)
    1282. 

  1282. 	. i serverList'="" d
    1283. 

  1283. 	. . n i,np,p
    1284. 

  1284. 	. . s serverList=$$stripSpaces^%zewdAPI(serverList)
    1285. 

  1285. 	. . s np=$l(serverList,",")
    1286. 

  1286. 	. . i np>0 d
    1287. 

  1287. 	. . . f i=1:1:np d
    1288. 

  1288. 	. . . . s p=$p(serverList,",",i)
    1289. 

  1289. 	. . . . i p'="" s config("serverList",p)=""
    1290. 

  1290. 	i multiLingual=0 s multilingual=multiLingual
    1291. 

  1291. 	d createPHPConfigHeader^%zewdCompiler3(.config,.phpHeaderArray,technology,docName,.dataTypeList,inputPath,filename,multilingual,.pageName)
    1292. 

  1292. 	s nodeOID=$$removeChild^%zewdAPI(nodeOID)
    1293. 

  1293. 	QUIT multiLingual
    1294. 

  1294. 	;
    1295. 

  1295.  ;
    1296. 

  1296. mergeToList(listName,listArray,sessid)
    1297. 

  1297.  ;
    1298. 

  1298.  n position,data,%d,text,value,pos
    1299. 

  1299.  ;
    1300. 

  1300.  s pos=""
    1301. 

  1301.  f  s pos=$o(listArray(pos)) q:pos=""  d
    1302. 

  1302.  . k data
    1303. 

  1303.  . s data=listArray(pos)
    1304. 

  1304.  . i data["~",data'[$c(1) d
    1305. 

  1305.  . . n p1,p2
    1306. 

  1306.  . . s p1=$p(data,"~",1)
    1307. 

  1307.  . . s p2=$p(data,"~",2)
    1308. 

  1308.  . . s listArray(pos)=p1_$c(1)_p2
    1309. 

  1309.  ;
    1310. 

  1310.  ;
    1311. 

  1311.  k ^%zewdSession("session",sessid,"ewd_list",listName)
    1312. 

  1312.  k ^%zewdSession("session",sessid,"ewd_listIndex",listName)
    1313. 

  1313.  m ^%zewdSession("session",sessid,"ewd_list",listName)=listArray
    1314. 

  1314.  s position=""
    1315. 

  1315.  f  s position=$o(^%zewdSession("session",sessid,"ewd_list",listName,position)) q:position=""  d
    1316. 

  1316.  . k %d,text,value
    1317. 

  1317.  . s %d=^%zewdSession("session",sessid,"ewd_list",listName,position)
    1318. 

  1318.  . s text=$p(%d,$c(1),1)
    1319. 

  1319.  . s value=$p(%d,$c(1),2)
    1320. 

  1320.  . i value="" s value=$e(text,1,200)
    1321. 

  1321.  . q:value=""
    1322. 

  1322.  . s ^%zewdSession("session",sessid,"ewd_listIndex",listName,value)=position
    1323. 

  1323.  d setWLDSymbol^%zewdAPI("ewd_list",sessid)
    1324. 

  1324.  d setWLDSymbol^%zewdAPI("ewd_listIndex",sessid)
    1325. 

  1325.  QUIT
    1326. 

  1326.  ;
    1327. 

  1327. copyList(fromListName,toListName,sessid)
    1328. 

  1328.  ;
    1329. 

  1329.  n ewdList,ewdListIndex
    1330. 

  1330.  ;
    1331. 

  1331.  i $g(fromListName)="" QUIT
    1332. 

  1332.  i $g(toListName)="" QUIT
    1333. 

  1333.  i $g(sessid)="" QUIT
    1334. 

  1334.  ;
    1335. 

  1335.  d mergeArrayFromSession^%zewdAPI(.ewdList,"ewd_list",sessid)
    1336. 

  1336.  d mergeArrayFromSession^%zewdAPI(.ewdListIndex,"ewd_listIndex",sessid)
    1337. 

  1337.  ;
    1338. 

  1338.  k ewdList(toListName)
    1339. 

  1339.  k ewdListIndex(toListName)
    1340. 

  1340.  m ewdList(toListName)=ewdList(fromListName)
    1341. 

  1341.  m ewdListIndex(toListName)=ewdListIndex(fromListName)
    1342. 

  1342.  ;
    1343. 

  1343.  d deleteFromSession^%zewdAPI("ewd_list",sessid)
    1344. 

  1344.  d deleteFromSession^%zewdAPI("ewd_listIndex",sessid)
    1345. 

  1345.  d mergeArrayToSession^%zewdAPI(.ewdList,"ewd_list",sessid)
    1346. 

  1346.  d mergeArrayToSession^%zewdAPI(.ewdListIndex,"ewd_listIndex",sessid) 
    1347. 

  1347.  ;
    1348. 

  1348.  QUIT
    1349. 

  1349.  ;
    1350. 

  1350. getTextFromList(listName,codeValue,sessid)
    1351. 

  1351.  ;
    1352. 

  1352.  n position,return
    1353. 

  1353.  ;
    1354. 

  1354.  i $g(listName)="" QUIT ""
    1355. 

  1355.  i $g(sessid)="" QUIT ""
    1356. 

  1356.  i $g(codeValue)="" QUIT ""
    1357. 

  1357.  set $zt="getTextFromListErr"
    1358. 

  1358.  ;
    1359. 

  1359.  s position=$g(^%zewdSession("session",sessid,"ewd_listIndex",listName,codeValue)) 
    1360. 

  1360.  i position="" QUIT ""
    1361. 

  1361.  QUIT $p(^%zewdSession("session",sessid,"ewd_list",listName,position),$c(1),1)
    1362. 

  1362.  ;
    1363. 

  1363. getTextFromListErr
    1364. 

  1364.  set $zt=""
    1365. 

  1365.  QUIT ""
    1366. 

  1366.  ;
    1367. 

  1367. replaceOptionsByFieldName(formName,fieldName,listName,sessid)
    1368. 

  1368.  ;
    1369. 

  1369.  n fieldRef,return,textValue,textValueEsc
    1370. 

  1370.  ;
    1371. 

  1371.  s fieldRef="document."_formName_"."_fieldName
    1372. 

  1372.  s return=fieldRef_".options.length = 0;"
    1373. 

  1373.  s return=return_$$returnOptions(fieldRef,listName,sessid)
    1374. 

  1374.  QUIT return
    1375. 

  1375.  ;
    1376. 

  1376. replaceOptionsByID(fieldID,listName,sessid)
    1377. 

  1377.  ;
    1378. 

  1378.  n fieldRef,return,textValue,textValueEsc
    1379. 

  1379.  ;
    1380. 

  1380.  s fieldRef="document.getElementById('"_fieldID_"')"
    1381. 

  1381.  s return=fieldRef_".options.length = 0;"
    1382. 

  1382.  s return=return_$$returnOptions(fieldRef,listName,sessid)
    1383. 

  1383.  QUIT return
    1384. 

  1384.  ;
    1385. 

  1385. returnOptions(fieldRef,listName,sessid)
    1386. 

  1386.  ;
    1387. 

  1387.  n codeValue,codeValueEsc,%d,ewdList,i,pos,return,textValue,textValueEsc
    1388. 

  1388.  ;
    1389. 

  1389.  d mergeArrayFromSession^%zewdAPI(.ewdList,"ewd_list",sessid)
    1390. 

  1390.  ;
    1391. 

  1391.  s pos="",i=-1,return=""
    1392. 

  1392.  f  s pos=$o(ewdList(listName,pos)) q:pos=""  d
    1393. 

  1393.  . k %d,textValue,codeValue,codeValueEsc,textValueEsc
    1394. 

  1394.  . s %d=ewdList(listName,pos)
    1395. 

  1395.  . s textValue=$p(%d,$c(1),1)
    1396. 

  1396.  . s textValueEsc=textValue
    1397. 

  1397.  . s textValueEsc=$$replaceAll^%zewdHTMLParser(textValueEsc,"&#39;","'")
    1398. 

  1398.  . s codeValue=$p(%d,$c(1),2)
    1399. 

  1399.  . i codeValue="" s codeValue=textValue
    1400. 

  1400.  . s codeValueEsc=codeValue
    1401. 

  1401.  . s codeValueEsc=$$replaceAll^%zewdHTMLParser(codeValueEsc,"&#39;","'")
    1402. 

  1402.  . s i=i+1
    1403. 

  1403.  . s return=return_fieldRef_".options["_i_"] = new Option("""_textValueEsc_""","""_codeValueEsc_""");"
    1404. 

  1404.  QUIT return
    1405. 

  1405.  ;
    1406.