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 |  Marked Items  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Mental Health 8 ENBUL^YSUTL  ^YTAR1  ^YTCLERK  A31^YTCLERK1  ^YTDEMO  ENKIL^YTFILE  ^YTLIST  (BECK,KAR,MMPI)^YTS  
Kernel 4 HOME^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  H^XUS  
VA FileMan 2 ^DIC  YN^DICN  

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

Package Total Caller Graph
Mental Health 4 YTAR1  YTCLERK  YTONLY  YTS  

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

External References

Name Field # of Occurrence
HOME^%ZIS A3+2
^%ZTLOAD DONE+2
^DIC A11+1
YN^DICN A10+1
$$FMTE^XLFDT DAT+1
H^XUS DONE+6
ENBUL^YSUTL DONE+5
^YTAR1 YTAR+6
^YTCLERK YTAR+5
A31^YTCLERK1 A3+1
^YTDEMO A3+3
ENKIL^YTFILE KT+1
^YTLIST A2+3
BECK^YTS A2+5
KAR^YTS A10+1, A11+1, A11+2, A2+1, A3+1, A4+3, A4+4, DONE+6
MMPI^YTS A2+6

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
Routine Call
  • %ZIS
  • Line Location:
    • A3+2
Routine Call
  • DIC
  • Line Location:
    • A11+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^VA(200 - [#200] A11+2, A11+5
^XUSEC("YSP" A11+3, A3+1
^XUSEC("YSZ" A3+1
^YTD(601.4 - [#601.4] YTAR+6, KT+1
^YTT(601 - [#601] A2+7, A2+8, MCMI2+1, A4+2, A4+3, A4+4, DONE+4, SCRN+5, SCRN+6, SCRN+8

Label References

Name Line Occurrences
$$SCRN MCMI2+2
A10 A10+2
A11 A11+2
A2 A2+2, A2+3, A2+4, A2+7, A2+8, A2+9, A2+11, A2+12, A2+13, MCMI2+2
, MCMI2+3
A3 A11+4, A2+1
A4 A4+4
CR A2+12
DAT YTAR+4
DONE A4+1
KT A4+2, A4+4
MSG1 A11+2

Naked Globals

Name Field # of Occurrence
^("C" A4+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> % A10+1*, A10+2, A10+3
>> A A11+2*
>> A1( YTAR+4
>> B YTAR+3*, YTAR+4
DIC A11+1*!
DIC("A" A11+1*
DIC("B" A11+1*
DIC(0 A11+1*
DTIME A11+2, A2+1
DUZ A11+1, A11+2, A11+3, A3+1, DONE+3, DONE+4, DONE+5
IOF DONE+1
ION A3+2
J A4+3, KT+1!
>> K YTAR+4*, DONE+1*, DONE+4*
>> T1 YTAR+6*, A11+4
U YTAR+4, A11+2, A11+3, A11+5, A2+8, A2+9, A2+11, A2+12, A2+13, MCMI2+1
, MCMI2+2, MCMI2+3, A4+1, A4+2, A4+3, A4+4, DONE+4, SCRN+7, SCRN+8, SCRN+9
, SCRN+10, SCRN+11, SCRN+12
X A2+8*, A2+9, A2+11, A2+12, MCMI2+2, SCRN~, SCRN+4, SCRN+5, SCRN+6, SCRN+11
X(0 SCRN+5*, SCRN+8, SCRN+9, SCRN+10
>> XMB( A4+4*, DONE+1, DONE+4*
>> XMB(5 DONE+1*
>> XMB(6 DONE+3*
Y A11+1, A11+2, A11+3, SCRN+3~, SCRN+5*, SCRN+12*, SCRN+13
>> YS4D A4+2*
>> YSCL DONE+1, DONE+6
>> YSCLERK YTAR+5, DONE+3
>> YSCLN DONE+3
>> YSDEMO A10+3*, A3+3
>> YSDFN YTAR+6, KT+1
>> YSDT YTAR+4*, DAT+1*
>> YSENT KT+1*
>> YSHD DONE+1
>> YSM DONE+6
>> YSNT YTAR+3, YTAR+4
YSNX A2+13*, SCRN+3~, SCRN+7*, SCRN+8, SCRN+12
YSNX(0 A2+8*, A2+9, SCRN+8*, SCRN+9, SCRN+10
>> YSOK A3+1
>> YSORD A11+3*, A11+5, DONE+3, DONE+4, DONE+5
>> YSORD(0 A11+3*, A2+8, A2+9, SCRN+8, SCRN+9, SCRN+10
>> YSORDD A11+3*, A2+8, A2+9, SCRN+8, SCRN+9
>> YSORDP A11+3*, A2+8, A2+9, MCMI2+2, SCRN+8, SCRN+9
>> YSQ A3+1*, A3+2, DONE+1, DONE+2
YSRESTRT A4+2, A4+4!
>> YSTEST A2+7*, A2+8, A2+13, MCMI2+1, MCMI2+2*, MCMI2+3, A4+1*, A4+2, A4+3, A4+4
, KT+1
>> YSTESTN A2+1*, A2+2, A2+3, A2+4, A2+5, A2+6, A2+7, A4+2*
>> YSTIN A4+4
>> YSTOUT A11+2*, A2+1*
>> YSUOUT A11+2*, A2+1*
YSXT A12+1*, A2+13, MCMI2+3*, A3+1, A4+1, A4+4, DONE+1*, SCRN+3~, SCRN+5*, SCRN+7
>> YSXTP A3+3*, A4+1, A4+4*, DONE+2*
Z A2+13*, SCRN+3~, SCRN+7*
>> ZTDESC DONE+2*
>> ZTDTH DONE+2*
>> ZTIO A3+2*
>> ZTRTN DONE+2*
>> ZTSAVE("YS*" DONE+2*
>> ZTSK DONE+2

Marked Items

Name Field # of Occurrence
$T(ORD+YSORDP A11+5
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 |  Marked Items  | All