Routine: SDWLMSG

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,1015**;AUG 13, 1993;Build 21

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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,1015**;AUG 13, 1993;Build 21

 +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

SDWLMSG.m