BARDYSCL.m

BARDYSCL ; IHS/SD/TPF - DAYS IN A/R REPORT MAIN DRIVER ; 

 ;;1.8;IHS ACCOUNTS RECEIVABLE;**16,28**;OCT 26, 2005;Build 92

 ;IHS/SD/SDR - 1.8*27 - CR8345 HEAT 224215 - Added prompt for comma-delimited file. Added prompt for summary or detail (new).

 ;IHS/DIT/CPC - 1.8*28 - CR8345 - Changed delimited file format, added spreadsheet XML option

 ;

 Q

START ;

 K BARY,BAR

 D:'$D(BARUSR) INIT^BARUTL         ; Setup basic A/R variables

 S BARP("RTN")="BARDYSCL"           ; Routine used to get data

 S BAR("PRIVACY")=1                ; Privacy act applies

 S BAR("LOC")=$$GET1^DIQ(90052.06,DUZ(2),16)   ; BILLING or VISIT

 I BAR("LOC")="" S BAR("LOC")="VISIT"

 S BARMENU="Days in AR"  ;This is overwritten in BARRSEL

 S BAR("OPT")="DAYS" ;This is overwritten in BARRSEL

 S:'$G(XQY0) XQY0="BAR RPT DAYS IN AR^Days in AR^^R^^^^^^^^^^1^1"

