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: YSASO2

Package: Mental Health

Routine: YSASO2


Information

YSASO2 ;692/DCL-ASI/ASF COMPOSITE SCORES FOR LITE ;5/22/97 11:10

Source Information

Source file <YSASO2.m>

Entry Points

Name Comments DBIA/ICR reference
OUT3(YSASIEN,YSASOK) ;Entry Point pass IEN from file 604 FOR LITE
F(YSASFLD) ;Pass field name - IEN is expected to be in YSASIEN
CHECKALL(YSASIEN,YSFLAG) ; all reqiured fields
TESTIT ;
REPTMSG(YSASIEN) ;report missing requires

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,YSASNA,?C2,"Composite"
  • Line Location: OUT3+6
Function Call: WRITE
  • Prompt: !,$TR($J("",$L(YSASNA))," ","-"),?C2,"Scores"
  • Line Location: OUT3+7
Function Call: WRITE
  • Prompt: !," Adm: ",$$F(1),?C2,"--------"
  • Line Location: OUT3+8
Function Call: WRITE
  • Prompt: !," Int: ",$$F(.05),?C1," MEDICAL",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+10
Function Call: WRITE
  • Prompt: !," By: ",$S(X]"":$P(X,","),1:"<INCOMPLETE>"),?C1," EMPLOYMENT",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+13
Function Call: WRITE
  • Prompt: !?C1," ALCOHOL",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+15
Function Call: WRITE
  • Prompt: !?C1," DRUG",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+17
Function Call: WRITE
  • Prompt: !?C1," LEGAL",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+19
Function Call: WRITE
  • Prompt: !?C1," FAMILY",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+21
Function Call: WRITE
  • Prompt: !?C1,"PSYCHIATRIC",?C2,$S(YSASC="":" ----",1:YSASC)
  • Line Location: OUT3+23
Function Call: WRITE
  • Prompt: @IOF,YSASPT," interviewed on ",YSASDT,!,"Required ASI Items M=missing, X= not answered, N= not applicable",!
  • Line Location: REPTMSG+6
Function Call: WRITE
  • Prompt: $J($P(^YSTX(604.66,N1,0),U,11)_":"_$S(X="":"M",1:X),10)
  • Line Location: REPTMSG+13
Function Call: WRITE
  • Prompt: !
  • Line Location: REPTMSG+15

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