source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SDWLMSG.m@ 1672

Last change on this file since 1672 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version
File size: 6.7 KB
Line 
1SDWLMSG ;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
2 ;;5.3;scheduling;**327,394,446**;AUG 13, 1993;Build 77
3 ;
4MESS ;Send message 1
5 S ^TMP("SDWLQSC1",$J,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % PRIORITY"
6 S ^TMP("SDWLQSC1",$J,.02)="------------ --- ------------ ------------ --------"
7 S ^TMP("SDWLQSC1",$J,.03)=""
8 N XMSUB,XMY,XMTEXT,XMDUZ
9 S XMSUB="EWL SC Patient Update with SC Priority"
10 S XMY("G.SD EWL BACKGROUND UPDATE")=""
11 S XMTEXT="^TMP(""SDWLQSC1"",$J,"
12 S XMDUZ="POSTMASTER"
13 D ^XMD K ^TMP("SDWLQSC1",$J)
14 Q
15MESS1 ;Send message 2
16 S ^TMP("SDWLQSC2",$J,.01)="Patient Name SSN OLD-EWL/SC % NEW-EWL/SC % MULTI-ENTRIES"
17 S ^TMP("SDWLQSC2",$J,.02)="------------ --- ------------ ------------ -------------"
18 S ^TMP("SDWLQSC2",$J,.03)=""
19 S ^TMP("SDWLQSC2",$J,.04)="** NOTE: EWL SC PRIORITY MAY REQUIRE MANUAL UPDATE. PLEASE REVIEW **"
20 S ^TMP("SDWLQSC2",$J,.05)=""
21 N XMSUB,XMY,XMTEXT,XMDUZ
22 S XMSUB="EWL SC Patient Update with SC Percentage Change"
23 S XMY("G.SD EWL BACKGROUND UPDATE")=""
24 S XMTEXT="^TMP(""SDWLQSC2"",$J,"
25 S XMDUZ="POSTMASTER"
26 D ^XMD K ^TMP("SDWLQSC2",$J)
27 Q
28MESS2 ;
29 S ^TMP("SDWLQSC3",$J,.01)="This message displays any pending appointments in the EWL file which have"
30 S ^TMP("SDWLQSC3",$J,.02)="a status of 'CANCELED BY CLINIC', there may be further action required if"
31 S ^TMP("SDWLQSC3",$J,.03)="the patient still needs an appointment."
32 S ^TMP("SDWLQSC3",$J,.04)=""
33 N SDFORM S SDFORM=$$FORM^SDFORM("PATIENT NAME",32,"CLINIC",27,"DATE/TIME of APPT",21) D ;added
34 .S ^TMP("SDWLQSC3",$J,.05)=SDFORM
35 S ^TMP("SDWLQSC3",$J,.06)="-------------------------------------------------------------------------------"
36 S ^TMP("SDWLQSC3",$J,.07)=""
37 N XMSUB,XMY,XMTEXT,XMDUZ
38 S XMSUB="EWL appointment entries with a status of 'CANCELED BY CLINIC'."
39 S XMY("G.SD EWL BACKGROUND UPDATE")=""
40 S XMTEXT="^TMP(""SDWLQSC3"",$J,"
41 S XMDUZ="POSTMASTER"
42 D ^XMD K ^TMP("SDWLQSC3",$J)
43 Q
44MESS3 ;
45 S ^TMP("SDWLQSC4",$J,.01)="This message displays the number of open Wait List entries that are tied to"
46 S ^TMP("SDWLQSC4",$J,.02)="an Inactive Clinic. These Wait List entries may require further action,"
47 S ^TMP("SDWLQSC4",$J,.03)="please review."
48 S ^TMP("SDWLQSC4",$J,.04)=""
49 S ^TMP("SDWLQSC4",$J,.05)="CLINIC and NUMBER of WAIT LIST entries"
50 S ^TMP("SDWLQSC4",$J,.06)=""
51 N XMSUB,XMY,XMTEXT,XMDUZ
52 S XMSUB="INACTIVE CLINICS with OPEN WAIT LIST entries."
53 S XMY("G.SD EWL BACKGROUND UPDATE")=""
54 S XMTEXT="^TMP(""SDWLQSC4"",$J,"
55 S XMDUZ="POSTMASTER"
56 D ^XMD K ^TMP("SDWLQSC4",$J)
57 Q
58MESS4 ;PCMM Inactivative Team Report
59 S ^TMP("SDWLQSC5",$J,.01)="This message displays any PCMM Teams that have been inactivated"
60 S ^TMP("SDWLQSC5",$J,.02)="and have patients waiting on the Wait List. The PCMM Teams"
61 S ^TMP("SDWLQSC5",$J,.03)="are displayed along with the number of open Wait List entries."
62 S ^TMP("SDWLQSC5",$J,.04)=""
63 N XMSUB,XMY,XMTEXT,XMDUZ
64 S XMSUB="Wait List PCMM Inactive Team Report"
65 S XMY("G.SD EWL BACKGROUND UPDATE")=""
66 S XMTEXT="^TMP(""SDWLQSC5"",$J,"
67 S XMDUZ="POSTMASTER"
68 D ^XMD K ^TMP("SDWLQSC5",$J)
69 Q
70MESS5 ;PCMM Position Inactivation Report
71 S ^TMP("SDWLQSC6",$J,.01)="This message displays any PCMM Positions that have been inactivated"
72 S ^TMP("SDWLQSC6",$J,.02)="and have patients waiting on the Wait List. The PCMM Positions"
73 S ^TMP("SDWLQSC6",$J,.03)="are displayed along with the number of open Wait List entries."
74 S ^TMP("SDWLQSC6",$J,.04)=""
75 S ^TMP("SDWLQSC6",$J,.05)="Team Position Team Open EWL Entries"
76 S ^TMP("SDWLQSC6",$J,.06)=""
77 N XMSUB,XMY,XMTEXT,XMDUZ
78 S XMSUB="Wait List PCMM Inactive Position Report"
79 S XMY("G.SD EWL BACKGROUND UPDATE")=""
80 S XMTEXT="^TMP(""SDWLQSC6"",$J,"
81 S XMDUZ="POSTMASTER"
82 D ^XMD K ^TMP("SDWLQSC6",$J)
83 Q
84MESS6 ;Date of Death error message
85 S ^TMP("SDWLQSC7",$J,.01)="This message displays any patient on the Wait List who had "
86 S ^TMP("SDWLQSC7",$J,.02)="a Date of Death entered in error. The Wait List entry is"
87 S ^TMP("SDWLQSC7",$J,.03)="reopened and may require additional follow-up."
88 S ^TMP("SDWLQSC7",$J,.04)=""
89 N XMSUB,XMY,XMTEXT,XMDUZ
90 S XMSUB="Wait List Date of Death Error Report"
91 S XMY("G.SD EWL BACKGROUND UPDATE")=""
92 S XMTEXT="^TMP(""SDWLQSC7"",$J,"
93 S XMDUZ="POSTMASTER"
94 D ^XMD K ^TMP("SDWLQSC7",$J)
95 Q
96MESS7 ;PCMM Team available slots
97 S ^TMP("SDWLQSC8",$J,.01)="This message displays any PCMM Teams that have open EWL entries"
98 S ^TMP("SDWLQSC8",$J,.02)="waiting - and now have open slots available. Message displays"
99 S ^TMP("SDWLQSC8",$J,.03)="PCMM Team and number of open slots and number of EWL entries waiting"
100 S ^TMP("SDWLQSC8",$J,.04)="for that PCMM Team."
101 S ^TMP("SDWLQSC8",$J,.05)=""
102 S ^TMP("SDWLQSC8",$J,.07)=""
103 N XMSUB,XMY,XMTEXT,XMDUZ
104 S XMSUB="PCMM Team Report of Available Slots"
105 S XMY("G.SD EWL BACKGROUND UPDATE")=""
106 S XMTEXT="^TMP(""SDWLQSC8"",$J,"
107 S XMDUZ="POSTMASTER"
108 D ^XMD K ^TMP("SDWLQSC8",$J)
109 Q
110MESS8 ;PCMM Position available open slots
111 S ^TMP("SDWLQSC9",$J,.01)="This message displays any PCMM Positions that have open EWL entries"
112 S ^TMP("SDWLQSC9",$J,.02)="waiting - and now have open slots available. Message displays"
113 S ^TMP("SDWLQSC9",$J,.03)="PCMM Position and number of open slots and number of EWL entries waiting"
114 S ^TMP("SDWLQSC9",$J,.04)="for that PCMM Position."
115 S ^TMP("SDWLQSC9",$J,.05)=""
116 S ^TMP("SDWLQSC9",$J,.07)=""
117 N XMSUB,XMY,XMTEXT,XMDUZ
118 S XMSUB="PCMM Positions Report of Available Slots"
119 S XMY("G.SD EWL BACKGROUND UPDATE")=""
120 S XMTEXT="^TMP(""SDWLQSC9"",$J,"
121 S XMDUZ="POSTMASTER"
122 D ^XMD K ^TMP("SDWLQSC9",$J)
123 Q
124MESS9(DFN) ;
125 S ^TMP("ENC",$J,.01)="This message displays any open EWL Clinic (C) or Specialty (S) type entries"
126 S ^TMP("ENC",$J,.02)="along with the date/time of the first identified encounter or appointment for"
127 S ^TMP("ENC",$J,.03)="that patient (in the same Clinic or Specialty) entered after the origination"
128 S ^TMP("ENC",$J,.04)="date of the EWL entry."
129 S ^TMP("ENC",$J,.05)=""
130 S ^TMP("ENC",$J,.06)="Please review, and Disposition the EWL entry if the encounter/appointment has"
131 S ^TMP("ENC",$J,.07)="satisfied the need for the EWL entry."
132 N SDFORM S SDFORM=$$FORM^SDFORM("PATIENT NAME",22,"CLINIC",18,"EWL Type-Org. Date",25,"Date/Time of Appt",21) D ;added
133 .S ^TMP("ENC",$J,.08)=SDFORM
134 S ^TMP("ENC",$J,.09)="-------------------------------------------------------------------------------"
135 N SSN S SSN=$$GET1^DIQ(2,DFN_",",.09,"I"),SSN=$E(SSN,1,3)_"-"_$E(SSN,4,5)_"-"_$E(SSN,6,10)
136 S ^TMP("ENC",$J,.1)=SSN
137 N XMSUB,XMY,XMTEXT,XMDUZ
138 S XMSUB="EWL entries with existing, related appointment/encounter."
139 S XMY("G.SD EWL BACKGROUND UPDATE")=""
140 S XMTEXT="^TMP(""ENC"",$J,"
141 S XMDUZ="POSTMASTER"
142 D ^XMD K ^TMP("ENC",$J)
143 Q
Note: See TracBrowser for help on using the repository browser.