Routine: YTMCMI

Information

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

Source file <YTMCMI.m>

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