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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
Mental Health 2 ^YTAR2  ^YTFILE  
Kernel 1 H^XUS  
VA FileMan 1 DD^%DT  

Entry Points

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

External References

Name Field # of Occurrence
DD^%DT YTMCMI3A+4
H^XUS INP+2, EPIS+3
^YTAR2 I2+1, D3+4
^YTFILE D4+2

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTD(601.4 - [#601.4] BK+1
^YTT(601 - [#601] YTMCMI3A+4, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, CR+1
^YTT(601.3 - [#601.3] YTMCMI3A+4, CR+2, CR+3, IP+1, PS+1

Label References

Name Line Occurrences
BK D3+4
CR YTMCMI3A+4
D1 NX+3, BK+1, HOLD+2
D3 D3+4, WHERE+1
D4 D3+4
EPIS EPIS+3
HOLD D3+3
I2 I2+1
INP INP+2
IP CR+1
NX D4+1, BK+1
PS CR+1
RD I2+1, D3+2, RD+1
WHERE D3+4

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> B YTMCMI3A+3*, NX+2*, D1+2, WHERE+1
>> C NX+1*, D3+4
DT YTMCMI3A+3
DTIME INP+2, EPIS+3
IOF NX+4, D1+1, CR+2, IP+1, PS+1, HOLD+1
>> J YTMCMI3A+3*, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1*, BK+1*, WHERE+1
>> K NX+2*, NX+4*, D1+1*
U YTMCMI3A+4, NX+1, CR+1
X I2+1, D3+4, D4+1, RD+1*, BK+1*, HOLD+2*!
>> Y YTMCMI3A+4*, INP+2*, INP+3, EPIS+3*, EPIS+4
>> YSBEGIN YTMCMI3A+3*
YSCD YTMCMI3A+4*, CR+2, CR+4!, IP+1!, PS+1!
YSCH YTMCMI3A+4*, CR+1, CR+4!, IP+1!, PS+1!
YSCHN YTMCMI3A+4*, CR+2, CR+3, CR+4!, IP+1!, PS+1!
>> YSDFN BK+1
>> YSENT BK+1
YSMCMI2L D4+2!, EPIS+4*
YSMCMI2P D4+2!, INP+3*
>> YSNM INP+1
>> YSRP YTMCMI3A+3*, D4+1*, D4+2*, BK+1*
>> YSTEST YTMCMI3A+4, NX+1, NX+2, NX+3, NX+4, D1+1, D4+1, CR+1
>> YSTESTN WHERE+1
YSTNM CR+1*, IP+1!, PS+1!
>> YSTOUT INP+2*, EPIS+3*
YSTX CR+2*, CR+3*, CR+4!, IP+1!, PS+1!
>> YSUOUT INP+2*, EPIS+3*
>> YZT D3+1*, D3+3
Info |  Source |  Call Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All