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

Package: Mental Health

Routine: YTAR


Information

YTAR ;SLC/DKG,SLC/TGA-ADMINISTER & RESUME TESTS ;5/30/02 14:54

Source Information

Source file <YTAR.m>

Entry Points

Name Comments DBIA/ICR reference
A10 ;
A11 ;
A12 ;
A2 ;
MCMI2 ;
A3 ;
A4 ;
DONE ;
DAT ;
KT ;
CR ;
MSG1 ;
SCRN(X) ; when a battery is ordered then each test is screened to
; see if the person requesting the battery has access to the tests
; contained in the battery
ORD ;;all instruments

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?50,$P(A1(B+K),U)
  • Line Location: YTAR+4
Function Call: WRITE
  • Prompt: ?57,YSDT
  • Line Location: YTAR+4
Function Call: WRITE
  • Prompt: !!!?2,"Do you want DEMO program administered"
  • Line Location: A10+1
Function Call: WRITE
  • Prompt: !?4,"The DEMO program teaches the patient to use the terminal."
  • Line Location: A10+2
Function Call: READ
  • Prompt: " OK? Y// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: A11+2
Function Call: WRITE
  • Prompt: $C(7),!!,$P(^VA(200,YSORD,0),U)," may order ",$P($T(ORD+YSORDP),";",3)
  • Line Location: A11+5
Function Call: WRITE
  • Prompt: ", exempt tests, and vocational tests."
  • Line Location: A11+6
Function Call: WRITE
  • Prompt: !!?2,"Administer the following instruments:",!
  • Line Location: A12+1
Function Call: READ
  • Formatting: !?5
  • Prompt: "Instrument: "
  • Variable: YSTESTN
  • Timeout: DTIME
  • Line Location: A2+1
Function Call: WRITE
  • Prompt: !!,"Not a valid instrument, you may want to use the CLERK entry option!",!!
  • Line Location: A2+2
Function Call: WRITE
  • Prompt: " ?"
  • Line Location: A2+4
Function Call: WRITE
  • Prompt: " [Not Found]"
  • Line Location: A2+7
Function Call: WRITE
  • Prompt: !!,YSORD(0)_" is NOT AUTHORIZED to order",!,"Instrument "_$P(YSNX(0),U)_".",!!
  • Line Location: A2+8
Function Call: WRITE
  • Prompt: !!,YSORD(0)_" is NOT AUTHORIZED to order",!,"Instrument "_$P(YSNX(0),U)_".",!!
  • Line Location: A2+9
Function Call: WRITE
  • Prompt: !!,YSORD(0)_" is NOT AUTHORIZED to order",!,"Instrument "_$P(YSNX(0),U)_".",!!
  • Line Location: A2+10
Function Call: WRITE
  • Prompt: !!,"You have selected an instrument that is NOT OPERATIONAL.",!
  • Line Location: A2+11
Function Call: WRITE
  • Prompt: " [Duplicate Ignored]",!!
  • Line Location: A2+13
Function Call: WRITE
  • Prompt: " [VACO currently does not have a license to use this test]"
  • Line Location: CR+1
Function Call: WRITE
  • Prompt: !!!?2,"Enter (Y) or <cr> for (YES) to send a message to the person requesting",!,"this test/interview and to CONTINUE this test/interview process."
  • Line Location: MSG1+1
Function Call: WRITE
  • Prompt: !!?2,"Enter (N) for (NO) to NOT send message and to DISCONTINUE this test/",!,"interview process."
  • Line Location: MSG1+2
Function Call: WRITE
  • Prompt: !,YSORD(0)_" is NOT AUTHORIZED to order",!,"the "_$P(YSNX(0),U)_" test from the Battery: '"_$P(X(0),U)_"'.",!
  • Line Location: SCRN+8
Function Call: WRITE
  • Prompt: !,YSORD(0)_" is NOT AUTHORIZED to order",!,"the "_$P(YSNX(0),U)_" test from the Battery: '"_$P(X(0),U)_"'.",!
  • Line Location: SCRN+9
Function Call: WRITE
  • Prompt: !,YSORD(0)_" is NOT AUTHORIZED to order",!,"the "_$P(YSNX(0),U)_" test, from the Battery: '"_$P(X(0),U)_"'.",!
  • Line Location: SCRN+10
Function Call: WRITE
  • Prompt: !," [VACO currently does not have a license to use this test]"
  • Line Location: SCRN+11

FileMan Files Accessed Via FileMan Db Call

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