Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SDAMEP1

SDAMEP1.m

Go to the documentation of this file.
  1. SDAMEP1 ;ALB/CAW,MGD - Expanded Display (Appt. Data) ; NOV 13, 2024
  1. ;;5.3;Scheduling;**20,241,534,895**;Aug 13, 1993;Build 11
  1. ;
  1. ; Reference to ^$$ELIG^DGCOMPACTELIG in ICR #7462
  1. ;
  1. APDATA ; Appointment Data
  1. ;
  1. D SET($$SETSTR^VALM1("*** Appointment Demographics ***","",24,32))
  1. D CNTRL^VALM10(SDLN,24,32,IOINHI,IOINORM)
  1. D SET("")
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" Name:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P($G(^DPT(DFN,0)),U),X,SDFSTCOL,24)
  1. S X=$$SETSTR^VALM1(" Clinic:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P($G(^SC(SDCL,0)),U),X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" ID:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1(VA("PID"),X,SDFSTCOL,24)
  1. S X=$$SETSTR^VALM1(" Date/Time:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1($$FTIME^VALM1(SDT),X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" Status:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P($$STATUS^SDAM1(DFN,SDT,SDCL,$G(^DPT(DFN,"S",SDT,0)),SDDA),";",3),X,SDFSTCOL,50)
  1. D SET(X)
  1. ;
  1. S SDPV=$P($G(^DPT(DFN,"S",SDT,0)),U,7),SDPOV=$S(SDPV=1:"C&P",SDPV=2:"10-10",SDPV=3:"SCHEDULED",SDPV=4:"UNSCHEDULED",1:"UNKNOWN")
  1. S X="",X=$$SETSTR^VALM1("Purpose of Vst.:",X,1,16)
  1. S X=$$SETSTR^VALM1(SDPOV,X,SDFSTCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" Length of Appt:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($G(SDSC(44.003,SDDA,1)),X,SDFSTCOL,4)
  1. S X=$$SETSTR^VALM1(" Appt Type:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1(SDPT(2.98,SDT,9.5),X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" Lab:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P(SDPT(2.98,SDT,5),"@",2),X,SDFSTCOL,5)
  1. S X=$$SETSTR^VALM1(" Elig of Appt:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1($G(SDSC(44.003,SDDA,30)),X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. N SDCOMPACT
  1. S SDCOMPACT=$$ELIG^DGCOMPACTELIG(DFN,"SDAMEP1")
  1. S X=""
  1. S X=$$SETSTR^VALM1(" X-ray:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P(SDPT(2.98,SDT,6),"@",2),X,SDFSTCOL,5)
  1. S X=$$SETSTR^VALM1(" COMPACT Elig:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1(SDCOMPACT,X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1(" EKG:",X,1,SDWIDTH)
  1. S X=$$SETSTR^VALM1($P(SDPT(2.98,SDT,7),"@",2),X,SDFSTCOL,5)
  1. S X=$$SETSTR^VALM1(" Overbook:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1($G(SDSC(44.003,SDDA,9)),X,SDSECCOL,24)
  1. D SET(X)
  1. ;
  1. S X=""
  1. S X=$$SETSTR^VALM1("Collateral Appt:",X,40,SDWIDTH)
  1. S X=$$SETSTR^VALM1($G(SDPT(2.98,SDT,13)),X,SDSECCOL,17)
  1. D SET(X)
  1. ;
  1. S X=""
  1. N SDINFL S SDINFL=$L($G(SDSC(44.003,SDDA,3))) ; length of INFO STRING
  1. I SDINFL<64 D
  1. .S X=$$SETSTR^VALM1(" Other:",X,1,SDWIDTH)
  1. .S X=$$SETSTR^VALM1($G(SDSC(44.003,SDDA,3)),X,SDFSTCOL,63)
  1. I SDINFL>63&(SDINFL<143) D
  1. .S X=$$SETSTR^VALM1(" Other:",X,1,SDWIDTH)
  1. .S X=$$SETSTR^VALM1($E($G(SDSC(44.003,SDDA,3)),1,64),X,17,80)
  1. .D SET(X)
  1. .S X=$$SETSTR^VALM1("",X,1,0)
  1. .S X=$$SETSTR^VALM1($E($G(SDSC(44.003,SDDA,3)),65,150),X,1,80)
  1. I SDINFL>142 D
  1. .S X=$$SETSTR^VALM1(" Other:",X,1,10)
  1. .S X=$$SETSTR^VALM1($E($G(SDSC(44.003,SDDA,3)),1,70),X,11,80)
  1. .D SET(X)
  1. .S X=$$SETSTR^VALM1("",X,1,0)
  1. .S X=$$SETSTR^VALM1($E($G(SDSC(44.003,SDDA,3)),71,150),X,1,80)
  1. D SET(X)
  1. ;
  1. S (X,SDEIC)="" F SDI=0:0 S SDI=$O(^DPT(DFN,"DE",SDI)) Q:'SDI I $P(^(SDI,0),U)=SDCL F SDX=0:0 S SDX=$O(^DPT(DFN,"DE",SDI,1,SDX)) Q:'SDX S SDEN=$G(^DPT(DFN,"DE",SDI,1,SDX,0))
  1. D ENROLL
  1. D SET($S($D(SDFLG):X,1:" "))
  1. S X="",X=$$SETSTR^VALM1($S('$D(SDEN):"",$P(SDEN,U)="":"",$P(SDEN,U,3)="":"Enrollment Date/Time:",1:""),X,4,21)
  1. I $D(SDEN),+SDEN,$P(SDEN,U,3)="" S X=$$SETSTR^VALM1($$FTIME^VALM1($P(SDEN,U)),X,26,18)
  1. D SET(X)
  1. Q
  1. ;
  1. ENROLL ;
  1. S SDFLG=1
  1. S X="",X=$$SETSTR^VALM1("Enrolled in this clinic:",X,1,25)
  1. S X=$$SETSTR^VALM1($S('$D(SDEN):"NO",$P(SDEN,U)="":"NO",$P(SDEN,U,3)'="":"NO",1:"YES"),X,26,3)
  1. S X=$$SETSTR^VALM1($S('$D(SDEN):"",$P(SDEN,U)="":"",$P(SDEN,U,3)="":" OPT or AC:",$P(SDEN,U,3)'="":"Disch fm Clinic:",1:""),X,44,17)
  1. I $D(SDEN),+SDEN,$P(SDEN,U,3)="" S X=$$SETSTR^VALM1($S($P(SDEN,U,2)="A":"AC",1:"OPT"),X,SDSECCOL,3)
  1. I $D(SDEN),+SDEN,$P(SDEN,U,3)'="" S X=$$SETSTR^VALM1($$FTIME^VALM1($P(SDEN,U,3)),X,62,17)
  1. Q
  1. SET(X) ; Set in ^TMP global for display
  1. ;
  1. S SDLN=SDLN+1,^TMP("SDAMEP",$J,SDLN,0)=X
  1. Q
  1. ;
  1. INIT ; -- set up vars
  1. N DR,DIQ,DIC,DA
  1. D PID^VADPT6
  1. S SDFSTCOL=18,SDWIDTH=16,SDSECCOL=57
  1. I SDDA="" S SDDA=+$$FIND^SDAM2(DFN,SDT,SDCL)
  1. S SDOE=+$P($G(^DPT(DFN,"S",SDT,0)),"^",20)
  1. S DIQ="SDPT(",DIC="^DPT(DFN,""S"",",DA=SDT,DR=".01;3;5;6;7;12;13;14;15;16;9.5;17;19;20;25;26;27;28" D EN^DIQ1
  1. S DIQ="SDSC(",DIC="^SC(SDCL,""S"",SDT,1,",DA=SDDA,DR="1;3;7;8;9;30;309;302;303;304;306" D EN^DIQ1
  1. I $G(SDOE) S DIQ="SDOE(",DIC="^SCE(",DA=+SDOE,DR=".07" D EN^DIQ1
  1. I $D(SDSC(44.003,SDDA,30)),SDSC(44.003,SDDA,30)="" S SDSC(44.003,SDDA,30)=$P($G(^DIC(8,+$G(^DPT(DFN,.36)),0)),U)
  1. I $D(SDSC(44.003,SDDA,9)),SDSC(44.003,SDDA,9)="" S SDSC(44.003,SDDA,9)="NO"
  1. I $D(SDPT(2.98,SDT,13)),SDPT(2.98,SDT,13)="" S SDPT(2.98,SDT,13)="NO"
  1. S DIQ(0)="I",DIQ="SDPTI(",DIC="^DPT(DFN,""S"",",DA=SDT,DR="3;20;25;26;27;28" D EN^DIQ1
  1. Q