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 |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All
Print Page as PDF
Routine: YSASO1

Package: Mental Health

Routine: YSASO1


Information

YSASO1 ;692/DCL-ASI OUTPUT SEVERITY- COMPOSITE SCORES ;5/22/97 10:59

Source Information

Source file <YSASO1.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Mental Health 2 ($$CSA,$$CSD,$$CSES,$$CSFSR,$$CSLS,$$CSMS,$$CSPS)^YSASCSA  (DICF,DICI)^YSASO  
VA FileMan 2 $$GET1^DIQ  ^DIR  

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 YSASSN  

Entry Points

Name Comments DBIA/ICR reference
OUT1(YSASIEN) ;Entry Point pass IEN from file 604
F(YSASFLD) ;Pass field name - IEN is expected to be in YSASIEN
ENI ;Entry point for INTAKE
ENF ;Entry Point for FOLLOW-UP
OUT2(YSASIEN,YSASOK) ;Entry Point pass IEN from file 604
CS(X) ;Composite Scores

External References

Name Field # of Occurrence
$$GET1^DIQ F+3
^DIR OUT1+24
$$CSA^YSASCSA CS+3
$$CSD^YSASCSA CS+4
$$CSES^YSASCSA CS+2
$$CSFSR^YSASCSA CS+6
$$CSLS^YSASCSA CS+5
$$CSMS^YSASCSA CS+1
$$CSPS^YSASCSA CS+7
DICF^YSASO ENF+2
DICI^YSASO ENI+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,YSASNA,!,$TR($J("",$L(YSASNA))," ","-"),!
  • Line Location: OUT1+7
Function Call: WRITE
  • Prompt: !," Admission Date: ",$$F(1)
  • Line Location: OUT1+8
Function Call: WRITE
  • Prompt: !," Interview Date: ",$$F(.05)
  • Line Location: OUT1+9
Function Call: WRITE
  • Prompt: !," Time Begun: ",$$F(.051)
  • Line Location: OUT1+10
Function Call: WRITE
  • Prompt: !," Time Ended: ",$$F(.052)
  • Line Location: OUT1+11
Function Call: WRITE
  • Prompt: !," Interviewer: ",$$F(.09)
  • Line Location: OUT1+12
Function Call: WRITE
  • Prompt: !
  • Line Location: OUT1+13
Function Call: WRITE
  • Prompt: !?C2,"Severity",?C3,"Composite"
  • Line Location: OUT1+14
Function Call: WRITE
  • Prompt: !?C2,"Ratings",?C3,"Scores"
  • Line Location: OUT1+15
Function Call: WRITE
  • Prompt: !?C2,"--------",?C3,"---------"
  • Line Location: OUT1+16
Function Call: WRITE
  • Prompt: !?C1," MEDICAL",?C2,$J($$F(8.12),4),?C3,$J($$F(.61),8,4)
  • Line Location: OUT1+17
Function Call: WRITE
  • Prompt: !?C1," EMPLOYMENT",?C2,$J($$F(9.34),4),?C3,$J($$F(.62),8,4)
  • Line Location: OUT1+18
Function Call: WRITE
  • Prompt: !?C1," ALCOHOL",?C2,$J($$F(11.18),4),?C3,$J($$F(.63),8,4)
  • Line Location: OUT1+19
Function Call: WRITE
  • Prompt: !?C1," DRUG",?C2,$J($$F(11.185),4),?C3,$J($$F(.635),8,4)
  • Line Location: OUT1+20
Function Call: WRITE
  • Prompt: !?C1," LEGAL",?C2,$J($$F(14.34),4),?C3,$J($$F(.64),8,4)
  • Line Location: OUT1+21
Function Call: WRITE
  • Prompt: !?C1," FAMILY",?C2,$J($$F(18.29),4),?C3,$J($$F(.65),8,4)
  • Line Location: OUT1+22
Function Call: WRITE
  • Prompt: !?C1,"PSYCHIATRIC",?C2,$J($$F(19.33),4),?C3,$J($$F(.66),8,4)
  • Line Location: OUT1+23
Function Call: WRITE
  • Prompt: !!
  • Line Location: OUT1+24
Function Call: WRITE
  • Prompt: !,YSASNA,?C2,"Severity",?C3,"Composite"
  • Line Location: OUT2+9
Function Call: WRITE
  • Prompt: !,$TR($J("",$L(YSASNA))," ","-"),?C2,"Ratings",?C3,"Scores"
  • Line Location: OUT2+10
Function Call: WRITE
  • Prompt: !," Adm: ",$$F(1),?C2,"--------",?C3,"---------"
  • Line Location: OUT2+11
