| [613] | 1 | YSPP4 ;ALB/ASF-PATIENT INQUIRY-LAST APC'S,ADMIS,FUTURE APPT,ENR CLINICS ;3/29/90 08:24 ;09/30/93 13:24
|
|---|
| 2 | ;;5.01;MENTAL HEALTH;**37**;Dec 30, 1994
|
|---|
| 3 | LA ;
|
|---|
| 4 | S YSFHDR="Inpatient Data <<section 5>>" D ENHD^YSFORM
|
|---|
| 5 | ENCE ; Called indirectly from YSCEN31
|
|---|
| 6 | ;
|
|---|
| 7 | W !,"Last 5 Admissions:",!,"Date",?12,"Admitting Diagnosis",?42,"Discharge Date",?58,"Discharge Type",! F I=1:1:79 W "="
|
|---|
| 8 | G APC:'$D(^DGPM("APTT1",DA))
|
|---|
| 9 | S L1=0,L2=0,YSADDT=""
|
|---|
| 10 | F S YSADDT=$O(^DGPM("APTT1",DA,YSADDT)) Q:YSADDT="" D
|
|---|
| 11 | . S L1=L1+1,A6(L1)=YSADDT
|
|---|
| 12 | . K:L1>5 A6(L1-5)
|
|---|
| 13 | F KK=L1:-1:$S(L1>5:L1-4,1:1) I $D(A6(KK)) S VAIP("D")=A6(KK),DFN=DA D IN5^VADPT W !,$P($P(VAIP(3),U,2),"@"),?12,$E(VAIP(9),1,28),?42 I VAIP(17)]"" W $P($P(VAIP(17,1),U,2),"@"),?58,$E($P(VAIP(17,3),U,2),1,20)
|
|---|
| 14 | ;
|
|---|
| 15 | APC ;
|
|---|
| 16 | W !!,"Last 5 Applications for care: "
|
|---|
| 17 | S S2=0,S5=0,YSTB=$P(^DD(2.101,2,0),U,3) W !,"Date in",?15,"Disposition",?35,"Type of Benefit",! F I=1:1:60 W "="
|
|---|
| 18 | S2 ;
|
|---|
| 19 | W ! S S2=$O(^DPT(DA,"DIS",S2)) G Q:'S2 S L=^(S2,0),S5=S5+1 G Q:S5>5
|
|---|
| 20 | S L1=+L,YSDISP=$P(L,U,7) S Y=L1 D DD^%DT S L1=$P(Y,"@")
|
|---|
| 21 | PR ;
|
|---|
| 22 | S D=$G(^DPT(DA,0)) W L1,?15,$P($G(^DIC(37,+YSDISP,0)),U,2)
|
|---|
| 23 | W ?35,$P($P(YSTB,";",+$P(L,U,3)),":",2) G S2
|
|---|
| 24 | Q ;
|
|---|
| 25 | Q:$D(YSNOFORM) D WAIT1^YSUTL:'YST,ENFT^YSFORM:YST Q
|
|---|
| 26 | D ;
|
|---|
| 27 | S D=$$FMTE^XLFDT(D,"5ZD")
|
|---|
