API tools faq
paste
Guest User

Untitled

a guest
Jan 23rd, 2018
47
0
Never
Add comment
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 41.77 KB | None | 0 0
raw download clone embed print report
  1. //Childhood anxiety Screener, coded in MEL (Medical Embedded Language)
  2. //Simon Grant, 1/12/2018
  3. {fn ChildTotal() {
  4. ChildTotalScore = 0
  5.  
  6. Cond
  7. Case DOCUMENT.SC1=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  8. Case DOCUMENT.SC1=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  9. else ""
  10. Endcond
  11.  
  12. Cond
  13. Case DOCUMENT.SC2=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  14. Case DOCUMENT.SC2=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  15. else ""
  16. Endcond
  17.  
  18. Cond
  19. Case DOCUMENT.SC3=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  20. Case DOCUMENT.SC3=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  21. else ""
  22. Endcond
  23.  
  24. Cond
  25. Case DOCUMENT.SC4=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  26. Case DOCUMENT.SC4=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  27. else ""
  28. Endcond
  29.  
  30. Cond
  31. Case DOCUMENT.SC5=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  32. Case DOCUMENT.SC5=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  33. else ""
  34. Endcond
  35.  
  36. Cond
  37. Case DOCUMENT.SC6=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  38. Case DOCUMENT.SC6=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  39. else ""
  40. Endcond
  41.  
  42. Cond
  43. Case DOCUMENT.SC7=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  44. Case DOCUMENT.SC7=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  45. else ""
  46. Endcond
  47.  
  48. Cond
  49. Case DOCUMENT.SC8=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  50. Case DOCUMENT.SC8=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  51. else ""
  52. Endcond
  53.  
  54. Cond
  55. Case DOCUMENT.SC9=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  56. Case DOCUMENT.SC9=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  57. else ""
  58. Endcond
  59.  
  60. Cond
  61. Case DOCUMENT.SC10=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  62. Case DOCUMENT.SC10=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  63. else ""
  64. Endcond
  65.  
  66. Cond
  67. Case DOCUMENT.SC11=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  68. Case DOCUMENT.SC11=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  69. else ""
  70. Endcond
  71.  
  72. Cond
  73. Case DOCUMENT.SC12=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  74. Case DOCUMENT.SC12=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  75. else ""
  76. Endcond
  77.  
  78. Cond
  79. Case DOCUMENT.SC13=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  80. Case DOCUMENT.SC13=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  81. else ""
  82. Endcond
  83.  
  84. Cond
  85. Case DOCUMENT.SC14=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  86. Case DOCUMENT.SC14=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  87. else ""
  88. Endcond
  89.  
  90. Cond
  91. Case DOCUMENT.SC15=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  92. Case DOCUMENT.SC15=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  93. else ""
  94. Endcond
  95.  
  96. Cond
  97. Case DOCUMENT.SC16=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  98. Case DOCUMENT.SC16=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  99. else ""
  100. Endcond
  101.  
  102. Cond
  103. Case DOCUMENT.SC17=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  104. Case DOCUMENT.SC17=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  105. else ""
  106. Endcond
  107.  
  108. Cond
  109. Case DOCUMENT.SC18=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  110. Case DOCUMENT.SC18=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  111. else ""
  112. Endcond
  113.  
  114. Cond
  115. Case DOCUMENT.SC19=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  116. Case DOCUMENT.SC19=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  117. else ""
  118. Endcond
  119.  
  120. Cond
  121. Case DOCUMENT.SC20=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  122. Case DOCUMENT.SC20=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  123. else ""
  124. Endcond
  125.  
  126. Cond
  127. Case DOCUMENT.SC21=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  128. Case DOCUMENT.SC21=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  129. else ""
  130. Endcond
  131.  
  132. Cond
  133. Case DOCUMENT.SC22=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  134. Case DOCUMENT.SC22=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  135. else ""
  136. Endcond
  137.  
  138. Cond
  139. Case DOCUMENT.SC23=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  140. Case DOCUMENT.SC23=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  141. else ""
  142. Endcond
  143.  
  144. Cond
  145. Case DOCUMENT.SC24=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  146. Case DOCUMENT.SC24=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  147. else ""
  148. Endcond
  149.  
  150. Cond
  151. Case DOCUMENT.SC25=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  152. Case DOCUMENT.SC25=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  153. else ""
  154. Endcond
  155.  
  156. Cond
  157. Case DOCUMENT.SC26=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  158. Case DOCUMENT.SC26=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  159. else ""
  160. Endcond
  161.  
  162. Cond
  163. Case DOCUMENT.SC27=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  164. Case DOCUMENT.SC27=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  165. else ""
  166. Endcond
  167.  
  168. Cond
  169. Case DOCUMENT.SC28=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  170. Case DOCUMENT.SC28=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  171. else ""
  172. Endcond
  173.  
  174. Cond
  175. Case DOCUMENT.SC29=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  176. Case DOCUMENT.SC29=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  177. else ""
  178. Endcond
  179.  
  180. Cond
  181. Case DOCUMENT.SC30=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  182. Case DOCUMENT.SC30=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  183. else ""
  184. Endcond
  185.  
  186. Cond
  187. Case DOCUMENT.SC31=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  188. Case DOCUMENT.SC31=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  189. else ""
  190. Endcond
  191.  
  192. Cond
  193. Case DOCUMENT.SC32=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  194. Case DOCUMENT.SC32=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  195. else ""
  196. Endcond
  197.  
  198. Cond
  199. Case DOCUMENT.SC33=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  200. Case DOCUMENT.SC33=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  201. else ""
  202. Endcond
  203.  
  204. Cond
  205. Case DOCUMENT.SC34=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  206. Case DOCUMENT.SC34=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  207. else ""
  208. Endcond
  209.  
  210. Cond
  211. Case DOCUMENT.SC35=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  212. Case DOCUMENT.SC35=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  213. else ""
  214. Endcond
  215.  
  216. Cond
  217. Case DOCUMENT.SC36=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  218. Case DOCUMENT.SC36=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  219. else ""
  220. Endcond
  221.  
  222. Cond
  223. Case DOCUMENT.SC37=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  224. Case DOCUMENT.SC37=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  225. else ""
  226. Endcond
  227.  
  228. Cond
  229. Case DOCUMENT.SC38=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  230. Case DOCUMENT.SC38=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  231. else ""
  232. Endcond
  233.  
  234. Cond
  235. Case DOCUMENT.SC39=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  236. Case DOCUMENT.SC39=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  237. else ""
  238. Endcond
  239.  
  240. Cond
  241. Case DOCUMENT.SC40=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  242. Case DOCUMENT.SC40=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  243. else ""
  244. Endcond
  245.  
  246. Cond
  247. Case DOCUMENT.SC41=="Somewhat True or Sometimes True" ChildTotalScore = ChildTotalScore + 1
  248. Case DOCUMENT.SC41=="Very True or Often True" ChildTotalScore = ChildTotalScore + 2
  249. else ""
  250. Endcond
  251.  
  252. OBSNOW("SCAREDCHTOT", str(ChildTotalScore))
  253. }
  254.  
  255. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC2 <> "" AND DOCUMENT.SC3 <> "" AND DOCUMENT.SC4 <> "" AND DOCUMENT.SC5 <> "" AND DOCUMENT.SC6 <> ""AND DOCUMENT.SC7 <> "" AND DOCUMENT.SC8 <> "" AND DOCUMENT.SC9 <> "" AND DOCUMENT.SC10 <> "" AND DOCUMENT.SC11 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC13 <> "" AND DOCUMENT.SC14 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC16 <> "" AND DOCUMENT.SC17 <> "" AND DOCUMENT.SC18<> "" AND DOCUMENT.SC19 <> "" AND DOCUMENT.SC20 <> "" AND DOCUMENT.SC21 <> "" AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC23 <> ""AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC25 <> "" AND DOCUMENT.SC26 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC28 <> "" AND DOCUMENT.SC29 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC31 <> "" AND DOCUMENT.SC32 <> "" AND DOCUMENT.SC33 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC35 <> "" AND DOCUMENT.SC36 <> "" AND DOCUMENT.SC37 <> "" AND DOCUMENT.SC38 <> "" AND DOCUMENT.SC39 <> "" AND DOCUMENT.SC40 <> "" AND DOCUMENT.SC41 <> "" THEN ChildTotal() ELSE "" ENDIF}
  256.  
  257.  
  258. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC2 <> "" AND DOCUMENT.SC3 <> "" AND DOCUMENT.SC4 <> "" AND DOCUMENT.SC5 <> "" AND DOCUMENT.SC6 <> ""AND DOCUMENT.SC7 <> "" AND DOCUMENT.SC8 <> "" AND DOCUMENT.SC9 <> "" AND DOCUMENT.SC10 <> "" AND DOCUMENT.SC11 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC13 <> "" AND DOCUMENT.SC14 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC16 <> "" AND DOCUMENT.SC17 <> "" AND DOCUMENT.SC18<> "" AND DOCUMENT.SC19 <> "" AND DOCUMENT.SC20 <> "" AND DOCUMENT.SC21 <> "" AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC23 <> ""AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC25 <> "" AND DOCUMENT.SC26 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC28 <> "" AND DOCUMENT.SC29 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC31 <> "" AND DOCUMENT.SC32 <> "" AND DOCUMENT.SC33 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC35 <> "" AND DOCUMENT.SC36 <> "" AND DOCUMENT.SC37 <> "" AND DOCUMENT.SC38 <> "" AND DOCUMENT.SC39 <> "" AND DOCUMENT.SC40 <> "" AND DOCUMENT.SC41 <> "" THEN ChildTotal() ELSE "" ENDIF}
  259. }
  260.  
  261. {fn ChildPD() {
  262. ChildPDScore = 0
  263.  
  264. Cond
  265. Case DOCUMENT.SC1=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  266. Case DOCUMENT.SC1=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  267. else ""
  268. Endcond
  269.  
  270. Cond
  271. Case DOCUMENT.SC6=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  272. Case DOCUMENT.SC6=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  273. else ""
  274. Endcond
  275.  
  276. Cond
  277. Case DOCUMENT.SC9=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  278. Case DOCUMENT.SC9=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  279. else ""
  280. Endcond
  281.  
  282. Cond
  283. Case DOCUMENT.SC12=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  284. Case DOCUMENT.SC12=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  285. else ""
  286. Endcond
  287.  
  288. Cond
  289. Case DOCUMENT.SC15=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  290. Case DOCUMENT.SC15=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  291. else ""
  292. Endcond
  293.  
  294. Cond
  295. Case DOCUMENT.SC18=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  296. Case DOCUMENT.SC18=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  297. else ""
  298. Endcond
  299.  
  300. Cond
  301. Case DOCUMENT.SC19=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  302. Case DOCUMENT.SC19=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  303. else ""
  304. Endcond
  305.  
  306. Cond
  307. Case DOCUMENT.SC22=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  308. Case DOCUMENT.SC22=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  309. else ""
  310. Endcond
  311.  
  312. Cond
  313. Case DOCUMENT.SC24=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  314. Case DOCUMENT.SC24=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  315. else ""
  316. Endcond
  317.  
  318. Cond
  319. Case DOCUMENT.SC27=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  320. Case DOCUMENT.SC27=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  321. else ""
  322. Endcond
  323.  
  324. Cond
  325. Case DOCUMENT.SC30=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  326. Case DOCUMENT.SC30=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  327. else ""
  328. Endcond
  329.  
  330. Cond
  331. Case DOCUMENT.SC34=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  332. Case DOCUMENT.SC34=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  333. else ""
  334. Endcond
  335.  
  336. Cond
  337. Case DOCUMENT.SC38=="Somewhat True or Sometimes True" ChildPDScore = ChildPDScore + 1
  338. Case DOCUMENT.SC38=="Very True or Often True" ChildPDScore = ChildPDScore + 2
  339. else ""
  340. Endcond
  341.  
  342. OBSNOW("SCAREDCHPD", str(ChildPDScore))
  343. }
  344.  
  345. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC6 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC18 <> "" AND DOCUMENT.SC19 <> ""AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC38 <> "" THEN ChildPD() ELSE "" ENDIF}
  346.  
  347.  
  348. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC6 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC18 <> "" AND DOCUMENT.SC19 <> ""AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC38 <> "" THEN IF OBSNOW(ChildPD is >= 7) "Score on SCARED Screening may indicate Panic Disorder or Significant Somatic symptoms" ELSE "" ENDIF}
  349. }
  350.  
  351.  
  352. {fn ChildGAD() {
  353. ChildGADScore = 0
  354.  
  355. Cond
  356. Case DOCUMENT.SC5=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  357. Case DOCUMENT.SC5=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  358. else ""
  359. Endcond
  360.  
  361. Cond
  362. Case DOCUMENT.SC7=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  363. Case DOCUMENT.SC7=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  364. else ""
  365. Endcond
  366.  
  367. Cond
  368. Case DOCUMENT.SC14=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  369. Case DOCUMENT.SC14=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  370. else ""
  371. Endcond
  372.  
  373. Cond
  374. Case DOCUMENT.SC21=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  375. Case DOCUMENT.SC21=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  376. else ""
  377. Endcond
  378.  
  379. Cond
  380. Case DOCUMENT.SC23=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  381. Case DOCUMENT.SC23=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  382. else ""
  383. Endcond
  384.  
  385. Cond
  386. Case DOCUMENT.SC28=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  387. Case DOCUMENT.SC28=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  388. else ""
  389. Endcond
  390.  
  391. Cond
  392. Case DOCUMENT.SC33=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  393. Case DOCUMENT.SC33=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  394. else ""
  395. Endcond
  396.  
  397. Cond
  398. Case DOCUMENT.SC35=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  399. Case DOCUMENT.SC35=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  400. else ""
  401. Endcond
  402.  
  403. Cond
  404. Case DOCUMENT.SC37=="Somewhat True or Sometimes True" ChildGADScore = ChildGADScore + 1
  405. Case DOCUMENT.SC37=="Very True or Often True" ChildGADScore = ChildGADScore + 2
  406. else ""
  407. Endcond
  408.  
  409. OBSNOW("SCAREDCHGAD", str(ChildGADScore))
  410. }
  411.  
  412. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC6 <> "" AND DOCUMENT.SC9 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC18 <> ""AND DOCUMENT.SC19 <> "" AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC38 <> "" THEN ChildGAD() ELSE "" ENDIF}
  413.  
  414. {!IF DOCUMENT.SC1 <> "" AND DOCUMENT.SC6 <> "" AND DOCUMENT.SC9 <> "" AND DOCUMENT.SC12 <> "" AND DOCUMENT.SC15 <> "" AND DOCUMENT.SC18 <> ""AND DOCUMENT.SC19 <> "" AND DOCUMENT.SC22 <> "" AND DOCUMENT.SC24 <> "" AND DOCUMENT.SC27 <> "" AND DOCUMENT.SC30 <> "" AND DOCUMENT.SC34 <> "" AND DOCUMENT.SC38 <> "" THEN IF OBSNOW(ChildGAD is >= 9) "Score on SCARED Screening may indicate General Anxiety Disorder" ELSE "" ENDIF}
  415. }
  416.  
  417. {fn ChildSA() {
  418. ChildSAScore = 0
  419.  
  420. Cond
  421. Case DOCUMENT.SC4=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  422. Case DOCUMENT.SC4=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  423. else ""
  424. Endcond
  425.  
  426. Cond
  427. Case DOCUMENT.SC8=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  428. Case DOCUMENT.SC8=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  429. else ""
  430. Endcond
  431.  
  432. Cond
  433. Case DOCUMENT.SC13=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  434. Case DOCUMENT.SC13=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  435. else ""
  436. Endcond
  437.  
  438. Cond
  439. Case DOCUMENT.SC16=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  440. Case DOCUMENT.SC16=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  441. else ""
  442. Endcond
  443.  
  444. Cond
  445. Case DOCUMENT.SC20=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  446. Case DOCUMENT.SC20=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  447. else ""
  448. Endcond
  449.  
  450. Cond
  451. Case DOCUMENT.SC25=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  452. Case DOCUMENT.SC25=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  453. else ""
  454. Endcond
  455.  
  456. Cond
  457. Case DOCUMENT.SC29=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  458. Case DOCUMENT.SC29=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  459. else ""
  460. Endcond
  461.  
  462. Cond
  463. Case DOCUMENT.SC31=="Somewhat True or Sometimes True" ChildSAScore = ChildSAScore + 1
  464. Case DOCUMENT.SC31=="Very True or Often True" ChildSAScore = ChildSAScore + 2
  465. else ""
  466. Endcond
  467.  
  468. OBSNOW("SCAREDCHSA", str(ChildSAScore))
  469. }
  470.  
  471. {!IF DOCUMENT.SC4 <> "" AND DOCUMENT.SC8 <> "" AND DOCUMENT.SC13 <> "" AND DOCUMENT.SC16 <> "" AND DOCUMENT.SC20 <> "" AND DOCUMENT.SC25 <> ""AND DOCUMENT.SC29 <> "" AND DOCUMENT.SC31 <> "" THEN ChildSA() ELSE "" ENDIF}
  472.  
  473. {!IF DOCUMENT.SC4 <> "" AND DOCUMENT.SC8 <> "" AND DOCUMENT.SC13 <> "" AND DOCUMENT.SC16 <> "" AND DOCUMENT.SC20 <> "" AND DOCUMENT.SC25 <> ""AND DOCUMENT.SC29 <> "" AND DOCUMENT.SC31 <> "" THEN IF OBSNOW(ChildSA is >= 5 ) "Score on SCARED Screening may indicate Separation Anxiety SOC" ELSE "" ENDIF}
  474. }
  475.  
  476. {fn ChildSAD() {
  477. ChildSADScore = 0
  478.  
  479. Cond
  480. Case DOCUMENT.SC3=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  481. Case DOCUMENT.SC3=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  482. else ""
  483. Endcond
  484.  
  485. Cond
  486. Case DOCUMENT.SC10=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  487. Case DOCUMENT.SC10=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  488. else ""
  489. Endcond
  490.  
  491. Cond
  492. Case DOCUMENT.SC26=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  493. Case DOCUMENT.SC26=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  494. else ""
  495. Endcond
  496.  
  497. Cond
  498. Case DOCUMENT.SC32=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  499. Case DOCUMENT.SC32=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  500. else ""
  501. Endcond
  502.  
  503. Cond
  504. Case DOCUMENT.SC39=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  505. Case DOCUMENT.SC39=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  506. else ""
  507. Endcond
  508.  
  509. Cond
  510. Case DOCUMENT.SC40=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  511. Case DOCUMENT.SC40=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  512. else ""
  513. Endcond
  514.  
  515. Cond
  516. Case DOCUMENT.SC41=="Somewhat True or Sometimes True" ChildSADScore = ChildSADScore + 1
  517. Case DOCUMENT.SC41=="Very True or Often True" ChildSADScore = ChildSADScore + 2
  518. else ""
  519. Endcond
  520.  
  521. OBSNOW("SCAREDCHSAD", str(ChildSADScore))
  522. }
  523.  
  524. {!IF DOCUMENT.SC3 <> "" AND DOCUMENT.SC10 <> "" AND DOCUMENT.SC26 <> "" AND DOCUMENT.SC32 <> "" AND DOCUMENT.SC39 <> "" AND DOCUMENT.SC40 <> ""AND DOCUMENT.SC41 <> "" THEN ChildSAD() ELSE "" ENDIF}
  525.  
  526. {!IF DOCUMENT.SC3 <> "" AND DOCUMENT.SC10 <> "" AND DOCUMENT.SC26 <> "" AND DOCUMENT.SC32 <> "" AND DOCUMENT.SC39 <> "" AND DOCUMENT.SC40 <> ""AND DOCUMENT.SC41 <> "" THEN IF OBSNOW(ChildSAD is >= 8) "Score on SCARED Screening may indicate Social Anxiety Disorder" ELSE "" ENDIF}
  527. }
  528.  
  529.  
  530. {fn ChildSSA() {
  531. ChildSSAScore = 0
  532.  
  533. Cond
  534. Case DOCUMENT.SC2=="Somewhat True or Sometimes True" ChildSSAScore = ChildSSAScore + 1
  535. Case DOCUMENT.SC2=="Very True or Often True" ChildSSAScore = ChildSSAScore + 2
  536. else ""
  537. Endcond
  538.  
  539. Cond
  540. Case DOCUMENT.SC11=="Somewhat True or Sometimes True" ChildSSAScore = ChildSSAScore + 1
  541. Case DOCUMENT.SC11=="Very True or Often True" ChildSSAScore = ChildSSAScore + 2
  542. else ""
  543. Endcond
  544.  
  545. Cond
  546. Case DOCUMENT.SC17=="Somewhat True or Sometimes True" ChildSSAScore = ChildSSAScore + 1
  547. Case DOCUMENT.SC17=="Very True or Often True" ChildSSAScore = ChildSSAScore + 2
  548. else ""
  549. Endcond
  550.  
  551. Cond
  552. Case DOCUMENT.SC36=="Somewhat True or Sometimes True" ChildSSAScore = ChildSSAScore + 1
  553. Case DOCUMENT.SC36=="Very True or Often True" ChildSSAScore = ChildSSAScore + 2
  554. else ""
  555. Endcond
  556.  
  557. OBSNOW("SCAREDCHSSA", str(ChildSSAScore))
  558. }
  559.  
  560. {!IF DOCUMENT.SC2 <> "" AND DOCUMENT.SC11 <> "" AND DOCUMENT.SC17 <> "" AND DOCUMENT.SC36 <> "" THEN ChildSSA() ELSE "" ENDIF}
  561.  
  562. {!IF DOCUMENT.SC2 <> "" AND DOCUMENT.SC11 <> "" AND DOCUMENT.SC17 <> "" AND DOCUMENT.SC36 <> "" THEN IF OBSNOW(ChildSSA is >= 3) "Score on SCARED Screening may indicate Significant School Avoidance" ELSE "" ENDIF}
  563. }
  564.  
  565. {fn ParentTotal() {
  566. ParentTotalScore = 0
  567.  
  568. Cond
  569. Case DOCUMENT.SP1=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  570. Case DOCUMENT.SP1=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  571. else ""
  572. Endcond
  573.  
  574. Cond
  575. Case DOCUMENT.SP2=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  576. Case DOCUMENT.SP2=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  577. else ""
  578. Endcond
  579.  
  580. Cond
  581. Case DOCUMENT.SP3=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  582. Case DOCUMENT.SP3=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  583. else ""
  584. Endcond
  585.  
  586. Cond
  587. Case DOCUMENT.SP4=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  588. Case DOCUMENT.SP4=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  589. else ""
  590. Endcond
  591.  
  592. Cond
  593. Case DOCUMENT.SP5=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  594. Case DOCUMENT.SP5=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  595. else ""
  596. Endcond
  597.  
  598. Cond
  599. Case DOCUMENT.SP6=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  600. Case DOCUMENT.SP6=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  601. else ""
  602. Endcond
  603.  
  604. Cond
  605. Case DOCUMENT.SP7=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  606. Case DOCUMENT.SC7=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  607. else ""
  608. Endcond
  609.  
  610. Cond
  611. Case DOCUMENT.SP8=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  612. Case DOCUMENT.SP8=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  613. else ""
  614. Endcond
  615.  
  616. Cond
  617. Case DOCUMENT.SP9=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  618. Case DOCUMENT.SP9=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  619. else ""
  620. Endcond
  621.  
  622. Cond
  623. Case DOCUMENT.SP10=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  624. Case DOCUMENT.SP10=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  625. else ""
  626. Endcond
  627.  
  628. Cond
  629. Case DOCUMENT.SP11=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  630. Case DOCUMENT.SP11=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  631. else ""
  632. Endcond
  633.  
  634. Cond
  635. Case DOCUMENT.SP12=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  636. Case DOCUMENT.SP12=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  637. else ""
  638. Endcond
  639.  
  640. Cond
  641. Case DOCUMENT.SP13=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  642. Case DOCUMENT.SP13=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  643. else ""
  644. Endcond
  645.  
  646. Cond
  647. Case DOCUMENT.SP14=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  648. Case DOCUMENT.SP14=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  649. else ""
  650. Endcond
  651.  
  652. Cond
  653. Case DOCUMENT.SP15=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  654. Case DOCUMENT.SP15=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  655. else ""
  656. Endcond
  657.  
  658. Cond
  659. Case DOCUMENT.SP16=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  660. Case DOCUMENT.SP16=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  661. else ""
  662. Endcond
  663.  
  664. Cond
  665. Case DOCUMENT.SP17=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  666. Case DOCUMENT.SP17=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  667. else ""
  668. Endcond
  669.  
  670. Cond
  671. Case DOCUMENT.SP18=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  672. Case DOCUMENT.SP18=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  673. else ""
  674. Endcond
  675.  
  676. Cond
  677. Case DOCUMENT.SP19=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  678. Case DOCUMENT.SP19=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  679. else ""
  680. Endcond
  681.  
  682. Cond
  683. Case DOCUMENT.SP20=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  684. Case DOCUMENT.SP20=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  685. else ""
  686. Endcond
  687.  
  688. Cond
  689. Case DOCUMENT.SP21=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  690. Case DOCUMENT.SP21=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  691. else ""
  692. Endcond
  693.  
  694. Cond
  695. Case DOCUMENT.SP22=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  696. Case DOCUMENT.SP22=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  697. else ""
  698. Endcond
  699.  
  700. Cond
  701. Case DOCUMENT.SP23=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  702. Case DOCUMENT.SP23=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  703. else ""
  704. Endcond
  705.  
  706. Cond
  707. Case DOCUMENT.SP24=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  708. Case DOCUMENT.SP24=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  709. else ""
  710. Endcond
  711.  
  712. Cond
  713. Case DOCUMENT.SP25=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  714. Case DOCUMENT.SP25=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  715. else ""
  716. Endcond
  717.  
  718. Cond
  719. Case DOCUMENT.SP26=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  720. Case DOCUMENT.SP26=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  721. else ""
  722. Endcond
  723.  
  724. Cond
  725. Case DOCUMENT.SP27=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  726. Case DOCUMENT.SP27=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  727. else ""
  728. Endcond
  729.  
  730. Cond
  731. Case DOCUMENT.SP28=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  732. Case DOCUMENT.SP28=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  733. else ""
  734. Endcond
  735.  
  736. Cond
  737. Case DOCUMENT.SP29=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  738. Case DOCUMENT.SP29=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  739. else ""
  740. Endcond
  741.  
  742. Cond
  743. Case DOCUMENT.SP30=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  744. Case DOCUMENT.SP30=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  745. else ""
  746. Endcond
  747.  
  748. Cond
  749. Case DOCUMENT.SP31=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  750. Case DOCUMENT.SP31=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  751. else ""
  752. Endcond
  753.  
  754. Cond
  755. Case DOCUMENT.SP32=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  756. Case DOCUMENT.SP32=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  757. else ""
  758. Endcond
  759.  
  760. Cond
  761. Case DOCUMENT.SP33=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  762. Case DOCUMENT.SP33=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  763. else ""
  764. Endcond
  765.  
  766. Cond
  767. Case DOCUMENT.SP34=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  768. Case DOCUMENT.SP34=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  769. else ""
  770. Endcond
  771.  
  772. Cond
  773. Case DOCUMENT.SP35=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  774. Case DOCUMENT.SP35=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  775. else ""
  776. Endcond
  777.  
  778. Cond
  779. Case DOCUMENT.SP36=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  780. Case DOCUMENT.SP36=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  781. else ""
  782. Endcond
  783.  
  784. Cond
  785. Case DOCUMENT.SP37=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  786. Case DOCUMENT.SP37=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  787. else ""
  788. Endcond
  789.  
  790. Cond
  791. Case DOCUMENT.SP38=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  792. Case DOCUMENT.SP38=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  793. else ""
  794. Endcond
  795.  
  796. Cond
  797. Case DOCUMENT.SP39=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  798. Case DOCUMENT.SP39=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  799. else ""
  800. Endcond
  801.  
  802. Cond
  803. Case DOCUMENT.SP40=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  804. Case DOCUMENT.SP40=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  805. else ""
  806. Endcond
  807.  
  808. Cond
  809. Case DOCUMENT.SP41=="Somewhat True or Sometimes True" ParentTotalScore = ParentTotalScore + 1
  810. Case DOCUMENT.SP41=="Very True or Often True" ParentTotalScore = ParentTotalScore + 2
  811. else ""
  812. Endcond
  813.  
  814.  
  815. OBSNOW("SCAREDPRTOT", str(ParentTotalScore))
  816. }
  817.  
  818. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP2 <> "" AND DOCUMENT.SP3 <> "" AND DOCUMENT.SP4 <> "" AND DOCUMENT.SP5 <> "" AND DOCUMENT.SP6 <> ""AND DOCUMENT.SP7 <> "" AND DOCUMENT.SP8 <> "" AND DOCUMENT.SP9 <> "" AND DOCUMENT.SP10 <> "" AND DOCUMENT.SP11 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP13 <> "" AND DOCUMENT.SP14 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP16 <> "" AND DOCUMENT.SP17 <> "" AND DOCUMENT.SP18<> "" AND DOCUMENT.SP19 <> "" AND DOCUMENT.SP20 <> "" AND DOCUMENT.SP21 <> "" AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP23 <> ""AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP25 <> "" AND DOCUMENT.SP26 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP28 <> "" AND DOCUMENT.SP29 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP31 <> "" AND DOCUMENT.SP32 <> "" AND DOCUMENT.SP33 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP35 <> "" AND DOCUMENT.SP36 <> "" AND DOCUMENT.SP37 <> "" AND DOCUMENT.SP38 <> "" AND DOCUMENT.SP39 <> "" AND DOCUMENT.SP40 <> "" AND DOCUMENT.SP41 <> "" THEN ParentTotal() ELSE "" ENDIF}
  819.  
  820.  
  821. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP2 <> "" AND DOCUMENT.SP3 <> "" AND DOCUMENT.SP4 <> "" AND DOCUMENT.SP5 <> "" AND DOCUMENT.SP6 <> ""AND DOCUMENT.SP7 <> "" AND DOCUMENT.SP8 <> "" AND DOCUMENT.SP9 <> "" AND DOCUMENT.SP10 <> "" AND DOCUMENT.SP11 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP13 <> "" AND DOCUMENT.SP14 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP16 <> "" AND DOCUMENT.SP17 <> "" AND DOCUMENT.SP18<> "" AND DOCUMENT.SP19 <> "" AND DOCUMENT.SP20 <> "" AND DOCUMENT.SP21 <> "" AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP23 <> ""AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP25 <> "" AND DOCUMENT.SP26 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP28 <> "" AND DOCUMENT.SP29 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP31 <> "" AND DOCUMENT.SP32 <> "" AND DOCUMENT.SP33 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP35 <> "" AND DOCUMENT.SP36 <> "" AND DOCUMENT.SP37 <> "" AND DOCUMENT.SP38 <> "" AND DOCUMENT.SP39 <> "" AND DOCUMENT.SP40 <> "" AND DOCUMENT.SP41 <> "" THEN ParentTotal() ELSE "" ENDIF}
  822. }
  823.  
  824. {fn ParentPD() {
  825. ParentPDScore = 0
  826.  
  827. Cond
  828. Case DOCUMENT.SP1=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  829. Case DOCUMENT.SP1=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  830. else ""
  831. Endcond
  832.  
  833. Cond
  834. Case DOCUMENT.SP6=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  835. Case DOCUMENT.SP6=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  836. else ""
  837. Endcond
  838.  
  839. Cond
  840. Case DOCUMENT.SP9=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  841. Case DOCUMENT.SP9=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  842. else ""
  843. Endcond
  844.  
  845. Cond
  846. Case DOCUMENT.SP12=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  847. Case DOCUMENT.SP12=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  848. else ""
  849. Endcond
  850.  
  851. Cond
  852. Case DOCUMENT.SP15=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  853. Case DOCUMENT.SP15=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  854. else ""
  855. Endcond
  856.  
  857. Cond
  858. Case DOCUMENT.SP18=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  859. Case DOCUMENT.SP18=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  860. else ""
  861. Endcond
  862.  
  863. Cond
  864. Case DOCUMENT.SP19=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  865. Case DOCUMENT.SP19=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  866. else ""
  867. Endcond
  868.  
  869. Cond
  870. Case DOCUMENT.SP22=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  871. Case DOCUMENT.SP22=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  872. else ""
  873. Endcond
  874.  
  875. Cond
  876. Case DOCUMENT.SP24=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  877. Case DOCUMENT.SP24=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  878. else ""
  879. Endcond
  880.  
  881. Cond
  882. Case DOCUMENT.SP27=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  883. Case DOCUMENT.SP27=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  884. else ""
  885. Endcond
  886.  
  887. Cond
  888. Case DOCUMENT.SP30=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  889. Case DOCUMENT.SP30=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  890. else ""
  891. Endcond
  892.  
  893. Cond
  894. Case DOCUMENT.SP34=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  895. Case DOCUMENT.SP34=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  896. else ""
  897. Endcond
  898.  
  899. Cond
  900. Case DOCUMENT.SP38=="Somewhat True or Sometimes True" ParentPDScore = ParentPDScore + 1
  901. Case DOCUMENT.SP38=="Very True or Often True" ParentPDScore = ParentPDScore + 2
  902. else ""
  903. Endcond
  904.  
  905. OBSNOW("SCAREDPRTPD", str(ParentPDScore))
  906. }
  907.  
  908. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP6 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP18 <> "" AND DOCUMENT.SP19 <> ""AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP38 <> "" THEN ParentPD() ELSE "" ENDIF}
  909.  
  910.  
  911. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP6 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP18 <> "" AND DOCUMENT.SP19 <> ""AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP38 <> "" THEN IF OBSNOW(ParentPD is >= 7) "Score on SCARED Screening may indicate Panic Disorder or Significant Somatic symptoms" ELSE "" ENDIF}
  912. }
  913.  
  914. {fn ParentGAD() {
  915. ParentGADScore = 0
  916.  
  917. Cond
  918. Case DOCUMENT.SP5=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  919. Case DOCUMENT.SP5=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  920. else ""
  921. Endcond
  922.  
  923. Cond
  924. Case DOCUMENT.SP7=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  925. Case DOCUMENT.SP7=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  926. else ""
  927. Endcond
  928.  
  929. Cond
  930. Case DOCUMENT.SP14=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  931. Case DOCUMENT.SP14=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  932. else ""
  933. Endcond
  934.  
  935. Cond
  936. Case DOCUMENT.SP21=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  937. Case DOCUMENT.SP21=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  938. else ""
  939. Endcond
  940.  
  941. Cond
  942. Case DOCUMENT.SP23=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  943. Case DOCUMENT.SP23=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  944. else ""
  945. Endcond
  946.  
  947. Cond
  948. Case DOCUMENT.SP28=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  949. Case DOCUMENT.SP28=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  950. else ""
  951. Endcond
  952.  
  953. Cond
  954. Case DOCUMENT.SP33=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  955. Case DOCUMENT.SP33=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  956. else ""
  957. Endcond
  958.  
  959. Cond
  960. Case DOCUMENT.SP35=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  961. Case DOCUMENT.SP35=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  962. else ""
  963. Endcond
  964.  
  965. Cond
  966. Case DOCUMENT.SP37=="Somewhat True or Sometimes True" ParentGADScore = ParentGADScore + 1
  967. Case DOCUMENT.SP37=="Very True or Often True" ParentGADScore = ParentGADScore + 2
  968. else ""
  969. Endcond
  970.  
  971.  
  972. OBSNOW("SCAREDPRTGAD", str(ParentGADScore))
  973. }
  974.  
  975. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP6 <> "" AND DOCUMENT.SP9 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP18 <> ""AND DOCUMENT.SP19 <> "" AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP38 <> "" THEN ParentGAD() ELSE "" ENDIF}
  976.  
  977. {!IF DOCUMENT.SP1 <> "" AND DOCUMENT.SP6 <> "" AND DOCUMENT.SP9 <> "" AND DOCUMENT.SP12 <> "" AND DOCUMENT.SP15 <> "" AND DOCUMENT.SP18 <> ""AND DOCUMENT.SP19 <> "" AND DOCUMENT.SP22 <> "" AND DOCUMENT.SP24 <> "" AND DOCUMENT.SP27 <> "" AND DOCUMENT.SP30 <> "" AND DOCUMENT.SP34 <> "" AND DOCUMENT.SP38 <> "" THEN IF OBSNOW(ParentGAD is >= 9) "Sore on SCARED Screening may indicate General Anxiety Disorder" ELSE "" ENDIF}
  978. }
  979.  
  980.  
  981. {fn ParentSA() {
  982. ParentSAScore = 0
  983.  
  984. Cond
  985. Case DOCUMENT.SP4=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  986. Case DOCUMENT.SP4=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  987. else ""
  988. Endcond
  989.  
  990. Cond
  991. Case DOCUMENT.SP8=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  992. Case DOCUMENT.SP8=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  993. else ""
  994. Endcond
  995.  
  996. Cond
  997. Case DOCUMENT.SP13=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  998. Case DOCUMENT.SP13=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  999. else ""
  1000. Endcond
  1001.  
  1002. Cond
  1003. Case DOCUMENT.SP16=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  1004. Case DOCUMENT.SP16=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  1005. else ""
  1006. Endcond
  1007.  
  1008. Cond
  1009. Case DOCUMENT.SP20=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  1010. Case DOCUMENT.SP20=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  1011. else ""
  1012. Endcond
  1013.  
  1014. Cond
  1015. Case DOCUMENT.SP25=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  1016. Case DOCUMENT.SP25=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  1017. else ""
  1018. Endcond
  1019.  
  1020. Cond
  1021. Case DOCUMENT.SP29=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  1022. Case DOCUMENT.SP29=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  1023. else ""
  1024. Endcond
  1025.  
  1026. Cond
  1027. Case DOCUMENT.SP31=="Somewhat True or Sometimes True" ParentSAScore = ParentSAScore + 1
  1028. Case DOCUMENT.SP31=="Very True or Often True" ParentSAScore = ParentSAScore + 2
  1029. else ""
  1030. Endcond
  1031.  
  1032. OBSNOW("SCAREDPRTSA", str(ParentSAScore))
  1033. }
  1034.  
  1035. {!IF DOCUMENT.SP4 <> "" AND DOCUMENT.SP8 <> "" AND DOCUMENT.SP13 <> "" AND DOCUMENT.SP16 <> "" AND DOCUMENT.SP20 <> "" AND DOCUMENT.SP25 <> ""AND DOCUMENT.SP29 <> "" AND DOCUMENT.SP31 <> "" THEN ParentSA() ELSE "" ENDIF}
  1036.  
  1037. {!IF DOCUMENT.SP4 <> "" AND DOCUMENT.SP8 <> "" AND DOCUMENT.SP13 <> "" AND DOCUMENT.SP16 <> "" AND DOCUMENT.SP20 <> "" AND DOCUMENT.SP25 <> ""AND DOCUMENT.SP29 <> "" AND DOCUMENT.SP31 <> "" THEN IF OBSNOW(ParentSA is >= 5 ) "Score on SCARED Screening may indicate Separation Anxiety SOC" ELSE "" ENDIF}
  1038. }
  1039.  
  1040.  
  1041. {fn ParentSAD() {
  1042. ParentSADScore = 0
  1043.  
  1044. Cond
  1045. Case DOCUMENT.SP3=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1046. Case DOCUMENT.SP3=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1047. else ""
  1048. Endcond
  1049.  
  1050. Cond
  1051. Case DOCUMENT.SP10=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1052. Case DOCUMENT.SP10=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1053. else ""
  1054. Endcond
  1055.  
  1056. Cond
  1057. Case DOCUMENT.SP26=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1058. Case DOCUMENT.SP26=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1059. else ""
  1060. Endcond
  1061.  
  1062. Cond
  1063. Case DOCUMENT.SP32=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1064. Case DOCUMENT.SP32=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1065. else ""
  1066. Endcond
  1067.  
  1068. Cond
  1069. Case DOCUMENT.SP39=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1070. Case DOCUMENT.SP39=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1071. else ""
  1072. Endcond
  1073.  
  1074. Cond
  1075. Case DOCUMENT.SP40=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1076. Case DOCUMENT.SP40=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1077. else ""
  1078. Endcond
  1079.  
  1080. Cond
  1081. Case DOCUMENT.SP41=="Somewhat True or Sometimes True" ParentSADScore = ParentSADScore + 1
  1082. Case DOCUMENT.SP41=="Very True or Often True" ParentSADScore = ParentSADScore + 2
  1083. else ""
  1084. Endcond
  1085.  
  1086. OBSNOW("SCAREDPRTSAD", str(ParentSADScore))
  1087. }
  1088.  
  1089. {!IF DOCUMENT.SP3 <> "" AND DOCUMENT.SP10 <> "" AND DOCUMENT.SP26 <> "" AND DOCUMENT.SP32 <> "" AND DOCUMENT.SP39 <> "" AND DOCUMENT.SP40 <> ""AND DOCUMENT.SP41 <> "" THEN ParentSAD() ELSE "" ENDIF}
  1090.  
  1091. {!IF DOCUMENT.SP3 <> "" AND DOCUMENT.SP10 <> "" AND DOCUMENT.SP26 <> "" AND DOCUMENT.SP32 <> "" AND DOCUMENT.SP39 <> "" AND DOCUMENT.SP40 <> ""AND DOCUMENT.SP41 <> "" THEN IF OBSNOW(ParentSAD is >= 8) "Score on SCARED Screening may indicate Social Anxiety Disorder" ELSE "" ENDIF}
  1092. }
  1093.  
  1094.  
  1095. {fn ParentSSA() {
  1096. ParentSSAScore = 0
  1097.  
  1098. Cond
  1099. Case DOCUMENT.SP2=="Somewhat True or Sometimes True" ParentSSAScore = ParentSSAScore + 1
  1100. Case DOCUMENT.SP2=="Very True or Often True" ParentSSAScore = ParentSSAScore + 2
  1101. else ""
  1102. Endcond
  1103.  
  1104. Cond
  1105. Case DOCUMENT.SP11=="Somewhat True or Sometimes True" ParentSSAScore = ParentSSAScore + 1
  1106. Case DOCUMENT.SP11=="Very True or Often True" ParentSSAScore = ParentSSAScore + 2
  1107. else ""
  1108. Endcond
  1109.  
  1110. Cond
  1111. Case DOCUMENT.SP17=="Somewhat True or Sometimes True" ParentSSAScore = ParentSSAScore + 1
  1112. Case DOCUMENT.SP17=="Very True or Often True" ParentSSAScore = ParentSSAScore + 2
  1113. else ""
  1114. Endcond
  1115.  
  1116. Cond
  1117. Case DOCUMENT.SP36=="Somewhat True or Sometimes True" ParentSSAScore = ParentSSAScore + 1
  1118. Case DOCUMENT.SP36=="Very True or Often True" ParentSSAScore = ParentSSAScore + 2
  1119. else ""
  1120. Endcond
  1121.  
  1122. OBSNOW("SCAREDPRTSSA", str(ParentSSAScore))
  1123. }
  1124.  
  1125. {!IF DOCUMENT.SP2 <> "" AND DOCUMENT.SP11 <> "" AND DOCUMENT.SP17 <> "" AND DOCUMENT.SP36 <> "" THEN ParentSSA() ELSE "" ENDIF}
  1126.  
  1127. {!IF DOCUMENT.SP2 <> "" AND DOCUMENT.SP11 <> "" AND DOCUMENT.SP17 <> "" AND DOCUMENT.SP36 <> "" THEN IF OBSNOW(ParentSSA is >= 3) "Score on SCARED Screening may indicate Significant School Avoidance" ELSE "" ENDIF}
  1128.  
  1129. }
Add Comment
Please, Sign In to add comment
Public Pastes
We use cookies for various purposes including analytics. By continuing to use Pastebin, you agree to our use of cookies as described in the Cookies Policy.  OK, I Understand
Not a member of Pastebin yet?
Sign Up, it unlocks many cool features!