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 |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTMBMD1

Package: Mental Health

Routine: YTMBMD1


Information

YTMBMD1 ;ALB/ASF-MBMD ; 2/14/12 12:50pm

Source Information

Source file <YTMBMD1.m>

Call Graph

Call Graph

Call Graph Total: 1

Package Total Call Graph
Mental Health 1 (DTA,SCR)^YTREPT  

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 YTMBMD  

Entry Points

Name Comments DBIA/ICR reference
PSB ; bariatric untransformed prevalence scores
RPAB ;bariatric Response Pattern Adjustment
HPAB ;High Point Adjustment COPING
HPA1B ;high point AA-EE, a-m
REPTB ;bariatric reports
LIKELY ;
CHART ;
PERCENT ;Paint score percentiles

External References

Name Field # of Occurrence
DTA^YTREPT REPTB+3
SCR^YTREPT REPTB+7, REPTB+11, REPTB+12

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?(72-$L(X)\2),X,!
  • Line Location: REPTB+4
Function Call: WRITE
  • Prompt: !?50,$S(YSVFLAG:"*** Invalid Profile ***",1:"Valid Profile")
  • Line Location: REPTB+5
Function Call: WRITE
  • Prompt: !,"*** Bariatric Norms ***"
  • Line Location: REPTB+6
Function Call: WRITE
  • Prompt: !,?4,$P(^YTT(601,YSTEST,"S",I,0),U,2),?25
  • Line Location: REPTB+10
Function Call: WRITE
  • Prompt: !,$P(YSSID," ")
  • Line Location: REPTB+19
Function Call: WRITE
  • Prompt: ?52,$P(YSSID," ",2,99)
  • Line Location: REPTB+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTT(601 - [#601] PSB+1, REPTB+2, REPTB+10, REPTB+18, PERCENT+1

Label References

Name Line Occurrences
CHART REPTB+21
LIKELY REPTB+10

Naked Globals

Name Field # of Occurrence
^("P" REPTB+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A REPTB+2*
>> B REPTB+2*
>> I PSB+1*, RPAB+7*, HPAB+1*, HPAB+3*, HPA1B+2*, HPA1B+5*, HPA1B+6*, REPTB+7*, REPTB+8, REPTB+9
, REPTB+10, REPTB+12*, REPTB+13, REPTB+14, REPTB+15, REPTB+16, REPTB+17, REPTB+18, REPTB+20, LIKELY+2
, CHART+2, PERCENT+1*
IOST REPTB+7, REPTB+11, REPTB+12
>> L1 REPTB+2*
>> L2 REPTB+2*
>> N HPAB+1*, HPAB+2, HPA1B+1*, HPA1B+2*, HPA1B+3, HPA1B+4
>> R PSB+1, REPTB+20, PERCENT+1
>> S PSB+1*, RPAB+2, RPAB+3, RPAB+4, RPAB+5, RPAB+6, RPAB+7*, HPAB+1, HPAB+3*, HPA1B+2
, HPA1B+5*, HPA1B+6*, REPTB+20, LIKELY+2, CHART+2, PERCENT+1*
U PSB+1, RPAB+2, RPAB+3, RPAB+4, RPAB+5, RPAB+6, RPAB+7, HPAB+1, HPAB+3, HPA1B+2
, HPA1B+5, HPA1B+6, REPTB+2, REPTB+10, REPTB+18, REPTB+20, LIKELY+2, CHART+2, PERCENT+1
X REPTB+2*, REPTB+4, LIKELY+1~, LIKELY+2*, LIKELY+3, CHART+1~, CHART+2*, CHART+4
>> YSDAS RPAB+1*, RPAB+2*, RPAB+3*, RPAB+4*, RPAB+5*, RPAB+6*, RPAB+7, HPAB+2*, HPAB+3, HPA1B+3*
, HPA1B+5
>> YSDAS1 HPA1B+4*, HPA1B+6
>> YSSEX PSB+1, PERCENT+1
>> YSSID REPTB+18*, REPTB+19, REPTB+22
>> YSTEST PSB+1, REPTB+2, REPTB+10, REPTB+18, PERCENT+1
>> YSTOUT REPTB+1*, REPTB+7, REPTB+11, REPTB+12
>> YSUOUT REPTB+1*, REPTB+7, REPTB+11, REPTB+12
>> YSVFLAG REPTB+5
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All