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 |  Local Variables  | All
Print Page as PDF
Routine: YSASSEL

Package: Mental Health

Routine: YSASSEL


Information

YSASSEL ;ALB/ASF-ASI SELECTOR ;4/16/98 16:42

Source Information

Source file <YSASSEL.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Mental Health 4 (AA,MAIN,SCREENH)^YSASA2  EN1^YSASNAR  MAIN^YSASOL  EN1^YSASPRT  
VA FileMan 4 WP^DDBR  ^DIC  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZISC  $$FMTE^XLFDT  
Registration 1 (DEM,KVA)^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: 10

Package Total Caller Graph
Mental Health 10 YSAS ADD/EDIT ASI  YSAS ASI CHECKING GUIDE  YSAS ASI COMMON DRUGS  YSAS ASI PRINT  YSAS HOLLINGSHEAD CATEGORIES  YSAS NARRATIVE PRINT  YSAS QUESTIONS AND ERRORS  YSAS SHORT GUIDE  
YSAS USER GUIDE  YSASFM  

Entry Points

Name Comments DBIA/ICR reference
ADDEDIT ;entry point for YSAS ADD/EDIT ASI option
OLCL ;online vs clerk
SELPRINT ;entry point for YSAS ASI PRINT option
NARR ;narrative output
ASKNEW ;
PT ;patient lookup
TLD ;load ASI list
TLP ; print list
CLEANUP ;clean up variables
BROWSE ;
ASICHECK ;entry point for YSAS ASI CHECKING GUIDE option
ASISHORT ;entry point for YSAS SHORT GUIDE option
ASIQE ;entry point for YSAS QUESTIONS AND ERRORS option
ASIHOLL ;entry point for YSAS HOLLINGSHEAD CATEGORIES option
ASIDRUG ;entry point for YSAS ASI COMMON DRUGS
ASIUSER ;entry point for YSAS USER GUIDE option

External References

Name Field # of Occurrence
^%ZISC NARR+14
WP^DDBR BROWSE+1
^DIC PT+3
$$GET1^DIQ TLD+6, TLD+7, TLD+8, TLD+9
^DIR ADDEDIT+9, ADDEDIT+16, OLCL+4, SELPRINT+8, NARR+9, ASKNEW+3, ASKNEW+5, ASKNEW+6
DEM^VADPT TLP+3
KVA^VADPT CLEANUP+3
$$FMTE^XLFDT TLP+10
AA^YSASA2 ADDEDIT+17, ASKNEW+7
MAIN^YSASA2 OLCL+6
SCREENH^YSASA2 OLCL+1
EN1^YSASNAR NARR+13
MAIN^YSASOL OLCL+6
EN1^YSASPRT SELPRINT+9

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,?25,"***** Add - Edit *****"
  • Line Location: ADDEDIT+6
Function Call: WRITE
  • Prompt: !
  • Line Location: ADDEDIT+8
Function Call: WRITE
  • Prompt: !,"This ASI has already been signed. You may no longer edit it!",$C(7)
  • Line Location: ADDEDIT+12
Function Call: WRITE
  • Prompt: @IOF,?25,"***** Item Report ****"
  • Line Location: SELPRINT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: SELPRINT+7
Function Call: WRITE
  • Prompt: !,X," ",Y
  • Line Location: SELPRINT+8
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: SELPRINT+9
Function Call: WRITE
  • Prompt: @IOF,?25,"***** Narrative Report ****"
  • Line Location: NARR+6
Function Call: WRITE
  • Prompt: !
  • Line Location: NARR+8
Function Call: WRITE
  • Prompt: !!,"Narrative Report not available for follow ups. Please use Item Report",$C(7)
  • Line Location: NARR+12
Function Call: WRITE
  • Prompt: !,"There are no previous ASI's on file.",!
  • Line Location: ASKNEW+1
Function Call: WRITE
  • Prompt: !,VADM(1)," ""xxx-xx-",$E($P(VADM(2),U,2),8,11),?45,"Addiction Severity Index History",!
  • Line Location: TLP+4
Function Call: WRITE
  • Prompt: " #",?7,"Date",?18,"Class",?30,"Interviewer",!,YSL,!
  • Line Location: TLP+5
Function Call: WRITE
  • Prompt: !,$J(YSASC,3)," "
  • Line Location: TLP+9
Function Call: WRITE
  • Prompt: $$FMTE^XLFDT($P(YSASG,U,2),"5ZD")
  • Line Location: TLP+10
Function Call: WRITE
  • Prompt: ?18,$P(YSASG,U,3)
  • Line Location: TLP+11
Function Call: WRITE
  • Prompt: ?28,$P(YSASG,U,4)
  • Line Location: TLP+12
Function Call: WRITE
  • Prompt: ?55,$S($P(YSASG,U,5)=1:"Signed",1:"## Not Signed ##")
  • Line Location: TLP+13
Routine Call
  • DIC
  • Line Location:
    • PT+3
