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

SCMCTSK5 ;ALB/JDS - PCMM Inactivation Reports ; 03 Jun 2004  3:30 PM
 ;;5.3;Scheduling;**297**;AUG 13, 1993
 Q
FLAG ;
 ;;Patients scheduled for inactivation from their Primary Care team and
 ;;Primary Care Provider assignments appear below.  Inactivation will 
 ;;occur on the Scheduled Date for Inactivation date unless the patient
 ;;has a completed appointment encounter with their current Primary Care
 ;;Provider (PCP) or their Associate Primary Care Provider (AP) before
 ;;that date.  The patient may be reactivated to their previous PCP and PC
 ;;team if they return for care.
 ;; 
 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM, establishes the rules for
 ;;PCMM automated inactivation of patients.  The following is from that Directive.
 ;;  
 ;;Inactivation of primary care patients from a PCMM panel occurs under the
 ;;following circumstances: 
 ;;(2) (a) The patient expires and 
 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
 ;;have been re-assigned to a different provider) who have not been seen by
 ;;their PCP or Associate Provider (AP) and 12 months have passed since
 ;;the time of assignment to that provider.  This provides every PCP a 1-year
 ;;grace period for seeing patients added to their panel (either newly-enrolled
 ;;patients or patients transferred from a different panel) before they are
 ;;inactivated.  Patients must be seen by their PCP or AP within 12 months of
 ;;being assigned, or they need to be inactivated from the PCP's panel.
 ;;(c) Established patients that have been assigned to the PCP's panel for more 
 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
 ;;need to be inactivated.
 ;;(3) Patients appropriate for removal are to be identified and inactivated on
 ;;a regular basis.  
 ;;  
 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
 ;;and the last day of the month.
 ;;  
 ;;Patients Scheduled for Inactivation from Primary Care panels
 ;;                                                           Date
 ;;                                                           Scheduled       
 ;;Patient Name         SSN  Provider          Team           for Inactivation
 ;;------------------------------------------------------------------------------
 Q
EXT ;
 ;;By using the Extend Patients Inactivation Date option, these patients'
 ;;PCMM inactivation dates are now 60 days from their original inactivation date.
 ;;Inactivation will occur on the Date Scheduled for Inactivation unless the
 ;;patient has a completed appointment encounter with their current Primary
 ;;Care Provider (PCP) or their Associate Primary Care Provider (AP) before
 ;;that date.  
 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM,  establishes the rules for
 ;;PCMM automated inactivation of patients.  The following is from that Directive.
 ;;  
 ;;Inactivation of primary care patients from a PCMM panel occurs under the
 ;;following circumstances: 
 ;;(2) (a) The patient expires and 
 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
 ;;have been re-assigned to a different provider) who have not been seen by
 ;;their PCP or Associate Provider (AP) and 12 months have passed since
 ;;the time of assignment to that provider.  This provides every PCP a 1-year
 ;;grace period for seeing patients added to their panel (either newly-enrolled
 ;;patients or patients transferred from a different panel) before they are
 ;;inactivated.  Patients must be seen by their PCP or AP within 12 months of
 ;;being assigned, or they need to be inactivated from the PCP's panel.
 ;;(c) Established patients that have been assigned to the PCP's panel for more 
 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
 ;;need to be inactivated.
 ;;(3) Patients appropriate for removal are to be identified and inactivated on
 ;;a regular basis.
 ;;    
 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
 ;;and the last day of the month. 
 ;;  
 ;;Patients with Extended PCMM Inactivation Dates
 ;;                                                           Date
 ;;                                                           Scheduled for   
 ;;Patient Name         SSN  Provider         Team            Inactivation
 ;;------------------------------------------------------------------------------
 Q
INACT ;
 ;;Patients inactivated from their Primary Care team and Primary Care Provider
 ;;assignments appear below.  The patient may be reactivated to their previous PCP
 ;;and PC team if they return for care.
 ;;VHA DIRECTIVE 2003-063, ACTIVE PATIENTS IN PCMM, establishes the rules for PCMM
 ;;automated inactivation of patients.  The following is from that Directive.
 ;;  
 ;;Inactivation of primary care patients from a PCMM panel occurs under the
 ;;following circumstances: 
 ;;(2) (a) The patient expires and 
 ;;(b) Newly assigned patients (either newly-enrolled patients or patients who
 ;;have been re-assigned to a different provider) who have not been seen by
 ;;their PCP or Associate Provider (AP) and 12 months have passed since
 ;;the time of assignment to that provider.  This provides every PCP a 1-year
 ;;grace period for seeing patients added to their panel (either newly-enrolled
 ;;patients or patients transferred from a different panel) before they are
 ;;inactivated.  Patients must be seen by their PCP or AP within 12 months of
 ;;being assigned, or they need to be inactivated from the PCP's panel.
 ;;(c) Established patients that have been assigned to the PCP's panel for more 
 ;;than 12 months, but have not been seen by their PCP or AP in the past 24 months
 ;;need to be inactivated.
 ;;(3) Patients appropriate for removal are to be identified and inactivated on
 ;;a regular basis..
 ;;  
 ;;With PCMM patch SD*5.3*297 installed, inactivations occur on the fifteenth
 ;;and the last day of the month. 
 ;; 
 ;;Patients Automated Inactivations from Primary Care Panels
 ;;                                                           Date        Reason
 ;;                                                           Patient     Patient
 ;;Patient Name         SSN  Provider          Team           Inact       Inact
 ;;-------------------------------------------------------------------------------
 Q
