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

SDSCRPT1.m

Go to the documentation of this file.
  1. SDSCRPT1 ;ALB/JAM/RBS - ASCD Reports for Service Connected Automated Monitor ; 4/24/07 4:30pm
  1. ;;5.3;Scheduling;**495**;Aug 13, 1993;Build 50
  1. ;;MODIFIED FOR NATIONAL RELEASE from a Class III software product
  1. ;;known as Service Connected Automated Monitoring (SCAM).
  1. ;
  1. ; Routine should be called at specified tags only.
  1. Q
  1. RDPOV ; 'ROUTINE' tag called by option "SDSC ENC REPORT - Service Connected Encounters Report"
  1. N ZTDESC,SDRTN,SDOPT,DIR,DIRUT,X,Y
  1. W !,"Service Connected Encounters Report"
  1. S DIR(0)="SO^S:Service Connected;N:Non-Service Connected;A:All"
  1. S DIR("B")="S",DIR("A")="Which option do you want to run?"
  1. D ^DIR I $D(DIRUT) Q
  1. S SDOPT=$S(Y="S":1,Y="N":0,1:2)
  1. S ZTDESC="COMPARE DISABILITY/POV PER ENCOUNTER",SDRTN="PRINT^SDSCRPT1"
  1. G LOAD
  1. ;
  1. NSCCOP ; 'ROUTINE' tag called by option "SDSC FIRST PARTY REPORT - First Party Billable Service Connected Report"
  1. N ZTDESC,SDRTN
  1. S ZTDESC="SERVICE CONNECTED CO-PAY REPORT",SDRTN="COPPRT^SDSCRPT1"
  1. G LOAD
  1. ;
  1. NSCINS ; 'ROUTINE' tag called by option "SDSC THIRD PARTY REPORT - Third Party Billable Service Connected Report"
  1. N ZTDESC,SDRTN
  1. S ZTDESC="SERVICE CONNECTED BILLING INSURANCE REPORT",SDRTN="INSPRT^SDSCRPT1"
  1. G LOAD
  1. ;
  1. SCPRV ;Provider Service Connected Encounters Report
  1. N SDDET,DIR,DIRUT,X,Y,ZTDESC,SDRTN
  1. W !,"Provider Service Connected Encounters Report"
  1. S DIR(0)="SO^D:Detail;S:Summary",DIR("B")="S"
  1. S DIR("A")="Which option do you want to run?"
  1. D ^DIR I $D(DIRUT) Q
  1. S SDDET=$S(Y="D":1,1:0)
  1. S ZTDESC="SERV CONN REVIEW REPORT BY PROVIDER",SDRTN="PRVPRT^SDSCRPT1"
  1. G LOAD
  1. ;
  1. SCUSR ;User Service Connected Encounters Report
  1. N SDDET,DIR,DIRUT,X,Y,ZTDESC,SDRTN
  1. W !,"User Service Connected Encounters Report"
  1. S DIR(0)="SO^D:Detail;S:Summary",DIR("B")="S"
  1. S DIR("A")="Which option do you want to run?"
  1. D ^DIR I $D(DIRUT) Q
  1. S SDDET=$S(Y="D":1,1:0)
  1. S ZTDESC="SERV CONN REVIEW REPORT BY USER",SDRTN="RVWPRT^SDSCRPT1"
  1. G LOAD
  1. ;
  1. LOAD ; Standard start tag for all current reports.
  1. ; Initialize variables if necessary.
  1. N ZTIO,ZTSAVE,ZTRTN,P,L,SDABRT
  1. K %ZIS D HOME^%ZIS
  1. ; Select division
  1. D DIV I SDQFL G END
  1. ; Get start and end date for report.
  1. D GETDATE^SDSCOMP I SDSCTDT="" G END
  1. ; Initialize page counts
  1. S (P,L,SDABRT)=0
  1. ; Prompt user for DEVICE and handle TaskMan queuing if required.
  1. S %ZIS="QM" D ^%ZIS G END:POP
  1. I '$D(IO("Q")) U IO K ZTDESC G LOOP
  1. S ZTIO=ION,ZTSAVE("*")="",ZTRTN="LOOP^SDSCRPT1" D ^%ZTLOAD
  1. G END
  1. LOOP ; Loop through each division and display the selected report.
  1. N CT,SDSCDIV,SDSCDNM,SDI,THDR
  1. S CT=0,SDSCDIV=$S(SDSCDVSL'[SDSCDVLN:SDSCDVSL,1:"")
  1. I SDSCDIV="" S SDSCDNM="ALL" D @SDRTN
  1. I SDSCDIV'="" D
  1. . S THDR=""
  1. . F SDI=1:1:$L(SDSCDVSL,",") S SDSCDIV=$P(SDSCDVSL,",",SDI) Q:SDSCDIV="" D Q:$G(SDABRT)=1
  1. .. S SDSCDNM=$P(^DG(40.8,SDSCDIV,0),"^",1),THDR=THDR_SDSCDNM_",",CT=CT+1 D @SDRTN
  1. D RPTEND
  1. G END
  1. ;
  1. PRINT ; Display the encounters previously stored for this date.
  1. ; This is a detailed report, set flag
  1. N SDDET,SDOEDT,SDOE,SCVAL
  1. S SDDET=1
  1. U IO D HEADER^SDSCRPT2 I $G(SDABRT)=1 Q
  1. ; Loop through all encounters found in that date range.
  1. S SDOEDT=SDSCTDT F S SDOEDT=$O(^SDSC(409.48,"AE",SDOEDT)) Q:SDOEDT\1>SDEDT Q:SDOEDT="" D Q:$G(SDABRT)=1
  1. . S SDOE=0 F S SDOE=$O(^SDSC(409.48,"AE",SDOEDT,SDOE)) Q:'SDOE D Q:$G(SDABRT)=1
  1. .. I $G(SDSCDIV)'="" Q:$P(^SDSC(409.48,SDOE,0),U,12)'=SDSCDIV
  1. .. ; Get data
  1. .. I '$$STDGET Q
  1. .. S SCVAL=$P(^SDSC(409.48,SDOE,0),U,6)
  1. .. I $S(SCVAL=SDOPT:1,SDOPT=2:1,1:0) D
  1. ... D ENCBDDT^SDSCRPT2
  1. Q
  1. ;
  1. INSPRT ;Display all encounters that may be billable to insurance.
  1. N SDHDR,SDOEDT,SDOE,SCVAL
  1. S SDHDR="OUTPATIENT ENCOUNTERS POTENTIALLY BILLABLE TO INSURANCE"
  1. U IO D NBILLHD^SDSCRPT2 I $G(SDABRT)=1 Q
  1. ; Loop through all encounters found in that date range.
  1. S SDOEDT=SDSCTDT F S SDOEDT=$O(^SDSC(409.48,"AE",SDOEDT)) Q:SDOEDT\1>SDEDT Q:SDOEDT="" D Q:$G(SDABRT)=1
  1. . S SDOE=0 F S SDOE=$O(^SDSC(409.48,"AE",SDOEDT,SDOE)) Q:'SDOE D Q:$G(SDABRT)=1
  1. .. I $G(SDSCDIV)'="" Q:$P(^SDSC(409.48,SDOE,0),U,12)'=SDSCDIV
  1. .. ; Get data
  1. .. I '$$STDGET Q
  1. .. ; Check for ability of patients insurance to be billed
  1. .. I $$NBTP^SDSCUTL() Q
  1. .. ; If Not Service Connected (NSC) after reviews, print.
  1. .. S SCVAL=$$SCHNG^SDSCUTL(SDOE) I '+SCVAL Q
  1. .. I '($P(SCVAL,U,3)) D NBILLBD^SDSCRPT2
  1. Q
  1. ;
  1. COPPRT ;Display all encounters that may be billable for co-payment.
  1. N SDHDR,SDOEDT,SDOE,SDVAL
  1. S SDHDR="OUTPATIENT ENCOUNTERS POTENTIALLY BILLABLE FOR CO-PAYS"
  1. U IO D NBILLHD^SDSCRPT2 I $G(SDABRT)=1 Q
  1. ; Loop through all encounters found in that date range.
  1. S SDOEDT=SDSCTDT F S SDOEDT=$O(^SDSC(409.48,"AE",SDOEDT)) Q:SDOEDT\1>SDEDT Q:SDOEDT="" D Q:$G(SDABRT)=1
  1. . S SDOE=0 F S SDOE=$O(^SDSC(409.48,"AE",SDOEDT,SDOE)) Q:'SDOE D Q:$G(SDABRT)=1
  1. .. I $G(SDSCDIV)'="" Q:$P(^SDSC(409.48,SDOE,0),U,12)'=SDSCDIV
  1. .. ; Get data
  1. .. I '$$STDGET Q
  1. .. ; Check for patients ability to be billed
  1. .. I $$NBFP^SDSCUTL(SDOE) Q
  1. .. ; If Not Service Connected (NSC) after reviews, print.
  1. .. S SDVAL=$$SCHNG^SDSCUTL(SDOE) I '+SDVAL Q
  1. .. I '$P(SDVAL,U,3) D NBILLBD^SDSCRPT2
  1. Q
  1. ;
  1. RVWPRT ;Display all User Reviewed encounters
  1. ;SDDET=1 - Detailed Report; SDDET=0 - Summary Report
  1. N SDHDR,SDLEB,SDNWPV,SDPVCN,SDPCT,SDOEDT,SDOE
  1. S SDHDR="OUTPATIENT ENCOUNTERS SERVICE CONNECTED REVIEW BY USER"
  1. U IO D RVWHD^SDSCRPT2 I $G(SDABRT)=1 Q
  1. ; Loop through all encounters found in that date range.
  1. S SDLEB=0 F S SDLEB=$O(^SDSC(409.48,"AG",SDLEB)) Q:'SDLEB D Q:$G(SDABRT)=1
  1. . ; Reset flag to print provider name
  1. . S SDNWPV=1,SDPVCN=0,SDPCT=0
  1. . S SDOEDT=SDSCTDT F S SDOEDT=$O(^SDSC(409.48,"AG",SDLEB,SDOEDT)) Q:SDOEDT\1>SDEDT Q:SDOEDT="" D Q:$G(SDABRT)=1
  1. .. S SDOE=0 F S SDOE=$O(^SDSC(409.48,"AG",SDLEB,SDOEDT,SDOE)) Q:'SDOE D Q:$G(SDABRT)=1
  1. ... I $G(SDSCDIV)'="" Q:$P(^SDSC(409.48,SDOE,0),U,12)'=SDSCDIV
  1. ... ; Get data
  1. ... I '$$STDGET Q
  1. ... S SDPCT=SDPCT+1
  1. ... D RVWBD^SDSCRPT2
  1. . I SDPCT'=0 W ?3,"Total: "_SDPCT,! S L=L+1 Q
  1. Q
  1. ;
  1. PRVPRT ;Display all User Reviewed encounters by Provider
  1. ;SDDET=1 - Detailed Report; SDDET=0 - Summary Report
  1. N SDHDR,SDPROV,SDNWPV,SDPVCN,SDPCT,SDOE,SDOEDT
  1. S SDHDR="OUTPATIENT ENCOUNTERS SERVICE CONNECTED REVIEW BY PROVIDER"
  1. U IO D PRVHD^SDSCRPT2 I $G(SDABRT)=1 Q
  1. ; Loop through all encounters found in that date range.
  1. S SDPROV=0 F S SDPROV=$O(^SDSC(409.48,"AF",SDPROV)) Q:'SDPROV D Q:$G(SDABRT)=1
  1. . ; Reset flag to print provider name, without the continued label.
  1. . S SDNWPV=1,SDPVCN=0,SDPCT=0
  1. . S SDOEDT=SDSCTDT F S SDOEDT=$O(^SDSC(409.48,"AF",SDPROV,SDOEDT)) Q:SDOEDT\1>SDEDT Q:SDOEDT="" D Q:$G(SDABRT)=1
  1. .. S SDOE=0 F S SDOE=$O(^SDSC(409.48,"AF",SDPROV,SDOEDT,SDOE)) Q:'SDOE D Q:$G(SDABRT)=1
  1. ... I $G(SDSCDIV)'="" Q:$P(^SDSC(409.48,SDOE,0),U,12)'=SDSCDIV
  1. ... ; Get data
  1. ... I '$$STDGET Q
  1. ... S SDPCT=SDPCT+1
  1. ... D PRVBD^SDSCRPT2
  1. . I SDPCT'=0 W ?3,"Total: "_SDPCT,! S L=L+1 Q
  1. Q
  1. ;
  1. RPTEND ;Report cleSDp.
  1. I '$G(SDABRT) W !,"<End of Report>" I $E(IOST,1,2)="C-" D
  1. .N DIR S DIR(0)="E" D ^DIR
  1. I $G(SDABRT)=1 W !,"<Report Aborted>"
  1. D ^%ZISC
  1. I $D(ZTQUEUED) S ZTREQ="@"
  1. Q
  1. ;
  1. STDGET() ; All standard data retrieval from SD, Encounter and Visit.
  1. ; Get compiled data
  1. S SDDATA=$G(^SDSC(409.48,SDOE,0)) Q:SDDATA="" 0
  1. ; Get encounter data
  1. S SDOEDAT=$$GETOE^SDOE(SDOE) Q:SDOEDAT="" 0
  1. ; Get patient
  1. S SDPAT=$P(SDOEDAT,U,2) Q:SDPAT="" 0
  1. ; Get clinic info
  1. S SDCLIN=$P(SDOEDAT,U,4) Q:SDCLIN="" 0
  1. ; Get clinic stop code info
  1. S SDCST=$P(SDOEDAT,U,3) Q:SDCST="" 0
  1. ; Retrieving the visit number, quit if no visit number found
  1. S SDV0=$P(SDOEDAT,U,5) Q:SDV0="" 0
  1. Q 1
  1. ;
  1. END ; Clear all variables before exiting.
  1. K SDSCTDT,SDEDT,SDFILEOK,X,X1,X2,Y,SDV0,SDDATA,SDPAT,SDCLIN,SDCST
  1. K ZTQUEUED,ZTREQ,SDPOV,SDVPOV0,SDPROV,DTOUT,DUOUT,POP,SDSCBDT,SDSCEDT
  1. K SDQFL,SDPCTS,SDSCDVSL,SDSCDVLN,SDRTN,SCLN,SDOEDAT
  1. Q
  1. ;
  1. DIV ; Ask Division
  1. N DIR,X,Y
  1. S SDQFL=0
  1. D DIV^SDSCUTL
  1. D ^DIR
  1. I $G(DTOUT)!($G(DUOUT)) S SDQFL=1 Q
  1. S SDSCDVSL=Y,SDSCDVLN=SCLN
  1. Q