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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: YTAIMS

Package: Mental Health

Routine: YTAIMS


Information

YTAIMS ;ALB/ASF-TEST PKG: AIMS ;8/18/99 09:19

Source Information

Source file <YTAIMS.m>

Entry Points

Name Comments DBIA/ICR reference
NX ;
I2 ;
D1 ;
D3 ;
D4 ;
RD ;
BK ;
WHERE ;
HOLD ;
EP ;exam procedure
REPT ;generate printout
DONE ;

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: !?3,"Press 'E' to review the Examination Procedure "
  • Line Location: NX+6
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
  • Prompt: ""
  • Variable: *X
  • Timeout: 900
  • Line Location: RD+1
Function Call: WRITE
  • Prompt: !,YSTESTN," QUESTION # ",J,!
  • Line Location: WHERE+1
Function Call: READ
  • Prompt: "Please read each question carefully!"
  • Variable: X
  • Timeout: 3
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF,#,$C(7)
  • Line Location: HOLD+1
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP+1
Function Call: WRITE
  • Prompt: !?3,^(K,0)
  • Line Location: EP+2
Function Call: WRITE
  • Prompt: @IOF,!
  • Line Location: EP+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: EP+6
Function Call: WRITE
  • Prompt: !?7,"--- Abnormal Involuntary Movement Scale ---"
  • Line Location: REPT+3
Function Call: WRITE
  • Prompt: !!?2,"AIMS score= ",R
  • Line Location: REPT+7
Function Call: WRITE
  • Prompt: ?20,"Ordered by: "
  • Line Location: REPT+9
Function Call: WRITE
  • Prompt: $$GET1^DIQ(200,YSORD_",",.01)
  • Line Location: REPT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: REPT+10
Function Call: WRITE
  • Prompt: !?YSIND,$P(YSTEM,"#"),$P(X,U,$E(Y,YSQ)+3)
  • Line Location: REPT+16
Function Call: WRITE
  • Prompt: !?YSIND,$P(YSTEM,"#"),"missing"
  • Line Location: REPT+17
Function Call: WRITE
  • Prompt: !?YSIND,$P(YSTEM,"#")
  • Line Location: REPT+18

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call