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

SDAMEP3.m

Go to the documentation of this file. 
  1. SDAMEP3 ;ALB/CAW - Extended Display (Appt. Event Log) ;1/5/16 12:24pm
  1.  ;;5.3;Scheduling;**20,241,645**;Aug 13, 1993;Build 7
  1.  ;
  1. APLOG ;
  1.  D SET^SDAMEP1("                       *** Appointment Event Log ***")
  1.  D CNTRL^VALM10(SDLN,24,29,IOINHI,IOINORM)
  1.  D SET^SDAMEP1($$EVENT("Event","Date","User"))
  1.  D SET^SDAMEP1($$EVENT("-----","----","----"))
  1.  D SET^SDAMEP1($$EVENT("Appt Made",$S($G(SDSC(44.003,SDDA,8))]"":SDSC(44.003,SDDA,8),1:$G(SDPT(2.98,SDT,20))),$S($G(SDSC(44.003,SDDA,7))]"":SDSC(44.003,SDDA,7),1:$G(SDPT(2.98,SDT,19)))))
  1.  D SET^SDAMEP1($$EVENT("Check In",$G(SDSC(44.003,SDDA,309)),$G(SDSC(44.003,SDDA,302))))
  1.  D SET^SDAMEP1($$EVENT("Check Out",$G(SDSC(44.003,SDDA,303)),$G(SDSC(44.003,SDDA,304))))
  1.  D SET^SDAMEP1($$EVENT("Check Out Entered",$G(SDSC(44.003,SDDA,306)),""))
  1.  D SET^SDAMEP1($$EVENT("No-Show/Cancel",$G(SDPT(2.98,SDT,15)),$G(SDPT(2.98,SDT,14)))),SET^SDAMEP1("")
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("  Checked Out:",X,7,SDWIDTH)
  1.  S X=$$SETSTR^VALM1($S($G(SDOE(409.68,+SDOE,.07))]"":"YES",1:""),X,SDFSTCOL+5,30)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("  Cancel Reason:",X,5,SDWIDTH)
  1.  S X=$$SETSTR^VALM1(SDPT(2.98,SDT,16),X,SDFSTCOL+5,30)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("  Cancel Remark:",X,5,SDWIDTH)
  1.  S X=$$SETSTR^VALM1(SDPT(2.98,SDT,17),X,SDFSTCOL+5,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("  Rebooked Date:",X,5,SDWIDTH)
  1.  S X=$$SETSTR^VALM1(SDPT(2.98,SDT,12),X,SDFSTCOL+5,20)
  1.  D SET^SDAMEP1(X)
  1. CWT ;Clinic Wait Time Information
  1.  N SDCWT,SDCWT1,SDCWT2
  1.  ;Get internal data values
  1.  F SDCWT=3,20,25:1:28 S SDCWT(SDCWT)=SDPTI(2.98,SDT,SDCWT,"I")
  1.  ;Wait time data applicable?
  1.  S SDCWT=1 S:$E(SDCWT(3))="C" SDCWT=0
  1.  S SDCWT1=SDCWT(20),SDCWT2=SDCWT(27)
  1.  ;Calculate Wait Time1
  1.  S SDCWT1=$S(SDCWT1<1:"",SDT<SDCWT1:0,1:$$FMDIFF^XLFDT(SDT,SDCWT1,1))
  1.  ;Calculate Wait Time2
  1.  S:'$$CWT3^SCRPW75(SDT,SDCWT(26),SDCWT(27),SDCWT(28),.SDCWT2) SDCWT2=""
  1.  S:+SDCWT1=SDCWT1 SDCWT1=SDCWT1_" day"_$S(SDCWT1=1:"",1:"s")
  1.  S:+SDCWT2=SDCWT2 SDCWT2=SDCWT2_" day"_$S(SDCWT2=1:"",1:"s")
  1.  D SET^SDAMEP1("                      *** Clinic Wait Time Information ***")
  1.  D CNTRL^VALM10(SDLN,20,40,IOINHI,IOINORM)
  1.  D SET^SDAMEP1("")
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("       Request type:",X,7,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",$G(SDPT(2.98,SDT,25))]"":SDPT(2.98,SDT,25),1:"Unknown"),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("'Next Available' Type:",X,5,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",1:SDPT(2.98,SDT,26)),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  ; SD*5.3*645 - replaced Desired date with CID/Preferred date when presented to the user
  1.  S X=$$SETSTR^VALM1("   CID/Preferred date:",X,5,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",1:SDPT(2.98,SDT,27)),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("      Follow-up visit:",X,5,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",1:SDPT(2.98,SDT,28)_$S($L(SDPT(2.98,SDT,28)):"  (computed)",1:"")),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("    Clinic Wait Time1:",X,5,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",1:SDCWT1),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  ;
  1.  S X=""
  1.  S X=$$SETSTR^VALM1("    Clinic Wait Time2:",X,5,SDWIDTH+6)
  1.  S X=$$SETSTR^VALM1($S('SDCWT:"N/A",1:SDCWT2),X,SDFSTCOL+10,50)
  1.  D SET^SDAMEP1(X)
  1.  D SET^SDAMEP1("")
  1.  I SDCWT D  Q
  1.  .;SD*5.3*645 - replaced 'Desired date' with 'CID/Preferred date' when presented to the user
  1.  .D SET^SDAMEP1("NOTE: Clinic Wait Time1 represents the difference between the date the")
  1.  .D SET^SDAMEP1("      appointment was entered and the date it was performed.  Clinic Wait")
  1.  .D SET^SDAMEP1("      Time2 represents the difference between the 'CID/Preferred date' and the")
  1.  .D SET^SDAMEP1("      date the appointment was performed.")
  1.  .Q
  1.  D SET^SDAMEP1("")
  1.  D SET^SDAMEP1("NOTE: Clinic Wait Time data is not applicable for appointments that have a")
  1.  D SET^SDAMEP1("      status of 'cancelled by clinic'.")
  1.  D SET^SDAMEP1("")
  1.  Q
  1.  ;
  1. EVENT(TYPE,TIME,USER) ;
  1.  Q $$SETSTR^VALM1(TYPE,$$SETSTR^VALM1(TIME,$$SETSTR^VALM1(USER,"",50,30),25,21),2,20)
  1.  ;