ABMURSL1.m

ABMURSL1 ; IHS/ASDST/DMJ - Selective Report Parameters-PART 2 ; 

 ;;2.6;IHS Third Party Billing;**1,4**;NOV 12, 2009

 ;

 ; IHS/SD/SDR - abm*2.6*1 - NO HEAT - fix so only RECONCILED

 ; or TRANSMITTED shows (not both); also removed OPEN and REOPENED from

 ; selection.  See ABMURSEL for reason.

 ;

DT ;EP

 K DIR,ABMY("DT")

 W !!," ============ Entry of CASHIERING SESSION DATE Range =============",!

 S DIR("A")="Enter STARTING for the Report"

 S DIR(0)="DO^::EP"

 D ^DIR

 ;G DT:$D(DIRUT)  ;abm*2.6*4 NOHEAT

 Q:$D(DIRUT)!$D(DTOUT)!$D(DUOUT)!$D(DUROUT)  ;abm*2.6*4

 S ABMY("DT",1)=Y

 W !

 S DIR("A")="Enter ENDING DATE for the Report"

 D ^DIR

 K DIR

 G DT:$D(DIRUT)

 S ABMY("DT",2)=Y

 I ABMY("DT",1)>ABMY("DT",2) W !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!! G DT

 Q

 ;

USER ;EP

 K ABMY("USER")

USER1 W !

 S DIC="^VA(200,"

 S DIC(0)="QEAM"

 I '$D(ABMY("USER")) S DIC("A")="Select User: "

 I $D(ABMY("USER")) S DIC("A")="Select Another User: "

 D ^DIC

 I +Y>0 S ABMY("USER",+Y)="" G USER1

 I '$D(ABMY("USER"))

 Q

 ;

POS ;EP

 K DIR

 S DIR(0)="Y"

 S DIR("A")="Include POS CLAIMS sessions for this range"

 S DIR("B")="Y"

 D ^DIR

 K DIR

 S ABMY("POS")=Y

 Q

 ;

STAT ;EP

 K ABMY("SSTAT")

STAT1 K DIR

