Ignore:
Timestamp:
Dec 4, 2009, 12:11:15 AM (14 years ago)
Author:
George Lilly
Message:

revised back to 6/30/08 version

File:
1 edited

Legend:

Unmodified
Added
Removed

  • WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SCMCTSK4.m

    r613 r623  
    1 SCMCTSK4        ;ALB/JDS - PCMM Inactivation Reports ; 18 Apr 2003  9:36 AM
    2         ;;5.3;Scheduling;**297,526**;AUG 13, 1993;Build 8
    3         Q
    4 POSCHK  ;
    5         N NAME S NAME=$P($G(^SD(403.46,+$P(INFO,U,3),0)),U)
    6         I "RESIDENT (PHYSICIAN)INTERN (PHYSICIAN)"[NAME S $P(DATA,U,3)=1 Q
    7         I "NURSE PRACTITIONERPHYSICIAN ASSISTANT"[NAME S $P(DATA,U,3)=2 Q
    8         I "PHYSICIAN-ATTENDINGPHYSICIAN-PRIMARY CARENURSE PRACTITIONERPHYSICIAN ASSISTANTPHYSICIAN-PSYCHIATRIST"[NAME D  Q
    9         .S $P(DATA,U,3)=3
    10         Q
    11 DIOBEG  ;
    12         N PG,DC
    13         N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
    14         W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
    15         W ?(IOM-15),"PAGE: 1"
    16         S Y="",$P(Y,"-",IOM)="" W !,Y,!!
    17         W ?(IOM/2-24),"**** Report Parameters Selected ****",!
    18         S SC="^TMP(""SC"",$J)"
    19         S X=$$PPAR^SCMCTSK8(.SC,.SCT)
    20         S (PG,DC)=1
    21         F  Q:$Y>(IOSL-3)  W !
    22         ;I IOST["C" W !! R SCX:DT I SCX[U S DIOUT=1
    23         Q
    24 DIOEND  ;print key
    25         N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
    26         W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
    27         W ?(IOM-15),"PAGE: "_($G(DC)+1)
    28         S Y="",$P(Y,"-",IOM)="" W !,Y,!!
    29         W !,"   REPORT KEY"
    30         W !,"   Field Name              Explanation of field name"
    31         W !,"   Patient Name            Name of patient scheduled to be inactivated from their primary care team and position/provider"
    32         W !,"   SSN                     Patient SSN."
    33         W !,"   PC Team                 Patient's assigned Primary Care team in PCMM."
    34         W !,"   Provider                Name of primary care practitioner/provider currently assigned to the patient.  This will be an"
    35         W !,"                           Associate PC Provider if the patient is assigned to an AP, or it will be a Primary Care Provider"
    36         W !,"                           (PCP) if the patient is not assigned to an Associate PC Provider (AP.)"
    37         W !,"   Team Position           The name of the team position to which the current practitioner/provider is assigned."
    38         W !,"   Institution/Division    Institution name, previously called Division, in which patient receives primary care."
    39         W !,"   Sched Date for Inactiva Date patient will be inactivated from PCMM and their Primary Care team and provider/position"
    40         W !,"                           panels. If the patient has a completed outpatient encounter with their current PCP or an"
    41         W !,"                           assigned AP before this date, the patient will not be inactivated.  If the patient's"
    42         W !,"                           inactivation date is extended for 60 days, with the PCMM Extend Patient's Inactivation Date"
    43         W !,"                           option, the patient's inactivation will not occur until the new extended date for inactivation."
    44         W !,"                           Note: There is a patient reassignment option, which allows an inactivated patient to be"
    45         W !,"                           reactivated to their previous Primary Care team and position if they return for care."
    46         W !,"   Next Appt Date          Patient is scheduled for an appointment on this date."
    47         W !,"                           May indicate patient wants to continue their assignment to their Primary Care team and provider."
    48         W !,"   Clinic for next Appt    The clinic in which the patient has their next scheduled appointment."
    49         Q
    50 DIOEND1 ;print Key
    51         N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
    52         W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
    53         W ?(IOM-15),"PAGE: "_($G(DC)+1)
    54         S Y="",$P(Y,"-",IOM)="" W !,Y,!!
    55         W !,"  REPORT KEY"
    56         W !,"  Field Name              Explanation of field name"
    57         W !,"  Patient Name            Name of patient scheduled to be inactivated from their primary care team and position/provider."
    58         W !,"  SSN                     Patient SSN."
    59         W !,"  Institution             Institution name, previously called Division, in which patient receives primary care."
    60         W !,"  PC Team                 Patient's assigned Primary Care team in PCMM."
    61         W !,"  Provider/               Name of Primary Care practitioner/provider currently assigned to the patient."
    62         W !,"                          This may be an Associate PC Provider (AP,) if the patient is assigned to an AP, or"
    63         W !,"                          it may be a Primary Care Provider (PCP) if the patient is not assigned to an"
    64         W !,"                          Associate PC Provider (AP.)"
    65         W !,"  Team Position           The name of the team position to which the current provider is assigned."
    66         W !,"  Preceptor               Name of Preceptor/Primary Care Provider (PCP) if the patient is assigned to an Associate Provider."
    67         W !,"                          If this field is blank then the patient is assigned to a PCP, who displays in the Provider field."
    68         W !,"  Date Patient            Date patient was inactivated from PCMM and their Primary Care team and provider/position."
    69         W !,"   Inactivated            Note: There is a PCMM patient re-assignment option."
    70         W !,"  Reason Patient          Reason for patient's automated unassignment from their Primary Care team and provider/position."
    71         W !,"   Inactivated            No Appt The patient has been assigned to their current Primary Care Provider (PCP) for"
    72         W !,"                          12 months, and does not have a completed appointment encounter with their PCP or any assigned"
    73         W !,"                          Associated Primary Care Provider (AP) within those 12 months.  Therefore, they are considered"
    74         W !,"                          an inactive patient.  Alternatively, the patient has been assigned to their current PCP for at"
    75         W !,"                          least 12 months, and does not have a completed appointment encounter with their PCP or any"
    76         W !,"                          assigned Associated Primary Care Provider (AP) in the past 24 months. Therefore, they are"
    77         W !,"                          considered an inactive patient."
    78         W !,"                          Death - Patient's death, a date of death was entered in the Registration Package"
    79         Q
    80 DIOEND2 ;print Key
     1SCMCTSK4 ;ALB/JDS - PCMM Inactivation Reports ; 18 Apr 2003  9:36 AM
     2 ;;5.3;Scheduling;**297**;AUG 13, 1993
     3 Q
     4POSCHK ;
     5 N NAME S NAME=$P($G(^SD(403.46,+$P(INFO,U,3),0)),U)
     6 I "RESIDENT (PHYSICIAN)INTERN (PHYSICIAN)"[NAME S $P(DATA,U,3)=1 Q
     7 I "NURSE PRACTITIONERPHYSICIAN ASSISTANT"[NAME S $P(DATA,U,3)=2 Q
     8 I "PHYSICIAN-ATTENDINGPHYSICIAN-PRIMARY CARENURSE PRACTITIONERPHYSICIAN ASSISTANTPHYSICIAN-PSYCHIATRIST"[NAME D  Q
     9 .S $P(DATA,U,3)=3
     10 Q
     11DIOBEG ;
     12 N PG,DC
     13 N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
     14 W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
     15 W ?(IOM-15),"PAGE: 1"
     16 S Y="",$P(Y,"-",IOM)="" W !,Y,!!
     17 W ?(IOM/2-24),"**** Report Parameters Selected ****",!
     18 S SC="^TMP(""SC"",$J)"
     19 S X=$$PPAR^SCMCTSK8(.SC,.SCT)
     20 S (PG,DC)=1
     21 F  Q:$Y>(IOSL-3)  W !
     22 ;I IOST["C" W !! R SCX:DT I SCX[U S DIOUT=1
     23 Q
     24DIOEND ;print key
     25 N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
     26 W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
     27 W ?(IOM-15),"PAGE: "_($G(DC)+1)
     28 S Y="",$P(Y,"-",IOM)="" W !,Y,!!
     29 W !,"   REPORT KEY"
     30 W !,"   Field Name              Explanation of field name"
     31 W !,"   Patient Name            Name of patient scheduled to be inactivated from their primary care team and position/provider"
     32 W !,"   SSN                     Patient's last 4 Social Security numbers."
     33 W !,"   PC Team                 Patient's assigned Primary Care team in PCMM."
     34 W !,"   Provider                Name of primary care practitioner/provider currently assigned to the patient.  This will be an"
     35 W !,"                           Associate PC Provider if the patient is assigned to an AP, or it will be a Primary Care Provider"
     36 W !,"                           (PCP) if the patient is not assigned to an Associate PC Provider (AP.)"
     37 W !,"   Team Position           The name of the team position to which the current practitioner/provider is assigned."
     38 W !,"   Institution/Division    Institution name, previously called Division, in which patient receives primary care."
     39 W !,"   Sched Date for Inactiva Date patient will be inactivated from PCMM and their Primary Care team and provider/position"
     40 W !,"                           panels. If the patient has a completed outpatient encounter with their current PCP or an"
     41 W !,"                           assigned AP before this date, the patient will not be inactivated.  If the patient's"
     42 W !,"                           inactivation date is extended for 60 days, with the PCMM Extend Patient's Inactivation Date"
     43 W !,"                           option, the patient's inactivation will not occur until the new extended date for inactivation."
     44 W !,"                           Note: There is a patient reassignment option, which allows an inactivated patient to be"
     45 W !,"                           reactivated to their previous Primary Care team and position if they return for care."
     46 W !,"   Next Appt Date          Patient is scheduled for an appointment on this date."
     47 W !,"                           May indicate patient wants to continue their assignment to their Primary Care team and provider."
     48 W !,"   Clinic for next Appt    The clinic in which the patient has their next scheduled appointment."
     49 Q
     50DIOEND1 ;print Key
     51 N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
     52 W $P("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$E(Y,4,5))_" " W:Y#100 $J(Y#100\1,2)_"," W Y\10000+1700 W:Y#1 "  "_$E(Y_0,9,10)_":"_$E(Y_"000",11,12)
     53 W ?(IOM-15),"PAGE: "_($G(DC)+1)
     54 S Y="",$P(Y,"-",IOM)="" W !,Y,!!
     55 W !,"  REPORT KEY"
     56 W !,"  Field Name              Explanation of field name"
     57 W !,"  Patient Name            Name of patient scheduled to be inactivated from their primary care team and position/provider."
     58 W !,"  SSN                     Patient's last 4 SSN numbers."
     59 W !,"  Institution             Institution name, previously called Division, in which patient receives primary care."
     60 W !,"  PC Team                 Patient's assigned Primary Care team in PCMM."
     61 W !,"  Provider/               Name of Primary Care practitioner/provider currently assigned to the patient."
     62 W !,"                          This may be an Associate PC Provider (AP,) if the patient is assigned to an AP, or"
     63 W !,"                          it may be a Primary Care Provider (PCP) if the patient is not assigned to an"
     64 W !,"                          Associate PC Provider (AP.)"
     65 W !,"  Team Position           The name of the team position to which the current provider is assigned."
     66 W !,"  Preceptor               Name of Preceptor/Primary Care Provider (PCP) if the patient is assigned to an Associate Provider."
     67 W !,"                          If this field is blank then the patient is assigned to a PCP, who displays in the Provider field."
     68 W !,"  Date Patient            Date patient was inactivated from PCMM and their Primary Care team and provider/position."
     69 W !,"   Inactivated            Note: There is a PCMM patient re-assignment option."
     70 W !,"  Reason Patient          Reason for patient's automated unassignment from their Primary Care team and provider/position."
     71 W !,"   Inactivated            No Appt The patient has been assigned to their current Primary Care Provider (PCP) for"
     72 W !,"                          12 months, and does not have a completed appointment encounter with their PCP or any assigned"
     73 W !,"                          Associated Primary Care Provider (AP) within those 12 months.  Therefore, they are considered"
     74 W !,"                          an inactive patient.  Alternatively, the patient has been assigned to their current PCP for at"
     75 W !,"                          least 12 months, and does not have a completed appointment encounter with their PCP or any"
     76 W !,"                          assigned Associated Primary Care Provider (AP) in the past 24 months. Therefore, they are"
     77 W !,"                          considered an inactive patient."
     78 W !,"                          Death - Patient's death, a date of death was entered in the Registration Package"
     79 Q
     80DIOEND2 ;print Key
Note: See TracChangeset for help on using the changeset viewer.