Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls
Print Page as PDF
Routine: YTMBMD

Package: Mental Health

Routine: YTMBMD


Information

YTMBMD ;ALB/ASF,HIOFO/FT - MBMD ; 7/15/13 1:43pm

Source Information

Source file <YTMBMD.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ;
RD
VALIDITY ;check if ok to score
RAW ; raw scores
PS1 ; untransformed prevalence scores
RPA ;Response Pattern Adjustment
HPA ;High Point Adjustment COPING
HPA1 ;high point AA-EE, a-m
REPT ;reports
LIKELY ;
CHART ;
NOTEWOR ;note worthy responses

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?(72-$L(X)\2),X,!
  • Line Location: REPT+4
Function Call: WRITE
  • Prompt: !?50,$S(YSVFLAG:"*** Invalid Profile ***",1:"Valid Profile")
  • Line Location: REPT+5
Function Call: WRITE
  • Prompt: !,"*** General Medical Norms ***"
  • Line Location: REPT+6
Function Call: WRITE
  • Prompt: !,?4,$P(^YTT(601,YSTEST,"S",I,0),U,2),?25
  • Line Location: REPT+10
Function Call: WRITE
  • Prompt: !,$P(YSSID," ")
  • Line Location: REPT+19
Function Call: WRITE
  • Prompt: ?52,$P(YSSID," ",2,99)
  • Line Location: REPT+22
Function Call: WRITE
  • Prompt: $S(X="L":"unlikely problem",X="M":"possible problem",X="H":"likely problem",1:"????")
  • Line Location: LIKELY+3
Function Call: WRITE
  • Prompt: $E("XXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXXX",1,$J(X/3,0,0))
  • Line Location: CHART+4
Function Call: WRITE
  • Prompt: !!?10,"*** Noteworthy Responses ***"
  • Line Location: NOTEWOR+2
Function Call: WRITE
  • Prompt: !," 58. ",^YTT(601,YSTEST,"Q",58,"T",1,0)
  • Line Location: NOTEWOR+10
Function Call: WRITE
  • Prompt: !,"161. ",^YTT(601,YSTEST,"Q",161,"T",1,0)
  • Line Location: NOTEWOR+11
Info |  Source |  Entry Points |  Interaction Calls