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

Package: Mental Health

Routine: YSASOL


Information

YSASOL ;ASF/ALB,HIOFO/FT - ASI ON-LINE ENTRY ;1/31/13 10:49am

Source Information

Source file <YSASOL.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN(YSASPIEN,YSASSIEN) ;
LOOP ;
WP ;
L3 ;
L4 ;No form feed
L5
VAL ;
TEST ;
FDAGET ;
DISP ;display question
HINT ;
ANS
DISPQ ;
HEAD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?10,"*** Additional Areas ***",!,"1. Spiritual",!,"2. Leisure",!
  • Line Location: WP+2
Function Call: READ
  • Variable: YSV
  • Timeout: DTIME
  • Line Location: L5+0
Function Call: WRITE
  • Prompt: $C(7)," No extended help available "
  • Line Location: L5+14
Function Call: WRITE
  • Prompt: !,^(Y,0)
  • Line Location: L5+22
Function Call: WRITE
  • Prompt: $C(7),"?? "
  • Line Location: L5+36
Function Call: WRITE
  • Prompt: ?$X+3,YSA(0)
  • Line Location: L5+37
Function Call: WRITE
  • Prompt: ?15,YSASRV1,YSASID,YSASRV0," "
  • Line Location: DISP+2
Function Call: WRITE
  • Prompt: $S(YSASID?1"G".E:"General Information",YSASID?1"M".E:"Medical Status",YSASID?1"E".E:"Employment Status",YSASID?1"D".E:"Drug/Alcohol Status",YSASID?1"L".E:"Legal Status",1:"")
  • Line Location: DISP+3
Function Call: WRITE
  • Prompt: $S(YSASID?1"P".E:"Psychiatric Status",YSASID?1"H".E:"Family History",YSASID?1"F".E:"Family/Social Relationships",1:"")
  • Line Location: DISP+4
Function Call: WRITE
  • Prompt: YSASLL
  • Line Location: HINT+1
Function Call: WRITE
  • Prompt: !,$G(^YSTX(604.66,YSN,3,1,0)),!,$G(^YSTX(604.66,YSN,3,2,0))
  • Line Location: HINT+2
Function Call: WRITE
  • Prompt: !,$E($G(^YSTX(604.66,YSN,3,3,0)),1,50),?62,YSASRV1,"Enter ? for help",YSASRV0
  • Line Location: HINT+3
Function Call: WRITE
  • Prompt: !,$S(J=1&($P(^YSTX(604.66,YSN,0),U,10)=1)&(YSASTYP="FOLLOWUP"):"* ",1:""),^YSTX(604.66,YSN,2,J,0)
  • Line Location: HINT+5
Function Call: WRITE
  • Prompt: YSASRV0
  • Line Location: HINT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: HINT+10
Function Call: WRITE
  • Prompt: !
  • Line Location: HINT+10
Function Call: WRITE
  • Prompt: !!!,^DD(604,YSFIELD,3),!
  • Line Location: HINT+11
Function Call: WRITE
  • Prompt: !,YSASID_" Answer",$S(YSP="":": ",1:": "_YSP_" // ")
  • Line Location: ANS+1
Function Call: WRITE
  • Prompt: @IOF,IOHOME,IOEDEOP
  • Line Location: HEAD+1
Function Call: WRITE
  • Prompt: YSHDR1,?45,"Addiction Severity Index ",YSASRV1,YSASTYP,YSASRV0,!
  • Line Location: HEAD+2
Function Call: WRITE
  • Prompt: YSASLL,!
  • Line Location: HEAD+3

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^YSTX(604 - [#604] Classic Fileman Calls,  GET1^DIQ,  HELP^DIE
^YSTX(604.26 - [#604.26] Classic Fileman Calls
^YSTX(604.3 - [#604.3] Classic Fileman Calls
^YSTX(604.77 - [#604.77] Classic Fileman Calls
^YSTX(604.8 - [#604.8] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call