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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
VA FileMan 9 EN^DDIOL  MSG^DIALOG  ^DIC  DQ^DICQ  (,FILE,HELP,VAL)^DIE  $$VALUE1^DILF  $$EXTERNAL^DILFD  $$GET1^DIQ  
^DIR  
Mental Health 2 SCREENH^YSASA2  EN^YSASSN  
Registration 1 (DEM,KVAR)^VADPT  

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 YSASSEL  

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 ;

External References

Name Field # of Occurrence
EN^DDIOL DISPQ+2
MSG^DIALOG HINT+10
^DIC L5+25
DQ^DICQ L5+16, L5+18, L5+20, HINT+9
^DIE WP+7, L5+32
FILE^DIE LOOP+3
HELP^DIE HINT+10
VAL^DIE VAL+1
$$VALUE1^DILF FDAGET+1
$$EXTERNAL^DILFD FDAGET+2
$$GET1^DIQ MAIN+6, MAIN+12, MAIN+13, L4+2
^DIR WP+3, DISPQ+3
DEM^VADPT MAIN+8
KVAR^VADPT MAIN+8
SCREENH^YSASA2 MAIN+3
EN^YSASSN WP+10

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
Routine Call
  • DIALOG
  • Line Location:
    • HINT+10
Routine Call
  • DIC
  • Line Location:
    • L5+25
Routine Call
  • DIE
  • Line Location:
    • WP+7
    • L5+32
Routine Call
  • DIE
  • Line Location:
    • LOOP+3
Routine Call
  • DIE
  • Line Location:
    • HINT+10
Routine Call
  • DIE
  • Line Location:
    • VAL+1
Routine Call
  • DIR
  • Line Location:
    • WP+3
    • DISPQ+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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD(604 HINT+7, HINT+8, HINT+11
^TMP($J MAIN+11!
^YSTX(604.66 - [#604.66] LOOP+1, L3+1, L3+2, L5+6, L5+8, HINT+2, HINT+3, HINT+5
^YSTX(604.68 - [#604.68] L5+22

Label References

Name Line Occurrences
ANS L5+15, L5+17, L5+19, L5+21, L5+25
DISP L4+4
DISPQ L5+12
FDAGET L4+1
HEAD LOOP+2, L5+15, L5+17, L5+19, L5+21, L5+23, L5+31, DISP+1, DISPQ+1
L3 LOOP+1
L4 L5+12, L5+27
L5 L5+13, L5+36
MAIN TEST+1
VAL L5+35

Naked Globals

Name Field # of Occurrence
^( L5+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
D L5+16*!, L5+18*!, L5+20*!, HINT+9*!
>> DA WP+6*, L5+28*
>> DFN MAIN+8*
DIC L5+16*!, L5+18*!, L5+20*!, L5+24*, L5+25!, HINT+9*!
DIC("A" L5+24*
DIC(0 L5+16*, L5+18*, L5+20*, L5+24*, HINT+9*
DID L5+16!, L5+18!, L5+20!, HINT+9!
DIE WP+6*, L5+16!, L5+18!, L5+20!, L5+28*, HINT+9!
DIR WP+1!, DISPQ+3!
DIR("A" WP+3*
DIR(0 WP+3*, DISPQ+3*
DIRUT WP+1!, WP+4
DIX L5+16!, L5+18!, L5+20!, HINT+9!
DO L5+16!, L5+18!, L5+20!, HINT+9!
>> DR WP+5*, L5+29*, L5+30
DTIME L5
>> DX HINT+1*, HINT+4*, DISPQ+3*
>> DY HINT+1*, HINT+4*, DISPQ+3*
>> DZ L5+16*, L5+18*, L5+20*, HINT+9*
>> IOEDEOP HEAD+1
IOF HEAD+1
>> IOHOME HEAD+1
>> IOXY HINT+1, HINT+4, DISPQ+3
>> J HINT+5*
U MAIN+8, L3+1, L3+3, L5+25, HINT+5, HINT+7, HINT+8
>> VADM(1 MAIN+8
>> VADM(2 MAIN+8
>> Y WP+5, L4+1, L5+22*, L5+25, FDAGET+1*, FDAGET+2*
>> YSA L5+36, VAL+1
>> YSA(0 L5+37
>> YSASENT L3+1*
>> YSASEX L3+2*, L5+38
>> YSASID L3+1*, L5+29, DISP+2, DISP+3, DISP+4, ANS+1
>> YSASLL MAIN+4*, HINT+1, HEAD+3
YSASPIEN MAIN~, MAIN+2, MAIN+8
>> YSASRV0 DISP+2, HINT+3, HINT+6, HEAD+2
>> YSASRV1 DISP+2, HINT+3, HINT+5, HEAD+2
YSASSIEN MAIN~, MAIN+1, MAIN+5, WP+6, WP+10, L5+28
>> YSASTYP MAIN+6*, MAIN+7, HINT+5, HEAD+2
>> YSATRIB HINT+8*, HINT+9
>> YSBACK MAIN+9*, L5+5*, L5+11
>> YSDEF L3+1*, L4+3
>> YSDFLAG MAIN+12*, L4+3
>> YSEFLAG MAIN+13*, L5+38
>> YSENDLP LOOP+1*, L3+5
>> YSFDA MAIN+10*, VAL+1, FDAGET+1
>> YSFIELD L3+1*, L4+2, L5+14, L5+15, L5+17, L5+19, L5+21, L5+23, VAL+1, FDAGET+1
, FDAGET+2, HINT+7, HINT+8, HINT+10, HINT+11
>> YSFILE MAIN+9*, VAL+1, FDAGET+1, FDAGET+2
>> YSFLAG MAIN+9*, VAL+1
>> YSG L3+1*, L3+3
>> YSGP MAIN+7*, L3+3
>> YSHDR1 MAIN+8*, HEAD+2
>> YSIENS MAIN+5*, MAIN+6, L4+2, VAL+1
>> YSN MAIN+14*, LOOP+1*, L3+1, L3+2, L5+5, L5+9*, L5+11*, HINT+2, HINT+3, HINT+5
>> YSNN L5+5*, L5+6*, L5+7, L5+8
>> YSNN1 L5+3, L5+5*, L5+8*, L5+9
>> YSP L4+1*, L4+2*, L4+3*, L5+1, L5+25*, ANS+1
>> YSQ L3+1*
>> YSV MAIN+14*, LOOP+1, L5*, L5+1*, L5+2, L5+3, L5+4*, L5+6, L5+7, L5+11
, L5+12, L5+13, L5+27, L5+34*, VAL+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All