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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTBI

Package: Mental Health

Routine: YTBI


Information

YTBI ;ALB/ASF-BECK INVENTORY DRIVERS ; 2/20/08 10:38am

Source Information

Source file <YTBI.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Mental Health 4 ^YTAR2  CR^YTDRIV  ^YTFILE  (DTA,IR,REPT,SCR)^YTREPT  
VA FileMan 2 DD^%DT  ^DIR  

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

Package Total Caller Graph
Mental Health 1 ^YTT(601.6  

Entry Points

Name Comments DBIA/ICR reference
NX ;
I2 ;
D1 ;
D3 ;
D4 ;
RD ;
BK ;
WHERE ;
HOLD ;
BAI ;
B2 ;
BSIRPT ;
BSI2 ;
WAIT ;
; Added 5/6/94 LJA
BDI ;
BDI2 ;

External References

Name Field # of Occurrence
DD^%DT YTBI+4
^DIR WAIT+8
^YTAR2 I2+1, D3+1
CR^YTDRIV YTBI+4
^YTFILE D4+6
DTA^YTREPT WAIT+6, BDI2+12
IR^YTREPT BDI2+20
REPT^YTREPT BDI+2
SCR^YTREPT BDI2+15, BDI2+16, BDI2+19, BDI2+21

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,X
  • Line Location: NX+4
Function Call: WRITE
  • Prompt: !!!?3,"PRESS THE SPACE BAR TO CONTINUE."
  • Line Location: NX+5
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: I2+1
Function Call: WRITE
  • Prompt: !
  • Condition for execution: ^(0)
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: !?3,^(0)
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: D3+1
Function Call: READ
  • Variable: *X
  • Timeout: 900
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,YSTESTN," QUESTION # ",J,!
  • Line Location: WHERE+1
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF,#,"Please read each question carefully!",$C(7)
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !!?7,"Items marked Severe",!
  • Line Location: BAI+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(Y)>79
  • Line Location: BAI+2
Function Call: WRITE
  • Prompt: $E(Y,1,$L(Y)-1),", "
  • Line Location: BAI+2
Function Call: WRITE
  • Prompt: !!?7,"Items marked Moderate",!
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X+$L(Y)>79
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: $E(Y,1,$L(Y)-1),", "
  • Line Location: B2+2
Function Call: WRITE
  • Prompt: !!,"Responses",!
  • Line Location: BSIRPT+1
Function Call: WRITE
  • Prompt: !,$J(I,2),".(",Y,") ",$P(^(0)," ",2,9)
  • Line Location: BSIRPT+2
Function Call: WRITE
  • Prompt: !!,"The following questions were skipped: "
  • Line Location: BSIRPT+3
Function Call: WRITE
  • Prompt: I,", "
  • Condition for execution: $E(X,I)="X"
  • Line Location: BSIRPT+3
Function Call: WRITE
  • Prompt: !?3,Z
  • Line Location: BSI2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+7
Function Call: WRITE
  • Prompt: $C(7)
  • Line Location: WAIT+8
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+8
Function Call: WRITE
  • Prompt: ?$X+3,$S(R<10:"asymptomatic",R<19:"mild-moderate",R<30:"moderate-severe",R>29:"extremely severe",1:""),!!,^YTT(601,YSTEST,"M",24,1,1,0),!,^YTT(601,YSTEST,"M",24,1,2,0)
  • Line Location: BDI+2
Function Call: WRITE
  • Prompt: !!?3,$S(Z=3:"Severe",Z=2:"Moderate",1:"Mild")," Symptoms:"
  • Line Location: BDI+3
Function Call: WRITE
  • Prompt: !,$P(^YTT(601,YSTEST,"M",I,1,1,0),U,Z(2))
  • Condition for execution: $E(Z(1),I)=Z
  • Line Location: BDI+3
Function Call: WRITE
  • Prompt: !!?(72-$L(X)\2),X,!!!?(A-9\2+L1),"S C A L E",?(L2+1),"RAW ",B,!
  • Line Location: BDI2+12
Function Call: WRITE
  • Prompt: !?L1,$P(^YTT(601,YSTEST,"S",1,0),U,2),?L2,$J(R,4,0)
  • Line Location: BDI2+13
Function Call: WRITE
  • Prompt: " ",S
  • Line Location: BDI2+14
Function Call: WRITE
  • Prompt: !
  • Condition for execution: $X>60
  • Line Location: BDI2+16
Function Call: WRITE
  • Prompt: ","
  • Condition for execution: $X>3
  • Line Location: BDI2+16
Function Call: WRITE
  • Prompt: $P(^YTT(601,YSTEST,"G",1,1,K,0),".",2,9)
  • Line Location: BDI2+16
Function Call: WRITE
  • Prompt: $S(G1=1:" (more)",G1=3:" (more)",G1=5:" (more)",G1=2:" (less)",G1=4:" (less)",G1=6:" (less)",1:"")
  • Line Location: BDI2+17
Function Call: WRITE
  • Prompt: $S(G1=1:" (less)",G1=2:" (more)",G1=3:" (less)",G1=4:" (more)",G1=5:" (less)",G1=6:" (more)",1:"")
  • Line Location: BDI2+18
Routine Call
  • DIR
  • Line Location:
    • WAIT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.2 - [#601.2] BAI+1, BSIRPT+1, BDI+1, BDI2+1
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] YTBI+4, NX+1, NX+2, NX+3, NX+4, D1+1, D4+5, BAI+1, BAI+2, B2+2
, BSIRPT+2, BSI2+1, BDI+2, BDI+3, BDI2+11, BDI2+13, BDI2+16
^YTT(601.3 - [#601.3] YTBI+4

Label References

Name Line Occurrences
B2 BAI+1
BK D3+1
BSI2 BSIRPT+2
D1 NX+3, BK+1, HOLD+1
D3 D3+1, WHERE+1
D4 D3+1
HOLD D3+1
I2 I2+1
NX D4+5, BK+1
RD I2+1, D3+1, RD+1
WAIT BSIRPT+2, BDI+3
WHERE D3+1

Naked Globals

Name Field # of Occurrence
^( D1+1, BSIRPT+2, BSI2+1
^("B" NX+2
^("P" BDI2+11
^(0 YTBI+4, NX+1, D1+1, BSIRPT+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A WAIT+2~, BDI2+11*, BDI2+12
B YTBI+3*, NX+2*, D1+2, WHERE+1, WAIT+2~, BDI2+11*, BDI2+12
B1 WAIT+2~
C NX+1*, D3+1, WAIT+2~
D WAIT+2~
DIR WAIT+8!
DIR(0 WAIT+8*
>> DIRUT WAIT+8
DT YTBI+3
>> DTOUT WAIT+8
E WAIT+2~
E1 WAIT+2~
F WAIT+2~
F1 WAIT+2~
G WAIT+2~, BDI2+1*, BDI2+17, BDI2+18
G1 WAIT+2~, BDI2+17*, BDI2+18*
H WAIT+2~
I BAI+2*, B2+2*, BSIRPT+2*, BSIRPT+3*, BSI2+1, WAIT+2~, BDI+1*, BDI+3*, BDI2+7*
>> I0 WAIT+7*
IOF NX+4, D1+1, HOLD+1, WAIT+8
IOSL BSIRPT+2, WAIT+7, BDI+3
IOST WAIT+6, BDI2+15, BDI2+16, BDI2+19, BDI2+21
J YTBI+3*, NX+1, NX+2, NX+3, NX+4, D1+1, D4+3*, D4+4*, D4+5*, BK+1*
, WHERE+1, WAIT+2~, BDI2+15*, BDI2+16
J1 WAIT+2~
J2 WAIT+2~
J3 WAIT+2~
J4 WAIT+2~
K NX+2*, NX+4*, D1+1*, BSIRPT+2*, BSI2+1*, WAIT+2~, BDI2+16*, BDI2+17, BDI2+18
L WAIT+2~
L1 WAIT+2~, BDI2+11*, BDI2+12, BDI2+13
L2 WAIT+2~, BDI2+11*, BDI2+12, BDI2+13
M WAIT+2~
N WAIT+2~
N1 WAIT+3~
N2 WAIT+3~
N3 WAIT+3~
N4 WAIT+3~
P WAIT+3~
P0 WAIT+3~
P1 WAIT+3~
P3 WAIT+3~
R BAI+1, WAIT+3~, BDI+1*, BDI+2*, BDI2+1*, BDI2+7*, BDI2+8, BDI2+13
R1 WAIT+3~
S WAIT+3~, BDI2+8*, BDI2+14
S1 WAIT+3~
T WAIT+3~
T1 WAIT+3~
T2 WAIT+3~
TT WAIT+3~
U YTBI+4, NX+1, BDI+3, BDI2+11, BDI2+13
V WAIT+3~
V1 WAIT+3~
V2 WAIT+3~
V3 WAIT+3~
V4 WAIT+4~
V5 WAIT+4~
V6 WAIT+4~
W WAIT+4~
X NX+4*, I2+1, D3+1, D4+1, D4+4, RD+1*, BK+1*, HOLD+1*!, BAI+1*, BAI+2
, B2+1, B2+2, BSIRPT+1*, BSIRPT+2, BSIRPT+3, WAIT+4~, BDI2+11*, BDI2+12
X0 WAIT+4~
X1 WAIT+4~
X2 WAIT+4~
X3 WAIT+4~
X4 WAIT+4~
X7 WAIT+4~
X8 WAIT+4~
X9 WAIT+4~
Y YTBI+4*, BAI+2*, B2+2*, BSIRPT+2*, WAIT+4~
Y1 WAIT+4~
Y2 WAIT+4~
>> YSBEGIN YTBI+3*
>> YSCD YTBI+4*
>> YSCH YTBI+4*
>> YSCHN YTBI+4*
>> YSDFN BK+1, BAI+1, BSIRPT+1, BDI+1, BDI2+1
>> YSED BAI+1, BSIRPT+1, BDI+1, BDI2+1
>> YSENT BK+1
>> YSLFT BSIRPT+1*, WAIT+8*, BDI+2*, BDI+3
>> YSRP YTBI+3*, D4+1*, D4+3*, D4+4*, BK+1*
>> YSTEST YTBI+4, NX+1, NX+2, NX+3, NX+4, D1+1, D4+5, BAI+1, BAI+2, B2+2
, BSIRPT+1, BSIRPT+2, BSI2+1, BDI+1, BDI+2, BDI+3, BDI2+1, BDI2+11, BDI2+13, BDI2+16
>> YSTESTN WHERE+1
>> YSTOUT WAIT+8*, BDI2+10*, BDI2+15, BDI2+16, BDI2+19, BDI2+20, BDI2+21
>> YSTY BDI+1*, BDI2+9
>> YSUOUT WAIT+8*, BDI2+10*, BDI2+15, BDI2+16, BDI2+19, BDI2+20, BDI2+21
>> YZT D3+1*
Z BSIRPT+2*, BSI2+1*, WAIT+4~, BDI+3*, BDI2+1*, BDI2+2, BDI2+4, BDI2+6*, BDI2+7, BDI2+15
, BDI2+16
Z(1 BDI+1*, BDI+2, BDI+3
Z(2 BDI+3*
Z1 WAIT+4~, BDI2+2*, BDI2+3*, BDI2+6
>> Z2 BDI2+4*, BDI2+5*, BDI2+6
Z3 WAIT+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All