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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Mental Health 8 ^YSLRP  ENPT^YSUTL  A4^YTAR  REY1^YTCLERK  (A31,RESTART)^YTCLERK1  DU^YTDP  ENKIL^YTFILE  KAR^YTS  
Kernel 3 HOME^%ZIS  ($$FMDIFF,$$FMTE)^XLFDT  $$CJ^XLFSTR  
VA FileMan 3 ^DIC  ^DIK  ^DIR  
Registration 1 KVAR^VADPT  

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 ;

External References

Name Field # of Occurrence
HOME^%ZIS ADMIN+6, RESTART+17
^DIC ADMIN+3, CLERK+4
^DIK CLERK+3
^DIR RESTART+2, OPT1+6
KVAR^VADPT END+1
$$FMDIFF^XLFDT RESTART+9
$$FMTE^XLFDT NX+2
$$CJ^XLFSTR MAIN+6
^YSLRP PT+1
ENPT^YSUTL PT+1
A4^YTAR ADMIN+8, RESTART+18
REY1^YTCLERK CLERK+8
A31^YTCLERK1 ADMIN+5, RESTART+16, CLERK+6
RESTART^YTCLERK1 CLERK+2
DU^YTDP PRINT+3
ENKIL^YTFILE KT+1
KAR^YTS ADMIN+5, RESTART+16, CLERK+6

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
Routine Call
  • %ZIS
  • Line Location:
    • ADMIN+6
    • RESTART+17
Routine Call
  • DIC
  • Line Location:
    • ADMIN+3
    • CLERK+4
Routine Call
  • DIR
  • Line Location:
    • RESTART+2
    • OPT1+6

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" PREV+3, PREV+4, PREV+10
^YTD(601.2 - [#601.2] NX+5, NX+6
^YTD(601.4 - [#601.4] ADMIN+2, RESTART+8, RESTART+12, RESTART+13, RESTART+14, RESTART+15, CLERK+2, CLERK+3, PREV+2, PREV+3
, PREV+4, KT+1
^YTT(601 - [#601] MAIN+1, MAIN+2, MAIN+4, MAIN+5, RESTART+7, CLERK+1

Label References

Name Line Occurrences
$$MASKSSN NX+3
ADMIN MAIN+10, RESTART+4
CLERK MAIN+10
END MAIN+7, PT+1
KT RESTART+4
MAIN MAIN+12, PT+2, OPT1+9
NX MAIN+8
OPT1 MAIN+9
PREV MAIN+8
PRINT MAIN+10
PT MAIN+7
RESTART ADMIN+2

Naked Globals

Name Field # of Occurrence
^("B" RESTART+13
^("R" RESTART+15
^(0 RESTART+7, RESTART+8, RESTART+12, PREV+3

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% NX+2*, END+2!
%Y NX+2*, END+2!
A NX+1!, NX+5!, END+2!
A( NX+6*
A1 NX+1!, NX+5!, END+2!
A1( NX+6*, PREV+7, PREV+9
A1(1 PREV+2
B RESTART+12*, RESTART+13*, CLERK+7*, END+2!
C RESTART+12*, CLERK+7*, END+2!
>> DA CLERK+3*
DIC ADMIN+3*!, CLERK+4*!
DIC("A" ADMIN+3*, CLERK+4*
DIC("B" ADMIN+3*, CLERK+4*
DIC(0 ADMIN+3*, CLERK+4*
DIK CLERK+3*!
DIR RESTART+1!, RESTART+2!, OPT1+2!, OPT1+8!
DIR("A" OPT1+5*
DIR(0 RESTART+1*, OPT1+3*, OPT1+4*
>> DIRUT MAIN+9, RESTART+3, OPT1+9
DT RESTART+9, NX+3
DUZ ADMIN+3, CLERK+4
I PREV+7*, PREV+8, PREV+9, PREV+12, END+2!
IOF MAIN+6, PREV+1
ION ADMIN+6, RESTART+17
J ADMIN+1!, RESTART+12*, RESTART+14*, CLERK+7*, KT+1!, END+2!
N2 NX+6*, END+2!
T1 MAIN+2*, END+2!
T1(0 MAIN+2*
U MAIN+2, MAIN+4, MAIN+5, RESTART+7, RESTART+8, RESTART+12, CLERK+1, NX+6, PREV+3, PREV+4
, PREV+9
X RESTART+9*, RESTART+10, END+2!
X2 RESTART+8*, RESTART+9, END+2!
Y ADMIN+3, ADMIN+4, RESTART+3, RESTART+4, CLERK+4, CLERK+5, OPT1+7, NX+2*, PREV+3*, PREV+4*
, PREV+9*, PREV+12, END+2!
YSAGE NX+3, END+2!
YSBEGIN RESTART+12*, END+2!
YSBL NX+3*, END+2!
YSCL CLERK+1*, END+2!
YSCLERK CLERK+1*, END+2!
YSCODE MAIN+1, MAIN+4, RESTART+1, CLERK+1, NX+6, PREV+3, PREV+4, END+3!
YSDEMO RESTART+15*, END+3!
YSDFN MAIN+7, ADMIN+2, RESTART+8, RESTART+12, RESTART+13, RESTART+14, RESTART+15, CLERK+2, CLERK+3, PT+1
, NX+5, NX+6, PREV+2, PREV+3, PREV+4, KT+1, END+3!
YSDT END+3!
YSDT(0 NX+2*
YSENT CLERK+1*, END+3!
YSENTRY MAIN+1*, MAIN+4, MAIN+5, ADMIN+2, ADMIN+7, RESTART+4, RESTART+5, RESTART+11, RESTART+12, RESTART+13
, RESTART+14, RESTART+15, CLERK+1, CLERK+2, NX+5, NX+6, PREV+2, PREV+3, PREV+4, KT+1*
, END+3!
YSHD NX+3*, END+3!
YSHDR NX+3*, PREV+1, END+3!
YSHDT NX+4*, END+3!
YSNM NX+3, END+3!
YSNQ CLERK+1*, END+3!
YSNT NX+6*, END+4!
YSOK ADMIN+3*, ADMIN+5, RESTART+16, CLERK+4*, CLERK+6, END+4!
YSOPT MAIN+10, OPT1+7*, END+4!
YSORD ADMIN+4*, RESTART+12*, CLERK+5*, END+4!
YSPREV MAIN+3*, OPT1+4, OPT1+5, PREV+2*, PREV+8*, END+4!
YSPTD NX+2*, END+4!
YSPTM NX+2*, END+4!
YSQ ADMIN+5*, ADMIN+6, RESTART+16*, RESTART+17, CLERK+6*, END+4!
YSRESTRT RESTART+15*, END+4!
YSRP RESTART+14*, CLERK+7*, END+4!
YSSEX PT+2, NX+3, END+4!
YSSSN NX+3, MASKSSN~, MASKSSN+1, END+5!
YSSX NX+3*, END+5!
YSTEST ADMIN+7*, RESTART+4*, RESTART+5*, RESTART+7, RESTART+8, RESTART+11*, RESTART+15, CLERK+1*, KT+1, END+5!
YSTESTN CLERK+1*, END+5!
YSTITLE MAIN+5*, MAIN+6, PREV+6, END+5!
YSXT MAIN+1*, MAIN+2, ADMIN+7*, RESTART+15*, PRINT+1*, END+5!
YSXTP MAIN+2*, ADMIN+7*, RESTART+15*, CLERK+7*, END+5!
YTESTN CLERK+1*, END+5!
YTLM RESTART+6*, RESTART+7*, RESTART+10, END+5!
>> ZTIO ADMIN+6*, RESTART+17*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All