Routine Call
  • DIR
  • Line Location:
    • ADDEDIT+9
    • ADDEDIT+16
    • OLCL+4
    • SELPRINT+8
    • NARR+9
    • ASKNEW+3
    • ASKNEW+5
    • ASKNEW+6

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DPT - [#2] Classic Fileman Calls
^YSTX(604 - [#604] GET1^DIQ
^YSTX(604.68 - [#604.68] WP^DDBR

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^TMP($J ADDEDIT+2!, ADDEDIT+11, ADDEDIT+12, SELPRINT+2!, SELPRINT+9, NARR+3!, NARR+11, TLD+1!, TLD+10*, TLP+1
, TLP+7, TLP+8
^YSTX(604 - [#604] ADDEDIT+5, OLCL+5, OLCL+7, NARR+11, TLD+4
^YSTX(604.68 - [#604.68] ASICHECK+1, ASISHORT+1, ASIQE+1, ASIHOLL+1, ASIDRUG+1, ASIUSER+1
^YSTX(604.8 - [#604.8] OLCL+3, ASKNEW+5

Label References

Name Line Occurrences
ASKNEW ADDEDIT+5
BROWSE ASICHECK+1, ASISHORT+1, ASIQE+1, ASIHOLL+1, ASIDRUG+1, ASIUSER+1
CLEANUP ADDEDIT+5, ADDEDIT+15, ADDEDIT+17, SELPRINT+10, NARR+15
OLCL ADDEDIT+13, ADDEDIT+17, ASKNEW+7
PT ADDEDIT+3, SELPRINT+3, NARR+4
TLD ADDEDIT+7, SELPRINT+6, NARR+7
TLP ADDEDIT+7, SELPRINT+6, NARR+7

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DFN TLP+3~*
DIC PT+1~, PT+2*, CLEANUP+1!
DIC(0 PT+2*
DIR ADDEDIT+9!, ADDEDIT+16!, OLCL+2!, SELPRINT+8!, NARR+9!, ASKNEW+3!, ASKNEW+4!, ASKNEW+5!, ASKNEW+6!, TLD+2!
, CLEANUP+1!
DIR("A" ADDEDIT+9*, ADDEDIT+16*, OLCL+2*, SELPRINT+8*, NARR+9*, ASKNEW+2*, ASKNEW+4*, ASKNEW+6*
DIR("B" ADDEDIT+16*, OLCL+3*, ASKNEW+3*, ASKNEW+5*, ASKNEW+6*
DIR(0 ADDEDIT+9*, ADDEDIT+16*, OLCL+2*, ASKNEW+3*, ASKNEW+4*, ASKNEW+6*, TLD+2*, TLD+11*, TLD+12*
DIROUT CLEANUP+1!
DIRUT ADDEDIT+16, OLCL+4, ASKNEW+5, CLEANUP+1!
DTOUT CLEANUP+1!
DUOUT CLEANUP+1!
IOF ADDEDIT+6, SELPRINT+5, NARR+6
>> IOXY OLCL+4
U ADDEDIT+12, OLCL+3, NARR+11, ASKNEW+5, TLD+10, TLP+4, TLP+10, TLP+11, TLP+12, TLP+13
>> VADM(1 TLP+4
>> VADM(2 TLP+4
X SELPRINT+8, CLEANUP+1!
Y ADDEDIT+10, ADDEDIT+11, ADDEDIT+12, ADDEDIT+15, ADDEDIT+16, OLCL+2*, OLCL+6, SELPRINT+8, SELPRINT+9, NARR+10
, NARR+11, ASKNEW+3, ASKNEW+5, ASKNEW+6, PT+4, CLEANUP+1!
YSA BROWSE+1, ASICHECK+1~*, ASISHORT+1~*, ASIQE+1~*, ASIHOLL+1~*, ASIDRUG+1~*, ASIUSER+1~*
YSASC TLD+3*, TLD+5*, TLD+10, TLD+11, TLP+6*, TLP+7*, TLP+8, TLP+9, CLEANUP+2!
YSASCL NARR+11*, TLD+6*, TLD+10, CLEANUP+2!
YSASDT TLD+7*, TLD+10, TLD+11, CLEANUP+2!
YSASG TLP+8*, TLP+10, TLP+11, TLP+12, TLP+13, CLEANUP+2!
YSASIEN TLD+3*, TLD+4*, TLD+6, TLD+7, TLD+8, TLD+9, TLD+10, CLEANUP+2!
YSASIG TLD+9*, TLD+10, CLEANUP+2!
YSASINT TLD+8*, TLD+10, CLEANUP+2!
YSASPIEN ADDEDIT+1~, ADDEDIT+4, ADDEDIT+5, ADDEDIT+17, OLCL+5, OLCL+6, OLCL+7, SELPRINT+1~, SELPRINT+4, NARR+2~
, NARR+5, ASKNEW+7, PT+4*, TLD+4, TLP+3, CLEANUP+2!
YSASSIEN ADDEDIT+11*, OLCL+6, SELPRINT+9*, NARR+11*, NARR+13, CLEANUP+2!
>> YSASTYP ADDEDIT+16*, ADDEDIT+17, ASKNEW+5*, ASKNEW+6, ASKNEW+7
YSL TLP+2*, TLP+5, CLEANUP+2!
YSTITLE BROWSE+1, ASICHECK+1~*, ASISHORT+1~*, ASIQE+1~*, ASIHOLL+1~*, ASIDRUG+1~*, ASIUSER+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 |  Local Variables  | All