SDSCCHK ;ALB/JAM/RBS - Check Encounters for Inclusion in ASCD ; 4/30/07 4:46pm
;;5.3;Scheduling;**495,1015**;Aug 13, 1993;Build 21
;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
;;known as Service Connected Automated Monitoring (SCAM).
;
Q
EN ; Entry point
N SDSCBDT,SDSCITE,SDSCDAY,ZTQUEUED,POP,ZTRTN,ZTDTH,ZTDESC,ZTSAVE
; Initialize system variables if not already set
D HOME^%ZIS
; Get start and end date for compile.
S (SDSCBDT,SDSCEDT,SDSCDAY)=""
S SDSCITE=$P($$SITE^VASITE(),U,1)
S SDSCDAY=$$GET^XPAR((+SDSCITE)_";DIC(4,","SDSC SITE PARAMETER")
; set default start date based on site parameter (30 days max)
I SDSCDAY="" S SDSCDAY=30
S SDSCBDT=$$FMADD^XLFDT(DT,-SDSCDAY),SDSCEDT=DT
D GETDATE1^SDSCOMP I SDSCTDT="" G EXIT
S DIR(0)="S^S:Summary Report;D:Detailed Report",DIR("B")="S"
D ^DIR K DIR
I $G(DTOUT)!($G(DUOUT)) G EXIT
S SDANS=Y
K %ZIS,IOP,IOC,ZTIO S %ZIS="MQ" D ^%ZIS G:POP EXIT
I $D(IO("Q")) D G EXIT
. S ZTRTN="PRT^SDSCCHK",ZTDTH=$H,ZTDESC="ASCD Compile Results Report"
. S ZTSAVE("SDANS")="",ZTSAVE("SDSCTDT")="",ZTSAVE("SDEDT")=""
. K IO("Q") D ^%ZTLOAD W !,"REQUEST QUEUED"
;
PRT ; Print results
N SDCT,SDDCT,SDOEDT,SDOE,P,L,SDTXT,TOTAL,SDOANS
K ^TMP("SDSCCHK",$J)
D ELIG^SDSCOMP
S SDOEDT=SDSCTDT,(SDCT,SDDCT)=0
F S SDOEDT=$O(^SCE("B",SDOEDT)) Q:(SDOEDT\1)>SDEDT Q:SDOEDT="" D
. S SDOE=0
. F S SDOE=$O(^SCE("B",SDOEDT,SDOE)) Q:'SDOE D FND
;
BEG ; Begin report
S (P,L,SDABRT,TOTAL,SDOANS)=0
S SDOANS=SDANS S:SDANS="D" SDANS="S"
D HDR
;
U IO
D G EXIT:$G(SDABRT)=1
. S SDTXT=""
. F S SDTXT=$O(^TMP("SDSCCHK",$J,"TOTAL",SDTXT)) Q:SDTXT="" D Q:$G(SDABRT)=1
.. W !,$J(^TMP("SDSCCHK",$J,"TOTAL",SDTXT),8),?10,SDTXT S L=L+1
.. F I=" TP "," MT " W:SDTXT[I " *"
.. S TOTAL=TOTAL+^TMP("SDSCCHK",$J,"TOTAL",SDTXT)
.. I L+3>IOSL D HDR Q:$G(SDABRT)=1
. W ! F I=1:1:79 W "-"
. W !,$J(TOTAL,8),?10,"TOTAL Encounters"
. W !!,"* Third Party=TP; Means Test=MT",!
;
I SDOANS="D" S SDANS="D" D HDR D G EXIT:$G(SDABRT)=1
. S SDTXT=""
. F S SDTXT=$O(^TMP("SDSCCHK",$J,"DX",SDTXT)) Q:'SDTXT D Q:$G(SDABRT)=1
.. S SDDATA=^TMP("SDSCCHK",$J,"DX",SDTXT)
.. W !,$P(SDDATA,U,1),?12,$P(SDDATA,U,2),?24,$E($P(SDDATA,U,3),1,19),?44,$E($P(SDDATA,U,4),1,16)
.. W ?62,$E($P(^TMP("SDSCCHK",$J,"DX",SDTXT),U,5),1,18),!,?10,$P($P(^TMP("SDSCCHK",$J,"DX",SDTXT),U,6),"(",1)
.. S L=L+2
.. I L+3>IOSL D HDR Q:$G(SDABRT)=1
D RPTEND^SDSCRPT1
EXIT ;
K SDABRT,SDANS,SDCLIN,SDEDT,SDFPTX,SDHDR,SDLIST,SDNWPV,SDOEX,SDPOV
K SDSCEDT,SDSCTDT,SDSCTXT,I,X,Y,QUE,POP,DFN,SDDATA
K ^TMP("SDSCCHK",$J),DTOUT,DUOUT
Q
;
FND ; Find errors with encounters
N SDOEDAT,SDCLIN,SDPAT,SDEC,DFN,SDCST,SDV0,SDPNAM,SDFILEOK
; If this encounter has already been compiled for review, quit.
I $D(^SDSC(409.48,SDOE,0)) Q
;
S SDOEDAT=$$GETOE^SDOE(SDOE) I SDOEDAT="" S SDSCTXT="No Encounter zero node" D STORE Q
; If child encounter, quit
I $P(SDOEDAT,U,6) Q
S SDCLIN=$P(SDOEDAT,U,4)
; Get patient. If no patient, quit.
S SDPAT=$P(SDOEDAT,U,2) I SDPAT="" S SDSCTXT="No Patient Pointer for this encounter" D STORE Q
N VADM S DFN=SDPAT D DEM^VADPT S SDPNAM=VADM(1)
; Get visit file entry. If no visit, quit.
S SDV0=$P(SDOEDAT,U,5) I SDV0="" S SDSCTXT="No Visit Pointer for this encounter" D STORE Q
; Get eligibility. If no eligibility, quit.
S SDEC=$P(SDOEDAT,U,13) I SDEC="" S SDSCTXT="Encounter eligibility is blank." D STORE Q
; If eligibility is not service connected, quit.
I '$D(SDLIST(SDEC)) S SDSCTXT="Eligibility is not service connected" D STORE Q
; Get clinic. If no clinic, quit.
I SDCLIN="" S SDSCTXT="No Clinic Pointer for this encounter" D STORE Q
; Get clinic stop code. If no clinic stop code, quit.
S SDCST=$P(SDOEDAT,U,3) I SDCST="" S SDSCTXT="Clinic "_$P(^SC(SDCLIN,0),U,1)_" has no defined clinic stop code" D STORE Q
; If clinic is non-count, quit.
I $$NCTCL^SDSCUTL(SDCLIN) S SDSCTXT="Clinic "_$P(^SC(SDCLIN,0),U,1)_" is non-count" D STORE Q
; If encounter is non-billable for first and third party, quit.
I $$NBFP(),$$NBTP() S SDSCTXT="Non-billable because "_SDFPTX D STORE Q
; Get and evaluate all ICD9 entries for the specified visit.
S SDFILEOK=$$SC^SDSCAPI(DFN,,SDOE)
;no ICDs were found for this encounter SDFILEOK=""
I SDFILEOK="" S SDSCTXT="No Diagnoses for this encounter" D STORED Q
;checks if ICD match found
I +SDFILEOK D Q
.I '$P(SDFILEOK,"^",4) S SDSCTXT="A diagnosis fully matched a rated disability condition" D STORED Q
.S SDSCTXT="A diagnosis partially matched a rated disability condition" D STORED
; ICDs that were found as non-service connected
S SDSCTXT="No Diagnoses identified as service connected" D STORED
Q
;
HDR ; Header
; Do not ask 'RETURN' before first page on CRT.
I $E(IOST,1,2)="C-",P N DIR S DIR(0)="E" D ^DIR I 'Y S SDABRT=1 Q
; Do not print a form feed before first page on printer. Top of form is set at end of previous report.
I $E(IOST,1,2)="C-"!P W @IOF
S P=P+1,L=5
S SDHDR="Compile Results Report"_" - "_$S(SDANS="S":"Summary",1:"Detail")
U IO
S SDNWPV=1
W SDHDR,?67,"PAGE: ",P
W !,?5,"For Encounters Dated ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
I SDANS="S" W !,?2,"# Enc",?10,"Reason"
I SDANS="D" D
. W !!,"Note: The Detail report will ONLY list additional encounter information ",!," for the Diagnosis code related Reasons.",!
. W !,"Enc #",?12,"Visit #",?24,"Clinic",?42,"Encounter Date/Time",?62,"Patient Name",!,?10,"Reason"
W ! F I=1:1:79 W "-"
Q
;
STORE ; Store the encounter for later use.
S SDCT=SDCT+1
I SDOEDAT="" S ^TMP("SDSCCHK",$J,SDCT)="Encounter IEN "_SDOE_" "_SDSCTXT Q
I SDPAT="" S ^TMP("SDSCCHK",$J,SDCT)="Encounter IEN "_SDOE_" "_SDSCTXT Q
S ^TMP("SDSCCHK",$J,SDCT)=$P(^SC(SDCLIN,0),U,1)_"^"_$$FMTE^XLFDT($P(SDOEDAT,U,1),"5Z")_"^"_SDPNAM_"^"_SDSCTXT
S ^TMP("SDSCCHK",$J,"TOTAL",SDSCTXT)=$G(^TMP("SDSCCHK",$J,"TOTAL",SDSCTXT))+1
Q
;
STORED ; Store the diagnosis encounter for detail
N DFN,SDPNAM
S SDDCT=SDDCT+1
S DFN=SDPAT D DEM^VADPT S SDPNAM=VADM(1) D KVA^VADPT
S ^TMP("SDSCCHK",$J,"DX",SDDCT)=SDOE_"^"_SDV0_"^"_$P(^SC(SDCLIN,0),U,1)_"^"_$$FMTE^XLFDT($P(SDOEDAT,U,1),"5Z")_"^"_SDPNAM_"^"_SDSCTXT
S ^TMP("SDSCCHK",$J,"TOTAL",SDSCTXT)=$G(^TMP("SDSCCHK",$J,"TOTAL",SDSCTXT))+1
Q
;
NBFP() ; Is first-party non-billable based on either clinic, stop code, or patient?
S SDFPTX="",SDFPTX=$P($$FIRST^IBRSUTL(SDOE),U,2) I SDFPTX'="" Q 1
Q 0
;
NBTP() ; Is third-party non-billable based on either clinic, stop code, or patient?
S SDFPTX="",SDFPTX=$P($$THIRD^IBRSUTL(SDOE),U,2) I SDFPTX'="" Q 1
I '+$$INSUR^IBBAPI(SDPAT,SDOEDT) S SDFPTX="patient is not insured" Q 1
Q 0
SDSCCHK ;ALB/JAM/RBS - Check Encounters for Inclusion in ASCD ; 4/30/07 4:46pm
+1 ;;5.3;Scheduling;**495,1015**;Aug 13, 1993;Build 21
+2 ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
+3 ;;known as Service Connected Automated Monitoring (SCAM).
+4 ;
+5 QUIT
EN ; Entry point
+1 NEW SDSCBDT,SDSCITE,SDSCDAY,ZTQUEUED,POP,ZTRTN,ZTDTH,ZTDESC,ZTSAVE
+2 ; Initialize system variables if not already set
+3 DO HOME^%ZIS
+4 ; Get start and end date for compile.
+5 SET (SDSCBDT,SDSCEDT,SDSCDAY)=""
+6 SET SDSCITE=$PIECE($$SITE^VASITE(),U,1)
+7 SET SDSCDAY=$$GET^XPAR((+SDSCITE)_";DIC(4,","SDSC SITE PARAMETER")
+8 ; set default start date based on site parameter (30 days max)
+9 IF SDSCDAY=""
SET SDSCDAY=30
+10 SET SDSCBDT=$$FMADD^XLFDT(DT,-SDSCDAY)
SET SDSCEDT=DT
+11 DO GETDATE1^SDSCOMP
IF SDSCTDT=""
GOTO EXIT
+12 SET DIR(0)="S^S:Summary Report;D:Detailed Report"
SET DIR("B")="S"
+13 DO ^DIR
KILL DIR
+14 IF $GET(DTOUT)!($GET(DUOUT))
GOTO EXIT
+15 SET SDANS=Y
+16 KILL %ZIS,IOP,IOC,ZTIO
SET %ZIS="MQ"
DO ^%ZIS
IF POP
GOTO EXIT
+17 IF $DATA(IO("Q"))
Begin DoDot:1
+18 SET ZTRTN="PRT^SDSCCHK"
SET ZTDTH=$HOROLOG
SET ZTDESC="ASCD Compile Results Report"
+19 SET ZTSAVE("SDANS")=""
SET ZTSAVE("SDSCTDT")=""
SET ZTSAVE("SDEDT")=""
+20 KILL IO("Q")
DO ^%ZTLOAD
WRITE !,"REQUEST QUEUED"
End DoDot:1
GOTO EXIT
+21 ;
PRT ; Print results
+1 NEW SDCT,SDDCT,SDOEDT,SDOE,P,L,SDTXT,TOTAL,SDOANS
+2 KILL ^TMP("SDSCCHK",$JOB)
+3 DO ELIG^SDSCOMP
+4 SET SDOEDT=SDSCTDT
SET (SDCT,SDDCT)=0
+5 FOR
SET SDOEDT=$ORDER(^SCE("B",SDOEDT))
IF (SDOEDT\1)>SDEDT
QUIT
IF SDOEDT=""
QUIT
Begin DoDot:1
+6 SET SDOE=0
+7 FOR
SET SDOE=$ORDER(^SCE("B",SDOEDT,SDOE))
IF 'SDOE
QUIT
DO FND
End DoDot:1
+8 ;
BEG ; Begin report
+1 SET (P,L,SDABRT,TOTAL,SDOANS)=0
+2 SET SDOANS=SDANS
IF SDANS="D"
SET SDANS="S"
+3 DO HDR
+4 ;
+5 USE IO
+6 Begin DoDot:1
+7 SET SDTXT=""
+8 FOR
SET SDTXT=$ORDER(^TMP("SDSCCHK",$JOB,"TOTAL",SDTXT))
IF SDTXT=""
QUIT
Begin DoDot:2
+9 WRITE !,$JUSTIFY(^TMP("SDSCCHK",$JOB,"TOTAL",SDTXT),8),?10,SDTXT
SET L=L+1
+10 FOR I=" TP "," MT "
IF SDTXT[I
WRITE " *"
+11 SET TOTAL=TOTAL+^TMP("SDSCCHK",$JOB,"TOTAL",SDTXT)
+12 IF L+3>IOSL
DO HDR
IF $GET(SDABRT)=1
QUIT
End DoDot:2
IF $GET(SDABRT)=1
QUIT
+13 WRITE !
FOR I=1:1:79
WRITE "-"
+14 WRITE !,$JUSTIFY(TOTAL,8),?10,"TOTAL Encounters"
+15 WRITE !!,"* Third Party=TP; Means Test=MT",!
End DoDot:1
IF $GET(SDABRT)=1
GOTO EXIT
+16 ;
+17 IF SDOANS="D"
SET SDANS="D"
DO HDR
Begin DoDot:1
+18 SET SDTXT=""
+19 FOR
SET SDTXT=$ORDER(^TMP("SDSCCHK",$JOB,"DX",SDTXT))
IF 'SDTXT
QUIT
Begin DoDot:2
+20 SET SDDATA=^TMP("SDSCCHK",$JOB,"DX",SDTXT)
+21 WRITE !,$PIECE(SDDATA,U,1),?12,$PIECE(SDDATA,U,2),?24,$EXTRACT($PIECE(SDDATA,U,3),1,19),?44,$EXTRACT($PIECE(SDDATA,U,4),1,16)
+22 WRITE ?62,$EXTRACT($PIECE(^TMP("SDSCCHK",$JOB,"DX",SDTXT),U,5),1,18),!,?10,$PIECE($PIECE(^TMP("SDSCCHK",$JOB,"DX",SDTXT),U,6),"(",1)
+23 SET L=L+2
+24 IF L+3>IOSL
DO HDR
IF $GET(SDABRT)=1
QUIT
End DoDot:2
IF $GET(SDABRT)=1
QUIT
End DoDot:1
IF $GET(SDABRT)=1
GOTO EXIT
+25 DO RPTEND^SDSCRPT1
EXIT ;
+1 KILL SDABRT,SDANS,SDCLIN,SDEDT,SDFPTX,SDHDR,SDLIST,SDNWPV,SDOEX,SDPOV
+2 KILL SDSCEDT,SDSCTDT,SDSCTXT,I,X,Y,QUE,POP,DFN,SDDATA
+3 KILL ^TMP("SDSCCHK",$JOB),DTOUT,DUOUT
+4 QUIT
+5 ;
FND ; Find errors with encounters
+1 NEW SDOEDAT,SDCLIN,SDPAT,SDEC,DFN,SDCST,SDV0,SDPNAM,SDFILEOK
+2 ; If this encounter has already been compiled for review, quit.
+3 IF $DATA(^SDSC(409.48,SDOE,0))
QUIT
+4 ;
+5 SET SDOEDAT=$$GETOE^SDOE(SDOE)
IF SDOEDAT=""
SET SDSCTXT="No Encounter zero node"
DO STORE
QUIT
+6 ; If child encounter, quit
+7 IF $PIECE(SDOEDAT,U,6)
QUIT
+8 SET SDCLIN=$PIECE(SDOEDAT,U,4)
+9 ; Get patient. If no patient, quit.
+10 SET SDPAT=$PIECE(SDOEDAT,U,2)
IF SDPAT=""
SET SDSCTXT="No Patient Pointer for this encounter"
DO STORE
QUIT
+11 NEW VADM
SET DFN=SDPAT
DO DEM^VADPT
SET SDPNAM=VADM(1)
+12 ; Get visit file entry. If no visit, quit.
+13 SET SDV0=$PIECE(SDOEDAT,U,5)
IF SDV0=""
SET SDSCTXT="No Visit Pointer for this encounter"
DO STORE
QUIT
+14 ; Get eligibility. If no eligibility, quit.
+15 SET SDEC=$PIECE(SDOEDAT,U,13)
IF SDEC=""
SET SDSCTXT="Encounter eligibility is blank."
DO STORE
QUIT
+16 ; If eligibility is not service connected, quit.
+17 IF '$DATA(SDLIST(SDEC))
SET SDSCTXT="Eligibility is not service connected"
DO STORE
QUIT
+18 ; Get clinic. If no clinic, quit.
+19 IF SDCLIN=""
SET SDSCTXT="No Clinic Pointer for this encounter"
DO STORE
QUIT
+20 ; Get clinic stop code. If no clinic stop code, quit.
+21 SET SDCST=$PIECE(SDOEDAT,U,3)
IF SDCST=""
SET SDSCTXT="Clinic "_$PIECE(^SC(SDCLIN,0),U,1)_" has no defined clinic stop code"
DO STORE
QUIT
+22 ; If clinic is non-count, quit.
+23 IF $$NCTCL^SDSCUTL(SDCLIN)
SET SDSCTXT="Clinic "_$PIECE(^SC(SDCLIN,0),U,1)_" is non-count"
DO STORE
QUIT
+24 ; If encounter is non-billable for first and third party, quit.
+25 IF $$NBFP()
IF $$NBTP()
SET SDSCTXT="Non-billable because "_SDFPTX
DO STORE
QUIT
+26 ; Get and evaluate all ICD9 entries for the specified visit.
+27 SET SDFILEOK=$$SC^SDSCAPI(DFN,,SDOE)
+28 ;no ICDs were found for this encounter SDFILEOK=""
+29 IF SDFILEOK=""
SET SDSCTXT="No Diagnoses for this encounter"
DO STORED
QUIT
+30 ;checks if ICD match found
+31 IF +SDFILEOK
Begin DoDot:1
+32 IF '$PIECE(SDFILEOK,"^",4)
SET SDSCTXT="A diagnosis fully matched a rated disability condition"
DO STORED
QUIT
+33 SET SDSCTXT="A diagnosis partially matched a rated disability condition"
DO STORED
End DoDot:1
QUIT
+34 ; ICDs that were found as non-service connected
+35 SET SDSCTXT="No Diagnoses identified as service connected"
DO STORED
+36 QUIT
+37 ;
HDR ; Header
+1 ; Do not ask 'RETURN' before first page on CRT.
+2 IF $EXTRACT(IOST,1,2)="C-"
IF P
NEW DIR
SET DIR(0)="E"
DO ^DIR
IF 'Y
SET SDABRT=1
QUIT
+3 ; Do not print a form feed before first page on printer. Top of form is set at end of previous report.
+4 IF $EXTRACT(IOST,1,2)="C-"!P
WRITE @IOF
+5 SET P=P+1
SET L=5
+6 SET SDHDR="Compile Results Report"_" - "_$SELECT(SDANS="S":"Summary",1:"Detail")
+7 USE IO
+8 SET SDNWPV=1
+9 WRITE SDHDR,?67,"PAGE: ",P
+10 WRITE !,?5,"For Encounters Dated ",$$FMTE^XLFDT(SDSCTDT,2)," THRU ",$$FMTE^XLFDT(SDEDT,2)
+11 IF SDANS="S"
WRITE !,?2,"# Enc",?10,"Reason"
+12 IF SDANS="D"
Begin DoDot:1
+13 WRITE !!,"Note: The Detail report will ONLY list additional encounter information ",!," for the Diagnosis code related Reasons.",!
+14 WRITE !,"Enc #",?12,"Visit #",?24,"Clinic",?42,"Encounter Date/Time",?62,"Patient Name",!,?10,"Reason"
End DoDot:1
+15 WRITE !
FOR I=1:1:79
WRITE "-"
+16 QUIT
+17 ;
STORE ; Store the encounter for later use.
+1 SET SDCT=SDCT+1
+2 IF SDOEDAT=""
SET ^TMP("SDSCCHK",$JOB,SDCT)="Encounter IEN "_SDOE_" "_SDSCTXT
QUIT
+3 IF SDPAT=""
SET ^TMP("SDSCCHK",$JOB,SDCT)="Encounter IEN "_SDOE_" "_SDSCTXT
QUIT
+4 SET ^TMP("SDSCCHK",$JOB,SDCT)=$PIECE(^SC(SDCLIN,0),U,1)_"^"_$$FMTE^XLFDT($PIECE(SDOEDAT,U,1),"5Z")_"^"_SDPNAM_"^"_SDSCTXT
+5 SET ^TMP("SDSCCHK",$JOB,"TOTAL",SDSCTXT)=$GET(^TMP("SDSCCHK",$JOB,"TOTAL",SDSCTXT))+1
+6 QUIT
+7 ;
STORED ; Store the diagnosis encounter for detail
+1 NEW DFN,SDPNAM
+2 SET SDDCT=SDDCT+1
+3 SET DFN=SDPAT
DO DEM^VADPT
SET SDPNAM=VADM(1)
DO KVA^VADPT
+4 SET ^TMP("SDSCCHK",$JOB,"DX",SDDCT)=SDOE_"^"_SDV0_"^"_$PIECE(^SC(SDCLIN,0),U,1)_"^"_$$FMTE^XLFDT($PIECE(SDOEDAT,U,1),"5Z")_"^"_SDPNAM_"^"_SDSCTXT
+5 SET ^TMP("SDSCCHK",$JOB,"TOTAL",SDSCTXT)=$GET(^TMP("SDSCCHK",$JOB,"TOTAL",SDSCTXT))+1
+6 QUIT
+7 ;
NBFP() ; Is first-party non-billable based on either clinic, stop code, or patient?
+1 SET SDFPTX=""
SET SDFPTX=$PIECE($$FIRST^IBRSUTL(SDOE),U,2)
IF SDFPTX'=""
QUIT 1
+2 QUIT 0
+3 ;
NBTP() ; Is third-party non-billable based on either clinic, stop code, or patient?
+1 SET SDFPTX=""
SET SDFPTX=$PIECE($$THIRD^IBRSUTL(SDOE),U,2)
IF SDFPTX'=""
QUIT 1
+2 IF '+$$INSUR^IBBAPI(SDPAT,SDOEDT)
SET SDFPTX="patient is not insured"
QUIT 1
+3 QUIT 0
