SCMCTSK4 ;ALB/JDS - PCMM Inactivation Reports ; 18 Apr 2003 9:36 AM
;;5.3;Scheduling;**297,526,1015**;AUG 13, 1993;Build 21
Q
POSCHK ;
N NAME S NAME=$P($G(^SD(403.46,+$P(INFO,U,3),0)),U)
I "RESIDENT (PHYSICIAN)INTERN (PHYSICIAN)"[NAME S $P(DATA,U,3)=1 Q
I "NURSE PRACTITIONERPHYSICIAN ASSISTANT"[NAME S $P(DATA,U,3)=2 Q
I "PHYSICIAN-ATTENDINGPHYSICIAN-PRIMARY CARENURSE PRACTITIONERPHYSICIAN ASSISTANTPHYSICIAN-PSYCHIATRIST"[NAME D Q
.S $P(DATA,U,3)=3
Q
DIOBEG ;
N PG,DC
N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
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)
W ?(IOM-15),"PAGE: 1"
S Y="",$P(Y,"-",IOM)="" W !,Y,!!
W ?(IOM/2-24),"**** Report Parameters Selected ****",!
S SC="^TMP(""SC"",$J)"
S X=$$PPAR^SCMCTSK8(.SC,.SCT)
S (PG,DC)=1
F Q:$Y>(IOSL-3) W !
;I IOST["C" W !! R SCX:DT I SCX[U S DIOUT=1
Q
DIOEND ;print key
N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
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)
W ?(IOM-15),"PAGE: "_($G(DC)+1)
S Y="",$P(Y,"-",IOM)="" W !,Y,!!
W !," REPORT KEY"
W !," Field Name Explanation of field name"
W !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider"
W !," SSN Patient SSN."
W !," PC Team Patient's assigned Primary Care team in PCMM."
W !," Provider Name of primary care practitioner/provider currently assigned to the patient. This will be an"
W !," Associate PC Provider if the patient is assigned to an AP, or it will be a Primary Care Provider"
W !," (PCP) if the patient is not assigned to an Associate PC Provider (AP.)"
W !," Team Position The name of the team position to which the current practitioner/provider is assigned."
W !," Institution/Division Institution name, previously called Division, in which patient receives primary care."
W !," Sched Date for Inactiva Date patient will be inactivated from PCMM and their Primary Care team and provider/position"
W !," panels. If the patient has a completed outpatient encounter with their current PCP or an"
W !," assigned AP before this date, the patient will not be inactivated. If the patient's"
W !," inactivation date is extended for 60 days, with the PCMM Extend Patient's Inactivation Date"
W !," option, the patient's inactivation will not occur until the new extended date for inactivation."
W !," Note: There is a patient reassignment option, which allows an inactivated patient to be"
W !," reactivated to their previous Primary Care team and position if they return for care."
W !," Next Appt Date Patient is scheduled for an appointment on this date."
W !," May indicate patient wants to continue their assignment to their Primary Care team and provider."
W !," Clinic for next Appt The clinic in which the patient has their next scheduled appointment."
Q
DIOEND1 ;print Key
N Y,% W @IOF,!,$G(SCDHD) D NOW^%DTC S Y=% W:$X>(IOM-40) ! W ?(IOM-40)
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)
W ?(IOM-15),"PAGE: "_($G(DC)+1)
S Y="",$P(Y,"-",IOM)="" W !,Y,!!
W !," REPORT KEY"
W !," Field Name Explanation of field name"
W !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider."
W !," SSN Patient SSN."
W !," Institution Institution name, previously called Division, in which patient receives primary care."
W !," PC Team Patient's assigned Primary Care team in PCMM."
W !," Provider/ Name of Primary Care practitioner/provider currently assigned to the patient."
W !," This may be an Associate PC Provider (AP,) if the patient is assigned to an AP, or"
W !," it may be a Primary Care Provider (PCP) if the patient is not assigned to an"
W !," Associate PC Provider (AP.)"
W !," Team Position The name of the team position to which the current provider is assigned."
W !," Preceptor Name of Preceptor/Primary Care Provider (PCP) if the patient is assigned to an Associate Provider."
W !," If this field is blank then the patient is assigned to a PCP, who displays in the Provider field."
W !," Date Patient Date patient was inactivated from PCMM and their Primary Care team and provider/position."
W !," Inactivated Note: There is a PCMM patient re-assignment option."
W !," Reason Patient Reason for patient's automated unassignment from their Primary Care team and provider/position."
W !," Inactivated No Appt The patient has been assigned to their current Primary Care Provider (PCP) for"
W !," 12 months, and does not have a completed appointment encounter with their PCP or any assigned"
W !," Associated Primary Care Provider (AP) within those 12 months. Therefore, they are considered"
W !," an inactive patient. Alternatively, the patient has been assigned to their current PCP for at"
W !," least 12 months, and does not have a completed appointment encounter with their PCP or any"
W !," assigned Associated Primary Care Provider (AP) in the past 24 months. Therefore, they are"
W !," considered an inactive patient."
W !," Death - Patient's death, a date of death was entered in the Registration Package"
Q
DIOEND2 ;print Key
SCMCTSK4 ;ALB/JDS - PCMM Inactivation Reports ; 18 Apr 2003 9:36 AM
+1 ;;5.3;Scheduling;**297,526,1015**;AUG 13, 1993;Build 21
+2 QUIT
POSCHK ;
+1 NEW NAME
SET NAME=$PIECE($GET(^SD(403.46,+$PIECE(INFO,U,3),0)),U)
+2 IF "RESIDENT (PHYSICIAN)INTERN (PHYSICIAN)"[NAME
SET $PIECE(DATA,U,3)=1
QUIT
+3 IF "NURSE PRACTITIONERPHYSICIAN ASSISTANT"[NAME
SET $PIECE(DATA,U,3)=2
QUIT
+4 IF "PHYSICIAN-ATTENDINGPHYSICIAN-PRIMARY CARENURSE PRACTITIONERPHYSICIAN ASSISTANTPHYSICIAN-PSYCHIATRIST"[NAME
Begin DoDot:1
+5 SET $PIECE(DATA,U,3)=3
End DoDot:1
QUIT
+6 QUIT
DIOBEG ;
+1 NEW PG,DC
+2 NEW Y,%
WRITE @IOF,!,$GET(SCDHD)
DO NOW^%DTC
SET Y=%
IF $X>(IOM-40)
WRITE !
WRITE ?(IOM-40)
+3 WRITE $PIECE("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$EXTRACT(Y,4,5))_" "
IF Y#100
WRITE $JUSTIFY(Y#100\1,2)_","
WRITE Y\10000+1700
IF Y#1
WRITE " "_$EXTRACT(Y_0,9,10)_":"_$EXTRACT(Y_"000",11,12)
+4 WRITE ?(IOM-15),"PAGE: 1"
+5 SET Y=""
SET $PIECE(Y,"-",IOM)=""
WRITE !,Y,!!
+6 WRITE ?(IOM/2-24),"**** Report Parameters Selected ****",!
+7 SET SC="^TMP(""SC"",$J)"
+8 SET X=$$PPAR^SCMCTSK8(.SC,.SCT)
+9 SET (PG,DC)=1
+10 FOR
IF $Y>(IOSL-3)
QUIT
WRITE !
+11 ;I IOST["C" W !! R SCX:DT I SCX[U S DIOUT=1
+12 QUIT
DIOEND ;print key
+1 NEW Y,%
WRITE @IOF,!,$GET(SCDHD)
DO NOW^%DTC
SET Y=%
IF $X>(IOM-40)
WRITE !
WRITE ?(IOM-40)
+2 WRITE $PIECE("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$EXTRACT(Y,4,5))_" "
IF Y#100
WRITE $JUSTIFY(Y#100\1,2)_","
WRITE Y\10000+1700
IF Y#1
WRITE " "_$EXTRACT(Y_0,9,10)_":"_$EXTRACT(Y_"000",11,12)
+3 WRITE ?(IOM-15),"PAGE: "_($GET(DC)+1)
+4 SET Y=""
SET $PIECE(Y,"-",IOM)=""
WRITE !,Y,!!
+5 WRITE !," REPORT KEY"
+6 WRITE !," Field Name Explanation of field name"
+7 WRITE !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider"
+8 WRITE !," SSN Patient SSN."
+9 WRITE !," PC Team Patient's assigned Primary Care team in PCMM."
+10 WRITE !," Provider Name of primary care practitioner/provider currently assigned to the patient. This will be an"
+11 WRITE !," Associate PC Provider if the patient is assigned to an AP, or it will be a Primary Care Provider"
+12 WRITE !," (PCP) if the patient is not assigned to an Associate PC Provider (AP.)"
+13 WRITE !," Team Position The name of the team position to which the current practitioner/provider is assigned."
+14 WRITE !," Institution/Division Institution name, previously called Division, in which patient receives primary care."
+15 WRITE !," Sched Date for Inactiva Date patient will be inactivated from PCMM and their Primary Care team and provider/position"
+16 WRITE !," panels. If the patient has a completed outpatient encounter with their current PCP or an"
+17 WRITE !," assigned AP before this date, the patient will not be inactivated. If the patient's"
+18 WRITE !," inactivation date is extended for 60 days, with the PCMM Extend Patient's Inactivation Date"
+19 WRITE !," option, the patient's inactivation will not occur until the new extended date for inactivation."
+20 WRITE !," Note: There is a patient reassignment option, which allows an inactivated patient to be"
+21 WRITE !," reactivated to their previous Primary Care team and position if they return for care."
+22 WRITE !," Next Appt Date Patient is scheduled for an appointment on this date."
+23 WRITE !," May indicate patient wants to continue their assignment to their Primary Care team and provider."
+24 WRITE !," Clinic for next Appt The clinic in which the patient has their next scheduled appointment."
+25 QUIT
DIOEND1 ;print Key
+1 NEW Y,%
WRITE @IOF,!,$GET(SCDHD)
DO NOW^%DTC
SET Y=%
IF $X>(IOM-40)
WRITE !
WRITE ?(IOM-40)
+2 WRITE $PIECE("JAN^FEB^MAR^APR^MAY^JUN^JUL^AUG^SEP^OCT^NOV^DEC",U,$EXTRACT(Y,4,5))_" "
IF Y#100
WRITE $JUSTIFY(Y#100\1,2)_","
WRITE Y\10000+1700
IF Y#1
WRITE " "_$EXTRACT(Y_0,9,10)_":"_$EXTRACT(Y_"000",11,12)
+3 WRITE ?(IOM-15),"PAGE: "_($GET(DC)+1)
+4 SET Y=""
SET $PIECE(Y,"-",IOM)=""
WRITE !,Y,!!
+5 WRITE !," REPORT KEY"
+6 WRITE !," Field Name Explanation of field name"
+7 WRITE !," Patient Name Name of patient scheduled to be inactivated from their primary care team and position/provider."
+8 WRITE !," SSN Patient SSN."
+9 WRITE !," Institution Institution name, previously called Division, in which patient receives primary care."
+10 WRITE !," PC Team Patient's assigned Primary Care team in PCMM."
+11 WRITE !," Provider/ Name of Primary Care practitioner/provider currently assigned to the patient."
+12 WRITE !," This may be an Associate PC Provider (AP,) if the patient is assigned to an AP, or"
+13 WRITE !," it may be a Primary Care Provider (PCP) if the patient is not assigned to an"
+14 WRITE !," Associate PC Provider (AP.)"
+15 WRITE !," Team Position The name of the team position to which the current provider is assigned."
+16 WRITE !," Preceptor Name of Preceptor/Primary Care Provider (PCP) if the patient is assigned to an Associate Provider."
+17 WRITE !," If this field is blank then the patient is assigned to a PCP, who displays in the Provider field."
+18 WRITE !," Date Patient Date patient was inactivated from PCMM and their Primary Care team and provider/position."
+19 WRITE !," Inactivated Note: There is a PCMM patient re-assignment option."
+20 WRITE !," Reason Patient Reason for patient's automated unassignment from their Primary Care team and provider/position."
+21 WRITE !," Inactivated No Appt The patient has been assigned to their current Primary Care Provider (PCP) for"
+22 WRITE !," 12 months, and does not have a completed appointment encounter with their PCP or any assigned"
+23 WRITE !," Associated Primary Care Provider (AP) within those 12 months. Therefore, they are considered"
+24 WRITE !," an inactive patient. Alternatively, the patient has been assigned to their current PCP for at"
+25 WRITE !," least 12 months, and does not have a completed appointment encounter with their PCP or any"
+26 WRITE !," assigned Associated Primary Care Provider (AP) in the past 24 months. Therefore, they are"
+27 WRITE !," considered an inactive patient."
+28 WRITE !," Death - Patient's death, a date of death was entered in the Registration Package"
+29 QUIT
DIOEND2 ;print Key
