Routine: ABMUVCSH

ABMUVCSH ; IHS/SD/SDR - 3PB/UFMS View Cashiering Session Option

 ;;2.6;IHS 3P BILLING SYSTEM;**11,21**;NOV 12, 2009;Build 379

 ; New routine - v2.5 p12 SDD item 4.9.2.2

 ;IHS/SD/SDR - 2.6*21 - HEAT121470 - Updated to display all open, all closed, but only the limit of transmitted sessions

 ; View Cashiering Session

EP ;EP

 D HEADER("OPEN")

 S ABMSESSL="O"  ;abm*2.6*21 IHS/SD/SDR HEAT121470

 D FINDAOPN^ABMUCUTL

 S ABMTRIBL=$P($G(^ABMDPARM(DUZ(2),1,4)),U,14)

 I '$D(ABMO) W !?5,"There are NO open sessions at this time"

 D VIEWLIST

 K DIR,X,Y

 W !!

 I $D(ABMO) D

 .S DIR(0)="NO^1:"_ABMSCNT

 .S DIR("A")="Select Session Number to View: "

 .D ^DIR K DIR

 S ABMSESSL=+$G(Y)

 I ABMSESSL'=0 D DISPLAY("opened")  ;open session selected for view

 I +$G(ABMSESSL)=0  D  ;no open session selected; what about closed?

 .W !!

 .W !?1,"Other session statuses available for viewing"

 .W !?1,"Enter list of session statuses to view or ""^"" to quit."

 .W !!?4,"C - CLOSED"

 .I $P($G(^ABMDPARM(DUZ(2),1,4)),U,14)=0 W !?4,"R - RECONCILED"

 .I $P($G(^ABMDPARM(DUZ(2),1,4)),U,14)=1 W !?4,"T - TRANSMITTED"

 .W !?4,"B - BOTH",!

 .S DIR(0)="FO^0:3"

 .S DIR("A")="Session statuses to view"

 .D ^DIR K DIR

 .Q:$D(DTOUT)!$D(DUOUT)!$D(DIRUT)!$D(DIROUT)

 .S ABMBAD=0

 .I Y="B"!(Y="b") S Y=$S($P($G(^ABMDPARM(DUZ(2),1,4)),U,14)=0:"CR",1:"CT")

 .S ABMSESSL=Y

 .I ABMSESSL="C" S ABMFLG="CLOSED"  ;abm*2.6*21 IHS/SD/SDR HEAT121470

 .F I=1:1:$L(Y) I ABMSESSL'[$E(Y,I) D  Q

 ..W !!,"<<BAD ENTRY>> ",Y

 ..S ABMBAD=1

 .Q:+ABMBAD

.;

 .W !!

 .D HEADER("CLOSED")

 .D FINDACLS^ABMUCUTL

 .I '$D(ABMO) W !?5,"There are NO sessions with a status of "_$S(ABMSESSL["RT":"RECONCILED and TRANSMITTED",ABMSESSL="R":"RECONCILED",1:"TRANSMITTED")_"at this time" S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR Q

 .D VIEWLIST

 .W !!

 .K DIR

 .S DIR(0)="NO^1:"_ABMSCNT

 .S DIR("A")="Select Session Number to View: "

 .D ^DIR K DIR

 .S ABMSESSL=+Y

 .I ABMSESSL'=0 D DISPLAY("closed")  ;closed session selected for view

