source: FOIAVistA/tag/r/SCHEDULING-SD-SC/SCRPV1B1.m@ 1005

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

initial load of FOIAVistA 6/30/08 version

File size: 5.7 KB
Line 
1SCRPV1B1 ; bp/djb - PCMM Inconsistency Rpt - Print ; 8/25/99 10:04am
2 ;;5.3;Scheduling;**177**;AUG 13, 1993
3 ;
4LIST ;List inconsistency descriptions
5 NEW I,NUM,OPT,PAGE,QUIT,TXT,X,Y
6 S QUIT=0
7 S OPT="Team Assignment/Team/Position"
8 D HD^SCRPV1B
9 F I=1:1:8 D Q:QUIT
10 . S TXT=$T(TXT+I^SCRPV1B)
11 . S NUM=$P(TXT,";",3)
12 . S TXT=$P(TXT,";",4)
13 . ;If error 8, substitute in text.
14 . I TXT["[]" S TXT=$P(TXT,"[]",1)_OPT_$P(TXT,"[]",2)
15 . I $Y>(IOSL-8) D PAUSE^SCRPV1B Q:QUIT
16 . W !!
17 . ;W NUM_". " ;Display inconsistency number
18 . S X=TXT X ^%ZOSF("UPPERCASE") S TXT=Y ;Convert to all caps
19 . W "<> ",TXT
20 . D @("LIST"_NUM) ;Display additional descriptive text.
21 W !
22 Q
23LIST1 ;
24 W !?6,"Position exists with patients assigned to the Position, but no staff"
25 W !?6,"member is assigned to that Position."
26 W !?9,"FIX..: Use PCMM GUI"
27 W !?9,"STEPS: Go to Team, go to Position, open Team, clinic on Staff button"
28 W !?9," and assign staff to position."
29 Q
30LIST2 ;
31 W !?6,"Patient is assigned to a Primary Care Team but has no Primary Care"
32 W !?6,"Practitioner assigned."
33 W !?9,"FIX..: Use VistA options"
34 W !?9,"STEPS: Go to Appointment Management or PCE, enter patient name, type"
35 W !?9," in PC for PC Assign or Unassign, select one of the following:"
36 W !?9," 1. POSITION ASSIGNMENT - BY PRACTITIIONER NAME"
37 W !?9," 2. POSITION ASSIGNMENT - BY POSITION NAME"
38 W !?9," 3. TEAM UNASSIGNMENT"
39 W !?9," Use either #1 or #2 to assign patient."
40 Q
41LIST3 ;
42 W !?6,"Patient has multiple active Primary Care Practitioners assigned."
43 W !?9,"FIX..: Use PCMM GUI"
44 W !?9,"STEPS: Go to Patient Assignment, enter patient name, double click on"
45 W !?9," team name, open Positions Assignment tab, determine which PCP"
46 W !?9," assigned need to be deleted, highlight that selection, go to"
47 W !?9," EDIT, Position Assignment, then delete. No VistA fix."
48 Q
49LIST4 ;
50 W !?6,"Associate Provider and Primary Care Provider is the same staff member."
51 W !?9,"FIX..: Use PCMM GUI"
52 W !?9,"STEPS: First determine which position the staff member should be in."
53 W !?9," Under the Patient drop down menu, have 'Show All Team"
54 W !?9," Assignments' checked. Do not check under Team drop down menu,"
55 W !?9," 'Active Only'. Under Team, click on speed positions setup"
56 W !?9," button and select team. Primary Care Position Setup screen is"
57 W !?9," displayed, click on one of the positions, either AP or PCP."
58 W !?9," Click the staff button, click the Inactive button and assign"
59 W !?9," an effective date, status, and reason. Close."
60 Q
61LIST5 ;
62 W !?6,"Associate Provider has not been assigned a Preceptor."
63 W !?9,"FIX..: Use PCMM GUI"
64 W !?9,"STEPS: Go to Team, Positions, double click team that AP is on,"
65 W !?9," double click AP's name, click Preceptor button and assign"
66 W !?9," preceptor to AP."
67 Q
68LIST6 ;
69 W !?6,"Associate Provider is not listed as 'Can Provide Primary Care'."
70 W !?9,"FIX..: Use PCMM GUI"
71 W !?9,"STEPS: Go to Team, Positions, double click AP's name, go to Settings"
72 W !?9," tab and click on 'Can Provide Primary Care'."
73 Q
74LIST7 ;
75 W !?6,"Primary Care Provider position is not listed as 'Can Provide Primary"
76 W !?6,"Care'."
77 W !?9,"FIX..: Use PCMM GUI"
78 W !?9,"STEPS: Go to Team, Positions, double click PCP's name, go to Settings"
79 W !?9," tab and click on 'Can Provide Primary Care'."
80 Q
81LIST8 ;
82 W !?6,"An active Position assignment is associated with an inactive Team"
83 W !?6,"assignment, Team, or Position."
84 W !?9,"FIX..: Use PCMM GUI"
85 W !?9,"INACTIVE POSITION"
86 W !?9,"STEPS: Determine if POSITION should be inactive."
87 W !?9," If answer is NO:"
88 W !?9," The position should not be inactive. Reactivate the position."
89 W !?9," If answer is YES:"
90 W !?9," The position should be inactive. Reactive the position so"
91 W !?9," that the patients assigned to this position can be"
92 W !?9," inactivated/reassigned. Then inactivate position."
93 W !?9,"INACTIVE TEAM"
94 W !?9,"STEPS: Determine if TEAM should be inactive."
95 W !?9," If answer is NO:"
96 W !?9," Team should not be inactive. Reactivate the team."
97 W !?9," If answer is YES:"
98 W !?9," Team should be inactive. Reactivate the team so that"
99 W !?9," active patient position assignments can be inactivated or"
100 W !?9," reassigned. Then inactivate team."
101 Q
102 ;
103BRIEFPOS ;Print POSITION error counts only.
104 NEW ERROR,NUM,NUM1,POS,TM,TXT
105 ;
106 S NUM=0
107 F S NUM=$O(^TMP("PCMM POSITION",$J,NUM)) Q:'NUM D ;
108 . S TM=""
109 . F S TM=$O(^TMP("PCMM POSITION",$J,NUM,TM)) Q:TM="" D ;
110 .. S POS=""
111 .. F S POS=$O(^TMP("PCMM POSITION",$J,NUM,TM,POS)) Q:POS="" D ;
112 ... S ERROR(NUM\1)=($G(ERROR(NUM\1))+1)
113 ;
114 W !,"Total teams/positions per inconsistency type:"
115 S NUM=0
116 F S NUM=$O(ERROR(NUM)) Q:'NUM!QUIT D ;
117 . S NUM1=(NUM\1)
118 . S TXT=$T(TXT+NUM1^SCRPV1B)
119 . I $Y>(IOSL-6) D PAUSE^SCRPV1B Q:QUIT
120 . ;W !?3,$P(TXT,";",3)_". "
121 . S TXT=$P(TXT,";",4)
122 . I TXT["[]" D ;
123 .. S TXT=$P(TXT,"[]",1)_"Team Assign/Team/Position"_$P(TXT,"[]",2)
124 . W !?3,TXT_" - "_ERROR(NUM1)
125 Q
126 ;
127BRIEFPT ;Print PATIENT error counts only.
128 NEW DFN,DFNNAM,ERROR,NUM
129 ;
130 S DFNNAM=""
131 F S DFNNAM=$O(^TMP("PCMM PATIENT",$J,DFNNAM)) Q:DFNNAM="" D ;
132 . S DFN=0
133 . F S DFN=$O(^TMP("PCMM PATIENT",$J,DFNNAM,DFN)) Q:'DFN D ;
134 .. S NUM=0
135 .. F S NUM=$O(^TMP("PCMM PATIENT",$J,DFNNAM,DFN,NUM)) Q:'NUM D ;
136 ... S ERROR("PT",NUM\1)=($G(ERROR("PT",NUM\1))+1)
137 ;
138 W !,"Total patients per inconsistency type:"
139 S NUM=0
140 F S NUM=$O(ERROR("PT",NUM)) Q:'NUM!QUIT D ;
141 . S NUM=NUM\1
142 . S TXT=$T(TXT+NUM^SCRPV1B)
143 . I $Y>(IOSL-6) D PAUSE^SCRPV1B Q:QUIT
144 . ;W !?3,$P(TXT,";",3)_". "
145 . S TXT=$P(TXT,";",4)
146 . I TXT["[]" D ;
147 .. S TXT=$P(TXT,"[]",1)_"Team Assign/Team/Position"_$P(TXT,"[]",2)
148 . W !?3,TXT_" - "_ERROR("PT",NUM)
149 Q
Note: See TracBrowser for help on using the repository browser.