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

Package: Mental Health

Routine: YSASSEL


Information

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

Source Information

Source file <YSASSEL.m>

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call