- PXRRPCE1 ;HIN/MjK - Clinic Specfic Workload Reports ;9/23/96
- ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996
- EN ;_._._._._._._._._._._._.Total Appt By Type_._._._._._._._._._._._._.
- ;THIS ROUTINE EXECUTES THE SCHEDULING PACKAGE ROUTINES @ (SET^SDCWL3)
- ;FOR CLINIC APPT DATA WHICH IS RETURNED IN THE FOLLOWING TMP GLOBALS
- ;^TMP($J,"CL",CLINIC TEXT NAME ;TOTAL ENCOUNTERS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"SD" ;# SCHEDULED APPTS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"OB" ;# OVERBOOKED APPTS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"IN" ;# INPATIENT APPTS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"UN" ;# UNSCHEDULED APPTS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"NS" ;# NO SHOWED APPTS
- ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"CA" ;# CANCELLED APPTS
- ;THE PCE DATA FILES ARE SEPARATELY CHECKED,
- ;BY DATE RANGE ; ^AUPNVSIT("B",
- ;AND THEN HOSPITAL LOCATION ; $P(^AUPNVSIT(D0,0),U,22)
- ;THE ASSOCIATED V CPT RECORDS ARE REVIEWED ; ^AUPNVCPT("AD",
- ;AGAINST THE IBE TYPE OF VISIT FILE ; ^IBE(357.60,
- ;TO DISTINGUISH E&M CODES FROM OTHER NON-E&M CPT CODES
- ALL S (PXRR,PXRRCN)=0 F S PXRR=$O(PXRRCLIN(PXRR)) Q:'PXRR S PXRRCL=$P(PXRRCLIN(PXRR),U) D SETUP I $D(^TMP($J,1,PXRRCL)) S PXRRCN=PXRRCN+1,PXRRCLIN=$P(PXRRCLIN(PXRR),U,2) D
- SDDATA . ;_._._._._._.Initialize Appt Types from Scheduling data_._._._._.
- . F X="UN","CA","NS" S Y=0 F S Y=$O(^TMP($J,1,PXRRCL,Y)) Q:'Y S ^TMP($J,PXRRCL,X)=^TMP($J,PXRRCL,X)+$G(^TMP($J,1,PXRRCL,Y,X))
- SDTOTAL . ;_._._._._._._.Total Visits per Clinic & All Clinics_._._._._._._.
- . S ^TMP($J,PXRRCL,"TOT")=$S($P(^TMP($J,"CL",1,PXRRCL),U,2)="":0,1:$P(^TMP($J,"CL",1,PXRRCL),U,2))
- PCEDATA ;_._._._._._._._._._._._Patient Encounters_._._._._._._._._._._
- ;F= visit ifn ;C= enctr counter
- N F
- F S PXRR=$O(PXRRCLIN(PXRR)) Q:'PXRR S PXRRCL=$P(PXRRCLIN(PXRR),U),PXRRCLIN=$P(PXRRCLIN(PXRR),U,2) S PXRRVDT=PXRRBDT,(C,PXRRNVCP)=0 F S PXRRVDT=$O(^AUPNVSIT("B",PXRRVDT)) Q:'PXRRVDT!(PXRRVDT>PXRREDT) D
- . S F=0 F S F=$O(^AUPNVSIT("B",PXRRVDT,F)) Q:'F I $P(^AUPNVSIT(F,0),U,22)=PXRRCLIN S X=$P($G(^AUPNVSIT(F,0)),U,7) I (X="A")!(X="I")!(X="S") S C=C+1,^TMP($J,PXRRCL,"ENT")=C D
- .. ;_.If no x-ref exists, there are no associated CPTs for the enctr_.
- .. I '$D(^AUPNVCPT("AD",F)) S PXRRNVCP=PXRRNVCP+1,^TMP($J,PXRRCL,"NVCPT")=PXRRNVCP Q
- PCEPROC .. ;_._._._._._._._._._.Encounter Visit Codes_._._._._._._._._._.
- .. S G=0 F S G=$O(^AUPNVCPT("AD",F,G)) Q:'G S PXRRVCPT=$P(^AUPNVCPT(G,0),U) I $D(^IBE(357.69,PXRRVCPT)) S PXRVST=1
- .. ;_.If none of the associated procedures is a Type of Visit code_.
- .. I '$D(PXRVST) S ^TMP($J,PXRRCL,"OTHER CPT")=^TMP($J,PXRRCL,"OTHER CPT")+1 Q
- .. K PXRVST
- PCEENM .. ;_._._._._._._._.All Procedures Which Are Visit Codes_._._._._._.
- .. S G=0 F S G=$O(^AUPNVCPT("AD",F,G)) Q:'G S PXRRVCPT=$P(^AUPNVCPT(G,0),U) D:$D(^IBE(357.69,PXRRVCPT))&('$D(PXRVST))
- ... ;_._._.Category of Type of Visit (i.e. NEW,EST,CONSULT,OTHER)_._._.
- ... ;_._._.Use the First Type of Visit Code Found for Encounter_._._._.
- ... S X=$P(^IBE(357.69,PXRRVCPT,0),U,5),X=$S(X=1:"NEW",X=2:"ESTABLISHED",X=3:"CONSULT",1:"OTHER"),^TMP($J,PXRRCL,X)=^TMP($J,PXRRCL,X)+1,PXRVST=1
- .. K PXRVST
- PCETOT ;_._._._._._._.Total PCE Enctrs for All Selected Clinics_._._._._._.
- S (^TMP($J,"TVCO"),X)=0 F S X=$O(PXRRCLIN(X)) Q:'X S ^TMP($J,"TVCO")=^TMP($J,"TVCO")+$G(^TMP($J,$P(PXRRCLIN(X),U),"ENT"))
- EXIT Q
- SETUP ;_._._.TMP Array_._._.
- F I="UN","CA","NS","NEW","ESTABLISHED","CONSULT","OTHER","OTHER CPT","ENT","NVCPT","TOT" S ^TMP($J,PXRRCL,I)=0
- Q
-
- --- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXRRPCE1 3605 printed Mar 13, 2025@21:35:40 Page 2
- PXRRPCE1 ;HIN/MjK - Clinic Specfic Workload Reports ;9/23/96
- +1 ;;1.0;PCE PATIENT CARE ENCOUNTER;**3**;Aug 12, 1996
- EN ;_._._._._._._._._._._._.Total Appt By Type_._._._._._._._._._._._._.
- +1 ;THIS ROUTINE EXECUTES THE SCHEDULING PACKAGE ROUTINES @ (SET^SDCWL3)
- +2 ;FOR CLINIC APPT DATA WHICH IS RETURNED IN THE FOLLOWING TMP GLOBALS
- +3 ;^TMP($J,"CL",CLINIC TEXT NAME ;TOTAL ENCOUNTERS
- +4 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"SD" ;# SCHEDULED APPTS
- +5 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"OB" ;# OVERBOOKED APPTS
- +6 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"IN" ;# INPATIENT APPTS
- +7 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"UN" ;# UNSCHEDULED APPTS
- +8 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"NS" ;# NO SHOWED APPTS
- +9 ;^TMP($J,1,CLINIC TEXT NAME,APPT DATE,"CA" ;# CANCELLED APPTS
- +10 ;THE PCE DATA FILES ARE SEPARATELY CHECKED,
- +11 ;BY DATE RANGE ; ^AUPNVSIT("B",
- +12 ;AND THEN HOSPITAL LOCATION ; $P(^AUPNVSIT(D0,0),U,22)
- +13 ;THE ASSOCIATED V CPT RECORDS ARE REVIEWED ; ^AUPNVCPT("AD",
- +14 ;AGAINST THE IBE TYPE OF VISIT FILE ; ^IBE(357.60,
- +15 ;TO DISTINGUISH E&M CODES FROM OTHER NON-E&M CPT CODES
- ALL SET (PXRR,PXRRCN)=0
- FOR
- SET PXRR=$ORDER(PXRRCLIN(PXRR))
- if 'PXRR
- QUIT
- SET PXRRCL=$PIECE(PXRRCLIN(PXRR),U)
- DO SETUP
- IF $DATA(^TMP($JOB,1,PXRRCL))
- SET PXRRCN=PXRRCN+1
- SET PXRRCLIN=$PIECE(PXRRCLIN(PXRR),U,2)
- Begin DoDot:1
- SDDATA ;_._._._._._.Initialize Appt Types from Scheduling data_._._._._.
- +1 FOR X="UN","CA","NS"
- SET Y=0
- FOR
- SET Y=$ORDER(^TMP($JOB,1,PXRRCL,Y))
- if 'Y
- QUIT
- SET ^TMP($JOB,PXRRCL,X)=^TMP($JOB,PXRRCL,X)+$GET(^TMP($JOB,1,PXRRCL,Y,X))
- SDTOTAL ;_._._._._._._.Total Visits per Clinic & All Clinics_._._._._._._.
- +1 SET ^TMP($JOB,PXRRCL,"TOT")=$SELECT($PIECE(^TMP($JOB,"CL",1,PXRRCL),U,2)="":0,1:$PIECE(^TMP($JOB,"CL",1,PXRRCL),U,2))
- End DoDot:1
- PCEDATA ;_._._._._._._._._._._._Patient Encounters_._._._._._._._._._._
- +1 ;F= visit ifn ;C= enctr counter
- +2 NEW F
- +3 FOR
- SET PXRR=$ORDER(PXRRCLIN(PXRR))
- if 'PXRR
- QUIT
- SET PXRRCL=$PIECE(PXRRCLIN(PXRR),U)
- SET PXRRCLIN=$PIECE(PXRRCLIN(PXRR),U,2)
- SET PXRRVDT=PXRRBDT
- SET (C,PXRRNVCP)=0
- FOR
- SET PXRRVDT=$ORDER(^AUPNVSIT("B",PXRRVDT))
- if 'PXRRVDT!(PXRRVDT>PXRREDT)
- QUIT
- Begin DoDot:1
- +4 SET F=0
- FOR
- SET F=$ORDER(^AUPNVSIT("B",PXRRVDT,F))
- if 'F
- QUIT
- IF $PIECE(^AUPNVSIT(F,0),U,22)=PXRRCLIN
- SET X=$PIECE($GET(^AUPNVSIT(F,0)),U,7)
- IF (X="A")!(X="I")!(X="S")
- SET C=C+1
- SET ^TMP($JOB,PXRRCL,"ENT")=C
- Begin DoDot:2
- +5 ;_.If no x-ref exists, there are no associated CPTs for the enctr_.
- +6 IF '$DATA(^AUPNVCPT("AD",F))
- SET PXRRNVCP=PXRRNVCP+1
- SET ^TMP($JOB,PXRRCL,"NVCPT")=PXRRNVCP
- QUIT
- PCEPROC ;_._._._._._._._._._.Encounter Visit Codes_._._._._._._._._._.
- +1 SET G=0
- FOR
- SET G=$ORDER(^AUPNVCPT("AD",F,G))
- if 'G
- QUIT
- SET PXRRVCPT=$PIECE(^AUPNVCPT(G,0),U)
- IF $DATA(^IBE(357.69,PXRRVCPT))
- SET PXRVST=1
- +2 ;_.If none of the associated procedures is a Type of Visit code_.
- +3 IF '$DATA(PXRVST)
- SET ^TMP($JOB,PXRRCL,"OTHER CPT")=^TMP($JOB,PXRRCL,"OTHER CPT")+1
- QUIT
- +4 KILL PXRVST
- PCEENM ;_._._._._._._._.All Procedures Which Are Visit Codes_._._._._._.
- +1 SET G=0
- FOR
- SET G=$ORDER(^AUPNVCPT("AD",F,G))
- if 'G
- QUIT
- SET PXRRVCPT=$PIECE(^AUPNVCPT(G,0),U)
- if $DATA(^IBE(357.69,PXRRVCPT))&('$DATA(PXRVST))
- Begin DoDot:3
- +2 ;_._._.Category of Type of Visit (i.e. NEW,EST,CONSULT,OTHER)_._._.
- +3 ;_._._.Use the First Type of Visit Code Found for Encounter_._._._.
- +4 SET X=$PIECE(^IBE(357.69,PXRRVCPT,0),U,5)
- SET X=$SELECT(X=1:"NEW",X=2:"ESTABLISHED",X=3:"CONSULT",1:"OTHER")
- SET ^TMP($JOB,PXRRCL,X)=^TMP($JOB,PXRRCL,X)+1
- SET PXRVST=1
- End DoDot:3
- +5 KILL PXRVST
- End DoDot:2
- End DoDot:1
- PCETOT ;_._._._._._._.Total PCE Enctrs for All Selected Clinics_._._._._._.
- +1 SET (^TMP($JOB,"TVCO"),X)=0
- FOR
- SET X=$ORDER(PXRRCLIN(X))
- if 'X
- QUIT
- SET ^TMP($JOB,"TVCO")=^TMP($JOB,"TVCO")+$GET(^TMP($JOB,$PIECE(PXRRCLIN(X),U),"ENT"))
- EXIT QUIT
- SETUP ;_._._.TMP Array_._._.
- +1 FOR I="UN","CA","NS","NEW","ESTABLISHED","CONSULT","OTHER","OTHER CPT","ENT","NVCPT","TOT"
- SET ^TMP($JOB,PXRRCL,I)=0
- +2 QUIT
- +3
