Routine: YSMTI0

Information

YSMTI0 ;ALB/ASF - MUTLIPLE PSYCH TESTS FULL PROFILES ;7/23/99 10:36

Source file <YSMTI0.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"QUEUED",1:"Not queued"),$C(7) Line Location: YSMTI0+4
Function Call: WRITE	Prompt: @IOF,!?10,"** M U L T I P L E T E S T A D M I N I S T R A T I O N S *" Line Location: TOP+2
Function Call: WRITE	Prompt: !,VADM(1),?40,"SSN: xxx-xx-"_$E($P(VADM(2),U,2),8,11)," ",$P(VADM(5),U,2),?60," DOB: ",$P(VADM(3),U,2) Line Location: TOP+3
Function Call: WRITE	Prompt: !?(72-$L(X)/2),X Line Location: TOP+4
Function Call: WRITE	Prompt: !,YSLN Line Location: TOP+5
Function Call: WRITE	Prompt: !,"Scales",?15,"Administrations",!,YSLN,!?4 Line Location: TOP+6
Function Call: WRITE	Prompt: $J($$FMTE^XLFDT(9999999-Y,"2D"),9) Line Location: TOP+7
Function Call: WRITE	Prompt: $J($$FMTE^XLFDT(9999999-Y,"5D"),10) Line Location: TOP+8
Function Call: WRITE	Prompt: !,$J($P($P(^YTT(601,YSTEST,"S",YSCALEN,0),U,2)," "),5)," " Line Location: LP+1
Function Call: WRITE	Prompt: $J(S,6),?$X+3 Line Location: LP2+1
Function Call: WRITE	Prompt: "11111<BOT>",$C(13) Line Location: FRONT+4
Function Call: WRITE	Prompt: "<EOT>",$C(13) Line Location: FOUT1+2
Function Call: WRITE	Prompt: Y1,$C(13) Line Location: FRONT1+3