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 |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Mental Health 3 ^YTAR2  (,EN4)^YTFILE  DTA^YTREPT  
VA FileMan 1 $$GET1^DIQ  

Entry Points

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

External References

Name Field # of Occurrence
$$GET1^DIQ REPT+9
^YTAR2 I2+1, D3+1
^YTFILE D4+2
EN4^YTFILE D4+1
DTA^YTREPT REPT+1

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^%ZOSF("NO-TYPE-AHEAD" YTAIMS+7
^VA(200 - [#200] REPT+9
^YTD(601.2 - [#601.2] REPT+4, REPT+8
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, EP+2, REPT+11, REPT+12

Label References

Name Line Occurrences
BK D3+1
D1 NX+3, BK+1, HOLD+1, EP+7
D3 D3+1, WHERE+1
D4 D3+1
EP I2+1
HOLD D3+1
I2 I2+1
NX D4+1, BK+1
RD I2+1, D3+1, RD+1
WHERE D3+1

Naked Globals

Name Field # of Occurrence
^( D1+1, EP+2
^("B" NX+2
^(0 NX+1, NX+4, D1+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B YTAIMS+8*, NX+2*, D1+2, WHERE+1
>> C NX+1*, D3+1
DT YTAIMS+8
>> I REPT+6*
IOF NX+4, D1+1, HOLD+1, EP+1, EP+4, EP+6
IOSL EP+2
>> J YTAIMS+8*, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1*, BK+1*, WHERE+1, REPT+11*
, REPT+12
>> K NX+2*, NX+4*, D1+1*, EP+2*
>> R REPT+5*, REPT+6*, REPT+7
U NX+1, REPT+8, REPT+14, REPT+15, REPT+16
X I2+1, D3+1, D4+1, RD+1*, BK+1*, HOLD+1*!, EP+3*, EP+5*, REPT+12*, REPT+13
, REPT+14, REPT+15, REPT+16
>> Y REPT+4*, REPT+6, REPT+16, REPT+17
>> YSBEGIN YTAIMS+8*
>> YSDFN BK+1, REPT+4, REPT+8
>> YSED REPT+4, REPT+8
>> YSENT BK+1
>> YSET REPT+4, REPT+8, REPT+11, REPT+12
YSIND REPT+14*, REPT+16, REPT+17, REPT+18, DONE+1!
>> YSNOITEM REPT+2*
>> YSORD REPT+8*, REPT+9
YSQ REPT+13*, REPT+16, REPT+17, REPT+18, DONE+1!
>> YSRP YTAIMS+8*, D4+1*, BK+1*
YSTEM REPT+15*, REPT+16, REPT+17, REPT+18, DONE+1!
>> YSTEST NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, EP+2
>> YSTESTN WHERE+1
>> YZT D3+1*
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All