Routine: ABMECS

ABMECS ; IHS/ASDST/DMJ - ELECTRONIC CLAIMS SUBMISSION ;

 ;;2.6;IHS Third Party Billing System;**2,6,10,19**;NOV 12, 2009;Build 300

 ;Original;DMJ;01/02/96 4:18 PM

 ; This routine is called from the EMC Create a Batch Menu option.

 ; It will show you a summary of bills ready to export grouped by

 ; bill type and export type. The user is asked to select one

 ; group. An entry is then made in 3P TX STATUS file and a file

 ; is created in unix as specified by the user.

 ; IHS/ASDS/DMJ - 03/01/01 - V2.4 Patch 9 - NOIS HQW-0301-100010 - Modified to accommodate new Envoy electronic format

 ; IHS/ASDS/DMJ - 01/03/02 - V2.4 Patch 10 - NOIS NDA-1201-180141 - Modified code to calculate submission number differently as

 ;    Medicare saves the numbers for up to a year.

 ; IHS/ASDS/SDR - 01/16/02 - V2.4 Patch 10 - NOIS XAA-0800-200136 - Modified so as not to combine different export modes

 ;   into one file

 ; IHS/SD/SDR - v2.5 p8 - IM13650 - Set ABMAPOK so the trigger on Bill Status field gets executed

 ;    to update A/R.

 ; IHS/SD/SDR - abm*2.6*2 - 5PMS10005 - Populate EXPORT NUMBER RE-EXPORT mult

 ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added clearinghouse code

 ;IHS/SD/SDR - 2.6*19 - HEAT138428 - Made change to stop programming error <UNDEF>START+24^ABMEF31, <UNDEF>START+24^ABMEF32, <UNDEF>START+24^ABMEF33

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

START ;

 K ABME,ABMER

 ; Display summary of bills ready to export and ask user to select

 ; one group. The ABMER array and ABMSEQ are undefined going into

 ; EMCREAT^ABMECDSP but are needed upon return.

 D EMCREAT^ABMECDSP(.ABMER,.ABMSEQ)

 Q:'+$G(ABMSEQ)     ; Quit if no group selected.

 ;start old code abm*2.6*6 5010

 ;S DIR(0)="Y"

 ;S DIR("A")="Proceed"

 ;S DIR("B")="YES"

 ;D ^DIR

 ;K DIR

 ;I Y'=1 K ABME Q

 ;end old code 5010

 K ABMGCN  ;abm*2.6*6 5010

 I $D(^TMP($J,"S-CH",ABMSEQ)) D CHFILE Q  ;abm*2.6*6 5010

 D FILE         ; Make entry in 3P TX STATUS and create a file

 S DIR(0)="E"

 D ^DIR

 K DIR

 K ABMER,ABMP,ABMSEQ

 ;start new code abm*2.6*6 5010

