| 1 | YSPP5 ;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
|
|---|
| 5 | ENCE ; 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 | ;
|
|---|
| 9 | FA ;
|
|---|
| 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 | ;
|
|---|
| 15 | COV ;
|
|---|
| 16 | S YSCOV=$S($P(L,U,7)=7:" (COLLATERAL) ",1:"") Q
|
|---|
| 17 | COV1 ;
|
|---|
| 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
|
|---|
