Routine: YTPCL

Information

YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ; 4/5/07 10:05am

Source file <YTPCL.m>

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"DSM-IV PTSD Criteria B ",$S(B>0:"IS met",1:"is NOT met") Line Location: ZZ+0
Function Call: WRITE	Prompt: !,"DSM-IV PTSD Criteria C ",$S(C>2:"IS met",1:"is NOT met") Line Location: ZZ+1
Function Call: WRITE	Prompt: !,"DSM-IV PTSD Criteria D ",$S(D>1:"IS met",1:"is NOT met") Line Location: ZZ+2
Function Call: WRITE	Prompt: !!,"* PTSD Diagnosis IS SUGGESTED *" Line Location: ZZ+3
Function Call: WRITE	Prompt: !! Line Location: ZZ+4
Function Call: WRITE	Prompt: !!!,"Items" Line Location: ZZ+6
Function Call: WRITE	Prompt: !,I,". ",^YTT(601,YSET,"Q",I,"T",1,0) Line Location: ZZ+8
Function Call: WRITE	Prompt: !?7,^YTT(601,YSET,"Q",I,"T",3,0) Line Location: ZZ+10
Function Call: WRITE	Prompt: " :",$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I) Line Location: ZZ+11
Function Call: WRITE	Prompt: !!,"1= Not at all 2= A little bit 3= Moderately 4= Quite a bit 5= Extremely" Line Location: ZZ+12
Function Call: WRITE	Prompt: !!,?7,"Post Traumatic Stress Disorder Screen",!! Line Location: SPTSD+2
Function Call: WRITE	Prompt: !,"Patient Reports "_$S($E(X,1)="Y":"HAVING",1:"NO")_" traumatic experiences.",! Line Location: SPTSD+4