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

Package: Mental Health

Routine: YTAUIR


Information

YTAUIR ;ALB/ASF- AUIR DRIVER ;12/20/89 09:35 ;2/21/89 12:33

Source Information

Source file <YTAUIR.m>

Entry Points

Name Comments DBIA/ICR reference
NX ;
MAR ;
I2 ;
D1 ;
D3 ;
D4
RD ;
BK ;
WHERE ;
CR ;
NL ;
H5 ;
IP ;
PS
HOLD ;
MARQ ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?3,^(0)
  • Condition for execution: $D(^(K,0))
  • Line Location: MAR+3
Function Call: WRITE
  • Prompt: !!!?3,"PRESS THE SPACE BAR TO CONTINUE."
  • Line Location: MAR+4
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+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: 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: NL+1
Function Call: WRITE
  • Prompt: !!
  • Line Location: H5+1
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+0
Function Call: READ
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: !!,"Please read each question carefully",$C(7)
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF,!,"Have you been living in a marriage or marriage-type situation",!,"within the past six months?",!!!?3,"1. No",!!?3,"2. Yes"
  • Line Location: MARQ+1
Info |  Source |  Entry Points |  Interaction Calls