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

Package: Mental Health

Routine: YTSPHI


Information

YTSPHI ;SLC/KCM - Score PHI and format report ; 01/08/2016

Source Information

Source file <YTSPHI.m>

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 ^YTT(601.71  

Entry Points

Name Comments DBIA/ICR reference
DATA1 ; Loop YSDATA and map questions to choice values
; expects YTRESP from DLLSTR
MAPCHC(YTCHC) ; Map score to choice
; expects YSTRNG from DLLSTR
SCORESV ; Save the scores (only used for graphing for PHI)
; expects YTRESP from DLLSTR
REPORT(REFLECT,CARE) ; Set the special text for the report
; expects YTRESP from DLLSTR
SPACED(QSTN) ; Return answer text with aligned spacing
WRAPPED(TX,MAX) ; Wrap the response using "|" delimiters
ADDOUT(S) ; add string to out array (expects OUT)
DLLSTR(YSDATA,YS,YSTRNG) ;
; input
; YSDATA(2)=adminId^patientDFN^instrumentName^dateGiven^complete?
; YSDATA(2+n)=questionId^sequence^choiceId
; YS("AD")=adminId
; YSTRNG=1 for score, 2 for report
; output if YSTRNG=1
; ^TMP($J,"YSCOR",n)=scaleId=score
; output if YSTRNG=2
; append special "answers" to YSDATA

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J SCORESV+2!, SCORESV+3, SCORESV+4*, SCORESV+5*, SCORESV+6*, SCORESV+8, SCORESV+9, SCORESV+34*
^YTT(601.75 - [#601.75] MAPCHC+3

Label References

Name Line Occurrences
$$MAPCHC DATA1+8
$$SPACED REPORT+8, REPORT+9, REPORT+10, REPORT+11, REPORT+12, REPORT+13, REPORT+14, REPORT+15, REPORT+16
$$WRAPPED DLLSTR+20, DLLSTR+21, DLLSTR+22
ADDOUT WRAPPED+3, WRAPPED+7, WRAPPED+9
DATA1 DLLSTR+12
REPORT DLLSTR+16
SCORESV DLLSTR+13

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
CARE REPORT~, REPORT+17*, DLLSTR+15~, DLLSTR+16, DLLSTR+19
I WRAPPED+1~, WRAPPED+2*, WRAPPED+10*
J WRAPPED+1~, WRAPPED+5*, WRAPPED+6, WRAPPED+7
MAX WRAPPED~, WRAPPED+3, WRAPPED+7
N DLLSTR+15~, DLLSTR+17*, DLLSTR+18, DLLSTR+19, DLLSTR+20, DLLSTR+21, DLLSTR+22
OUT WRAPPED+1~, ADDOUT+1*
OUT( WRAPPED+10, ADDOUT+1*
QSTN SPACED~, SPACED+2
REFLECT REPORT~, REPORT+7*, DLLSTR+15~, DLLSTR+16, DLLSTR+18
S ADDOUT~, ADDOUT+1
SPACES SPACED+1~*, SPACED+2
TX WRAPPED~, WRAPPED+2
U DATA1+5, DATA1+7, MAPCHC+3, SCORESV+11
X SCORESV+7~, SCORESV+9*, SCORESV+10*, SCORESV+11, SCORESV+13*, SCORESV+14*, SCORESV+15*, SCORESV+16*, SCORESV+17*, SCORESV+18*
, SCORESV+19*, SCORESV+20*, SCORESV+21*, SCORESV+22*, SCORESV+23*, SCORESV+24*, SCORESV+25*, SCORESV+26*, SCORESV+27*, SCORESV+28*
, SCORESV+29*, SCORESV+30*, SCORESV+31*, SCORESV+32*, SCORESV+33*, SCORESV+34, REPORT+2~, REPORT+3*, REPORT+4*, REPORT+5*
, REPORT+6*, REPORT+7*, REPORT+8*, REPORT+9*, REPORT+10*, REPORT+11*, REPORT+12*, REPORT+13*, REPORT+14*, REPORT+15*
, REPORT+16*, REPORT+17, WRAPPED+1~, WRAPPED+2*, WRAPPED+3, WRAPPED+5, WRAPPED+6, WRAPPED+7, WRAPPED+10*, WRAPPED+11
Y WRAPPED+1~, WRAPPED+4*, WRAPPED+6, WRAPPED+7*, WRAPPED+8*, WRAPPED+9
YNEW WRAPPED+1~, WRAPPED+6*, WRAPPED+7, WRAPPED+8
YS DLLSTR~
YSDATA DLLSTR~
YSDATA( DATA1+4, DATA1+5, DATA1+7, DLLSTR+18*, DLLSTR+19*, DLLSTR+20*, DLLSTR+21*, DLLSTR+22*
YSDATA("" DLLSTR+17
YSTRNG MAPCHC+2, DLLSTR~, DLLSTR+13, DLLSTR+14
YTCHC DATA1+2~, DATA1+5*, DATA1+8, MAPCHC~, MAPCHC+2, MAPCHC+3, MAPCHC+4
YTI DATA1+2~, DATA1+3*, DATA1+4*, DATA1+5, DATA1+7, SCORESV+7~, SCORESV+8*, SCORESV+9, SCORESV+12*, SCORESV+34*
YTQSTN DATA1+2~, DATA1+5*, DATA1+6, DATA1+7, DATA1+8
YTRESP DLLSTR+11~
YTRESP( DATA1+3*, DATA1+7*, DATA1+8*, SPACED+2
YTRESP(8555 SCORESV+13, REPORT+4
YTRESP(8556 SCORESV+14, REPORT+5
YTRESP(8557 SCORESV+15, REPORT+6
YTRESP(8558 DLLSTR+20
YTRESP(8559 SCORESV+16, REPORT+8
YTRESP(8560 SCORESV+17
YTRESP(8561 SCORESV+18, REPORT+9
YTRESP(8562 SCORESV+19
YTRESP(8563 SCORESV+20, REPORT+10
YTRESP(8564 SCORESV+21
YTRESP(8565 SCORESV+22, REPORT+11
YTRESP(8566 SCORESV+23
YTRESP(8567 SCORESV+24, REPORT+12
YTRESP(8568 SCORESV+25
YTRESP(8569 SCORESV+26, REPORT+13
YTRESP(8570 SCORESV+27
YTRESP(8571 SCORESV+28, REPORT+14
YTRESP(8572 SCORESV+29
YTRESP(8573 SCORESV+30, REPORT+15
YTRESP(8574 SCORESV+31
YTRESP(8575 SCORESV+32, REPORT+16
YTRESP(8576 SCORESV+33
YTRESP(8577 DLLSTR+21
YTRESP(8578 DLLSTR+22
YTS SCORESV+7~, SCORESV+12*, SCORESV+13, SCORESV+14, SCORESV+15, SCORESV+16, SCORESV+17, SCORESV+18, SCORESV+19, SCORESV+20
, SCORESV+21, SCORESV+22, SCORESV+23, SCORESV+24, SCORESV+25, SCORESV+26, SCORESV+27, SCORESV+28, SCORESV+29, SCORESV+30
, SCORESV+31, SCORESV+32, SCORESV+33, SCORESV+34
YTSCALE SCORESV+7~
YTSCALE( SCORESV+11*, SCORESV+12, SCORESV+34
Info |  Source |  Caller Graph |  Entry Points |  Global Variables Directly Accessed |  Label References |  Local Variables  | All