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

Package: Mental Health

Routine: YTEXT


Information

YTEXT ;SLC/TGA-TEXT I/O FOR STAFF REMARKS ; 7/6/89 13:55 ;03/11/94 14:26

Source Information

Source file <YTEXT.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Mental Health 5 (ENFT,ENHD)^YSFORM  ^YSLRP  (ENDD,ENPT,WAIT)^YSUTL  RP^YTDP  NX1^YTS  
VA FileMan 4 ^DIC  ^DIE  ^DIK  ^DIR  
Kernel 1 $$FMTE^XLFDT  

Entry Points

Name Comments DBIA/ICR reference
1 ;
2 ;
3 ;
I ;
D ;
DR ;
LU ;
A ;
E ;
E0 ;
E1 ;
; commented out lines represent electronic signature on
; comments added to MH insturments the file structure is present to
; support this but the EP does not want it in place at this time 5.0, 1992
E2 ;
E3 ;
OUT ;
END ;
LU1 ;
DAT(X) ;
CK ;
DEL ;
S ;

External References

Name Field # of Occurrence
^DIC E+2, S+1
^DIE E+3, E1+6
^DIK DEL+1
^DIR I+2
$$FMTE^XLFDT DAT+1
ENFT^YSFORM CK+1
ENHD^YSFORM CK+1
^YSLRP 1+1
ENDD^YSUTL YTEXT+6
ENPT^YSUTL DR+3
WAIT^YSUTL CK+1
RP^YTDP DR+3
NX1^YTS 2+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"Staff Comments - Tests and Interviews"
  • Line Location: YTEXT+5
Function Call: WRITE
  • Prompt: !!,"No completed instruments found"
  • Line Location: 2+2
Function Call: WRITE
  • Prompt: !!?10,"--- Previous Instruments ---",!
  • Line Location: 2+3
Function Call: WRITE
  • Prompt: ?45,B+K,?50,$P(A1(B+K),U)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: ?57,$$DAT(YSDT)
  • Line Location: 3+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: I+2
Function Call: READ
  • Formatting: !!
  • Prompt: "Shall I display the results now? N// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: D+1
Function Call: WRITE
  • Prompt: !,"Answer 'Yes' or 'No'"
  • Line Location: D+1
Function Call: READ
  • Variable: A
  • Timeout: DTIME
  • Line Location: A+2
Function Call: WRITE
  • Prompt: !!,"Type 'E'"
  • Line Location: A+4
Function Call: WRITE
  • Prompt: " or 'P'"
  • Condition for execution: YSP1
  • Line Location: A+4
Function Call: WRITE
  • Prompt: " or 'S'"
  • Condition for execution: YSP2
  • Line Location: A+4
Function Call: READ
  • Formatting: !
  • Prompt: "Do you wish to review comment prior to filing? N// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: E1+5
Function Call: READ
  • Formatting: !!
  • Prompt: "File this comment now? Y// "
  • Variable: A
  • Timeout: DTIME
  • Line Location: E3+1
Function Call: WRITE
  • Prompt: !!,"Comment filed"
  • Line Location: E3+4
Function Call: WRITE
  • Prompt: !!,"No comment filed"
  • Line Location: DEL+1
Routine Call
  • DIC
  • Line Location:
    • E+2
    • S+1
Routine Call
  • DIE
  • Line Location:
    • E+3
    • E1+6