SEL ;

 K DTOUT,DIRUT,DUOUT

 D ^BARRSEL                        ; Select exclusion parameters

 I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) Q

 I $D(BARY("RTYP")) S BAR("HD",0)=BARY("RTYP","NM")_" "_BARMENU

 E  S BAR("HD",0)=BARMENU

 S BARY("STCR")=5                   ;allow all allowance categories

 ;start new bar*1.8*28 IHS/SD/SDR HEAT224215

 W !

 D ^XBFMK

 S DIR(0)="S^S:SUMMARY;D:DETAIL"

 S DIR("A")="SUMMARY OR DETAIL REPORT"

 S DIR("B")="SUMMARY"

 D ^DIR

 I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) Q

 S BARY("SUMORDET")=Y

 I BARY("SUMORDET")="D" D

 .K DIR

 .S DIR(0)="S^D:DELIMITED;X:XML"

 .S DIR("A")="Please select DELIMITED file or a spreadsheet XML file"

 .S DIR("B")="DELIMITED"

 .D ^DIR

 .I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) G SEL

 .S BARY("CSV")=Y

 .I BARY("CSV")="X" K BARY("CSV") S BARY("XML")=1

 .W !!,"NOTE: the DETAIL should be written to a HFS host file. ",!

 .W:$D(BARY("XML")) "The report is in spreadsheet XML format so please use an xml ",!

 .W:$D(BARY("XML")) "suffix on the file name.",!

 .W:$D(BARY("XML")) "i.e. 'c:\temp\daysreport.xml'",!!

 .D:$D(BARY("XML")) PAZ^BARRUTL

 ;

 I BARY("SUMORDET")="S" D

 .D ^XBFMK

 .S DIR(0)="Y"

 .S DIR("?")="  YES should be written to a host file (HFS) and import into excel"

 .S DIR("?",1)="  NO will print to a 132-column printer"

 .S DIR("A")="DELIMITED"

 .S DIR("B")="NO"

 .D ^DIR

 .I $D(DTOUT)!$D(DUOUT)!$D(DIRUT) Q

 .S BARY("COMMADELIM")=Y

 ;end new bar*1.8*28 IHS/SD/SDR HEAT224215

 D ^BARRHD                         ; Report header

 S BARQ("RC")="COMPUTE^BARDYSCL"    ; Compute routine

 S BARQ("RP")="PRINT^BARDYSCL"

 ;I XQY0["Days to Bill by Visit Range of Approved Bills" D

 ;.S BARQ("RP")="PRINTAPP^BARDYSPR"      ; Print routine

 ;E  S BARQ("RP")="PRINTVIS^BARDYSPR"

 S BARQ("NS")="BAR"                ; Namespace for variables

 S BARQ("RX")="POUT^BARRUTL"       ; Clean-up routine

 ;D ^BARDBQUE                       ; Double queuing

 S %ZIS="QM"

 D ^%ZIS Q:POP

 I $D(IO("Q")) D  Q

 .S ZTRTN="COMPUTE^BARDYSCL",ZTDESC=XQY0

 .S ZTSAVE("BAR*")=""

 .D ^%ZTLOAD

 .I $D(ZTSK)[0 W !!?5,"Report Cancelled!"

 .E  W !!?5,"Report queued to run on ",ZTSK," #"

 .D HOME^%ZIS

 .K IO("Q")

 D COMPUTE

 Q

PRINT ;

 Q

COMPUTE ;

 U IO

 ;search by visit date range

 I BARY("DT")="V" D BYVISIT^BARDYSVS(BARY("DT",1),BARY("DT",2)) Q

 ;SEARCH BY APPROVAL DATE RANGE

 I BARY("DT")="A" D BYAPPDT^BARDYSAP(BARY("DT",1),BARY("DT",2)) Q

 ;SEARCH BY EXPORT NUMBER FIELD .17 DATE RANGE ?

 ;I BARY("DT")="X" S TOTVSIT=$$EXPRANG(BARY("DT",1),BARY("DT",2)) Q

 Q

BARDYSCL  ; IHS/SD/TPF - DAYS IN A/R REPORT MAIN DRIVER ; 

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;**16,28**;OCT 26, 2005;Build 92

 +2       ;IHS/SD/SDR - 1.8*27 - CR8345 HEAT 224215 - Added prompt for comma-delimited file. Added prompt for summary or detail (new).

 +3       ;IHS/DIT/CPC - 1.8*28 - CR8345 - Changed delimited file format, added spreadsheet XML option

 +4       ;

 +5        QUIT 

START     ;

 +1        KILL BARY,BAR

 +2       ; Setup basic A/R variables

           IF '$DATA(BARUSR)

               DO INIT^BARUTL

 +3       ; Routine used to get data

           SET BARP("RTN")="BARDYSCL"

 +4       ; Privacy act applies

           SET BAR("PRIVACY")=1

 +5       ; BILLING or VISIT

           SET BAR("LOC")=$$GET1^DIQ(90052.06,DUZ(2),16)

 +6        IF BAR("LOC")=""

               SET BAR("LOC")="VISIT"

 +7       ;This is overwritten in BARRSEL

           SET BARMENU="Days in AR"

 +8       ;This is overwritten in BARRSEL

           SET BAR("OPT")="DAYS"

 +9        IF '$GET(XQY0)

               SET XQY0="BAR RPT DAYS IN AR^Days in AR^^R^^^^^^^^^^1^1"

SEL       ;

 +1        KILL DTOUT,DIRUT,DUOUT

 +2       ; Select exclusion parameters

           DO ^BARRSEL

 +3        IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)

               QUIT 

 +4        IF $DATA(BARY("RTYP"))

               SET BAR("HD",0)=BARY("RTYP","NM")_" "_BARMENU

 +5       IF '$TEST

               SET BAR("HD",0)=BARMENU

 +6       ;allow all allowance categories

           SET BARY("STCR")=5

 +7       ;start new bar*1.8*28 IHS/SD/SDR HEAT224215

 +8        WRITE !

 +9        DO ^XBFMK

 +10       SET DIR(0)="S^S:SUMMARY;D:DETAIL"

 +11       SET DIR("A")="SUMMARY OR DETAIL REPORT"

 +12       SET DIR("B")="SUMMARY"

 +13       DO ^DIR

 +14       IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)

               QUIT 

 +15       SET BARY("SUMORDET")=Y

 +16       IF BARY("SUMORDET")="D"

               Begin DoDot:1

 +17               KILL DIR

 +18               SET DIR(0)="S^D:DELIMITED;X:XML"

 +19               SET DIR("A")="Please select DELIMITED file or a spreadsheet XML file"

 +20               SET DIR("B")="DELIMITED"

 +21               DO ^DIR

 +22               IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)

                       GOTO SEL

 +23               SET BARY("CSV")=Y

 +24               IF BARY("CSV")="X"

                       KILL BARY("CSV")

                       SET BARY("XML")=1

 +25               WRITE !!,"NOTE: the DETAIL should be written to a HFS host file. ",!

 +26               IF $DATA(BARY("XML"))

                       WRITE "The report is in spreadsheet XML format so please use an xml ",!

 +27               IF $DATA(BARY("XML"))

                       WRITE "suffix on the file name.",!

 +28               IF $DATA(BARY("XML"))

                       WRITE "i.e. 'c:\temp\daysreport.xml'",!!

 +29               IF $DATA(BARY("XML"))

                       DO PAZ^BARRUTL

               End DoDot:1

 +30      ;

 +31       IF BARY("SUMORDET")="S"

               Begin DoDot:1

 +32               DO ^XBFMK

 +33               SET DIR(0)="Y"

 +34               SET DIR("?")="  YES should be written to a host file (HFS) and import into excel"

 +35               SET DIR("?",1)="  NO will print to a 132-column printer"

 +36               SET DIR("A")="DELIMITED"

 +37               SET DIR("B")="NO"

 +38               DO ^DIR

 +39               IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)

                       QUIT 

 +40               SET BARY("COMMADELIM")=Y

               End DoDot:1

 +41      ;end new bar*1.8*28 IHS/SD/SDR HEAT224215

 +42      ; Report header

           DO ^BARRHD

 +43      ; Compute routine

           SET BARQ("RC")="COMPUTE^BARDYSCL"

 +44       SET BARQ("RP")="PRINT^BARDYSCL"

 +45      ;I XQY0["Days to Bill by Visit Range of Approved Bills" D

 +46      ;.S BARQ("RP")="PRINTAPP^BARDYSPR"      ; Print routine

 +47      ;E  S BARQ("RP")="PRINTVIS^BARDYSPR"

 +48      ; Namespace for variables

           SET BARQ("NS")="BAR"

 +49      ; Clean-up routine

           SET BARQ("RX")="POUT^BARRUTL"

 +50      ;D ^BARDBQUE                       ; Double queuing

 +51       SET %ZIS="QM"

 +52       DO ^%ZIS

           IF POP

               QUIT 

 +53       IF $DATA(IO("Q"))

               Begin DoDot:1

 +54               SET ZTRTN="COMPUTE^BARDYSCL"

                   SET ZTDESC=XQY0

 +55               SET ZTSAVE("BAR*")=""

 +56               DO ^%ZTLOAD

 +57               IF $DATA(ZTSK)[0

                       WRITE !!?5,"Report Cancelled!"

 +58              IF '$TEST

                       WRITE !!?5,"Report queued to run on ",ZTSK," #"

 +59               DO HOME^%ZIS

 +60               KILL IO("Q")

               End DoDot:1

               QUIT 

 +61       DO COMPUTE

 +62       QUIT 

PRINT     ;

 +1        QUIT 

COMPUTE   ;

 +1        USE IO

 +2       ;search by visit date range

 +3        IF BARY("DT")="V"

               DO BYVISIT^BARDYSVS(BARY("DT",1),BARY("DT",2))

               QUIT 

 +4       ;SEARCH BY APPROVAL DATE RANGE

 +5        IF BARY("DT")="A"

               DO BYAPPDT^BARDYSAP(BARY("DT",1),BARY("DT",2))

               QUIT 

 +6       ;SEARCH BY EXPORT NUMBER FIELD .17 DATE RANGE ?

 +7       ;I BARY("DT")="X" S TOTVSIT=$$EXPRANG(BARY("DT",1),BARY("DT",2)) Q

 +8        QUIT