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 |  FileMan Files Accessed Via FileMan Db Call
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>

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

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YSTX(604 - [#604] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call