SDWLMSG ;IOFO BAY PINES/DMR - EWL-SC PRIORITY BACKGROUND MESSAGES;09/02/2004 2:10 PM [5/12/05 2:58pm] ; Compiled June 7, 2006 11:07:43 ; Compiled May 1, 2007 15:08:25
;;5.3;scheduling;**327,394,446**;AUG 13, 1993;Build 77
;
MESS ;Send message 1
S ^TMP("SDWLQSC1",$J,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % PRIORITY"
S ^TMP("SDWLQSC1",$J,.02)="------------ --- ------------ ------------ --------"
S ^TMP("SDWLQSC1",$J,.03)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL SC Patient Update with SC Priority"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC1"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC1",$J)
Q
MESS1 ;Send message 2
S ^TMP("SDWLQSC2",$J,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % MULTI-ENTRIES"
S ^TMP("SDWLQSC2",$J,.02)="------------ --- ------------ ------------ -------------"
S ^TMP("SDWLQSC2",$J,.03)=""
S ^TMP("SDWLQSC2",$J,.04)="** NOTE: EWL SC PRIORITY MAY REQUIRE MANUAL UPDATE. PLEASE REVIEW **"
S ^TMP("SDWLQSC2",$J,.05)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL SC Patient Update with SC Percentage Change"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC2"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC2",$J)
Q
MESS2 ;
S ^TMP("SDWLQSC3",$J,.01)="This message displays any pending appointments in the EWL file which have"
S ^TMP("SDWLQSC3",$J,.02)="a status of 'CANCELED BY CLINIC', there may be further action required if"
S ^TMP("SDWLQSC3",$J,.03)="the patient still needs an appointment."
S ^TMP("SDWLQSC3",$J,.04)=""
N SDFORM S SDFORM=$$FORM^SDFORM("PATIENT NAME",32,"CLINIC",27,"DATE/TIME of APPT",21) D ;added
.S ^TMP("SDWLQSC3",$J,.05)=SDFORM
S ^TMP("SDWLQSC3",$J,.06)="-------------------------------------------------------------------------------"
S ^TMP("SDWLQSC3",$J,.07)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL appointment entries with a status of 'CANCELED BY CLINIC'."
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC3"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC3",$J)
Q
MESS3 ;
S ^TMP("SDWLQSC4",$J,.01)="This message displays the number of open Wait List entries that are tied to"
S ^TMP("SDWLQSC4",$J,.02)="an Inactive Clinic. These Wait List entries may require further action,"
S ^TMP("SDWLQSC4",$J,.03)="please review."
S ^TMP("SDWLQSC4",$J,.04)=""
S ^TMP("SDWLQSC4",$J,.05)="CLINIC and NUMBER of WAIT LIST entries"
S ^TMP("SDWLQSC4",$J,.06)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="INACTIVE CLINICS with OPEN WAIT LIST entries."
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC4"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC4",$J)
Q
MESS4 ;PCMM Inactivative Team Report
S ^TMP("SDWLQSC5",$J,.01)="This message displays any PCMM Teams that have been inactivated"
S ^TMP("SDWLQSC5",$J,.02)="and have patients waiting on the Wait List. The PCMM Teams"
S ^TMP("SDWLQSC5",$J,.03)="are displayed along with the number of open Wait List entries."
S ^TMP("SDWLQSC5",$J,.04)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="Wait List PCMM Inactive Team Report"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC5"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC5",$J)
Q
MESS5 ;PCMM Position Inactivation Report
S ^TMP("SDWLQSC6",$J,.01)="This message displays any PCMM Positions that have been inactivated"
S ^TMP("SDWLQSC6",$J,.02)="and have patients waiting on the Wait List. The PCMM Positions"
S ^TMP("SDWLQSC6",$J,.03)="are displayed along with the number of open Wait List entries."
S ^TMP("SDWLQSC6",$J,.04)=""
S ^TMP("SDWLQSC6",$J,.05)="Team Position Team Open EWL Entries"
S ^TMP("SDWLQSC6",$J,.06)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="Wait List PCMM Inactive Position Report"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC6"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC6",$J)
Q
MESS6 ;Date of Death error message
S ^TMP("SDWLQSC7",$J,.01)="This message displays any patient on the Wait List who had "
S ^TMP("SDWLQSC7",$J,.02)="a Date of Death entered in error. The Wait List entry is"
S ^TMP("SDWLQSC7",$J,.03)="reopened and may require additional follow-up."
S ^TMP("SDWLQSC7",$J,.04)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="Wait List Date of Death Error Report"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC7"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC7",$J)
Q
MESS7 ;PCMM Team available slots
S ^TMP("SDWLQSC8",$J,.01)="This message displays any PCMM Teams that have open EWL entries"
S ^TMP("SDWLQSC8",$J,.02)="waiting - and now have open slots available. Message displays"
S ^TMP("SDWLQSC8",$J,.03)="PCMM Team and number of open slots and number of EWL entries waiting"
S ^TMP("SDWLQSC8",$J,.04)="for that PCMM Team."
S ^TMP("SDWLQSC8",$J,.05)=""
S ^TMP("SDWLQSC8",$J,.07)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="PCMM Team Report of Available Slots"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC8"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC8",$J)
Q
MESS8 ;PCMM Position available open slots
S ^TMP("SDWLQSC9",$J,.01)="This message displays any PCMM Positions that have open EWL entries"
S ^TMP("SDWLQSC9",$J,.02)="waiting - and now have open slots available. Message displays"
S ^TMP("SDWLQSC9",$J,.03)="PCMM Position and number of open slots and number of EWL entries waiting"
S ^TMP("SDWLQSC9",$J,.04)="for that PCMM Position."
S ^TMP("SDWLQSC9",$J,.05)=""
S ^TMP("SDWLQSC9",$J,.07)=""
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="PCMM Positions Report of Available Slots"
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""SDWLQSC9"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("SDWLQSC9",$J)
Q
MESS9(DFN) ;
S ^TMP("ENC",$J,.01)="This message displays any open EWL Clinic (C) or Specialty (S) type entries"
S ^TMP("ENC",$J,.02)="along with the date/time of the first identified encounter or appointment for"
S ^TMP("ENC",$J,.03)="that patient (in the same Clinic or Specialty) entered after the origination"
S ^TMP("ENC",$J,.04)="date of the EWL entry."
S ^TMP("ENC",$J,.05)=""
S ^TMP("ENC",$J,.06)="Please review, and Disposition the EWL entry if the encounter/appointment has"
S ^TMP("ENC",$J,.07)="satisfied the need for the EWL entry."
N SDFORM S SDFORM=$$FORM^SDFORM("PATIENT NAME",22,"CLINIC",18,"EWL Type-Org. Date",25,"Date/Time of Appt",21) D ;added
.S ^TMP("ENC",$J,.08)=SDFORM
S ^TMP("ENC",$J,.09)="-------------------------------------------------------------------------------"
N SSN S SSN=$$GET1^DIQ(2,DFN_",",.09,"I"),SSN=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,10)
S ^TMP("ENC",$J,.1)=SSN
N XMSUB,XMY,XMTEXT,XMDUZ
S XMSUB="EWL entries with existing, related appointment/encounter."
S XMY("G.SD EWL BACKGROUND UPDATE")=""
S XMTEXT="^TMP(""ENC"",$J,"
S XMDUZ="POSTMASTER"
D ^XMD K ^TMP("ENC",$J)
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSDWLMSG 7033 printed Dec 13, 2024@03:02:55 Page 2
SDWLMSG ;IOFO BAY PINES/DMR - EWL-SC PRIORITY BACKGROUND MESSAGES;09/02/2004 2:10 PM [5/12/05 2:58pm] ; Compiled June 7, 2006 11:07:43 ; Compiled May 1, 2007 15:08:25
+1 ;;5.3;scheduling;**327,394,446**;AUG 13, 1993;Build 77
+2 ;
MESS ;Send message 1
+1 SET ^TMP("SDWLQSC1",$JOB,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % PRIORITY"
+2 SET ^TMP("SDWLQSC1",$JOB,.02)="------------ --- ------------ ------------ --------"
+3 SET ^TMP("SDWLQSC1",$JOB,.03)=""
+4 NEW XMSUB,XMY,XMTEXT,XMDUZ
+5 SET XMSUB="EWL SC Patient Update with SC Priority"
+6 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+7 SET XMTEXT="^TMP(""SDWLQSC1"",$J,"
+8 SET XMDUZ="POSTMASTER"
+9 DO ^XMD
KILL ^TMP("SDWLQSC1",$JOB)
+10 QUIT
MESS1 ;Send message 2
+1 SET ^TMP("SDWLQSC2",$JOB,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % MULTI-ENTRIES"
+2 SET ^TMP("SDWLQSC2",$JOB,.02)="------------ --- ------------ ------------ -------------"
+3 SET ^TMP("SDWLQSC2",$JOB,.03)=""
+4 SET ^TMP("SDWLQSC2",$JOB,.04)="** NOTE: EWL SC PRIORITY MAY REQUIRE MANUAL UPDATE. PLEASE REVIEW **"
+5 SET ^TMP("SDWLQSC2",$JOB,.05)=""
+6 NEW XMSUB,XMY,XMTEXT,XMDUZ
+7 SET XMSUB="EWL SC Patient Update with SC Percentage Change"
+8 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+9 SET XMTEXT="^TMP(""SDWLQSC2"",$J,"
+10 SET XMDUZ="POSTMASTER"
+11 DO ^XMD
KILL ^TMP("SDWLQSC2",$JOB)
+12 QUIT
MESS2 ;
+1 SET ^TMP("SDWLQSC3",$JOB,.01)="This message displays any pending appointments in the EWL file which have"
+2 SET ^TMP("SDWLQSC3",$JOB,.02)="a status of 'CANCELED BY CLINIC', there may be further action required if"
+3 SET ^TMP("SDWLQSC3",$JOB,.03)="the patient still needs an appointment."
+4 SET ^TMP("SDWLQSC3",$JOB,.04)=""
+5 ;added
NEW SDFORM
SET SDFORM=$$FORM^SDFORM("PATIENT NAME",32,"CLINIC",27,"DATE/TIME of APPT",21)
Begin DoDot:1
+6 SET ^TMP("SDWLQSC3",$JOB,.05)=SDFORM
End DoDot:1
+7 SET ^TMP("SDWLQSC3",$JOB,.06)="-------------------------------------------------------------------------------"
+8 SET ^TMP("SDWLQSC3",$JOB,.07)=""
+9 NEW XMSUB,XMY,XMTEXT,XMDUZ
+10 SET XMSUB="EWL appointment entries with a status of 'CANCELED BY CLINIC'."
+11 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+12 SET XMTEXT="^TMP(""SDWLQSC3"",$J,"
+13 SET XMDUZ="POSTMASTER"
+14 DO ^XMD
KILL ^TMP("SDWLQSC3",$JOB)
+15 QUIT
MESS3 ;
+1 SET ^TMP("SDWLQSC4",$JOB,.01)="This message displays the number of open Wait List entries that are tied to"
+2 SET ^TMP("SDWLQSC4",$JOB,.02)="an Inactive Clinic. These Wait List entries may require further action,"
+3 SET ^TMP("SDWLQSC4",$JOB,.03)="please review."
+4 SET ^TMP("SDWLQSC4",$JOB,.04)=""
+5 SET ^TMP("SDWLQSC4",$JOB,.05)="CLINIC and NUMBER of WAIT LIST entries"
+6 SET ^TMP("SDWLQSC4",$JOB,.06)=""
+7 NEW XMSUB,XMY,XMTEXT,XMDUZ
+8 SET XMSUB="INACTIVE CLINICS with OPEN WAIT LIST entries."
+9 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+10 SET XMTEXT="^TMP(""SDWLQSC4"",$J,"
+11 SET XMDUZ="POSTMASTER"
+12 DO ^XMD
KILL ^TMP("SDWLQSC4",$JOB)
+13 QUIT
MESS4 ;PCMM Inactivative Team Report
+1 SET ^TMP("SDWLQSC5",$JOB,.01)="This message displays any PCMM Teams that have been inactivated"
+2 SET ^TMP("SDWLQSC5",$JOB,.02)="and have patients waiting on the Wait List. The PCMM Teams"
+3 SET ^TMP("SDWLQSC5",$JOB,.03)="are displayed along with the number of open Wait List entries."
+4 SET ^TMP("SDWLQSC5",$JOB,.04)=""
+5 NEW XMSUB,XMY,XMTEXT,XMDUZ
+6 SET XMSUB="Wait List PCMM Inactive Team Report"
+7 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+8 SET XMTEXT="^TMP(""SDWLQSC5"",$J,"
+9 SET XMDUZ="POSTMASTER"
+10 DO ^XMD
KILL ^TMP("SDWLQSC5",$JOB)
+11 QUIT
MESS5 ;PCMM Position Inactivation Report
+1 SET ^TMP("SDWLQSC6",$JOB,.01)="This message displays any PCMM Positions that have been inactivated"
+2 SET ^TMP("SDWLQSC6",$JOB,.02)="and have patients waiting on the Wait List. The PCMM Positions"
+3 SET ^TMP("SDWLQSC6",$JOB,.03)="are displayed along with the number of open Wait List entries."
+4 SET ^TMP("SDWLQSC6",$JOB,.04)=""
+5 SET ^TMP("SDWLQSC6",$JOB,.05)="Team Position Team Open EWL Entries"
+6 SET ^TMP("SDWLQSC6",$JOB,.06)=""
+7 NEW XMSUB,XMY,XMTEXT,XMDUZ
+8 SET XMSUB="Wait List PCMM Inactive Position Report"
+9 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+10 SET XMTEXT="^TMP(""SDWLQSC6"",$J,"
+11 SET XMDUZ="POSTMASTER"
+12 DO ^XMD
KILL ^TMP("SDWLQSC6",$JOB)
+13 QUIT
MESS6 ;Date of Death error message
+1 SET ^TMP("SDWLQSC7",$JOB,.01)="This message displays any patient on the Wait List who had "
+2 SET ^TMP("SDWLQSC7",$JOB,.02)="a Date of Death entered in error. The Wait List entry is"
+3 SET ^TMP("SDWLQSC7",$JOB,.03)="reopened and may require additional follow-up."
+4 SET ^TMP("SDWLQSC7",$JOB,.04)=""
+5 NEW XMSUB,XMY,XMTEXT,XMDUZ
+6 SET XMSUB="Wait List Date of Death Error Report"
+7 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+8 SET XMTEXT="^TMP(""SDWLQSC7"",$J,"
+9 SET XMDUZ="POSTMASTER"
+10 DO ^XMD
KILL ^TMP("SDWLQSC7",$JOB)
+11 QUIT
MESS7 ;PCMM Team available slots
+1 SET ^TMP("SDWLQSC8",$JOB,.01)="This message displays any PCMM Teams that have open EWL entries"
+2 SET ^TMP("SDWLQSC8",$JOB,.02)="waiting - and now have open slots available. Message displays"
+3 SET ^TMP("SDWLQSC8",$JOB,.03)="PCMM Team and number of open slots and number of EWL entries waiting"
+4 SET ^TMP("SDWLQSC8",$JOB,.04)="for that PCMM Team."
+5 SET ^TMP("SDWLQSC8",$JOB,.05)=""
+6 SET ^TMP("SDWLQSC8",$JOB,.07)=""
+7 NEW XMSUB,XMY,XMTEXT,XMDUZ
+8 SET XMSUB="PCMM Team Report of Available Slots"
+9 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+10 SET XMTEXT="^TMP(""SDWLQSC8"",$J,"
+11 SET XMDUZ="POSTMASTER"
+12 DO ^XMD
KILL ^TMP("SDWLQSC8",$JOB)
+13 QUIT
MESS8 ;PCMM Position available open slots
+1 SET ^TMP("SDWLQSC9",$JOB,.01)="This message displays any PCMM Positions that have open EWL entries"
+2 SET ^TMP("SDWLQSC9",$JOB,.02)="waiting - and now have open slots available. Message displays"
+3 SET ^TMP("SDWLQSC9",$JOB,.03)="PCMM Position and number of open slots and number of EWL entries waiting"
+4 SET ^TMP("SDWLQSC9",$JOB,.04)="for that PCMM Position."
+5 SET ^TMP("SDWLQSC9",$JOB,.05)=""
+6 SET ^TMP("SDWLQSC9",$JOB,.07)=""
+7 NEW XMSUB,XMY,XMTEXT,XMDUZ
+8 SET XMSUB="PCMM Positions Report of Available Slots"
+9 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+10 SET XMTEXT="^TMP(""SDWLQSC9"",$J,"
+11 SET XMDUZ="POSTMASTER"
+12 DO ^XMD
KILL ^TMP("SDWLQSC9",$JOB)
+13 QUIT
MESS9(DFN) ;
+1 SET ^TMP("ENC",$JOB,.01)="This message displays any open EWL Clinic (C) or Specialty (S) type entries"
+2 SET ^TMP("ENC",$JOB,.02)="along with the date/time of the first identified encounter or appointment for"
+3 SET ^TMP("ENC",$JOB,.03)="that patient (in the same Clinic or Specialty) entered after the origination"
+4 SET ^TMP("ENC",$JOB,.04)="date of the EWL entry."
+5 SET ^TMP("ENC",$JOB,.05)=""
+6 SET ^TMP("ENC",$JOB,.06)="Please review, and Disposition the EWL entry if the encounter/appointment has"
+7 SET ^TMP("ENC",$JOB,.07)="satisfied the need for the EWL entry."
+8 ;added
NEW SDFORM
SET SDFORM=$$FORM^SDFORM("PATIENT NAME",22,"CLINIC",18,"EWL Type-Org. Date",25,"Date/Time of Appt",21)
Begin DoDot:1
+9 SET ^TMP("ENC",$JOB,.08)=SDFORM
End DoDot:1
+10 SET ^TMP("ENC",$JOB,.09)="-------------------------------------------------------------------------------"
+11 NEW SSN
SET SSN=$$GET1^DIQ(2,DFN_",",.09,"I")
SET SSN=$EXTRACT(SSN,1,3)_"-"_$EXTRACT(SSN,4,5)_"-"_$EXTRACT(SSN,6,10)
+12 SET ^TMP("ENC",$JOB,.1)=SSN
+13 NEW XMSUB,XMY,XMTEXT,XMDUZ
+14 SET XMSUB="EWL entries with existing, related appointment/encounter."
+15 SET XMY("G.SD EWL BACKGROUND UPDATE")=""
+16 SET XMTEXT="^TMP(""ENC"",$J,"
+17 SET XMDUZ="POSTMASTER"
+18 DO ^XMD
KILL ^TMP("ENC",$JOB)
+19 QUIT
