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

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 ;

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
Info |  Source |  Entry Points |  Interaction Calls