Changeset 636 for FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m

Timestamp:

Dec 4, 2009, 8:26:01 PM (14 years ago)

Author:

George Lilly

Message:

WorldVistAEHR overlayed on FOIAVistA

Location:

FOIAVistA/tag/r

Files:

• . (copied) (copied from FOIAVistA/trunk/r )
• MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m (modified) (2 diffs)

FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTPCL.m

@@ -1 @@
-YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ; 4/5/07 10:05am
- ;;5.01;MENTAL HEALTH;**66,85**;Dec 30, 1994;Build 48
+YTPCL ;ALB/ASF TEST-PTST CHECKLISTS ;7/19/00  11:11
+ ;;5.01;MENTAL HEALTH;**66**;Dec 30, 1994
  ;
  ;Reference to ^DIR supported by IA #10026
@@ -18 +18 @@
  W !!
  I IOST?1"C".E W ! S DIR(0)="E" D ^DIR Q:Y'=1
- W !!!,"Items"
- F I=1:1:17 D
- . W !,I,". ",^YTT(601,YSET,"Q",I,"T",1,0)
- . I $D(^YTT(601,YSET,"Q",I,"T",2,0)) W:^(0)'=" " !?7,^(0)
- . I I=5 W !?7,^YTT(601,YSET,"Q",I,"T",3,0)
- . W " :",$E(^YTD(601.2,YSDFN,1,YSET,1,YSED,1),I)
- W !!,"1= Not at all 2= A little bit 3= Moderately 4= Quite a bit 5= Extremely"
+ D IR^YTREPT
  Q
 SPTSD ;SCREENING REPORT