- ABMECS2 ; IHS/ASDST/DMJ - ELECTRONIC CLAIMS SUBMISSION ;
- ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- ;Original;DMJ;01/02/96 4:18 PM
- ;
- ; IHS/ASDS/DMJ - 03/01/01 - V2.4 P5 - NOIS HQW-0301-100010
- ; Modified to accommodate new Envoy electronic format
- ;
- ; 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.
- ;
- 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:'+ABMSEQ ; Quit if no group selected.
- S DIR(0)="Y"
- S DIR("A")="Proceed"
- S DIR("B")="YES"
- D ^DIR
- K DIR
- I Y'=1 K ABME Q
- D FILE ; Make entry in 3P TX STATUS and create a file
- S DIR(0)="E"
- D ^DIR
- K DIR
- K ABMER,ABMP,ABMSEQ
- Q
- ;
- FILE ;
- ; File bills to 3P TX STATUS FILE
- S ABMINS("IEN")=$P(ABMER(ABMSEQ),U) ; Active Insurer IEN
- S ABMITYP=$P(^AUTNINS(ABMINS("IEN"),2),U) ; Insurance type
- S ABMBTYPE=$P(ABMER(ABMSEQ),U,2) ; Bill 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,ABMBTYPE))<2
- .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 DIC="^ABMDTXST(DUZ(2),DA(1),2,"
- .S DIC(0)="LXNE"
- .S ABMDA=0
- .F S ABMDA=$O(^TMP($J,"D",ABMINS("IEN"),ABMLOC,ABMBTYPE,ABMEXP,ABMDA)) Q:'+ABMDA D
- ..S X=ABMDA
- ..K DD,DO D FILE^DICN
- ..Q:+Y<0
- ..S ABMAPRV=$O(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))
- ..Q:'ABMAPRV
- ..S ABMAPRV=$P(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)
- ..S DA=+Y
- ..S DIE=DIC
- ..S DR=".02///`"_ABMAPRV
- ..D ^DIE
- .; Write record (Create EMC unix file)
- .D @("^ABMEF"_$P(ABMER(ABMSEQ),U,3))
- Q
- ;
- NEWB ;
- ; Create a new batch (Make entry in 3P TX STATUS)
- H 1
- D NOW^%DTC
- S X=%
- S DIC="^ABMDTXST(DUZ(2),"
- S DIC(0)="LX"
- D ^DIC
- 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)
- D ^DIE
- S DA(1)=DA
- W !,"ENTRY CREATED IN 3P TX STATUS FILE."
- W !,"LOCATION: ",ABMLOC
- W !,"BILL TYPE: ",ABMBTYPE,!
- Q
- ABMECS2 ; IHS/ASDST/DMJ - ELECTRONIC CLAIMS SUBMISSION ;
- +1 ;;2.6;IHS 3P BILLING SYSTEM;;NOV 12, 2009
- +2 ;Original;DMJ;01/02/96 4:18 PM
- +3 ;
- +4 ; IHS/ASDS/DMJ - 03/01/01 - V2.4 P5 - NOIS HQW-0301-100010
- +5 ; Modified to accommodate new Envoy electronic format
- +6 ;
- +7 ; This routine is called from the EMC Create a Batch Menu option.
- +8 ; It will show you a summary of bills ready to export grouped by
- +9 ; bill type and export type. The user is asked to select one
- +10 ; group. An entry is then made in 3P TX STATUS file and a file
- +11 ; is created in unix as specified by the user.
- +12 ;
- 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 '+ABMSEQ
- QUIT
- +7 SET DIR(0)="Y"
- +8 SET DIR("A")="Proceed"
- +9 SET DIR("B")="YES"
- +10 DO ^DIR
- +11 KILL DIR
- +12 IF Y'=1
- KILL ABME
- QUIT
- +13 ; Make entry in 3P TX STATUS and create a file
- DO FILE
- +14 SET DIR(0)="E"
- +15 DO ^DIR
- +16 KILL DIR
- +17 KILL ABMER,ABMP,ABMSEQ
- +18 QUIT
- +19 ;
- FILE ;
- +1 ; File bills to 3P TX STATUS FILE
- +2 ; Active Insurer IEN
- SET ABMINS("IEN")=$PIECE(ABMER(ABMSEQ),U)
- +3 ; Insurance type
- SET ABMITYP=$PIECE(^AUTNINS(ABMINS("IEN"),2),U)
- +4 ; Bill type
- SET ABMBTYPE=$PIECE(ABMER(ABMSEQ),U,2)
- +5 ; Loop through locations in TMP global created by EMCREAT^ABMECDSP
- +6 SET ABMLOC=""
- +7 FOR
- SET ABMLOC=$ORDER(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC))
- IF ABMLOC=""
- QUIT
- Begin DoDot:1
- +8 IF $DATA(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMBTYPE))<2
- QUIT
- +9 ; Create a new batch in 3P TX STATUS
- DO NEWB
- +10 IF $GET(Y)<0
- DO MSG^ABMERUTL("Could not enter batch in 3P TX STATUS file.")
- QUIT
- +11 ; Add bill to detail in 3P TX STATUS for this batch
- +12 SET ^ABMDTXST(DUZ(2),DA(1),2,0)="^9002274.61P^^"
- +13 SET DIC="^ABMDTXST(DUZ(2),DA(1),2,"
- +14 SET DIC(0)="LXNE"
- +15 SET ABMDA=0
- +16 FOR
- SET ABMDA=$ORDER(^TMP($JOB,"D",ABMINS("IEN"),ABMLOC,ABMBTYPE,ABMEXP,ABMDA))
- IF '+ABMDA
- QUIT
- Begin DoDot:2
- +17 SET X=ABMDA
- +18 KILL DD,DO
- DO FILE^DICN
- +19 IF +Y<0
- QUIT
- +20 SET ABMAPRV=$ORDER(^ABMDBILL(DUZ(2),ABMDA,41,"C","A",0))
- +21 IF 'ABMAPRV
- QUIT
- +22 SET ABMAPRV=$PIECE(^ABMDBILL(DUZ(2),ABMDA,41,ABMAPRV,0),U)
- +23 SET DA=+Y
- +24 SET DIE=DIC
- +25 SET DR=".02///`"_ABMAPRV
- +26 DO ^DIE
- End DoDot:2
- +27 ; Write record (Create EMC unix file)
- +28 DO @("^ABMEF"_$PIECE(ABMER(ABMSEQ),U,3))
- End DoDot:1
- +29 QUIT
- +30 ;
- NEWB ;
- +1 ; Create a new batch (Make entry in 3P TX STATUS)
- +2 HANG 1
- +3 DO NOW^%DTC
- +4 SET X=%
- +5 SET DIC="^ABMDTXST(DUZ(2),"
- +6 SET DIC(0)="LX"
- +7 DO ^DIC
- +8 IF Y<0
- QUIT
- +9 SET ABMP("XMIT")=+Y
- +10 SET DIE=DIC
- +11 SET DA=+Y
- +12 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)
- +13 DO ^DIE
- +14 SET DA(1)=DA
- +15 WRITE !,"ENTRY CREATED IN 3P TX STATUS FILE."
- +16 WRITE !,"LOCATION: ",ABMLOC
- +17 WRITE !,"BILL TYPE: ",ABMBTYPE,!
- +18 QUIT
