YTQRCDB ;BAL/KTL - MHA CLOUD DATABASE ADMIN RPC CALLS; 1/25/2017
Source file <YTQRCDB.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SAVEADM(ARGS,DATA) | ; Save instrument administration and answers
|
|
| SCORADM(ARGS,DATA) | ;Score administration
|
|
| SAVESCR(ADMM,DATA) | ||
| FILADMIN(DATA) | ||
| RVW(ARGS,DATA) | ; update admin REVIEWED status
; Requires input ; DATA("adminId") |
|
| SETADM(DATA) | ; return the id for new/updated admin
; Requires input ; DATA("patientId") ; DATA("orderedById") ; DATA("administeredById") ; DATA("completedDate") ; DATA("dateSaved") ; DATA("dateGiven") ; DATA("instrumentId") ; Optional ; DATA("adminId") - if updating existing admin ; DATA("cosignerId") |
|
| FILANS(ADMIN,DATA) | ; File Answers for an ADMIN
; Requires: ADMIN = IEN of MH ADMINISTRATION ; DATA("answers",i,"id"/"value") |
|
| QASAVE(ADMIN,DATA) | ; save questions and answers in DATA
; loop through DATA to create ANS array, then YSDATA array ; ANS(#)=questionId^choiceId <-- radio group question ; ANS(#,#)=wp value <-- all others ; Return: 1 = Success ; 0 = Failure |
|
| TXT2ANS(IDX,QNUM) | ; Convert web to ANS format for DATA(IDX)
; expects DATA,ANS |
|
| ADDSEGS(NODE) | ; split text in node into LEN segments with "|" for newlines
; expects DATA,ANS,LEN,LN |
|
| SCOREIT(DATA,SCORES) | ; Score instrument based on incoming answers.
; Expects DATA("test")=TEST NAME ; Expects answers in the DATA("answers",i,"id"/"value") array |
|
| LGSCORE(DATA,SCORES) | ;
; |
| FileNo | Call Tags |
|---|---|
| ^YTT(601.71 - [#601.71] | GET1^DIQ |