Routine Call
  • DIR
  • Line Location:
    • I+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^YTD(601.2 - [#601.2] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^UTILITY($J DR+1*, DR+3, END+2!
^XUSEC("YSP" I+5
^YTD(601.2 - [#601.2] LU+3, E+2, E+3, E0+1, E0+2, E1+6
^YTT(601 - [#601] I+5

Label References

Name Line Occurrences
$$DAT 3+1
1 2+2, I+3
2 LU+2, A+3
3 D+1
@( A+5
A A+4
D D+1
DEL E0+1, E0+2, E3+1, E3+2
DR D+1
E LU+2, LU+4
E0 E1+6
E1 E1+5, S+1
E2 E1+5
E3 E3+3
END 1+1, I+3, D+1, DR+3, LU+2, LU+4, A+2, A+5
I I+4
LU I+5, D+1, LU+4, A+5
LU1 LU+3
OUT E+2, E1+5, E3+1, E3+2

Naked Globals

Name Field # of Occurrence
^( LU+3, E0+2
^(0 I+5, E+2*

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
% END+1!
%DT END+1!
%Y END+1!
%ZIS END+1!
A 2+1!, D+1*, A+2*, A+3, A+4*, A+5*, E+1~, E1+5*, E3+1*, E3+2*
, E3+3, END+1!
A1 2+1!, E+1~, END+1!
A1( 3+1, I+4, I+5, DR+1, DR+3*, LU+1
B 2+3*, 3+1, END+1!
D END+1!
D0 END+1!
DA E+3*, END+1!, DEL+1*, S+1*
DA(1 E+3*
DA(2 E+3*
DA(3 E+3*
DIC E+2*, E+3, END+1!, DEL+1, S+1*
DIC("S" S+1*!
DIC(0 E+2*, S+1*
DIE E+3*, END+1!
DIK END+1!, DEL+1*
>> DILOCKTM E+3, E1+6
DIR I+2!
DIR("A" I+1*
DIR(0 I+1*
DIW END+1!
DIWF END+1!
DIWL END+1!
DIWR END+1!
DIWT END+1!
>> DLAYGO E+2*
DN END+1!
DO END+1!
DQ END+1!
DR E+3*, E1+6*, END+1!
DTIME D+1, A+2, E1+5, E3+1
>> DTOUT I+2, E+3
>> DUOUT I+2
DUZ I+5, E+3, LU1+1
DW2 END+1!
DWI END+1!
I DR+1*, LU+3*, E0+1*, END+1!
IOF YTEXT+5
J END+1!
K 3+1*, END+1!
N END+1!
N1 END+1!
N2 END+1!
N4 END+1!
>> POP DR+3
T2 END+1!
U 3+1, I+5, DR+1, DR+3, LU+1, E0+1, LU1+1, LU1+2
X I+5*, DR+3*, LU+3*, A+1*, A+4, E+2*, E0+1*, END+1!, LU1+1, LU1+2
, DAT~, DAT+1*
X9 END+1!
Y YTEXT+6!, I+3, E+2, E+3, END+1!, S+1
YSAGE END+1!
YSCON END+1!, CK+1*
YSD END+1!
YSDFN 1+1, DR+1, DR+3*, LU+3, E+2, E+3, E0+1, E0+2, E1+6, END+1!
YSDN E+2*, E0+1, E0+2, END+1!, DEL+1, S+1*
YSDOB END+1!
>> YSDT 3+1*
>> YSDT(0 YTEXT+6
YSEC I+5*, LU+2, END+2!
YSED LU+1*, LU+3, E+2, E+3, E0+1, E0+2, END+1!
YSES END+1!
YSET LU+1*, LU+3, E+2, E+3, E0+1, E0+2, END+1!
YSFHDR END+1!
YSFTR END+1!
YSHDR DR+1*, END+1!
YSHDT END+1!
YSI END+2!
YSJ END+2!
YSLFT LU+1*, LU+2, LU+4, A+5, OUT+1*, END+2!, CK+1, DEL+1*
YSN END+2!
YSNM DR+1, END+2!
YSNT 2+2, 2+3, 3+1, I+1, END+2!
YSP0 END+2!, CK+1
YSP1 LU+1*, LU+4, A+1, A+2, A+4, END+2!, LU1+1*, LU1+2*, LU1+3*
YSP2 LU+1*, LU+4, A+1, A+2, A+4, END+2!, LU1+1*, LU1+4*
YSPF END+2!
YSSEX DR+1, END+2!
YSSSN DR+1, END+2!
>> YSSX DR+1*
YSTEST I+3*, I+4, I+5, DR+1, DR+3*, LU+1, END+2!
YSTF END+2!
>> YSTOUT I+2*, I+3, D+1*, DR+3, A+2*, E+3*, E1+5*, E3+1*
YSTX END+2!
YSTXTED END+2!
YSU END+2!
>> YSUOUT I+2*, I+3, D+1*, A+2*, A+3, E1+5*, E3+1*
>> YSXT DR+1*
Z END+2!
ZTSK END+2!
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