Routine: YTSF36

Information

YTSF36 ;ALBANY/ASF SF-36 HEALTH SURVEY ;1/12/96 10:33

Source file <YTSF36.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!?(72-$L(X)\2),X,!!!?(A-9\2+L1),"S C A L E",?(L2+1),"RAW 0-100",! Line Location: REPT+2
Function Call: WRITE	Prompt: !?L1,$P(^YTT(601,YSTEST,"S",J,0),U,2) Line Location: REPT+5
Function Call: WRITE	Prompt: ?L2,$S(YSRS="":" ",1:$J(YSRS,6,2)) Line Location: REPT+6
Function Call: WRITE	Prompt: ?(L2+10)," *" Line Location: REPT+7
Function Call: WRITE	Prompt: ?(L2+10),$J($P(S,U,J),6,2) Line Location: REPT+9
Function Call: WRITE	Prompt: !! Line Location: REPT+10
Function Call: WRITE	Prompt: ?7,$P(YSTXT,";;",2),! Line Location: REPT+10
Function Call: WRITE	Prompt: ?(L2+10),$S(YSRS=1:"Much Better",YSRS=2:"Somewhat Better",YSRS=3:"About the Same",YSRS=4:"Somewhat Worse",YSRS=5:"Much Worse",1:" ") Line Location: LS+1
Function Call: WRITE	Prompt: !!?15,"Item Responses",! Line Location: ITMS+2
Function Call: WRITE	Prompt: !,YSX Line Location: ITMS2+0
Function Call: WRITE	Prompt: !!?15,"<<<",YSX,">>>" Line Location: ITMS2+1
Function Call: WRITE	Prompt: !?5,"Answer= ",$P(YSX,"^",$E(A,YSN)+1) Line Location: ITMS2+2
Function Call: WRITE	Prompt: !,YSX Line Location: ITMS2+3
Function Call: WRITE	Prompt: ! Line Location: SCR+5
Function Call: WRITE	Prompt: @IOF Line Location: SCR+8