Function Call: WRITE
  • Prompt: !," Int: ",$$F(.05),?C1," MEDICAL",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+13
Function Call: WRITE
  • Prompt: !," By: ",$S(X]"":$P(X,","),1:"<INCOMPLETE>"),?C1," EMPLOYMENT",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+16
Function Call: WRITE
  • Prompt: !?C1," ALCOHOL",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+18
Function Call: WRITE
  • Prompt: !?C1," DRUG",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+20
Function Call: WRITE
  • Prompt: !?C1," LEGAL",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+22
Function Call: WRITE
  • Prompt: !?C1," FAMILY",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+24
Function Call: WRITE
  • Prompt: !?C1,"PSYCHIATRIC",?C2,$J(YSASS,4),?C3,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT2+26
Routine Call
  • DIR
  • Line Location:
    • OUT1+24

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSTX(604 - [#604] GET1^DIQ

Label References

Name Line Occurrences
$$F OUT1+5, OUT1+8, OUT1+9, OUT1+10, OUT1+11, OUT1+12, OUT1+17, OUT1+18, OUT1+19, OUT1+20
, OUT1+21, OUT1+22, OUT1+23, OUT2+7, OUT2+11, OUT2+12, OUT2+13, OUT2+14, OUT2+15, OUT2+17
, OUT2+19, OUT2+21, OUT2+23, OUT2+25
OUT1 ENI+3, ENF+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
C1 OUT1+2~, OUT1+3*, OUT1+17, OUT1+18, OUT1+19, OUT1+20, OUT1+21, OUT1+22, OUT1+23, OUT2+3~
, OUT2+4*, OUT2+13, OUT2+16, OUT2+18, OUT2+20, OUT2+22, OUT2+24, OUT2+26
C2 OUT1+2~, OUT1+3*, OUT1+14, OUT1+15, OUT1+16, OUT1+17, OUT1+18, OUT1+19, OUT1+20, OUT1+21
, OUT1+22, OUT1+23, OUT2+3~, OUT2+4*, OUT2+9, OUT2+10, OUT2+11, OUT2+13, OUT2+16, OUT2+18
, OUT2+20, OUT2+22, OUT2+24, OUT2+26
C3 OUT1+2~, OUT1+3*, OUT1+14, OUT1+15, OUT1+16, OUT1+17, OUT1+18, OUT1+19, OUT1+20, OUT1+21
, OUT1+22, OUT1+23, OUT2+3~, OUT2+4*, OUT2+9, OUT2+10, OUT2+11, OUT2+13, OUT2+16, OUT2+18
, OUT2+20, OUT2+22, OUT2+24, OUT2+26
DIERR F+1~
DIR OUT1+24!
DIR(0 OUT1+24*
IOF OUT1+6, OUT2+8
X OUT1+2~, OUT2+3~, OUT2+15*, OUT2+16, CS~, CS+1, CS+2, CS+3, CS+4, CS+5
, CS+6, CS+7
Y OUT1+2~, OUT2+3~
YSASAGE OUT1+2~, OUT1+5*, OUT2+3~, OUT2+7*
YSASC OUT2+3~, OUT2+12*, OUT2+13, OUT2+14*, OUT2+16, OUT2+17*, OUT2+18, OUT2+19*, OUT2+20, OUT2+21*
, OUT2+22, OUT2+23*, OUT2+24, OUT2+25*, OUT2+26
YSASCS OUT1+2~, OUT2+3~
YSASDA ENI+1~, ENI+2, ENI+3, ENF+1~, ENF+2, ENF+3
YSASFLD F~, F+2, F+3
YSASIEN OUT1~, OUT1+1, OUT1+3*, F+3, OUT2~, OUT2+2, OUT2+4*, CS+1, CS+2, CS+3
, CS+4, CS+5, CS+6, CS+7
YSASMSG OUT2+3~, OUT2+4*
YSASN OUT1+2~, OUT1+5*, OUT2+3~, OUT2+7*
YSASNA OUT1+2~, OUT1+5*, OUT1+7, OUT2+7*, OUT2+9, OUT2+10
YSASOK OUT2~, OUT2+4*
YSASS OUT2+3~, OUT2+12*, OUT2+13, OUT2+14*, OUT2+16, OUT2+17*, OUT2+18, OUT2+19*, OUT2+20, OUT2+21*
, OUT2+22, OUT2+23*, OUT2+24, OUT2+25*, OUT2+26
YSASSR OUT1+2~, OUT1+4*, OUT2+3~, OUT2+6*
YSASY OUT1+2~, OUT2+3~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Label References |  Local Variables  | All