DVBAB1B ;ALB/SPH - CAPRI UTILITIES ;01/01/00
 ;;2.7;AMIE;**104**;Apr 10, 1995
 ;
DPA(LIST,DFN,CHOICE) ;Display Patient Appointments
 N DVBABCNT,CKCHOICE
 S LIST="",DVBABCNT=1,CKCHOICE="A,F,P",DFN=$G(DFN),CHOICE=$G(CHOICE) K ^TMP("DVBAAPPT",$J)
 I DFN="" S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="MISSING PATIENT NAME",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ)) Q
 I CHOICE="" S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="MISSING ALL, PAST, OR FUTURE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ)) Q
 I CKCHOICE'[CHOICE S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="INVALID SELECTION",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ)) Q
 I CHOICE["A" D
 .S SDT=0
 .S X="T+730" D ^%DT
 .I Y<0 S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="ERROR IN CALCULATING ENDING DATE RANGE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ))
 .S EDT=Y+.9
 I CHOICE["F" D
 .S X="T+1" D ^%DT
 .I Y<0 S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="ERROR IN CALCULATING START DATE RANGE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ))
 .S SDT=Y
 .K X,Y
 .S X="T+730" D ^%DT
 .I Y<0 S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="ERROR IN CALCULATING ENDING DATE RANGE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ))
 .S EDT=Y+.9
 I CHOICE["P" D
 .S X="T" D ^%DT
 .I Y<0 S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="ERROR IN CALCULATING ENDING DATE RANGE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ))
 .S EDT=Y+.9
 .K X,Y
 .S SDT=0
 Q:LIST["ERROR"
 I $O(^DPT(DFN,"S",SDT))'>0 S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="NO APPOINTMENTS FOUND FOR YOUR DATE RANGE",LIST=$NA(^TMP("DVBAAPPT",$J,DUZ)) Q
 F  S SDT=$O(^DPT(DFN,"S",SDT)) Q:'SDT!(SDT>EDT)  D
 .S CLN=$P(^DPT(DFN,"S",SDT,0),"^") Q:'CLN
 .Q:'$D(^SC(CLN,0))
 .S CLN=$P(^SC(CLN,0),"^")
 .S ZZ=$L(CLN)
 .I ZZ<31 D
 ..F ZZZ=ZZ:1:30 S CLN=CLN_" "
 .S Y=SDT X ^DD("DD")
 .S ZZ2=$L(Y)
 .I ZZ2<21 D
 ..F ZZZ2=ZZ2:1:20 S Y=Y_" "
 .S STATUS=$P(^DPT(DFN,"S",SDT,0),"^",2)
 .I STATUS'="" D
 ..I STATUS="N" S STATUS="NO-SHOW"
 ..I STATUS="C" S STATUS="CANCELLED BY CLINIC"
 ..I STATUS="CA" S STATUS="CANCELLED BY CLINIC & AUTO RE-BOOK"
 ..I STATUS="NA" S STATUS="NO-SHOW & AUTO-REBOOK"
 ..I STATUS="I" S STATUS="INPATIENT APPOINTMENT"
 ..I STATUS="PC" S STATUS="CANCELLED BY PATIENT"
 ..I STATUS="PCA" S STATUS="CANCELLED BY PATIENT & AUTO RE-BOOK"
 ..I STATUS="NT" S STATUS="NO ACTION TAKEN"
 . I $D(^DPT(DFN,"S",SDT,"R")) S REMARK=$P(^DPT(DFN,"S",SDT,"R"),"^",1) ;ADDED
 .S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)=CLN_"  "_Y_" "_STATUS,DVBABCNT=DVBABCNT+1
 . I $D(REMARK) S ^TMP("DVBAAPPT",$J,DUZ,DVBABCNT)="   Cancellation Remarks: "_REMARK,DVBABCNT=DVBABCNT+1
 . I $D(REMARK) K REMARK
 .S LIST=$NA(^TMP("DVBAAPPT",$J,DUZ))
 K DFN,X,%DT,CLN,CHOICE,Y,SDT,EDT
 Q