Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YTQRQAD2

Package: Mental Health

Routine: YTQRQAD2


Information

YTQRQAD2 ;SLC/KCM - RESTful Calls to set/get MHA administrations ; 1/25/2017

Source Information

Source file <YTQRQAD2.m>

Call Graph

Call Graph

Call Graph Total: 18

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  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YTQRCRD  

Entry Points

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

External References

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

Global Variables Directly Accessed

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

Label References

Name Line Occurrences
$$ADM4ASMT SETADM+5
$$ETFM SETADM+7
$$QASAVE SAVEADM+3
$$SETADM QASAVE+22
ADDSEGS TXT2ANS+5, TXT2ANS+9
TXT2ANS QASAVE+19

Local Variables

Legend:

>> 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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Global Variables Directly Accessed |  Label References |  Local Variables  | All