CHFILE ;

 S ABMER("CNT")=0,ABMER("LAST")=0

 S ABMCH=$P(ABMER(ABMSEQ),U)

 ;start old abm*2.6*19 IHS/SD/SDR HEAT138428

 ;S ABMINS("IEN")=0

 ;F  S ABMINS("IEN")=$O(^TMP($J,"S-CH",ABMSEQ,ABMCH,ABMINS("IEN"))) Q:'(ABMINS("IEN"))  S ABMER("LAST")=+$G(ABMER("LAST"))+1

 ;S ABMINS("IEN")=0

 ;F  S ABMINS("IEN")=$O(^TMP($J,"S-CH",ABMSEQ,ABMCH,ABMINS("IEN"))) Q:'(ABMINS("IEN"))  D

 ;.;S ABMITYP=$P(^AUTNINS(ABMINS("IEN"),2),U) ; Insurance type

 ;.S ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I") ; Insurance type  ;abm*2.6*10 HEAT73780

 ;.S ABMVTYPE=$P(ABMER(ABMSEQ),U,2)          ; Visit type

 ;.S ABMEXP=$P(ABMER(ABMSEQ),U,3)            ; export type

 ;.; Loop through locations in TMP global created by EMCREAT^ABMECDSP

 ;.S ABMLOC=""

 ;.F  S ABMLOC=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC)) Q:ABMLOC=""  D

 ;..Q:$D(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

 ;..;S ABMER("CNT")=+$G(ABMER("CNT"))+1  ;abm*2.6*@@ IHS/SD/SDR HEAT138428

 ;..S ABMER("CNT")=+$G(ABMER("LAST"))  ;abm*2.6*@@ IHS/SD/SDR HEAT138428

 ;..D NEWB    ; Create a new batch in 3P TX STATUS

 ;..I $G(Y)<0 D MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.") Q

 ;..; Add bill to detail in 3P TX STATUS for this batch

 ;..S ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 ;..S ABMAPOK=1

 ;..S ABMDA=0

 ;..F  S ABMDA=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA)) Q:'+ABMDA  D

 ;...S X=ABMDA

 ;...S DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 ;...S DIC(0)="LXNE"

 ;...S DINUM=X

 ;...K DD,DO D FILE^DICN

 ;...Q:+Y<0

 ;...S DA=+Y

 ;...S DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 ;...S ABMAPRV=$O(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 ;...S:ABMAPRV ABMAPRV=$P(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 ;...I ABMAPRV D

 ;....S DR=".02///`"_ABMAPRV

 ;....D ^DIE

 ;....K ABMAPRV

 ;...S ABMSBR=$$SBR^ABMUTLP(ABMDA)

 ;...S DR=".03///"_ABMSBR

 ;...D ^DIE

 ;...K ABMSBR

 ;...S DIE="^ABMDBILL(DUZ(2),"

 ;...S DA=ABMDA

 ;...S DR=".04////B;.16////A"_$S($P($G(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")

 ;...S ABMREX("BDFN")=ABMDA

 ;...D ^DIE

 ;..K ABMAPOK

 ;..; Write record  (Create EMC unix file)

 ;..D @("^ABMEF"_$P(ABMER(ABMSEQ),U,3))

 ;..I $G(POP) D

 ;...S DIE="^ABMDTXST(DUZ(2),"

 ;...S DA=ABMP("XMIT")

 ;...S DR=".14///NOPEN"

 ;...D ^DIE

 ;end new code 5010

 ;end old start new abm*2.6*19 IHS/SD/SDR HEAT138428

 S ABMER("LAST")=0

 S ABMLOC="",ABMLOCSV=""

 ;F  S ABMLOC=$O(^TMP($J,"FILE",ABMLOC)) Q:ABMLOC=""  S ABMER("LAST")=+$G(ABMER("LAST"))+1

 F  S ABMLOC=$O(^TMP($J,"FILE",ABMLOC)) Q:ABMLOC=""  D

 .S ABMINS=0

 .F  S ABMINS=$O(^TMP($J,"FILE",ABMLOC,ABMINS)) Q:'ABMINS  D

 ..S ABMVTYP=0,ABMVTYPS=0

 ..F  S ABMVTYP=$O(^TMP($J,"FILE",ABMLOC,ABMINS,ABMVTYP)) Q:'ABMVTYP  D

 ...S ABMEXP=0,ABMEXPSV=0

 ...F  S ABMEXP=$O(^TMP($J,"FILE",ABMLOC,ABMINS,ABMVTYP,ABMEXP)) Q:'ABMEXP  D

 ....I (ABMLOCSV'=ABMLOC)!(ABMVTYPS'=ABMVTYPE)!(ABMEXPSV'=ABMEXP) S ABMER(ABMLOC,"LAST")=+$G(ABMER(ABMLOC,"LAST"))+1

 ....S ABMLOCSV=ABMLOC,ABMVTYPS=ABMVTYPE,ABMEXPSV=ABMEXP

 S ABMLOC=""

 S ABMLOCSV=""

 F  S ABMLOC=$O(^TMP($J,"FILE",ABMLOC)) Q:ABMLOC=""  D

 .S ABMER("CNT")=0

 .S ABMER("LAST")=$G(ABMER(ABMLOC,"LAST"))

 .S ABMINS("IEN")=0

 .F  S ABMINS("IEN")=$O(^TMP($J,"FILE",ABMLOC,ABMINS("IEN"))) Q:'ABMINS("IEN")  D

 ..S ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I") ; Insurance type

 ..S ABMVTYPE=0,ABMVTYPS=0

 ..F  S ABMVTYPE=$O(^TMP($J,"FILE",ABMLOC,ABMINS("IEN"),ABMVTYPE)) Q:'ABMVTYPE  D

 ...S ABMEXP=0,ABMEXPSV=0

 ...F  S ABMEXP=$O(^TMP($J,"FILE",ABMLOC,ABMINS("IEN"),ABMVTYPE,ABMEXP)) Q:'ABMEXP  D

 ....Q:$D(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

 ....S ABMER("CNT")=+$G(ABMER("CNT"))+1

 ....I (ABMLOCSV'=ABMLOC)!(ABMVTYPS'=ABMVTYPE)!(ABMEXPSV'=ABMEXP) D NEWB    ; Create a new batch in 3P TX STATUS

 ....S ABMLOCSV=ABMLOC,ABMVTYPS=ABMVTYPE,ABMEXPSV=ABMEXP

 ....I $G(Y)<0 D MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.") Q

 ....; Add bill to detail in 3P TX STATUS for this batch

 ....S ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 ....S ABMAPOK=1

 ....S ABMDA=0

 ....F  S ABMDA=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA)) Q:'+ABMDA  D

 .....S X=ABMDA

 .....S DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 .....S DIC(0)="LXNE"

 .....S DINUM=X

 .....K DD,DO D FILE^DICN

 .....Q:+Y<0

 .....S DA=+Y

 .....S DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 .....S ABMAPRV=$O(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 .....S:ABMAPRV ABMAPRV=$P(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 .....I ABMAPRV D

 ......S DR=".02///`"_ABMAPRV

 ......D ^DIE

 ......K ABMAPRV

 .....S ABMSBR=$$SBR^ABMUTLP(ABMDA)

 .....S DR=".03///"_ABMSBR

 .....D ^DIE

 .....K ABMSBR

 .....S DIE="^ABMDBILL(DUZ(2),"

 .....S DA=ABMDA

 .....S DR=".04////B;.16////A"_$S($P($G(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")

 .....S ABMREX("BDFN")=ABMDA

 .....D ^DIE

 ....K ABMAPOK

 ....; Write record  (Create EMC unix file)

 ....D @("^ABMEF"_$P(ABMER(ABMSEQ),U,3))

 ....I $G(POP) D

 .....S DIE="^ABMDTXST(DUZ(2),"

 .....S DA=ABMP("XMIT")

 .....S DR=".14///NOPEN"

 .....D ^DIE

 ;end new abm*2.6*19 IHS/SD/SDR HEAT138428

 S DIR(0)="E"

 D ^DIR

 K DIR

 K ABMER,ABMP,ABMSEQ

FILE ;

 ; File bills to 3P TX STATUS FILE

 S ABMER("CNT")=1,ABMER("LAST")=1  ;abm*2.6*6 5010

 S ABMINS("IEN")=$P(ABMER(ABMSEQ),U)       ; Active Insurer IEN

 ;S ABMITYP=$P(^AUTNINS(ABMINS("IEN"),2),U) ; Insurance type  ;abm*2.6*10 HEAT73780

 S ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I") ; Insurance type  ;abm*2.6*10 HEAT73780

 S ABMVTYPE=$P(ABMER(ABMSEQ),U,2)          ; Visit type

 S ABMEXP=$P(ABMER(ABMSEQ),U,3)            ; export type

 ; Loop through locations in TMP global created by EMCREAT^ABMECDSP

 S ABMLOC=""

 F  S ABMLOC=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC)) Q:ABMLOC=""  D

 .Q:$D(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

 .K ABMGCN  ;abm*2.6*6

 .D NEWB    ; Create a new batch in 3P TX STATUS

 .I $G(Y)<0 D MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.") Q

 .; Add bill to detail in 3P TX STATUS for this batch

 .S ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 .S ABMAPOK=1

 .S ABMDA=0

 .F  S ABMDA=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA)) Q:'+ABMDA  D

 ..S X=ABMDA

 ..S DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 ..S DIC(0)="LXNE"

 ..S DINUM=X

 ..K DD,DO D FILE^DICN

 ..Q:+Y<0

 ..S DA=+Y

 ..S DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 ..S ABMAPRV=$O(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 ..S:ABMAPRV ABMAPRV=$P(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 ..I ABMAPRV D

 ...S DR=".02///`"_ABMAPRV

 ...D ^DIE

 ...K ABMAPRV

 ..S ABMSBR=$$SBR^ABMUTLP(ABMDA)

 ..S DR=".03///"_ABMSBR

 ..D ^DIE

 ..K ABMSBR

 ..S DIE="^ABMDBILL(DUZ(2),"

 ..S DA=ABMDA

 ..;S DR=".04////B;.16////A;.17////"_ABMP("XMIT")  ;abm*2.6*2 5PMS10005

 ..S DR=".04////B;.16////A"_$S($P($G(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")  ;abm*2.6*2 5PMS10005

 ..S ABMREX("BDFN")=ABMDA  ;abm*2.6*3

 ..D ^DIE

 ..;D BILLSTAT^ABMDREEX(DUZ(2),ABMDA,ABMP("XMIT"),"O",$P($G(^ABMDTXST(DUZ(2),ABMP("XMIT"),1)),U,6))  ;abm*2.6*2 5PMS10005

 .K ABMAPOK

 .; Write record  (Create EMC unix file)

 .D @("^ABMEF"_$P(ABMER(ABMSEQ),U,3))

 .I $G(POP) D

 ..S DIE="^ABMDTXST(DUZ(2),"

 ..S DA=ABMP("XMIT")

 ..S DR=".14///NOPEN"

 ..D ^DIE

NEWB ;

 ; Create a new batch  (Make entry in 3P TX STATUS)

 D NOW^%DTC

 S X=%

 S DIC="^ABMDTXST(DUZ(2),"

 S DIC(0)="LX"

 S DLAYGO=9002274.6

 K DD,DO D FILE^DICN

 K DLAYGO

 Q:Y<0

 S ABMP("XMIT")=+Y

 S DIE=DIC

 S DA=+Y

 S DR=".02///"_$P(ABMER(ABMSEQ),U,3)_";.04///`"_ABMINS("IEN")_";.03///"_ABMITYP_";.05////"_DUZ_";.09///"_$P(ABMER(ABMSEQ),U,4)_";.11///"_$J($P(ABMER(ABMSEQ),U,5),1,2)

 S DR=DR_";.17////"_$$FMT^ABMERUTL(ABMER("CNT"),"4NR")  ;abm*2.6*6 5010

 D ^DIE

 ;S DR=".16///"_$$NSN^ABMERUTL D ^DIE  ;abm*2.6*3 5PMS10005#2

 D GCNMULT^ABMERUTL("O",$S(($G(ABMREX("BILLSELECT"))!($G(ABMREX("BATCHSELECT")))):"1",1:""))  ;abm*2.6*3 5PMS10005#2

 S DA(1)=DA

 W !,"ENTRY CREATED IN 3P TX STATUS FILE."

 W !,"LOCATION: ",ABMLOC

 ;W !,"VISIT TYPE: ",$P(^ABMDVTYP(ABMVTYPE,0),U),!  ;abm*2.6*2 5PMS10005

 W:$G(ABMVTYPE) !,"VISIT TYPE: ",$P(^ABMDVTYP(ABMVTYPE,0),U),!  ;abm*2.6*2 5PMS10005

ABMECS    ; IHS/ASDST/DMJ - ELECTRONIC CLAIMS SUBMISSION ;

 +1       ;;2.6;IHS Third Party Billing System;**2,6,10,19**;NOV 12, 2009;Build 300

 +2       ;Original;DMJ;01/02/96 4:18 PM

 +3       ;

 +4       ; This routine is called from the EMC Create a Batch Menu option.

 +5       ; It will show you a summary of bills ready to export grouped by

 +6       ; bill type and export type. The user is asked to select one

 +7       ; group. An entry is then made in 3P TX STATUS file and a file

 +8       ; is created in unix as specified by the user.

 +9       ;

 +10      ; IHS/ASDS/DMJ - 03/01/01 - V2.4 Patch 9 - NOIS HQW-0301-100010 - Modified to accommodate new Envoy electronic format

 +11      ; IHS/ASDS/DMJ - 01/03/02 - V2.4 Patch 10 - NOIS NDA-1201-180141 - Modified code to calculate submission number differently as

 +12      ;    Medicare saves the numbers for up to a year.

 +13      ; IHS/ASDS/SDR - 01/16/02 - V2.4 Patch 10 - NOIS XAA-0800-200136 - Modified so as not to combine different export modes

 +14      ;   into one file

 +15      ; IHS/SD/SDR - v2.5 p8 - IM13650 - Set ABMAPOK so the trigger on Bill Status field gets executed

 +16      ;    to update A/R.

 +17      ; IHS/SD/SDR - abm*2.6*2 - 5PMS10005 - Populate EXPORT NUMBER RE-EXPORT mult

 +18      ; IHS/SD/SDR - abm*2.6*6 - 5010 - Added clearinghouse code

 +19      ;IHS/SD/SDR - 2.6*19 - HEAT138428 - Made change to stop programming error <UNDEF>START+24^ABMEF31, <UNDEF>START+24^ABMEF32, <UNDEF>START+24^ABMEF33

 +20      ; ********************************************************************

START     ;

 +1        KILL ABME,ABMER

 +2       ; Display summary of bills ready to export and ask user to select

 +3       ; one group. The ABMER array and ABMSEQ are undefined going into

 +4       ; EMCREAT^ABMECDSP but are needed upon return.

 +5        DO EMCREAT^ABMECDSP(.ABMER,.ABMSEQ)

 +6       ; Quit if no group selected.

           IF '+$GET(ABMSEQ)

               QUIT

 +7       ;start old code abm*2.6*6 5010

 +8       ;S DIR(0)="Y"

 +9       ;S DIR("A")="Proceed"

 +10      ;S DIR("B")="YES"

 +11      ;D ^DIR

 +12      ;K DIR

 +13      ;I Y'=1 K ABME Q

 +14      ;end old code 5010

 +15      ;abm*2.6*6 5010

           KILL ABMGCN

 +16      ;abm*2.6*6 5010

           IF $DATA(^TMP($JOB,"S-CH",ABMSEQ))

               DO CHFILE

               QUIT

 +17      ; Make entry in 3P TX STATUS and create a file

           DO FILE

 +18       SET DIR(0)="E"

 +19       DO ^DIR

 +20       KILL DIR

 +21       KILL ABMER,ABMP,ABMSEQ

 +22       QUIT

 +23      ;

 +24      ;start new code abm*2.6*6 5010

CHFILE    ;

 +1        SET ABMER("CNT")=0

           SET ABMER("LAST")=0

 +2        SET ABMCH=$PIECE(ABMER(ABMSEQ),U)

 +3       ;start old abm*2.6*19 IHS/SD/SDR HEAT138428

 +4       ;S ABMINS("IEN")=0

 +5       ;F  S ABMINS("IEN")=$O(^TMP($J,"S-CH",ABMSEQ,ABMCH,ABMINS("IEN"))) Q:'(ABMINS("IEN"))  S ABMER("LAST")=+$G(ABMER("LAST"))+1

 +6       ;S ABMINS("IEN")=0

 +7       ;F  S ABMINS("IEN")=$O(^TMP($J,"S-CH",ABMSEQ,ABMCH,ABMINS("IEN"))) Q:'(ABMINS("IEN"))  D

 +8       ;.;S ABMITYP=$P(^AUTNINS(ABMINS("IEN"),2),U) ; Insurance type

 +9       ;.S ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I") ; Insurance type  ;abm*2.6*10 HEAT73780

 +10      ;.S ABMVTYPE=$P(ABMER(ABMSEQ),U,2)          ; Visit type

 +11      ;.S ABMEXP=$P(ABMER(ABMSEQ),U,3)            ; export type

 +12      ;.; Loop through locations in TMP global created by EMCREAT^ABMECDSP

 +13      ;.S ABMLOC=""

 +14      ;.F  S ABMLOC=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC)) Q:ABMLOC=""  D

 +15      ;..Q:$D(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

 +16      ;..;S ABMER("CNT")=+$G(ABMER("CNT"))+1  ;abm*2.6*@@ IHS/SD/SDR HEAT138428

 +17      ;..S ABMER("CNT")=+$G(ABMER("LAST"))  ;abm*2.6*@@ IHS/SD/SDR HEAT138428

 +18      ;..D NEWB    ; Create a new batch in 3P TX STATUS

 +19      ;..I $G(Y)<0 D MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.") Q

 +20      ;..; Add bill to detail in 3P TX STATUS for this batch

 +21      ;..S ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 +22      ;..S ABMAPOK=1

 +23      ;..S ABMDA=0

 +24      ;..F  S ABMDA=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA)) Q:'+ABMDA  D

 +25      ;...S X=ABMDA

 +26      ;...S DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 +27      ;...S DIC(0)="LXNE"

 +28      ;...S DINUM=X

 +29      ;...K DD,DO D FILE^DICN

 +30      ;...Q:+Y<0

 +31      ;...S DA=+Y

 +32      ;...S DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 +33      ;...S ABMAPRV=$O(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 +34      ;...S:ABMAPRV ABMAPRV=$P(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 +35      ;...I ABMAPRV D

 +36      ;....S DR=".02///`"_ABMAPRV

 +37      ;....D ^DIE

 +38      ;....K ABMAPRV

 +39      ;...S ABMSBR=$$SBR^ABMUTLP(ABMDA)

 +40      ;...S DR=".03///"_ABMSBR

 +41      ;...D ^DIE

 +42      ;...K ABMSBR

 +43      ;...S DIE="^ABMDBILL(DUZ(2),"

 +44      ;...S DA=ABMDA

 +45      ;...S DR=".04////B;.16////A"_$S($P($G(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")

 +46      ;...S ABMREX("BDFN")=ABMDA

 +47      ;...D ^DIE

 +48      ;..K ABMAPOK

 +49      ;..; Write record  (Create EMC unix file)

 +50      ;..D @("^ABMEF"_$P(ABMER(ABMSEQ),U,3))

 +51      ;..I $G(POP) D

 +52      ;...S DIE="^ABMDTXST(DUZ(2),"

 +53      ;...S DA=ABMP("XMIT")

 +54      ;...S DR=".14///NOPEN"

 +55      ;...D ^DIE

 +56      ;end new code 5010

 +57      ;end old start new abm*2.6*19 IHS/SD/SDR HEAT138428

 +58       SET ABMER("LAST")=0

 +59       SET ABMLOC=""

           SET ABMLOCSV=""

 +60      ;F  S ABMLOC=$O(^TMP($J,"FILE",ABMLOC)) Q:ABMLOC=""  S ABMER("LAST")=+$G(ABMER("LAST"))+1

 +61       FOR

               SET ABMLOC=$ORDER(^TMP($JOB,"FILE",ABMLOC))

               IF ABMLOC=""

                   QUIT

               Begin DoDot:1

 +62               SET ABMINS=0

 +63               FOR

                       SET ABMINS=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS))

                       IF 'ABMINS

                           QUIT

                       Begin DoDot:2

 +64                       SET ABMVTYP=0

                           SET ABMVTYPS=0

 +65                       FOR

                               SET ABMVTYP=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS,ABMVTYP))

                               IF 'ABMVTYP

                                   QUIT

                               Begin DoDot:3

 +66                               SET ABMEXP=0

                                   SET ABMEXPSV=0

 +67                               FOR

                                       SET ABMEXP=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS,ABMVTYP,ABMEXP))

                                       IF 'ABMEXP

                                           QUIT

                                       Begin DoDot:4

 +68                                       IF (ABMLOCSV'=ABMLOC)!(ABMVTYPS'=ABMVTYPE)!(ABMEXPSV'=ABMEXP)

                                               SET ABMER(ABMLOC,"LAST")=+$GET(ABMER(ABMLOC,"LAST"))+1

 +69                                       SET ABMLOCSV=ABMLOC

                                           SET ABMVTYPS=ABMVTYPE

                                           SET ABMEXPSV=ABMEXP

                                       End DoDot:4

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +70      ;

 +71       SET ABMLOC=""

 +72       SET ABMLOCSV=""

 +73       FOR

               SET ABMLOC=$ORDER(^TMP($JOB,"FILE",ABMLOC))

               IF ABMLOC=""

                   QUIT

               Begin DoDot:1

 +74               SET ABMER("CNT")=0

 +75               SET ABMER("LAST")=$GET(ABMER(ABMLOC,"LAST"))

 +76               SET ABMINS("IEN")=0

 +77               FOR

                       SET ABMINS("IEN")=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS("IEN")))

                       IF 'ABMINS("IEN")

                           QUIT

                       Begin DoDot:2

 +78      ; Insurance type

                           SET ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I")

 +79                       SET ABMVTYPE=0

                           SET ABMVTYPS=0

 +80                       FOR

                               SET ABMVTYPE=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS("IEN"),ABMVTYPE))

                               IF 'ABMVTYPE

                                   QUIT

                               Begin DoDot:3

 +81                               SET ABMEXP=0

                                   SET ABMEXPSV=0

 +82                               FOR

                                       SET ABMEXP=$ORDER(^TMP($JOB,"FILE",ABMLOC,ABMINS("IEN"),ABMVTYPE,ABMEXP))

                                       IF 'ABMEXP

                                           QUIT

                                       Begin DoDot:4

 +83                                       IF $DATA(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

                                               QUIT

 +84                                       SET ABMER("CNT")=+$GET(ABMER("CNT"))+1

 +85      ; Create a new batch in 3P TX STATUS

                                           IF (ABMLOCSV'=ABMLOC)!(ABMVTYPS'=ABMVTYPE)!(ABMEXPSV'=ABMEXP)

                                               DO NEWB

 +86                                       SET ABMLOCSV=ABMLOC

                                           SET ABMVTYPS=ABMVTYPE

                                           SET ABMEXPSV=ABMEXP

 +87                                       IF $GET(Y)<0

                                               DO MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.")

                                               QUIT

 +88      ; Add bill to detail in 3P TX STATUS for this batch

 +89                                       SET ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 +90                                       SET ABMAPOK=1

 +91                                       SET ABMDA=0

 +92                                       FOR

                                               SET ABMDA=$ORDER(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA))

                                               IF '+ABMDA

                                                   QUIT

                                               Begin DoDot:5

 +93                                               SET X=ABMDA

 +94                                               SET DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 +95                                               SET DIC(0)="LXNE"

 +96                                               SET DINUM=X

 +97                                               KILL DD,DO

                                                   DO FILE^DICN

 +98                                               IF +Y<0

                                                       QUIT

 +99                                               SET DA=+Y

 +100                                              SET DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 +101                                              SET ABMAPRV=$ORDER(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 +102                                              IF ABMAPRV

                                                       SET ABMAPRV=$PIECE(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 +103                                              IF ABMAPRV

                                                       Begin DoDot:6

 +104                                                      SET DR=".02///`"_ABMAPRV

 +105                                                      DO ^DIE

 +106                                                      KILL ABMAPRV

                                                       End DoDot:6

 +107                                              SET ABMSBR=$$SBR^ABMUTLP(ABMDA)

 +108                                              SET DR=".03///"_ABMSBR

 +109                                              DO ^DIE

 +110                                              KILL ABMSBR

 +111                                              SET DIE="^ABMDBILL(DUZ(2),"

 +112                                              SET DA=ABMDA

 +113                                              SET DR=".04////B;.16////A"_$SELECT($PIECE($GET(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")

 +114                                              SET ABMREX("BDFN")=ABMDA

 +115                                              DO ^DIE

                                               End DoDot:5

 +116                                      KILL ABMAPOK

 +117     ; Write record  (Create EMC unix file)

 +118                                      DO @("^ABMEF"_$PIECE(ABMER(ABMSEQ),U,3))

 +119                                      IF $GET(POP)

                                               Begin DoDot:5

 +120                                              SET DIE="^ABMDTXST(DUZ(2),"

 +121                                              SET DA=ABMP("XMIT")

 +122                                              SET DR=".14///NOPEN"

 +123                                              DO ^DIE

                                               End DoDot:5

                                       End DoDot:4

                               End DoDot:3

                       End DoDot:2

               End DoDot:1

 +124     ;end new abm*2.6*19 IHS/SD/SDR HEAT138428

 +125      SET DIR(0)="E"

 +126      DO ^DIR

 +127      KILL DIR

 +128      KILL ABMER,ABMP,ABMSEQ

 +129      QUIT

FILE      ;

 +1       ; File bills to 3P TX STATUS FILE

 +2       ;abm*2.6*6 5010

           SET ABMER("CNT")=1

           SET ABMER("LAST")=1

 +3       ; Active Insurer IEN

           SET ABMINS("IEN")=$PIECE(ABMER(ABMSEQ),U)

 +4       ;S ABMITYP=$P(^AUTNINS(ABMINS("IEN"),2),U) ; Insurance type  ;abm*2.6*10 HEAT73780

 +5       ; Insurance type  ;abm*2.6*10 HEAT73780

           SET ABMITYP=$$GET1^DIQ(9999999.181,$$GET1^DIQ(9999999.18,ABMINS("IEN"),".211","I"),1,"I")

 +6       ; Visit type

           SET ABMVTYPE=$PIECE(ABMER(ABMSEQ),U,2)

 +7       ; export type

           SET ABMEXP=$PIECE(ABMER(ABMSEQ),U,3)

 +8       ; Loop through locations in TMP global created by EMCREAT^ABMECDSP

 +9        SET ABMLOC=""

 +10       FOR

               SET ABMLOC=$ORDER(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC))

               IF ABMLOC=""

                   QUIT

               Begin DoDot:1

 +11               IF $DATA(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE))<2

                       QUIT

 +12      ;abm*2.6*6

                   KILL ABMGCN

 +13      ; Create a new batch in 3P TX STATUS

                   DO NEWB

 +14               IF $GET(Y)<0

                       DO MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.")

                       QUIT

 +15      ; Add bill to detail in 3P TX STATUS for this batch

 +16               SET ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"

 +17               SET ABMAPOK=1

 +18               SET ABMDA=0

 +19               FOR

                       SET ABMDA=$ORDER(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMVTYPE,ABMEXP,ABMDA))

                       IF '+ABMDA

                           QUIT

                       Begin DoDot:2

 +20                       SET X=ABMDA

 +21                       SET DIC="^ABMDTXST(DUZ(2),DA(1),2,"

 +22                       SET DIC(0)="LXNE"

 +23                       SET DINUM=X

 +24                       KILL DD,DO

                           DO FILE^DICN

 +25                       IF +Y<0

                               QUIT

 +26                       SET DA=+Y

 +27                       SET DIE="^ABMDTXST(DUZ(2),DA(1),2,"

 +28                       SET ABMAPRV=$ORDER(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))

 +29                       IF ABMAPRV

                               SET ABMAPRV=$PIECE(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)

 +30                       IF ABMAPRV

                               Begin DoDot:3

 +31                               SET DR=".02///`"_ABMAPRV

 +32                               DO ^DIE

 +33                               KILL ABMAPRV

                               End DoDot:3

 +34                       SET ABMSBR=$$SBR^ABMUTLP(ABMDA)

 +35                       SET DR=".03///"_ABMSBR

 +36                       DO ^DIE

 +37                       KILL ABMSBR

 +38                       SET DIE="^ABMDBILL(DUZ(2),"

 +39                       SET DA=ABMDA

 +40      ;S DR=".04////B;.16////A;.17////"_ABMP("XMIT")  ;abm*2.6*2 5PMS10005

 +41      ;abm*2.6*2 5PMS10005

                           SET DR=".04////B;.16////A"_$SELECT($PIECE($GET(^ABMDBILL(DUZ(2),ABMDA,1)),U,7)="":";.17////"_ABMP("XMIT"),1:"")

 +42      ;abm*2.6*3

                           SET ABMREX("BDFN")=ABMDA

 +43                       DO ^DIE

 +44      ;D BILLSTAT^ABMDREEX(DUZ(2),ABMDA,ABMP("XMIT"),"O",$P($G(^ABMDTXST(DUZ(2),ABMP("XMIT"),1)),U,6))  ;abm*2.6*2 5PMS10005

                       End DoDot:2

 +45               KILL ABMAPOK

 +46      ; Write record  (Create EMC unix file)

 +47               DO @("^ABMEF"_$PIECE(ABMER(ABMSEQ),U,3))

 +48               IF $GET(POP)

                       Begin DoDot:2

 +49                       SET DIE="^ABMDTXST(DUZ(2),"

 +50                       SET DA=ABMP("XMIT")

 +51                       SET DR=".14///NOPEN"

 +52                       DO ^DIE

                       End DoDot:2

               End DoDot:1

 +53       QUIT

 +54      ;

NEWB      ;

 +1       ; Create a new batch  (Make entry in 3P TX STATUS)

 +2        DO NOW^%DTC

 +3        SET X=%

 +4        SET DIC="^ABMDTXST(DUZ(2),"

 +5        SET DIC(0)="LX"

 +6        SET DLAYGO=9002274.6

 +7        KILL DD,DO

           DO FILE^DICN

 +8        KILL DLAYGO

 +9        IF Y<0

               QUIT

 +10       SET ABMP("XMIT")=+Y

 +11       SET DIE=DIC

 +12       SET DA=+Y

 +13       SET DR=".02///"_$PIECE(ABMER(ABMSEQ),U,3)_";.04///`"_ABMINS("IEN")_";.03///"_ABMITYP_";.05////"_DUZ_";.09///"_$PIECE(ABMER(ABMSEQ),U,4)_";.11///"_$JUSTIFY($PIECE(ABMER(ABMSEQ),U,5),1,2)

 +14      ;abm*2.6*6 5010

           SET DR=DR_";.17////"_$$FMT^ABMERUTL(ABMER("CNT"),"4NR")

 +15       DO ^DIE

 +16      ;S DR=".16///"_$$NSN^ABMERUTL D ^DIE  ;abm*2.6*3 5PMS10005#2

 +17      ;abm*2.6*3 5PMS10005#2

           DO GCNMULT^ABMERUTL("O",$SELECT(($GET(ABMREX("BILLSELECT"))!($GET(ABMREX("BATCHSELECT")))):"1",1:""))

 +18       SET DA(1)=DA

 +19       WRITE !,"ENTRY CREATED IN 3P TX STATUS FILE."

 +20       WRITE !,"LOCATION: ",ABMLOC

 +21      ;W !,"VISIT TYPE: ",$P(^ABMDVTYP(ABMVTYPE,0),U),!  ;abm*2.6*2 5PMS10005

 +22      ;abm*2.6*2 5PMS10005

           IF $GET(ABMVTYPE)

               WRITE !,"VISIT TYPE: ",$PIECE(^ABMDVTYP(ABMVTYPE,0),U),!

 +23       QUIT

ABMECS.m