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 |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: YTMCMI

Package: Mental Health

Routine: YTMCMI


Information

YTMCMI ;SLC/DKG-TEST PKG: MILLON SCALES ; 10/20/88 09:03 ;

Source Information

Source file <YTMCMI.m>

Call Graph

Call Graph

Call Graph Total: 2

Package Total Call Graph
Mental Health 1 (,DTA)^YTREPT  
VA FileMan 1 ^DIR  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Mental Health 1 YSMTI1  

Entry Points

Name Comments DBIA/ICR reference
BOTH ;
END ;
RLN ;
YSSRT ;
YSSCL ;
WAIT ;
; Added 5/6/94 LJA

External References

Name Field # of Occurrence
^DIR WAIT+8
^YTREPT YTMCMI+3
DTA^YTREPT BOTH+4

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?(72-$L(X)\2),X,!!
  • Line Location: BOTH+4
Function Call: WRITE
  • Prompt: !,"*** THIS PROFILE IS INVALID - TOTAL RAW SCORE SCALES 1-8 ",$S(K<94:"LESS THAN 94",K>165:"GREATER THAN 165",1:"")," ***",!
  • Line Location: BOTH+5
Function Call: WRITE
  • Prompt: "VALIDIY SCORE = ",K
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: ?20
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: "***"
  • Condition for execution: K
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: " THIS PROFILE IS ",$S(K=0:"VALID",K=1:"UNRELIABLE",1:"INVALID")
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: "***"
  • Condition for execution: K
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: " THIS PROFILE IS ",$S(K=0:"VALID",K=1:"UNRELIABLE",1:"INVALID")
  • Line Location: BOTH+6
Function Call: WRITE
  • Prompt: !?7,"S C A L E",?23,"RAW WF AS BR",?47,"PROFILE OF BR SCORES",!?35,"20 35 60 75 85 100",!?36,YSII,!
  • Line Location: BOTH+7
Function Call: WRITE
  • Prompt: ?1
  • Line Location: RLN+1
Function Call: WRITE
  • Prompt: $J(YSIT,3,0)," ",$E(X,YSIT)," "
  • Line Location: RLN+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RLN+2
Function Call: WRITE
  • Prompt: !,YSNAM,?24,$J(YSRS,2,0),$S($D(YSWF(YSSC)):$J(YSWF(YSSC),3,0),1:" "),$S($D(YSAS(YSSC)):$J(YSAS(YSSC),3,0),1:" "),$J(YSBR,3,0)," ",$E(YSXX,1,YSXR),$E(YSII,YSXR+1,41)
  • Line Location: YSSCL+3
Function Call: WRITE
  • Prompt: !
  • Line Location: WAIT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WAIT+9
Routine Call
  • DIR
  • Line Location:
    • WAIT+8

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^YTT(601 - [#601] BOTH+4, YSSCL+1, YSSCL+4

Label References

Name Line Occurrences
END BOTH+9
WAIT YSSCL+3
YSSCL BOTH+8
YSSRT YTMCMI+3

Naked Globals

Name Field # of Occurrence
^(0 YSSCL+4

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A END+1!, WAIT+2~
B END+1!, WAIT+2~
B1 WAIT+2~
C WAIT+2~
D WAIT+2~
DIR WAIT+8!
DIR(0 WAIT+8*
DIRUT WAIT+7~, WAIT+8
DTOUT WAIT+7~, WAIT+8
DUOUT WAIT+7~, WAIT+8
E WAIT+2~
E1 WAIT+2~
F WAIT+2~
F1 WAIT+2~
G WAIT+2~
G1 WAIT+2~
H WAIT+2~
I END+1!, WAIT+2~
>> I0 WAIT+6*
IOF WAIT+9
IOSL YSSCL+3, WAIT+6
IOST YSSCL+3
J YTMCMI+4*, YTMCMI+5*, YTMCMI+6*, YTMCMI+8*, BOTH+1*, END+1!, YSSRT+1*, YSSRT+2*, WAIT+2~
J1 WAIT+2~
J2 WAIT+2~
J3 WAIT+2~
J4 WAIT+2~
K YTMCMI+6*, YTMCMI+7, BOTH+5, BOTH+6*, END+1!, RLN+1, YSSRT+2*, YSSRT+3*, WAIT+2~
L WAIT+2~
L1 WAIT+2~
L2 WAIT+2~
M WAIT+2~
N WAIT+2~
N1 WAIT+3~
N2 WAIT+3~
N3 WAIT+3~
N4 WAIT+3~
P WAIT+3~
P0 WAIT+3~
P1 WAIT+3~
P3 WAIT+3~
R YTMCMI+6, BOTH+6, END+1!, YSSCL+1, WAIT+3~
R1 WAIT+3~
S BOTH+1*, END+1!, YSSRT+1, YSSCL+1, WAIT+3~
S1 WAIT+3~
T WAIT+3~
T1 WAIT+3~
T2 WAIT+3~
TT WAIT+3~
U YTMCMI+6, BOTH+4, BOTH+6, YSSRT+1, YSSCL+1, YSSCL+4
V WAIT+3~
V1 WAIT+3~
V2 WAIT+3~
V3 WAIT+3~
V4 WAIT+4~
V5 WAIT+4~
V6 WAIT+4~
W WAIT+4~
X BOTH+4*, END+1!, RLN+1, WAIT+4~
X0 WAIT+4~
X1 WAIT+4~
X2 WAIT+4~
X3 WAIT+4~
X4 WAIT+4~
X7 WAIT+4~
X8 WAIT+4~
X9 WAIT+4~
Y WAIT+4~
Y1 WAIT+4~
Y2 WAIT+4~
YSAD YTMCMI+7*, YTMCMI+8, END+1!
YSAS END+1!
YSAS( YTMCMI+4*, YTMCMI+5*, YSSCL+3
YSBR END+1!, YSSCL+1*, YSSCL+2, YSSCL+3
YSII BOTH+2*, BOTH+7, END+1!, YSSCL+3, YSSCL+4
YSIT END+1!, RLN+1*
YSKK END+1!, RLN+1*
>> YSLFT BOTH+8*, BOTH+9, YSSCL+3, WAIT+8*
YSNAM END+1!, YSSCL+1*, YSSCL+3
YSRR END+1!
YSRR( YTMCMI+4*, YTMCMI+5*, YTMCMI+8*, BOTH+1, YSSRT+1*, YSSRT+2
YSRS END+1!, YSSRT+2!, YSSRT+4!, YSSCL+1*, YSSCL+3
YSRS( YSSRT+2*, YSSRT+3
YSSC BOTH+8*, END+1!, YSSCL+1, YSSCL+3, YSSCL+4
YSSR YTMCMI+4, YTMCMI+5, END+1!, YSSRT+3*
>> YSTEST BOTH+4, YSSCL+1, YSSCL+4
>> YSTOUT WAIT+8*
YSTY YTMCMI+3*, END+1!
>> YSUOUT WAIT+8*
YSWF END+1!
YSWF( YTMCMI+8*, YSSCL+3
YSXR END+1!, YSSCL+2*, YSSCL+3
YSXX BOTH+3*, END+1!, YSSCL+3
Z WAIT+4~
Z1 WAIT+4~
Z3 WAIT+4~
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All