- 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
