source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCMCTSK4.m@ 668

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

WorldVistAEHR overlayed on FOIAVistA
File size: 6.1 KB
Line 
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 TracBrowser for help on using the repository browser.