PRIN ;
 ;;WARNING- The following primary care staff will be automatically
 ;;inactivated in PCMM software if a correct 'Person Class' and 
 ;;'Provider Type' are not entered in the New Person File (#200) or
 ;;their role and position in the 'Position Setup' window is not 
 ;;corrected to correspond with their 'Provider Type', 'Person
 ;;Class' and the Primary Care business rules stated below:
 ;;  
 ;;1. Staff designated as Primary Care Providers (PCPs) in PCMM that
 ;;   are not an Attending physician (Attending MD or Attending DO) NP
 ;;   or PA, shall be inactivated from PCMM
 ;;2. Staff designated as Associate Providers (APs) in PCMM, that are not
 ;;   a Resident/Intern (Physician) NP or PA shall be inactivated in 
 ;;   PCMM
 ;;3. All persons designated as an Associate Provider or Primary Care 
 ;;   Provider, who do not have the correct 'Provider Type' and 'Person
 ;;   Class' entered in the New Person file (#200) in VistA, shall be 
 ;;   inactivated from their Primary Care positions in PCMM six months 
 ;;   after installation of patch SD*5.3*297 Date: |DATE|
 ;;4. Please contact your PCMM Coordiator or Information Systems 
 ;;   to correct these problems
 ;;  
 ;;  PRIMARY CARE PROVIDERS SCHEDULDED FOR INACTIVATION
 ;;  
 ;;Provider's     Assoc     Team                      Person    # of Pts  Sch Inac
 ;;Name           Clinics   Position   Role           Class     Assigned  Date 
 ;;-------------------------------------------------------------------------------
 ;;  
 Q
GONE ;
 ;;  PRIMARY CARE PROVIDERS INACTIVATED
 ;; 
 ;;Provider's     Assoc     Team                      Person    # of Pts  Inac
 ;;Name           Clinics   Position   Role           Class     Assigned  Date   
 ;;-------------------------------------------------------------------------------
 ;;    
 Q
MAIL(POS,T)       ;Given POS as position set up who gets mail 
 I $D(^TMP("SCML",$J,"POS",POS)) Q
 S ^TMP("SCML",$J,"POS",+$G(POS))=""
 ;who gets mail at this position 
 N TWO S TWO=$G(^SCTM(404.57,+$G(POS),2))
 I $P(TWO,U,10) D  ;get preceptor
 .S PREC=+$$OKPREC3^SCMCLK(POS,DT) Q:'PREC
 .D POS(PREC)
 I $P(TWO,U,9)="T" D  ;get team providers
 .S T=$G(T)
 .N I F I=0:0 S I=$O(^SCTM(404.57,"C",T,I)) Q:'I  D POS(I)
 I $P(TWO,U,9)="P" D  ;get position providers
 .D POS(POS) Q
 Q
POS(P) ;provider
 N A
 S A=+$$GETPRTP^SCAPMCU2(P,DT) Q:'A
 S ^TMP("SCML",$J,"POS",A)=""
 S ^TMP("SCML",$J,"XM",A,POS)=""
 Q
LINES(TYPE) ;Lines of Bulletin
 N I,ZERO,ZERO1,Y
 S Y=$$PDAT^SCMCGU("SD*5.3*297") X ^DD("DD")
 F I=1:1 S A=$P($T(@($P("FLAG^INACT^EXT^PRIN^GONE",U,TYPE))+I),";;",2) Q:A=""  D
 .S ^TMP("SCMCTXT",$J,I,0)=$S(A["|DATE|":$P(A,"|DATE|",1)_Y,1:A)
 ;S ^TMP("SCMCTXT",$J,2,0)="Patient                   Team                 Position           Dt "_$S($G(XMSUB)["Fla":"Flagged",1:"Inactivate")
 S (CNT,HEAD)=$O(^TMP("SCMCTXT",$J,99),-1)+1
 S DIV=""
 F I=0:0 S I=$O(^TMP("SCMC",$J,I)) Q:'I  S ENTRY=+$O(^(I,0)) D
 .I TYPE>3 D MM(TYPE) Q
 .S ZERO=$G(^SCPT(404.43,+ENTRY,0)),ZERO1=$G(^SCPT(404.42,+ZERO,0))
 .D MAIL(+$P(ZERO,U,2),+$P(ZERO1,U,3)) ;find out which individuals get this
 .D MAKEMAIL(TYPE)
 Q
MAKEMAIL(TYPE)  ;
 D MAKEMAIL^SCMCTSK6(TYPE) Q
MM(TYPE)        ;for providers
 D MM^SCMCTSK6(TYPE) Q
PRMAIL(TYPE)    ;
 ;Send mail to providers
 D PRMAIL^SCMCTSK6(TYPE)