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

Package: Mental Health

Routine: YTONLY


Information

YTONLY ;ASF/ALB,HIOFO/FT - Restricted Psych Testing Option ;8/7/12 3:41pm

Source Information

Source file <YTONLY.m>

Entry Points

Name Comments DBIA/ICR reference
MAIN ; main loop
ADMIN ;
RESTART ;
PRINT ;
CLERK ;
PT ;
OPT1 ;admin, clerk, print
NX ;
MASKSSN(YSSSN) ; return only last 4 of SSN
PREV ;
KT ;
END ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"Instrument "_YSCODE_" not available"
  • Line Location: MAIN+4
Function Call: WRITE
  • Prompt: @IOF,!,$$CJ^XLFSTR(YSTITLE,79," "),!
  • Line Location: MAIN+6
Function Call: WRITE
  • Prompt: !!
  • Line Location: ADMIN+3
Function Call: WRITE
  • Prompt: !,"Administration discontinued more than "_YTLM_" days ago -- not restartable"
  • Line Location: RESTART+10
Function Call: WRITE
  • Prompt: !
  • Line Location: PRINT+2
Function Call: WRITE
  • Prompt: !!,"Discontinued CLERK test found:"
  • Line Location: CLERK+2
Function Call: WRITE
  • Prompt: !!
  • Line Location: CLERK+4
Function Call: WRITE
  • Prompt: !,"Gender not properly specified. Call IRM"
  • Line Location: PT+2
Function Call: WRITE
  • Prompt: !
  • Line Location: OPT1+1
Function Call: WRITE
  • Prompt: @IOF,YSHDR
  • Line Location: PREV+1
Function Call: WRITE
  • Prompt: !!,?10,"No Previous Administrations on File"
  • Line Location: PREV+2
Function Call: WRITE
  • Prompt: !!,"Incomplete "_YSCODE_" on-line administration found on "
  • Line Location: PREV+3
Function Call: WRITE
  • Prompt: Y
  • Line Location: PREV+3
Function Call: WRITE
  • Prompt: !!,"Incomplete "_YSCODE_" clerk entry found on "
  • Line Location: PREV+4
Function Call: WRITE
  • Prompt: Y
  • Line Location: PREV+4
Function Call: WRITE
  • Prompt: !!,"Previous Administrations of the",$S(YSTITLE["*":$TR(YSTITLE,"*",""),YSTITLE["-":$TR(YSTITLE,"-",""),1:" "_YSTITLE),!!
  • Line Location: PREV+6
Function Call: WRITE
  • Prompt: $J(I,3)_" "_Y_" "
  • Line Location: PREV+12

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls
^YTD(601.4 - [#601.4] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call