source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCTSK5.m@ 1078

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

initial load of WorldVistAEHR

File size: 9.4 KB
Line 
1SCMCTSK5 ;ALB/JDS - PCMM Inactivation Reports ; 03 Jun 2004 3:30 PM
2 ;;5.3;Scheduling;**297**;AUG 13, 1993
3 Q
4FLAG ;
5 ;;Patients scheduled for inactivation from their Primary Care team and
6 ;;Primary Care Provider assignments appear below. Inactivation will
7 ;;occur on the Scheduled Date for Inactivation date unless the patient
8 ;;has a completed appointment encounter with their current Primary Care
9 ;;Provider (PCP) or their Associate Primary Care Provider (AP) before
10 ;;that date. The patient may be reactivated to their previous PCP and PC
11 ;;team if they return for care.
12 ;;
13 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM, establishes the rules for
14 ;;PCMM automated inactivation of patients. The following is from that Directive.
15 ;;
16 ;;Inactivation of primary care patients from a PCMM panel occurs under the
17 ;;following circumstances:
18 ;;(2) (a) The patient expires and
19 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
20 ;;have been re-assigned to a different provider) who have not been seen by
21 ;;their PCP or Associate Provider (AP) and 12 months have passed since
22 ;;the time of assignment to that provider. This provides every PCP a 1-year
23 ;;grace period for seeing patients added to their panel (either newly-enrolled
24 ;;patients or patients transferred from a different panel) before they are
25 ;;inactivated. Patients must be seen by their PCP or AP within 12 months of
26 ;;being assigned, or they need to be inactivated from the PCP's panel.
27 ;;(c) Established patients that have been assigned to the PCP's panel for more
28 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
29 ;;need to be inactivated.
30 ;;(3) Patients appropriate for removal are to be identified and inactivated on
31 ;;a regular basis.
32 ;;
33 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
34 ;;and the last day of the month.
35 ;;
36 ;;Patients Scheduled for Inactivation from Primary Care panels
37 ;; Date
38 ;; Scheduled
39 ;;Patient Name SSN Provider Team for Inactivation
40 ;;------------------------------------------------------------------------------
41 Q
42EXT ;
43 ;;By using the Extend Patients Inactivation Date option, these patients'
44 ;;PCMM inactivation dates are now 60 days from their original inactivation date.
45 ;;Inactivation will occur on the Date Scheduled for Inactivation unless the
46 ;;patient has a completed appointment encounter with their current Primary
47 ;;Care Provider (PCP) or their Associate Primary Care Provider (AP) before
48 ;;that date.
49 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM, establishes the rules for
50 ;;PCMM automated inactivation of patients. The following is from that Directive.
51 ;;
52 ;;Inactivation of primary care patients from a PCMM panel occurs under the
53 ;;following circumstances:
54 ;;(2) (a) The patient expires and
55 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
56 ;;have been re-assigned to a different provider) who have not been seen by
57 ;;their PCP or Associate Provider (AP) and 12 months have passed since
58 ;;the time of assignment to that provider. This provides every PCP a 1-year
59 ;;grace period for seeing patients added to their panel (either newly-enrolled
60 ;;patients or patients transferred from a different panel) before they are
61 ;;inactivated. Patients must be seen by their PCP or AP within 12 months of
62 ;;being assigned, or they need to be inactivated from the PCP's panel.
63 ;;(c) Established patients that have been assigned to the PCP's panel for more
64 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
65 ;;need to be inactivated.
66 ;;(3) Patients appropriate for removal are to be identified and inactivated on
67 ;;a regular basis.
68 ;;
69 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
70 ;;and the last day of the month.
71 ;;
72 ;;Patients with Extended PCMM Inactivation Dates
73 ;; Date
74 ;; Scheduled for
75 ;;Patient Name SSN Provider Team Inactivation
76 ;;------------------------------------------------------------------------------
77 Q
78INACT ;
79 ;;Patients inactivated from their Primary Care team and Primary Care Provider
80 ;;assignments appear below. The patient may be reactivated to their previous PCP
81 ;;and PC team if they return for care.
82 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM, establishes the rules for PCMM
83 ;;automated inactivation of patients. The following is from that Directive.
84 ;;
85 ;;Inactivation of primary care patients from a PCMM panel occurs under the
86 ;;following circumstances:
87 ;;(2) (a) The patient expires and
88 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
89 ;;have been re-assigned to a different provider) who have not been seen by
90 ;;their PCP or Associate Provider (AP) and 12 months have passed since
91 ;;the time of assignment to that provider. This provides every PCP a 1-year
92 ;;grace period for seeing patients added to their panel (either newly-enrolled
93 ;;patients or patients transferred from a different panel) before they are
94 ;;inactivated. Patients must be seen by their PCP or AP within 12 months of
95 ;;being assigned, or they need to be inactivated from the PCP's panel.
96 ;;(c) Established patients that have been assigned to the PCP's panel for more
97 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
98 ;;need to be inactivated.
99 ;;(3) Patients appropriate for removal are to be identified and inactivated on
100 ;;a regular basis..
101 ;;
102 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
103 ;;and the last day of the month.
104 ;;
105 ;;Patients Automated Inactivations from Primary Care Panels
106 ;; Date Reason
107 ;; Patient Patient
108 ;;Patient Name SSN Provider Team Inact Inact
109 ;;-------------------------------------------------------------------------------
110 Q
111PRIN ;
112 ;;WARNING- The following primary care staff will be automatically
113 ;;inactivated in PCMM software if a correct 'Person Class' and
114 ;;'Provider Type' are not entered in the New Person File (#200) or
115 ;;their role and position in the 'Position Setup' window is not
116 ;;corrected to correspond with their 'Provider Type', 'Person
117 ;;Class' and the Primary Care business rules stated below:
118 ;;
119 ;;1. Staff designated as Primary Care Providers (PCPs) in PCMM that
120 ;; are not an Attending physician (Attending MD or Attending DO) NP
121 ;; or PA, shall be inactivated from PCMM
122 ;;2. Staff designated as Associate Providers (APs) in PCMM, that are not
123 ;; a Resident/Intern (Physician) NP or PA shall be inactivated in
124 ;; PCMM
125 ;;3. All persons designated as an Associate Provider or Primary Care
126 ;; Provider, who do not have the correct 'Provider Type' and 'Person
127 ;; Class' entered in the New Person file (#200) in VistA, shall be
128 ;; inactivated from their Primary Care positions in PCMM six months
129 ;; after installation of patch SD*5.3*297 Date: |DATE|
130 ;;4. Please contact your PCMM Coordiator or Information Systems
131 ;; to correct these problems
132 ;;
133 ;; PRIMARY CARE PROVIDERS SCHEDULDED FOR INACTIVATION
134 ;;
135 ;;Provider's Assoc Team Person # of Pts Sch Inac
136 ;;Name Clinics Position Role Class Assigned Date
137 ;;-------------------------------------------------------------------------------
138 ;;
139 Q
140GONE ;
141 ;; PRIMARY CARE PROVIDERS INACTIVATED
142 ;;
143 ;;Provider's Assoc Team Person # of Pts Inac
144 ;;Name Clinics Position Role Class Assigned Date
145 ;;-------------------------------------------------------------------------------
146 ;;
147 Q
148MAIL(POS,T) ;Given POS as position set up who gets mail
149 I $D(^TMP("SCML",$J,"POS",POS)) Q
150 S ^TMP("SCML",$J,"POS",+$G(POS))=""
151 ;who gets mail at this position
152 N TWO S TWO=$G(^SCTM(404.57,+$G(POS),2))
153 I $P(TWO,U,10) D ;get preceptor
154 .S PREC=+$$OKPREC3^SCMCLK(POS,DT) Q:'PREC
155 .D POS(PREC)
156 I $P(TWO,U,9)="T" D ;get team providers
157 .S T=$G(T)
158 .N I F I=0:0 S I=$O(^SCTM(404.57,"C",T,I)) Q:'I D POS(I)
159 I $P(TWO,U,9)="P" D ;get position providers
160 .D POS(POS) Q
161 Q
162POS(P) ;provider
163 N A
164 S A=+$$GETPRTP^SCAPMCU2(P,DT) Q:'A
165 S ^TMP("SCML",$J,"POS",A)=""
166 S ^TMP("SCML",$J,"XM",A,POS)=""
167 Q
168LINES(TYPE) ;Lines of Bulletin
169 N I,ZERO,ZERO1,Y
170 S Y=$$PDAT^SCMCGU("SD*5.3*297") X ^DD("DD")
171 F I=1:1 S A=$P($T(@($P("FLAG^INACT^EXT^PRIN^GONE",U,TYPE))+I),";;",2) Q:A="" D
172 .S ^TMP("SCMCTXT",$J,I,0)=$S(A["|DATE|":$P(A,"|DATE|",1)_Y,1:A)
173 ;S ^TMP("SCMCTXT",$J,2,0)="Patient Team Position Dt "_$S($G(XMSUB)["Fla":"Flagged",1:"Inactivate")
174 S (CNT,HEAD)=$O(^TMP("SCMCTXT",$J,99),-1)+1
175 S DIV=""
176 F I=0:0 S I=$O(^TMP("SCMC",$J,I)) Q:'I S ENTRY=+$O(^(I,0)) D
177 .I TYPE>3 D MM(TYPE) Q
178 .S ZERO=$G(^SCPT(404.43,+ENTRY,0)),ZERO1=$G(^SCPT(404.42,+ZERO,0))
179 .D MAIL(+$P(ZERO,U,2),+$P(ZERO1,U,3)) ;find out which individuals get this
180 .D MAKEMAIL(TYPE)
181 Q
182MAKEMAIL(TYPE) ;
183 D MAKEMAIL^SCMCTSK6(TYPE) Q
184MM(TYPE) ;for providers
185 D MM^SCMCTSK6(TYPE) Q
186PRMAIL(TYPE) ;
187 ;Send mail to providers
188 D PRMAIL^SCMCTSK6(TYPE)
Note: See TracBrowser for help on using the repository browser.