YTQRQAD2 ;SLC/KCM - RESTful Calls to set/get MHA administrations ; 1/25/2017
Source file <YTQRQAD2.m>
Package | Total | Call Graph |
---|---|---|
Mental Health | 16 | ADMSAVE^YTQAPI1 SAVEALL^YTQAPI17 ($$CHKPROG,SPLTADM)^YTQRCAT (GETADM,POSTADM)^YTQRCRW DELASMT1^YTQRQAD1 ($$ALWNOTE,NOTE4PT)^YTQRQAD3 $$FILPNOT^YTQRQAD8 BLDRPT^YTQRRPT SETERROR^YTQRUTL VERIFY^YTSBAMC VERIFY^YTSBAMCC VERIFY^YTSBAMI VERIFY^YTSBAMIC VERIFY^YTSBAMR VERIFY^YTSBAMRC VERIFY^YTSSODU |
Kernel | 1 | $$NOW^XLFDT |
VA FileMan | 1 | ^%DT |
action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
Package | Total | Caller Graph |
---|---|---|
Mental Health | 1 | YTQRCRD |
Name | Comments | DBIA/ICR reference |
---|---|---|
SAVEADM(ARGS,DATA) | ; save answers and return /ys/mha/admin/{adminId}
|
|
QASAVE(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 |
|
SETADM(DATA,NUM) | ; return the id for new/updated admin
|
|
ETFM(YSDT) | ;External to FM
|
|
ADM4ASMT(NODE,TESTID) | ; return adminId if one has been saved for assignment
|
|
GETADM(ARGS,RESULTS) | ; get answers for administration identified by ARGS("adminId")
|
|
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 |
|
GETCHKS(ARGS,RESULTS) | ; verify answer string & return check messages if needed
|
Name | Field # of Occurrence |
---|---|
^%DT | ETFM+4 |
$$NOW^XLFDT | SETADM+7 |
ADMSAVE^YTQAPI1 | SETADM+25 |
SAVEALL^YTQAPI17 | QASAVE+27 |
$$CHKPROG^YTQRCAT | GETADM+29 |
SPLTADM^YTQRCAT | SAVEADM+27 |
GETADM^YTQRCRW | GETADM+2 |
POSTADM^YTQRCRW | SAVEADM+1 |
DELASMT1^YTQRQAD1 | SAVEADM+33 |
$$ALWNOTE^YTQRQAD3 | SAVEADM+26 |
NOTE4PT^YTQRQAD3 | SAVEADM+11 |
$$FILPNOT^YTQRQAD8 | SAVEADM+31 |
BLDRPT^YTQRRPT | SAVEADM+26 |
SETERROR^YTQRUTL | QASAVE+28, SETADM+26, GETADM+1, GETADM+4 |
VERIFY^YTSBAMC | GETCHKS+4 |
VERIFY^YTSBAMCC | GETCHKS+7 |
VERIFY^YTSBAMI | GETCHKS+6 |
VERIFY^YTSBAMIC | GETCHKS+9 |
VERIFY^YTSBAMR | GETCHKS+5 |
VERIFY^YTSBAMRC | GETCHKS+8 |
VERIFY^YTSSODU | GETCHKS+10 |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^XTMP( | SAVEADM+16, SAVEADM+17, SAVEADM+19!, SAVEADM+21*, SAVEADM+22*, SAVEADM+24, SAVEADM+28, SAVEADM+33, SETADM+7, SETADM+11 , SETADM+13, SETADM+16, SETADM+17, SETADM+21, SETADM+24, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5 |
^XTMP("YTQASMT-SET-" | SAVEADM+10 |
^YTT(601.72 - [#601.72] | QASAVE+17, GETADM+16 |
^YTT(601.76 - [#601.76] | GETADM+14, GETADM+15 |
^YTT(601.84 - [#601.84] | GETADM+3, GETADM+7 |
^YTT(601.85 - [#601.85] | GETADM+13, GETADM+17, GETADM+18, GETADM+23, GETADM+25, GETADM+26 |
Name | Line Occurrences |
---|---|
$$ADM4ASMT | SETADM+5 |
$$ETFM | SETADM+7 |
$$QASAVE | SAVEADM+3 |
$$SETADM | QASAVE+22 |
ADDSEGS | TXT2ANS+5, TXT2ANS+9 |
TXT2ANS | QASAVE+19 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ADMIN | SAVEADM+2~, SAVEADM+3*, SAVEADM+11, SAVEADM+21, SAVEADM+26, SAVEADM+27, SAVEADM+31, SAVEADM+34, QASAVE+4~, QASAVE+22* , QASAVE+23, QASAVE+26, QASAVE+29, SETADM+1~, SETADM+4*, SETADM+5*, SETADM+9, SETADM+27, SETADM+28, GETADM+6~ , GETADM+7*, GETADM+8, GETADM+13, GETADM+17, GETADM+29 |
ADMINDT | SETADM+1~, SETADM+7*, SETADM+13 |
AGPROG | SAVEADM+6~, SAVEADM+28*, SAVEADM+31 |
ANS | QASAVE+4~, QASAVE+27, GETADM+6~, GETADM+17*, GETADM+18, GETADM+23, GETADM+25, GETADM+26 |
ANS( | QASAVE+12*, QASAVE+18*, QASAVE+19*, ADDSEGS+6* |
ANS("AD" | QASAVE+26* |
ARGS | SAVEADM~, GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10 |
ARGS("adminId" | GETADM+1, GETADM+2, GETADM+3, GETADM+4, GETADM+7 |
ARGS("instrumentName" | GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10 |
ASMT | SAVEADM+6~, SAVEADM+7*, SAVEADM+10, SAVEADM+15, SAVEADM+31, SAVEADM+33 |
ASMTID | SETADM+1~, SETADM+2*, SETADM+3 |
CATPROG | GETADM+29~*, GETADM+30 |
CPLT | SAVEADM+6~, SAVEADM+9*, SAVEADM+11, SAVEADM+19, SAVEADM+23, SAVEADM+25 |
CTNT | GETADM+6~, GETADM+14*, GETADM+15 |
CURADM | ADM4ASMT+1~, ADM4ASMT+2*, ADM4ASMT+3, ADM4ASMT+5*, ADM4ASMT+6*, ADM4ASMT+7 |
DATA | SAVEADM~, SAVEADM+3, SAVEADM+11, QASAVE~, QASAVE+22, SETADM~ |
DATA("adminId" | SETADM+4 |
DATA("answers" | QASAVE+6, QASAVE+7, QASAVE+8, QASAVE+20!, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8 |
DATA("assignmentId" | SAVEADM+1, SAVEADM+7, SETADM+2 |
DATA("complete" | SAVEADM+9, SAVEADM+22, SETADM+19 |
DATA("instrumentId" | SAVEADM+17, SETADM+5, SETADM+12 |
DATA("lastAssignment" | SAVEADM+8 |
DATA("source" | SETADM+22*, SETADM+23 |
END | ADDSEGS+2~, ADDSEGS+3* |
FIRST | ADDSEGS+2~, ADDSEGS+4*, ADDSEGS+5 |
I | SAVEADM+14~, SAVEADM+16*, SAVEADM+17, SAVEADM+19, SAVEADM+21, SAVEADM+22, SAVEADM+24, QASAVE+4~, QASAVE+6*, QASAVE+7 , QASAVE+8, QASAVE+19, ADM4ASMT+1~, ADM4ASMT+3*, ADM4ASMT+4, ADM4ASMT+5, GETADM+6~, GETADM+33*, GETADM+34, GETADM+35 , GETADM+36, GETADM+37, ADDSEGS+2~, ADDSEGS+3*, ADDSEGS+4 |
IDX | TXT2ANS~, TXT2ANS+4, TXT2ANS+6, TXT2ANS+7, TXT2ANS+8 |
J | GETADM+6~, GETADM+36*, GETADM+37, TXT2ANS+2~, TXT2ANS+7*, TXT2ANS+8 |
L | GETADM+6~, GETADM+25*, GETADM+28*, GETADM+36*, GETADM+37 |
LAST | ADDSEGS+2~, ADDSEGS+3*, ADDSEGS+4*, ADDSEGS+5 |
LEN | TXT2ANS+2~, TXT2ANS+3*, ADDSEGS+4 |
LN | TXT2ANS+2~, TXT2ANS+3*, ADDSEGS+4*, ADDSEGS+6 |
LSTASMT | SAVEADM+6~, SAVEADM+8*, SAVEADM+11, SAVEADM+25, SAVEADM+31 |
N | GETADM+6~, GETADM+25*, GETADM+26, GETADM+33*, GETADM+34, GETADM+35, GETADM+37 |
NA | GETADM+6~, GETADM+12*, GETADM+19*, GETADM+31 |
NOD | SAVEADM+14~, SAVEADM+15*, SAVEADM+16, SAVEADM+17, SAVEADM+19, SAVEADM+21, SAVEADM+22, SAVEADM+24, SAVEADM+28, SAVEADM+33 |
NODE | SETADM+1~, SETADM+3*, SETADM+5, SETADM+7, SETADM+11, SETADM+13, SETADM+16, SETADM+17, SETADM+21, SETADM+24 , ADM4ASMT~, ADM4ASMT+3, ADM4ASMT+4, ADM4ASMT+5, TXT2ANS+2~, TXT2ANS+4*, TXT2ANS+5, TXT2ANS+8*, TXT2ANS+9, ADDSEGS~ , ADDSEGS+3, ADDSEGS+5 |
NUM | SETADM~, SETADM+20 |
PNOT | SAVEADM+6~, SAVEADM+31* |
PTENT | SAVEADM+6~, SAVEADM+10*, SAVEADM+11, SAVEADM+19, SAVEADM+25 |
QANS | QASAVE+4~, QASAVE+5*, QASAVE+14*, QASAVE+22 |
QID | QASAVE+4~, QASAVE+7*, QASAVE+9, QASAVE+11*, QASAVE+12, QASAVE+17, QASAVE+18, QASAVE+19, GETADM+6~, GETADM+13* , GETADM+14, GETADM+16, GETADM+17, GETADM+20, GETADM+22, GETADM+24, GETADM+27 |
QNUM | QASAVE+4~, QASAVE+5*, QASAVE+10*, QASAVE+12, QASAVE+18, QASAVE+19, TXT2ANS~, ADDSEGS+6 |
REMAIN | SAVEADM+14~, SAVEADM+15*, SAVEADM+23*, SAVEADM+24*, SAVEADM+33 |
RESULTS | GETADM~, GETCHKS~, GETCHKS+4, GETCHKS+5, GETCHKS+6, GETCHKS+7, GETCHKS+8, GETCHKS+9, GETCHKS+10 |
RESULTS("adminId" | GETADM+8* |
RESULTS("answers" | GETADM+34*, GETADM+35*, GETADM+37* |
RESULTS("complete" | GETADM+9* |
RESULTS("count" | GETCHKS+3* |
RESULTS("instrumentId" | GETADM+10* |
RESULTS("progress" | GETADM+30*, GETADM+31* |
RT1 | QASAVE+4~, QASAVE+15*, QASAVE+16*, QASAVE+17*, QASAVE+18 |
SEQ | GETADM+6~, GETADM+15*, GETADM+20, GETADM+22, GETADM+24, GETADM+27, GETADM+28 |
TESTID | ADM4ASMT~, ADM4ASMT+4 |
TMP | GETADM+6~ |
TMP( | GETADM+20*, GETADM+22*, GETADM+24*, GETADM+27*, GETADM+28*, GETADM+33, GETADM+34, GETADM+35, GETADM+36, GETADM+37 |
TMPYS | SAVEADM+6~, SAVEADM+26, SAVEADM+31 |
TOT | GETADM+6~, GETADM+12*, GETADM+18*, GETADM+31 |
TST | GETADM+6~, GETADM+7*, GETADM+10, GETADM+14 |
TYP | GETADM+6~, GETADM+16*, GETADM+21*, GETADM+22, GETADM+24 |
U | QASAVE+12, QASAVE+17, QASAVE+18, SETADM+27, GETADM+7, GETADM+9, GETADM+15, GETADM+16, GETADM+18, GETADM+20 , GETADM+22, GETADM+24, GETADM+27, GETADM+34, GETADM+35 |
VAL | QASAVE+4~, QASAVE+8*, QASAVE+12, QASAVE+14, QASAVE+16, QASAVE+18, GETADM+6~, GETADM+18*, GETADM+19, GETADM+20 , GETADM+21, GETADM+22, GETADM+23*, GETADM+24, GETADM+26*, GETADM+27, GETADM+28 |
X | ETFM+2~, ETFM+4*, ADDSEGS+2~, ADDSEGS+5*, ADDSEGS+6 |
X0 | GETADM+6~, GETADM+7*, GETADM+9 |
Y | ETFM+2~, ETFM+5*, ETFM+6 |
YS | SETADM+1~, SETADM+25 |
YS("FILEN" | SETADM+8* |
YS("IEN" | SETADM+9* |
YS(1 | SETADM+10* |
YS(10 | SETADM+20* |
YS(11 | SETADM+21* |
YS(12 | SETADM+23* |
YS(13 | SETADM+24* |
YS(2 | SETADM+11* |
YS(3 | SETADM+12* |
YS(4 | SETADM+13* |
YS(5 | SETADM+15* |
YS(6 | SETADM+16* |
YS(7 | SETADM+17* |
YS(8 | SETADM+18* |
YS(9 | SETADM+19* |
YSDATA | QASAVE+25~, QASAVE+27, SETADM+1~, SETADM+25 |
YSDATA(1 | QASAVE+28, SETADM+26 |
YSDATA(2 | SETADM+27 |
YSDT | ETFM~, ETFM+3*, ETFM+4 |