BARRDET.m

BARRDET ; IHS/SD/LSL - AGE DETAIL REPORT JAN 16,1997 ;

 ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 ;

START ; EP

 ; SUMMARY DETAIL report

 S BAR("SITE")=$P(^DIC(4,DUZ(2),0),"^",1)

 D DATE

 G:$G(BAREFLG) END

 S DIR(0)="S^I:INSURER;C:CLINIC;B:BEN/NONBEN"

 D ^DIR

 G:Y<0!($D(DTOUT))!($D(DUOUT)) END

 S BAR("SELECTION")=Y(0)

 D @$S(Y="I":"INS",Y="C":"CLIN",1:"BEN")

 D TEMP

 D PRINT

 ;

END ;

 K BAR,FR,TO,BY,DHD,FLDS,L,Y,DIC

 Q

 ; *********************************************************************

 ;

DATE ;

 ; Select Date Range

 D DATE^BARRADAL

 Q

 ; *********************************************************************

 ;

PRINT ;

 ; Print

 S DIC="90050.01"

 S L=0

 D EN1^DIP

 D ^%ZISC,HOME^%ZIS

 Q

 ; *********************************************************************

 ;

TEMP ;

 ; Multiple insurers (all) option

 S DHD="[BAR MGMTDET HDR]"

 I $G(FR)="" S FR="@,@,"_BAR("BDOS"),BAR("CNAME")="ALL"

 I $G(TO)="" S TO=",,"_BAR("EDOS")

 S FLDS="[BAR MGMTDET PRNT]"

 Q

 ; *********************************************************************

 ;

INS ;

 ;Single Insurer print

 S BY="+3;S2,@101,@7;S2"

 K DIC

 S DIC("A")="Select Insurer or press <RETURN> for all Insurers: "

 S DIC="90050.02"

 S DIC(0)="AEMQZ"

 S DIC("S")="I $P(^(0),U)[""AUT"",$P(^(0),U,10)=$$VALI^XBDIQ1(200,DUZ,29)"

 D ^DIC

 Q:Y<0

 S BAR("CNAME")=Y(0,0)

 S FR=BAR("CNAME")_",,"_BAR("BDOS")

 S TO=BAR("CNAME")_",,"_BAR("EDOS")

 Q

 ; *********************************************************************

 ;

CLIN ;

 ; Single Clinic print

 S BY="+112;S2,@101,@7;S2"

 K DIC

 S DIC("A")="Select Clinic or press <RETURN> for all Clinics: "

 S DIC="40.7"

 S DIC(0)="AEMQZ"

 D ^DIC

 Q:Y<0

 S BAR("CNAME")=Y(0,0)

 S FR=BAR("CNAME"),TO=BAR("CNAME")

 Q

 ; *********************************************************************

 ;

BEN ;

 ; Single Benificiary print

 S BY="+115,@101,@7;S2"

 S FR="0"

 S TO="1"

 Q

BARRDET   ; IHS/SD/LSL - AGE DETAIL REPORT JAN 16,1997 ;

 +1       ;;1.8;IHS ACCOUNTS RECEIVABLE;;OCT 26, 2005

 +2       ;

START     ; EP

 +1       ; SUMMARY DETAIL report

 +2        SET BAR("SITE")=$PIECE(^DIC(4,DUZ(2),0),"^",1)

 +3        DO DATE

 +4        IF $GET(BAREFLG)

               GOTO END

 +5        SET DIR(0)="S^I:INSURER;C:CLINIC;B:BEN/NONBEN"

 +6        DO ^DIR

 +7        IF Y<0!($DATA(DTOUT))!($DATA(DUOUT))

               GOTO END

 +8        SET BAR("SELECTION")=Y(0)

 +9        DO @$SELECT(Y="I":"INS",Y="C":"CLIN",1:"BEN")

 +10       DO TEMP

 +11       DO PRINT

 +12      ;

END       ;

 +1        KILL BAR,FR,TO,BY,DHD,FLDS,L,Y,DIC

 +2        QUIT 

 +3       ; *********************************************************************

 +4       ;

DATE      ;

 +1       ; Select Date Range

 +2        DO DATE^BARRADAL

 +3        QUIT 

 +4       ; *********************************************************************

 +5       ;

PRINT     ;

 +1       ; Print

 +2        SET DIC="90050.01"

 +3        SET L=0

 +4        DO EN1^DIP

 +5        DO ^%ZISC

           DO HOME^%ZIS

 +6        QUIT 

 +7       ; *********************************************************************

 +8       ;

TEMP      ;

 +1       ; Multiple insurers (all) option

 +2        SET DHD="[BAR MGMTDET HDR]"

 +3        IF $GET(FR)=""

               SET FR="@,@,"_BAR("BDOS")

               SET BAR("CNAME")="ALL"

 +4        IF $GET(TO)=""

               SET TO=",,"_BAR("EDOS")

 +5        SET FLDS="[BAR MGMTDET PRNT]"

 +6        QUIT 

 +7       ; *********************************************************************

 +8       ;

INS       ;

 +1       ;Single Insurer print

 +2        SET BY="+3;S2,@101,@7;S2"

 +3        KILL DIC

 +4        SET DIC("A")="Select Insurer or press <RETURN> for all Insurers: "

 +5        SET DIC="90050.02"

 +6        SET DIC(0)="AEMQZ"

 +7        SET DIC("S")="I $P(^(0),U)[""AUT"",$P(^(0),U,10)=$$VALI^XBDIQ1(200,DUZ,29)"

 +8        DO ^DIC

 +9        IF Y<0

               QUIT 

 +10       SET BAR("CNAME")=Y(0,0)

 +11       SET FR=BAR("CNAME")_",,"_BAR("BDOS")

 +12       SET TO=BAR("CNAME")_",,"_BAR("EDOS")

 +13       QUIT 

 +14      ; *********************************************************************

 +15      ;

CLIN      ;

 +1       ; Single Clinic print

 +2        SET BY="+112;S2,@101,@7;S2"

 +3        KILL DIC

 +4        SET DIC("A")="Select Clinic or press <RETURN> for all Clinics: "

 +5        SET DIC="40.7"

 +6        SET DIC(0)="AEMQZ"

 +7        DO ^DIC

 +8        IF Y<0

               QUIT 

 +9        SET BAR("CNAME")=Y(0,0)

 +10       SET FR=BAR("CNAME")

           SET TO=BAR("CNAME")

 +11       QUIT 

 +12      ; *********************************************************************

 +13      ;

BEN       ;

 +1       ; Single Benificiary print

 +2        SET BY="+115,@101,@7;S2"

 +3        SET FR="0"

 +4        SET TO="1"

 +5        QUIT