Changeset 636 for FOIAVistA/tag/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YTAUIRR.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/YTAUIRR.m (modified) (3 diffs)

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

@@ -1 @@
-YTAUIRR ;ALB/ASF-   AUI-R REPORT ;11/15/90  16:58 ; 4/6/07 4:12pm
- ;;5.01;MENTAL HEALTH;**37,85**;Dec 30, 1994;Build 48
+YTAUIRR ;ALB/ASF-   AUI-R REPORT ;11/15/90  16:58 ;
+ ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
 F0 ;
  S R="",J=1
@@ -23 +23 @@
  S S=S_$P(^YTT(601,7,"S",J,"M"),U,A+2-L1)_"^",J=J+1 G LK
 REPT ;
- Q:YSTY["X"  ;--> out ASF 09/15/04
  S X1="",$P(X1,"# ",60)=""
  S X=$P(^YTT(601,YSTEST,"P"),U),A=$P(^("P"),U,2),B=$P(^("P"),U,3),L1=58-A\2,L2=L1+A+4 S:A<9 A=9
@@ -54 +53 @@
  W @IOF Q
 DTA ;
- D KVAR^VADPT S DFN=YSDFN
- D DEM^VADPT,PID^VADPT
- S YSNM=VADM(1),YSSEX=$P(VADM(5),U),YSDOB=$P(VADM(3),U,2),YSAGE=VADM(4),YSSSN=VA("PID"),YSBID=VA("BID")
- D KVAR^VADPT
  S X0=^YTD(601.2,YSDFN,1,YSET,1,YSED,0),YSDTA=$P(X0,U,5) S:YSDTA'="" YSDTA=$$FMTE^XLFDT(YSDTA,"5ZD")
- S YSSX=YSSEX,YSBL="           ",YSHDR=YSSSN_"  "_YSNM_YSBL_YSBL_YSBL,YSHD=DT
  S YSHDR=$E(YSHDR,1,43)_" "_YSSEX_" AGE "_$J(YSAGE,2,0)_" "_YSDT(0)_" "_$$FMTE^XLFDT(YSHD,"5ZD") W @IOF,YSHDR," ",YSDTA
- S X=$P(^YTT(601,YSTEST,"P"),U)
  W ! S X7=$P(X0,U),X8=$P(X0,U,8) I X8,X8<X7 W "Begun: ",$$FMTE^XLFDT(X8,"5ZD"),"  Finished ",$$FMTE^XLFDT(X7,"5ZD")
  W ?53,"PRINTED  ENTERED  " W:YSDTA'="" "ADMIN" Q