TRIBAL S ABMADIEN=$O(^AUTTLOC(DUZ(2),11,9999999),-1)  ;abm*2.6*1 NO HEAT

 ;S DIR(0)="S"_$S($D(ABMY("SSTAT")):"AO",1:"O")_"^O:OPEN;C:CLOSED;R:RECONCILED;T:TRANSMITTED;S:REOPENED;A:ALL"  ;abm*2.6*1 NO HEAT

 ;start new code abm*2.6*1 NO HEAT

 S DIR(0)="S"_$S($D(ABMY("SSTAT")):"AO",1:"O")_"^C:CLOSED;"

 S DIR(0)=DIR(0)_$S($P($G(^AUTTLOC(DUZ(2),11,ABMADIEN,0)),U,3)'="1":"R:RECONCILED",1:"T:TRANSMITTED")

 S DIR(0)=DIR(0)_";A:ALL"

 ;end new code abm*2.6*1 NO HEAT

 S:$D(ABMY("SSTAT")) DIR("A")="Select Another Status: "

 S:'$D(ABMY("SSTAT")) DIR("A")="Select Session Status",DIR("B")="A"

 D ^DIR

 K DIR

 Q:Y=""!$D(DIROUT)!$D(DTOUT)!$D(DIRUT)!$D(DUOUT)

 S ABMY("SSTAT",Y)=""

 Q:Y="A"

 G STAT1

ABMURSL1  ; IHS/ASDST/DMJ - Selective Report Parameters-PART 2 ; 

 +1       ;;2.6;IHS Third Party Billing;**1,4**;NOV 12, 2009

 +2       ;

 +3       ; IHS/SD/SDR - abm*2.6*1 - NO HEAT - fix so only RECONCILED

 +4       ; or TRANSMITTED shows (not both); also removed OPEN and REOPENED from

 +5       ; selection.  See ABMURSEL for reason.

 +6       ;

DT        ;EP

 +1        KILL DIR,ABMY("DT")

 +2        WRITE !!," ============ Entry of CASHIERING SESSION DATE Range =============",!

 +3        SET DIR("A")="Enter STARTING for the Report"

 +4        SET DIR(0)="DO^::EP"

 +5        DO ^DIR

 +6       ;G DT:$D(DIRUT)  ;abm*2.6*4 NOHEAT

 +7       ;abm*2.6*4

           IF $DATA(DIRUT)!$DATA(DTOUT)!$DATA(DUOUT)!$DATA(DUROUT)

               QUIT 

 +8        SET ABMY("DT",1)=Y

 +9        WRITE !

 +10       SET DIR("A")="Enter ENDING DATE for the Report"

 +11       DO ^DIR

 +12       KILL DIR

 +13       IF $DATA(DIRUT)

               GOTO DT

 +14       SET ABMY("DT",2)=Y

 +15       IF ABMY("DT",1)>ABMY("DT",2)

               WRITE !!,*7,"INPUT ERROR: Start Date is Greater than than the End Date, TRY AGAIN!",!!

               GOTO DT

 +16       QUIT 

 +17      ;

USER      ;EP

 +1        KILL ABMY("USER")

USER1      WRITE !

 +1        SET DIC="^VA(200,"

 +2        SET DIC(0)="QEAM"

 +3        IF '$DATA(ABMY("USER"))

               SET DIC("A")="Select User: "

 +4        IF $DATA(ABMY("USER"))

               SET DIC("A")="Select Another User: "

 +5        DO ^DIC

 +6        IF +Y>0

               SET ABMY("USER",+Y)=""

               GOTO USER1

 +7        IF '$DATA(ABMY("USER"))

 +8        QUIT 

 +9       ;

POS       ;EP

 +1        KILL DIR

 +2        SET DIR(0)="Y"

 +3        SET DIR("A")="Include POS CLAIMS sessions for this range"

 +4        SET DIR("B")="Y"

 +5        DO ^DIR

 +6        KILL DIR

 +7        SET ABMY("POS")=Y

 +8        QUIT 

 +9       ;

STAT      ;EP

 +1        KILL ABMY("SSTAT")

STAT1      KILL DIR

TRIBAL    ;abm*2.6*1 NO HEAT

           SET ABMADIEN=$ORDER(^AUTTLOC(DUZ(2),11,9999999),-1)

 +1       ;S DIR(0)="S"_$S($D(ABMY("SSTAT")):"AO",1:"O")_"^O:OPEN;C:CLOSED;R:RECONCILED;T:TRANSMITTED;S:REOPENED;A:ALL"  ;abm*2.6*1 NO HEAT

 +2       ;start new code abm*2.6*1 NO HEAT

 +3        SET DIR(0)="S"_$SELECT($DATA(ABMY("SSTAT")):"AO",1:"O")_"^C:CLOSED;"

 +4        SET DIR(0)=DIR(0)_$SELECT($PIECE($GET(^AUTTLOC(DUZ(2),11,ABMADIEN,0)),U,3)'="1":"R:RECONCILED",1:"T:TRANSMITTED")

 +5        SET DIR(0)=DIR(0)_";A:ALL"

 +6       ;end new code abm*2.6*1 NO HEAT

 +7        IF $DATA(ABMY("SSTAT"))

               SET DIR("A")="Select Another Status: "

 +8        IF '$DATA(ABMY("SSTAT"))

               SET DIR("A")="Select Session Status"

               SET DIR("B")="A"

 +9        DO ^DIR

 +10       KILL DIR

 +11       IF Y=""!$DATA(DIROUT)!$DATA(DTOUT)!$DATA(DIRUT)!$DATA(DUOUT)

               QUIT 

 +12       SET ABMY("SSTAT",Y)=""

 +13       IF Y="A"

               QUIT 

 +14       GOTO STAT1