HEADER(ABMFLG) ;EP

 W !!,"The following SESSIONS are currently "_ABMFLG_" =>"

 W !!?3,"(*)  Indicates no activity in session."

 W !!?6,"SESSION ID",?19,"CASHIER",?47,"DATE "_$S(ABMFLG="OPEN":"OPENED",1:ABMFLG)

 I ABMFLG["CLOSE" W ?68,"STATUS"

W !

 S $P(ABMLINE,"-",80)=""

 W ABMLINE

VIEWLIST ;EP

 S X1=DT

 S X2="-"_$P($G(^ABMDPARM(DUZ(2),1,4)),U,16)  ;display number of days limit

 D C^%DTC

 S ABMDLIMT=X

 S ABMS=0,ABMSCNT=0

 F  S ABMS=$O(ABMO(ABMS)) Q:+ABMS=0  D

 .S ABMSDUZ=""

 .F  S ABMSDUZ=$O(ABMO(ABMS,ABMSDUZ)) Q:ABMSDUZ=""  D

 ..;not supervisor; they can only view their own sessions

 ..I '$D(^XUSEC("ABMDZ UFMS SUPERVISOR",DUZ)),(ABMSDUZ'=DUZ) K ABMO(ABMS,ABMSDUZ) Q

 ..S ABMSDT=0

 ..F  S ABMSDT=$O(ABMO(ABMS,ABMSDUZ,ABMSDT)) Q:+ABMSDT=0  D

 ...;Q:ABMSDT<ABMDLIMT  ;abm*2.6*21 IHS/SD/SDR HEAT121470

 ...I "^O^C^"'[("^"_ABMSESSL_"^") Q:ABMSDT<ABMDLIMT  ;abm*2.6*21 IHS/SD/SDR HEAT121470

 ...I $G(ABMSESSL)'="",(ABMSESSL'[$P($G(ABMO(ABMS,ABMSDUZ,ABMSDT)),U)) Q  ;status selected and not part of selection

 ...S ABMSCNT=ABMSCNT+1

 ...W !,ABMSCNT_"."

 ...W ?4,ABMSDT

 ...W ?19,$S(+ABMSDUZ'=0:$E($P($G(^VA(200,ABMSDUZ,0)),U),1,26),1:"POS CLAIMS")

 ...W ?47,$$CDT^ABMDUTL($S($P($G(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,2)'="":$P($G(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,2),1:ABMSDT))

 ...I $P(ABMO(ABMS,ABMSDUZ,ABMSDT),U)'="" D

 ....S ABMST=$P($G(ABMO(ABMS,ABMSDUZ,ABMSDT)),U)

 ....W ?68,$S(ABMST="O":"OPEN",ABMST="C":"CLOSED",ABMST="R":"RECONCILED",1:"TRANSMITTED")

 ...S ABMOS(ABMSCNT)=ABMS_"^"_ABMSDUZ_"^"_ABMSDT_"^"_$G(ABMO(ABMS,ABMSDUZ,ABMSDT))

 ...I +ABMSDUZ'=0,(+$P($G(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,3)=0) W ?79,"*"  ;session doesn't have activity

DISPLAY(ABMFLG) ;EP

 W $$EN^ABMVDF("IOF")

 S ABMLREC=$G(ABMOS(ABMSESSL))

 S ABMS=$P(ABMLREC,U)

 S ABMSDUZ=$P(ABMLREC,U,2)

 S ABMSDT=$P(ABMLREC,U,3)

 W !,"Session detail for Session ID: "_ABMSDT

 W ?48,"Date ",ABMFLG,": ",$$CDT^ABMDUTL(ABMSDT)

 W !,"Cashier: ",$S(+ABMSDUZ'=0:$P($G(^VA(200,ABMSDUZ,0)),U),1:"POS CLAIMS")

 W !,ABMLINE

 S ABMFD=ABMSDT

 D:+ABMSDUZ CASHTOT^ABMUCASH(ABMSDUZ)

 D:'ABMSDUZ CASHTOTP^ABMUCASH

 S ABMBA=""

 I '$D(ABMBAL)&(+ABMSDUZ) D  Q

 .W !?5,"AT THIS TIME THERE IS NO BILLING ACTIVITY FOR THIS SESSION.",!

 .S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR

 F  S ABMBA=$O(ABMBAL(ABMBA)) Q:ABMBA=""  D

 .;W !?5,$P($T(@ABMBA^ABMUCASH),";;",2)  ;abm*2.6*11 insurer type

 .W !?5,$$INSTYP^ABMUCASH(ABMBA)  ;abm*2.6*11 insurer type

 .W !?15,"- Cancelled Claims",?40,+$G(ABMBAL(ABMBA,"CCLMS"))

 .W !?15,"- Approved Bills",?40,+$G(ABMBAL(ABMBA,"ABILLS")),?50,"$",$J($FN(+$G(ABMBAL(ABMBA,"ABAMT")),",",2),10)

 .I +$G(ABMBAL(ABMBA,"EBILLS"))>0 D

 ..W " "

 ..W $$EN^ABMVDF("RVN")_"(EXCL. ",ABMBAL(ABMBA,"EBILLS")

 ..W $$EN^ABMVDF("RVN")_" @ "_$FN(+$G(ABMBAL(ABMBA,"EBAMT")),",",2)_")"

 ..W $$EN^ABMVDF("RVF")

 .W !?15,"- Cancelled Bills",?40,+$G(ABMBAL(ABMBA,"CBILLS")),?50,"$",$J($FN(+$G(ABMBAL(ABMBA,"CBAMT")),",",2),10)

W !

 ;requeued bills/batches

 I +$G(ABMBLCNT)'=0 W !?3,ABMBLCNT_" "_$S(ABMBLCNT=1:"BILL has",1:"BILLS have")_" been requeued"

 I +$G(ABMBTCNT)'=0 W !?3,ABMBTCNT_" "_$S(ABMBTCNT=1:"EXPORT has",1:"EXPORTS have")_" been requeued"

 ;ben pts

 I +$P($G(^ABMUCASH(ABMLOC,10,ABMSDUZ,20,ABMFD,0)),U,11)'=0 D

 .S ABMBCNT=$P($G(^ABMUCASH(ABMLOC,10,ABMSDUZ,20,ABMFD,0)),U,11)

 .W !?3,"There is ",ABMBCNT," claims/bills for beneficiary patients in this session that will ",!?3,"not be included in the export.",!

 K DIR

 ;view detail of session?

W !

 K DIR,X,Y

 S DIR("A")="View detail"

 S DIR(0)="Y"

 D ^DIR K DIR

 S ABMDUZ=ABMSDUZ

 I Y=1 D SEL^ABMUCASH

 S DIR(0)="E",DIR("A")="Enter RETURN to Continue" D ^DIR K DIR

ABMUVCSH  ; IHS/SD/SDR - 3PB/UFMS View Cashiering Session Option

 +1       ;;2.6;IHS 3P BILLING SYSTEM;**11,21**;NOV 12, 2009;Build 379

 +2       ; New routine - v2.5 p12 SDD item 4.9.2.2

 +3       ;IHS/SD/SDR - 2.6*21 - HEAT121470 - Updated to display all open, all closed, but only the limit of transmitted sessions

 +4       ;

 +5       ; View Cashiering Session

EP        ;EP

 +1        DO HEADER("OPEN")

 +2       ;abm*2.6*21 IHS/SD/SDR HEAT121470

           SET ABMSESSL="O"

 +3        DO FINDAOPN^ABMUCUTL

 +4        SET ABMTRIBL=$PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,14)

 +5        IF '$DATA(ABMO)

               WRITE !?5,"There are NO open sessions at this time"

 +6        DO VIEWLIST

 +7        KILL DIR,X,Y

 +8        WRITE !!

 +9        IF $DATA(ABMO)

               Begin DoDot:1

 +10               SET DIR(0)="NO^1:"_ABMSCNT

 +11               SET DIR("A")="Select Session Number to View: "

 +12               DO ^DIR

                   KILL DIR

               End DoDot:1

 +13       SET ABMSESSL=+$GET(Y)

 +14      ;open session selected for view

           IF ABMSESSL'=0

               DO DISPLAY("opened")

 +15      ;no open session selected; what about closed?

           IF +$GET(ABMSESSL)=0

               Begin DoDot:1

 +16               WRITE !!

 +17               WRITE !?1,"Other session statuses available for viewing"

 +18               WRITE !?1,"Enter list of session statuses to view or ""^"" to quit."

 +19               WRITE !!?4,"C - CLOSED"

 +20               IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,14)=0

                       WRITE !?4,"R - RECONCILED"

 +21               IF $PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,14)=1

                       WRITE !?4,"T - TRANSMITTED"

 +22               WRITE !?4,"B - BOTH",!

 +23               SET DIR(0)="FO^0:3"

 +24               SET DIR("A")="Session statuses to view"

 +25               DO ^DIR

                   KILL DIR

 +26               IF $DATA(DTOUT)!$DATA(DUOUT)!$DATA(DIRUT)!$DATA(DIROUT)

                       QUIT

 +27               SET ABMBAD=0

 +28               IF Y="B"!(Y="b")

                       SET Y=$SELECT($PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,14)=0:"CR",1:"CT")

 +29               SET ABMSESSL=Y

 +30      ;abm*2.6*21 IHS/SD/SDR HEAT121470

                   IF ABMSESSL="C"

                       SET ABMFLG="CLOSED"

 +31               FOR I=1:1:$LENGTH(Y)

                       IF ABMSESSL'[$EXTRACT(Y,I)

                           Begin DoDot:2

 +32                           WRITE !!,"<<BAD ENTRY>> ",Y

 +33                           SET ABMBAD=1

                           End DoDot:2

                           QUIT

 +34               IF +ABMBAD

                       QUIT

 +35      ;

 +36               WRITE !!

 +37               DO HEADER("CLOSED")

 +38               DO FINDACLS^ABMUCUTL

 +39               IF '$DATA(ABMO)

                       WRITE !?5,"There are NO sessions with a status of "_$SELECT(ABMSESSL["RT":"RECONCILED and TRANSMITTED",ABMSESSL="R":"RECONCILED",1:"TRANSMITTED")_"at this time"

                       SET DIR(0)="E"

                       SET DIR("A")="Enter RETURN to Continue"

                       DO ^DIR

                       KILL DIR

                       QUIT

 +40               DO VIEWLIST

 +41               WRITE !!

 +42               KILL DIR

 +43               SET DIR(0)="NO^1:"_ABMSCNT

 +44               SET DIR("A")="Select Session Number to View: "

 +45               DO ^DIR

                   KILL DIR

 +46               SET ABMSESSL=+Y

 +47      ;closed session selected for view

                   IF ABMSESSL'=0

                       DO DISPLAY("closed")

               End DoDot:1

 +48       QUIT

HEADER(ABMFLG) ;EP

 +1        WRITE !!,"The following SESSIONS are currently "_ABMFLG_" =>"

 +2        WRITE !!?3,"(*)  Indicates no activity in session."

 +3        WRITE !!?6,"SESSION ID",?19,"CASHIER",?47,"DATE "_$SELECT(ABMFLG="OPEN":"OPENED",1:ABMFLG)

 +4        IF ABMFLG["CLOSE"

               WRITE ?68,"STATUS"

 +5        WRITE !

 +6        SET $PIECE(ABMLINE,"-",80)=""

 +7        WRITE ABMLINE

 +8        QUIT

VIEWLIST  ;EP

 +1        SET X1=DT

 +2       ;display number of days limit

           SET X2="-"_$PIECE($GET(^ABMDPARM(DUZ(2),1,4)),U,16)

 +3        DO C^%DTC

 +4        SET ABMDLIMT=X

 +5        SET ABMS=0

           SET ABMSCNT=0

 +6        FOR

               SET ABMS=$ORDER(ABMO(ABMS))

               IF +ABMS=0

                   QUIT

               Begin DoDot:1

 +7                SET ABMSDUZ=""

 +8                FOR

                       SET ABMSDUZ=$ORDER(ABMO(ABMS,ABMSDUZ))

                       IF ABMSDUZ=""

                           QUIT

                       Begin DoDot:2

 +9       ;not supervisor; they can only view their own sessions

 +10                       IF '$DATA(^XUSEC("ABMDZ UFMS SUPERVISOR",DUZ))

                               IF (ABMSDUZ'=DUZ)

                                   KILL ABMO(ABMS,ABMSDUZ)

                                   QUIT

 +11                       SET ABMSDT=0

 +12                       FOR

                               SET ABMSDT=$ORDER(ABMO(ABMS,ABMSDUZ,ABMSDT))

                               IF +ABMSDT=0

                                   QUIT

                               Begin DoDot:3

 +13      ;Q:ABMSDT<ABMDLIMT  ;abm*2.6*21 IHS/SD/SDR HEAT121470

 +14      ;abm*2.6*21 IHS/SD/SDR HEAT121470

                                   IF "^O^C^"'[("^"_ABMSESSL_"^")

                                       IF ABMSDT<ABMDLIMT

                                           QUIT

 +15      ;status selected and not part of selection

                                   IF $GET(ABMSESSL)'=""

                                       IF (ABMSESSL'[$PIECE($GET(ABMO(ABMS,ABMSDUZ,ABMSDT)),U))

                                           QUIT

 +16                               SET ABMSCNT=ABMSCNT+1

 +17                               WRITE !,ABMSCNT_"."

 +18                               WRITE ?4,ABMSDT

 +19                               WRITE ?19,$SELECT(+ABMSDUZ'=0:$EXTRACT($PIECE($GET(^VA(200,ABMSDUZ,0)),U),1,26),1:"POS CLAIMS")

 +20                               WRITE ?47,$$CDT^ABMDUTL($SELECT($PIECE($GET(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,2)'="":$PIECE($GET(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,2),1:ABMSDT))

 +21                               IF $PIECE(ABMO(ABMS,ABMSDUZ,ABMSDT),U)'=""

                                       Begin DoDot:4

 +22                                       SET ABMST=$PIECE($GET(ABMO(ABMS,ABMSDUZ,ABMSDT)),U)

 +23                                       WRITE ?68,$SELECT(ABMST="O":"OPEN",ABMST="C":"CLOSED",ABMST="R":"RECONCILED",1:"TRANSMITTED")

                                       End DoDot:4

 +24                               SET ABMOS(ABMSCNT)=ABMS_"^"_ABMSDUZ_"^"_ABMSDT_"^"_$GET(ABMO(ABMS,ABMSDUZ,ABMSDT))

 +25      ;session doesn't have activity

                                   IF +ABMSDUZ'=0

                                       IF (+$PIECE($GET(ABMO(ABMS,ABMSDUZ,ABMSDT)),U,3)=0)

                                           WRITE ?79,"*"

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +26       QUIT

DISPLAY(ABMFLG) ;EP

 +1        WRITE $$EN^ABMVDF("IOF")

 +2        SET ABMLREC=$GET(ABMOS(ABMSESSL))

 +3        SET ABMS=$PIECE(ABMLREC,U)

 +4        SET ABMSDUZ=$PIECE(ABMLREC,U,2)

 +5        SET ABMSDT=$PIECE(ABMLREC,U,3)

 +6        WRITE !,"Session detail for Session ID: "_ABMSDT

 +7        WRITE ?48,"Date ",ABMFLG,": ",$$CDT^ABMDUTL(ABMSDT)

 +8        WRITE !,"Cashier: ",$SELECT(+ABMSDUZ'=0:$PIECE($GET(^VA(200,ABMSDUZ,0)),U),1:"POS CLAIMS")

 +9        WRITE !,ABMLINE

 +10       SET ABMFD=ABMSDT

 +11       IF +ABMSDUZ

               DO CASHTOT^ABMUCASH(ABMSDUZ)

 +12       IF 'ABMSDUZ

               DO CASHTOTP^ABMUCASH

 +13       SET ABMBA=""

 +14       IF '$DATA(ABMBAL)&(+ABMSDUZ)

               Begin DoDot:1

 +15               WRITE !?5,"AT THIS TIME THERE IS NO BILLING ACTIVITY FOR THIS SESSION.",!

 +16               SET DIR(0)="E"

                   SET DIR("A")="Enter RETURN to Continue"

                   DO ^DIR

                   KILL DIR

               End DoDot:1

               QUIT

 +17       FOR

               SET ABMBA=$ORDER(ABMBAL(ABMBA))

               IF ABMBA=""

                   QUIT

               Begin DoDot:1

 +18      ;W !?5,$P($T(@ABMBA^ABMUCASH),";;",2)  ;abm*2.6*11 insurer type

 +19      ;abm*2.6*11 insurer type

                   WRITE !?5,$$INSTYP^ABMUCASH(ABMBA)

 +20               WRITE !?15,"- Cancelled Claims",?40,+$GET(ABMBAL(ABMBA,"CCLMS"))

 +21               WRITE !?15,"- Approved Bills",?40,+$GET(ABMBAL(ABMBA,"ABILLS")),?50,"$",$JUSTIFY($FNUMBER(+$GET(ABMBAL(ABMBA,"ABAMT")),",",2),10)

 +22               IF +$GET(ABMBAL(ABMBA,"EBILLS"))>0

                       Begin DoDot:2

 +23                       WRITE " "

 +24                       WRITE $$EN^ABMVDF("RVN")_"(EXCL. ",ABMBAL(ABMBA,"EBILLS")

 +25                       WRITE $$EN^ABMVDF("RVN")_" @ "_$FNUMBER(+$GET(ABMBAL(ABMBA,"EBAMT")),",",2)_")"

 +26                       WRITE $$EN^ABMVDF("RVF")

                       End DoDot:2

 +27               WRITE !?15,"- Cancelled Bills",?40,+$GET(ABMBAL(ABMBA,"CBILLS")),?50,"$",$JUSTIFY($FNUMBER(+$GET(ABMBAL(ABMBA,"CBAMT")),",",2),10)

               End DoDot:1

 +28       WRITE !

 +29      ;requeued bills/batches

 +30       IF +$GET(ABMBLCNT)'=0

               WRITE !?3,ABMBLCNT_" "_$SELECT(ABMBLCNT=1:"BILL has",1:"BILLS have")_" been requeued"

 +31       IF +$GET(ABMBTCNT)'=0

               WRITE !?3,ABMBTCNT_" "_$SELECT(ABMBTCNT=1:"EXPORT has",1:"EXPORTS have")_" been requeued"

 +32      ;ben pts

 +33       IF +$PIECE($GET(^ABMUCASH(ABMLOC,10,ABMSDUZ,20,ABMFD,0)),U,11)'=0

               Begin DoDot:1

 +34               SET ABMBCNT=$PIECE($GET(^ABMUCASH(ABMLOC,10,ABMSDUZ,20,ABMFD,0)),U,11)

 +35               WRITE !?3,"There is ",ABMBCNT," claims/bills for beneficiary patients in this session that will ",!?3,"not be included in the export.",!

               End DoDot:1

 +36      ;

 +37       KILL DIR

 +38      ;view detail of session?

 +39       WRITE !

 +40       KILL DIR,X,Y

 +41       SET DIR("A")="View detail"

 +42       SET DIR(0)="Y"

 +43       DO ^DIR

           KILL DIR

 +44       SET ABMDUZ=ABMSDUZ

 +45       IF Y=1

               DO SEL^ABMUCASH

 +46       SET DIR(0)="E"

           SET DIR("A")="Enter RETURN to Continue"

           DO ^DIR

           KILL DIR

 +47       QUIT

ABMUVCSH.m