Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: SCRPV1B1

SCRPV1B1.m

Go to the documentation of this file.
  1. SCRPV1B1 ; bp/djb - PCMM Inconsistency Rpt - Print ; 8/25/99 10:04am
  1. ;;5.3;Scheduling;**177**;AUG 13, 1993
  1. ;
  1. LIST ;List inconsistency descriptions
  1. NEW I,NUM,OPT,PAGE,QUIT,TXT,X,Y
  1. S QUIT=0
  1. S OPT="Team Assignment/Team/Position"
  1. D HD^SCRPV1B
  1. F I=1:1:8 D Q:QUIT
  1. . S TXT=$T(TXT+I^SCRPV1B)
  1. . S NUM=$P(TXT,";",3)
  1. . S TXT=$P(TXT,";",4)
  1. . ;If error 8, substitute in text.
  1. . I TXT["[]" S TXT=$P(TXT,"[]",1)_OPT_$P(TXT,"[]",2)
  1. . I $Y>(IOSL-8) D PAUSE^SCRPV1B Q:QUIT
  1. . W !!
  1. . ;W NUM_". " ;Display inconsistency number
  1. . S X=TXT X ^%ZOSF("UPPERCASE") S TXT=Y ;Convert to all caps
  1. . W "<> ",TXT
  1. . D @("LIST"_NUM) ;Display additional descriptive text.
  1. W !
  1. Q
  1. LIST1 ;
  1. W !?6,"Position exists with patients assigned to the Position, but no staff"
  1. W !?6,"member is assigned to that Position."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: Go to Team, go to Position, open Team, clinic on Staff button"
  1. W !?9," and assign staff to position."
  1. Q
  1. LIST2 ;
  1. W !?6,"Patient is assigned to a Primary Care Team but has no Primary Care"
  1. W !?6,"Practitioner assigned."
  1. W !?9,"FIX..: Use VistA options"
  1. W !?9,"STEPS: Go to Appointment Management or PCE, enter patient name, type"
  1. W !?9," in PC for PC Assign or Unassign, select one of the following:"
  1. W !?9," 1. POSITION ASSIGNMENT - BY PRACTITIIONER NAME"
  1. W !?9," 2. POSITION ASSIGNMENT - BY POSITION NAME"
  1. W !?9," 3. TEAM UNASSIGNMENT"
  1. W !?9," Use either #1 or #2 to assign patient."
  1. Q
  1. LIST3 ;
  1. W !?6,"Patient has multiple active Primary Care Practitioners assigned."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: Go to Patient Assignment, enter patient name, double click on"
  1. W !?9," team name, open Positions Assignment tab, determine which PCP"
  1. W !?9," assigned need to be deleted, highlight that selection, go to"
  1. W !?9," EDIT, Position Assignment, then delete. No VistA fix."
  1. Q
  1. LIST4 ;
  1. W !?6,"Associate Provider and Primary Care Provider is the same staff member."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: First determine which position the staff member should be in."
  1. W !?9," Under the Patient drop down menu, have 'Show All Team"
  1. W !?9," Assignments' checked. Do not check under Team drop down menu,"
  1. W !?9," 'Active Only'. Under Team, click on speed positions setup"
  1. W !?9," button and select team. Primary Care Position Setup screen is"
  1. W !?9," displayed, click on one of the positions, either AP or PCP."
  1. W !?9," Click the staff button, click the Inactive button and assign"
  1. W !?9," an effective date, status, and reason. Close."
  1. Q
  1. LIST5 ;
  1. W !?6,"Associate Provider has not been assigned a Preceptor."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: Go to Team, Positions, double click team that AP is on,"
  1. W !?9," double click AP's name, click Preceptor button and assign"
  1. W !?9," preceptor to AP."
  1. Q
  1. LIST6 ;
  1. W !?6,"Associate Provider is not listed as 'Can Provide Primary Care'."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: Go to Team, Positions, double click AP's name, go to Settings"
  1. W !?9," tab and click on 'Can Provide Primary Care'."
  1. Q
  1. LIST7 ;
  1. W !?6,"Primary Care Provider position is not listed as 'Can Provide Primary"
  1. W !?6,"Care'."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"STEPS: Go to Team, Positions, double click PCP's name, go to Settings"
  1. W !?9," tab and click on 'Can Provide Primary Care'."
  1. Q
  1. LIST8 ;
  1. W !?6,"An active Position assignment is associated with an inactive Team"
  1. W !?6,"assignment, Team, or Position."
  1. W !?9,"FIX..: Use PCMM GUI"
  1. W !?9,"INACTIVE POSITION"
  1. W !?9,"STEPS: Determine if POSITION should be inactive."
  1. W !?9," If answer is NO:"
  1. W !?9," The position should not be inactive. Reactivate the position."
  1. W !?9," If answer is YES:"
  1. W !?9," The position should be inactive. Reactive the position so"
  1. W !?9," that the patients assigned to this position can be"
  1. W !?9," inactivated/reassigned. Then inactivate position."
  1. W !?9,"INACTIVE TEAM"
  1. W !?9,"STEPS: Determine if TEAM should be inactive."
  1. W !?9," If answer is NO:"
  1. W !?9," Team should not be inactive. Reactivate the team."
  1. W !?9," If answer is YES:"
  1. W !?9," Team should be inactive. Reactivate the team so that"
  1. W !?9," active patient position assignments can be inactivated or"
  1. W !?9," reassigned. Then inactivate team."
  1. Q
  1. ;
  1. BRIEFPOS ;Print POSITION error counts only.
  1. NEW ERROR,NUM,NUM1,POS,TM,TXT
  1. ;
  1. S NUM=0
  1. F S NUM=$O(^TMP("PCMM POSITION",$J,NUM)) Q:'NUM D ;
  1. . S TM=""
  1. . F S TM=$O(^TMP("PCMM POSITION",$J,NUM,TM)) Q:TM="" D ;
  1. .. S POS=""
  1. .. F S POS=$O(^TMP("PCMM POSITION",$J,NUM,TM,POS)) Q:POS="" D ;
  1. ... S ERROR(NUM\1)=($G(ERROR(NUM\1))+1)
  1. ;
  1. W !,"Total teams/positions per inconsistency type:"
  1. S NUM=0
  1. F S NUM=$O(ERROR(NUM)) Q:'NUM!QUIT D ;
  1. . S NUM1=(NUM\1)
  1. . S TXT=$T(TXT+NUM1^SCRPV1B)
  1. . I $Y>(IOSL-6) D PAUSE^SCRPV1B Q:QUIT
  1. . ;W !?3,$P(TXT,";",3)_". "
  1. . S TXT=$P(TXT,";",4)
  1. . I TXT["[]" D ;
  1. .. S TXT=$P(TXT,"[]",1)_"Team Assign/Team/Position"_$P(TXT,"[]",2)
  1. . W !?3,TXT_" - "_ERROR(NUM1)
  1. Q
  1. ;
  1. BRIEFPT ;Print PATIENT error counts only.
  1. NEW DFN,DFNNAM,ERROR,NUM
  1. ;
  1. S DFNNAM=""
  1. F S DFNNAM=$O(^TMP("PCMM PATIENT",$J,DFNNAM)) Q:DFNNAM="" D ;
  1. . S DFN=0
  1. . F S DFN=$O(^TMP("PCMM PATIENT",$J,DFNNAM,DFN)) Q:'DFN D ;
  1. .. S NUM=0
  1. .. F S NUM=$O(^TMP("PCMM PATIENT",$J,DFNNAM,DFN,NUM)) Q:'NUM D ;
  1. ... S ERROR("PT",NUM\1)=($G(ERROR("PT",NUM\1))+1)
  1. ;
  1. W !,"Total patients per inconsistency type:"
  1. S NUM=0
  1. F S NUM=$O(ERROR("PT",NUM)) Q:'NUM!QUIT D ;
  1. . S NUM=NUM\1
  1. . S TXT=$T(TXT+NUM^SCRPV1B)
  1. . I $Y>(IOSL-6) D PAUSE^SCRPV1B Q:QUIT
  1. . ;W !?3,$P(TXT,";",3)_". "
  1. . S TXT=$P(TXT,";",4)
  1. . I TXT["[]" D ;
  1. .. S TXT=$P(TXT,"[]",1)_"Team Assign/Team/Position"_$P(TXT,"[]",2)
  1. . W !?3,TXT_" - "_ERROR("PT",NUM)
  1. Q