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

Package: Mental Health

Routine: YTMCMI3A


Information

YTMCMI3A ;SLC/DKG-TEST PKG: TEST DRIVER; ;5/30/02 15:01

Source Information

Source file <YTMCMI3A.m>

Entry Points

Name Comments DBIA/ICR reference
NX ;
I2 ;
D1 ;
D3 ;
D4 ;
RD ;
BK ;
WHERE ;
CR ;
IP ;
PS ;
INP ;
EPIS ;
HOLD ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NX+4
Function Call: WRITE
  • Prompt: !?3,^(0)
  • Condition for execution: $D(^YTT(601,YSTEST,"Q",J,"I",K,0))
  • 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: !!?3,^(0)
  • Condition for execution: $D(^(K,0))
  • Line Location: D1+1
Function Call: WRITE
  • Prompt: " ? "
  • Line Location: D3+4
Function Call: READ
  • Variable: *X
  • Timeout: 900
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,YSTESTN," QUESTION # ",J,!
  • Line Location: WHERE+1
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,2,0)
  • Line Location: CR+2
Function Call: WRITE
  • Prompt: !?3,^(YSTX,0)
  • Line Location: CR+3
Function Call: WRITE
  • Prompt: !!
  • Line Location: CR+4
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0),!?3,^YTT(601.3,YSCHN,1,2,0),YSTNM,",",!?3,^YTT(601.3,YSCHN,1,3,0)," ",YSCD," ",^YTT(601.3,YSCHN,1,4,0),!?3,^YTT(601.3,YSCHN,1,5,0),!
  • Line Location: IP+1
Function Call: WRITE
  • Prompt: @IOF,!!!?3,^YTT(601.3,YSCHN,1,1,0),YSTNM,!?3,^YTT(601.3,YSCHN,1,2,0)," ",YSCD,!?3,^YTT(601.3,YSCHN,1,3,0)," ",^YTT(601.3,YSCHN,1,4,0)
  • Line Location: PS+1
Function Call: WRITE
  • Prompt: !,"Was the MCMI3 taken by ",YSNM," administered as an ",!,"(I)npatient or (O)utpatient? "
  • Line Location: INP+1
Function Call: READ
  • Variable: Y
  • Timeout: DTIME
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: !,"Answer I for inpatient or O for outpatient",$C(7)
  • Line Location: INP+2
Function Call: WRITE
  • Prompt: !,"Was the duration of the recent Axis I Episode: ",!,"1. Less than one week",!,"2. One to four weeks",!,"3. One to three months",!,"4. Three to twelve months",!,"5. Periodic; one to three years",!,"6. Continuous; one to "
  • Line Location: EPIS+1
Function Call: WRITE
  • Prompt: "three years",!,"7. Periodic; three to seven years",!,"8. Continuous; three to seven years",!,"9. More than seven years",!,"0. Cannot categorize"
  • Line Location: EPIS+2
Function Call: READ
  • Formatting: !
  • Prompt: "Answer: "
  • Variable: Y
  • Timeout: DTIME
  • Line Location: EPIS+3
Function Call: WRITE
  • Prompt: !,"Enter a number 0-9"
  • Line Location: EPIS+3
Function Call: WRITE
  • Prompt: @IOF,#,$C(7)
  • Line Location: HOLD+1
Function Call: READ
  • Prompt: "Please read each question carefully!"
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+2
Info |  Source |  Entry Points |  Interaction Calls