source: FOIAVistA/trunk/r/MENTAL_HEALTH-YS-RUCL-YI-YT/YSPP5.m@ 1166

Last change on this file since 1166 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 926 bytes
Line 
1YSPP5 ;ALB/ASF-PATIENT INQUIRY--OUT PATIENT ; 2/15/89 09:31 ;
2 ;;5.01;MENTAL HEALTH;**37,40**;Dec 30, 1994
3 ;
4 S YSFHDR="Outpatient Data <<section 6 >>" D ENHD^YSFORM
5ENCE ; Called indirectly from YSCEN31
6 ;
7 G FA:'$O(^DPT(DA,"DE",0)) W !!,"Currently enrolled in " S I=0 F S I=$O(^DPT(DA,"DE",I)) Q:'I I $D(^(I,0)),$P(^(0),U,2)'="I" W $S($D(^SC(+^(0),0)):$P(^(0),U)_", ",1:"") W:$X>60 !?22
8 ;
9FA ;
10 W !!,"Future Appointments: ",?25,"Date",?37,"Time",?50,"Clinic",!?25 F I=25:1:78 W "="
11 S %DT="",X="T" D ^%DT S YSFA=+Y
12 F YSFA=YSFA:0 S YSFA=$O(^DPT(DA,"S",YSFA)) Q:'YSFA S L=^(YSFA,0),C=+L I $P(L,U,2)'["C" D COV,COV1
13 K %DT Q:$D(YSNOFORM) D WAIT1^YSUTL:'YST,ENFT^YSFORM:YST Q
14 ;
15COV ;
16 S YSCOV=$S($P(L,U,7)=7:" (COLLATERAL) ",1:"") Q
17COV1 ;
18 S YSFDT=$$FMTE^XLFDT(YSFA,"5ZP")
19 W !,?25,$E(YSFDT,1,10),?37,$S(+$E(YSFDT,12,13)>9:$E(YSFDT,12,19),+$E(YSFDT,12,13)'>9:0_$E(YSFDT,12,19),1:""),?50,$P($G(^SC(C,0)),U)," ",YSCOV Q
Note: See TracBrowser for help on using the repository browser.