BAREDMCH ; IHS/SD/SDR - ERA User-defined matching logic ;
;;1.8;IHS ACCOUNTS RECEIVABLE;**20**;OCT 26,2005
; new routine
EN ;
W !!,"This option allows you to create the matching logic for matching bills from"
W !,"the 835 to the RPMS A/R Bills. The system will ask you to match based upon"
W !,"certain questions. Let's begin."
W !
D ^XBFMK
S DIC=$$DIC^XBDIQ1(90056.24)
S DIC("A")="Select A/R Account: "
S DIC(0)="AEMQL"
D ^DIC
Q:$D(DTOUT)!$D(DUOUT)
Q:Y<0
S BARIEN=+Y
I +$P(Y,U,3)=0 D Q:Y=0 ;entry already exists; write info to screen
.D DISPLAY
.D ^XBFMK
.K DIR
.S DIR(0)="Y"
.S DIR("A")="Do you wish to edit this entry?"
.S DIR("B")="N"
.D ^DIR
W !
D ^XBFMK
S DIE=$$DIC^XBDIQ1(90056.24)
S DA=BARIEN
S DR=".02//"
D ^DIE
Q:X=""
I $$GET1^DIQ(90056.24,BARIEN,".02","I")=1 D Q:X=""
. D ^XBFMK
.S DIE=$$DIC^XBDIQ1(90056.24)
.S DA=BARIEN
.S DR=".03Ignore/Strip dashes from A/R Bill Number?//;.04Include facility code (up to 4 chars) in matching?//"
.D ^DIE
.D ^XBFMK
.S DIE=$$DIC^XBDIQ1(90056.24)
.S DA=BARIEN
.S DR=".05Include HRN in matching?//"
.I $$GET1^DIQ(90056.24,BARIEN,".04","I")=0 S DR=".05Include HRN in matching?////0"
.D ^DIE
.W !
D ^XBFMK
S DIE=$$DIC^XBDIQ1(90056.24)
S DA=BARIEN
S DR=".06Match on DATE OF SERVICE of A/R Bill?//;W !;.07Match on A/R ACCOUNT (INSURER) of A/R Bill?//;W !;.08Match on AMOUNT BILLED of A/R Bill?//"
D ^DIE
Q:X=""
I $$GET1^DIQ(90056.24,BARIEN,".07","I")=1 D Q:X=""
.D ^XBFMK
.S DIE=$$DIC^XBDIQ1(90056.24)
.S DA=BARIEN
.S DR=".09If the sum of all transactions is less than or equal to the Current Bill Amount, continue to post?//"
.D ^DIE
Q:X=""
W !
D ^XBFMK
S DIE=$$DIC^XBDIQ1(90056.24)
S DA=BARIEN
S DR=".11CANCELLED BILLS -Process, Ask or Ignore//"
D ^DIE
Q
DISPLAY ;EP
W !!?1,"Entry already exists for "_$$GET1^DIQ(90056.24,BARIEN,".01")
W !?3,"Match on Bill Number: ",?55,$$GET1^DIQ(90056.24,BARIEN,".02")
I $$GET1^DIQ(90056.24,BARIEN,".02","I")=1 D
.W !?3,"Ignore/Strip Dashes from A/R Bill Number: ",?55,$$GET1^DIQ(90056.24,BARIEN,".03")
.W !?3,"Include facility code (up to 4 chars) in matching: ",?55,$$GET1^DIQ(90056.24,BARIEN,".04")
.W !?3,"Include HRN in matching: ",?55,$$GET1^DIQ(90056.24,BARIEN,".05")
W !?3,"Match DATE OF SERVICE of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".06")
W !?3,"Match on A/R Account (Insurer) of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".07")
W !?3,"Match on AMOUNT BILLED of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".08")
W !?3,"Continue to post if sum of transactions is",!?10,"less than or equal to CURRENT BILL AMOUNT: ",?55,$$GET1^DIQ(90056.24,BARIEN,".09")
W !?3,"CANCELLED BILLS: ",?55,$$GET1^DIQ(90056.24,BARIEN,".11")
;
W !!
Q
BAREDMCH ; IHS/SD/SDR - ERA User-defined matching logic ;
+1 ;;1.8;IHS ACCOUNTS RECEIVABLE;**20**;OCT 26,2005
+2 ; new routine
EN ;
+1 WRITE !!,"This option allows you to create the matching logic for matching bills from"
+2 WRITE !,"the 835 to the RPMS A/R Bills. The system will ask you to match based upon"
+3 WRITE !,"certain questions. Let's begin."
+4 WRITE !
+5 DO ^XBFMK
+6 SET DIC=$$DIC^XBDIQ1(90056.24)
+7 SET DIC("A")="Select A/R Account: "
+8 SET DIC(0)="AEMQL"
+9 DO ^DIC
+10 IF $DATA(DTOUT)!$DATA(DUOUT)
QUIT
+11 IF Y<0
QUIT
+12 SET BARIEN=+Y
+13 ;entry already exists; write info to screen
IF +$PIECE(Y,U,3)=0
Begin DoDot:1
+14 DO DISPLAY
+15 DO ^XBFMK
+16 KILL DIR
+17 SET DIR(0)="Y"
+18 SET DIR("A")="Do you wish to edit this entry?"
+19 SET DIR("B")="N"
+20 DO ^DIR
End DoDot:1
IF Y=0
QUIT
+21 WRITE !
+22 DO ^XBFMK
+23 SET DIE=$$DIC^XBDIQ1(90056.24)
+24 SET DA=BARIEN
+25 SET DR=".02//"
+26 DO ^DIE
+27 IF X=""
QUIT
+28 IF $$GET1^DIQ(90056.24,BARIEN,".02","I")=1
Begin DoDot:1
+29 DO ^XBFMK
+30 SET DIE=$$DIC^XBDIQ1(90056.24)
+31 SET DA=BARIEN
+32 SET DR=".03Ignore/Strip dashes from A/R Bill Number?//;.04Include facility code (up to 4 chars) in matching?//"
+33 DO ^DIE
+34 DO ^XBFMK
+35 SET DIE=$$DIC^XBDIQ1(90056.24)
+36 SET DA=BARIEN
+37 SET DR=".05Include HRN in matching?//"
+38 IF $$GET1^DIQ(90056.24,BARIEN,".04","I")=0
SET DR=".05Include HRN in matching?////0"
+39 DO ^DIE
+40 WRITE !
End DoDot:1
IF X=""
QUIT
+41 DO ^XBFMK
+42 SET DIE=$$DIC^XBDIQ1(90056.24)
+43 SET DA=BARIEN
+44 SET DR=".06Match on DATE OF SERVICE of A/R Bill?//;W !;.07Match on A/R ACCOUNT (INSURER) of A/R Bill?//;W !;.08Match on AMOUNT BILLED of A/R Bill?//"
+45 DO ^DIE
+46 IF X=""
QUIT
+47 IF $$GET1^DIQ(90056.24,BARIEN,".07","I")=1
Begin DoDot:1
+48 DO ^XBFMK
+49 SET DIE=$$DIC^XBDIQ1(90056.24)
+50 SET DA=BARIEN
+51 SET DR=".09If the sum of all transactions is less than or equal to the Current Bill Amount, continue to post?//"
+52 DO ^DIE
End DoDot:1
IF X=""
QUIT
+53 IF X=""
QUIT
+54 WRITE !
+55 DO ^XBFMK
+56 SET DIE=$$DIC^XBDIQ1(90056.24)
+57 SET DA=BARIEN
+58 SET DR=".11CANCELLED BILLS -Process, Ask or Ignore//"
+59 DO ^DIE
+60 QUIT
DISPLAY ;EP
+1 WRITE !!?1,"Entry already exists for "_$$GET1^DIQ(90056.24,BARIEN,".01")
+2 WRITE !?3,"Match on Bill Number: ",?55,$$GET1^DIQ(90056.24,BARIEN,".02")
+3 IF $$GET1^DIQ(90056.24,BARIEN,".02","I")=1
Begin DoDot:1
+4 WRITE !?3,"Ignore/Strip Dashes from A/R Bill Number: ",?55,$$GET1^DIQ(90056.24,BARIEN,".03")
+5 WRITE !?3,"Include facility code (up to 4 chars) in matching: ",?55,$$GET1^DIQ(90056.24,BARIEN,".04")
+6 WRITE !?3,"Include HRN in matching: ",?55,$$GET1^DIQ(90056.24,BARIEN,".05")
End DoDot:1
+7 WRITE !?3,"Match DATE OF SERVICE of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".06")
+8 WRITE !?3,"Match on A/R Account (Insurer) of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".07")
+9 WRITE !?3,"Match on AMOUNT BILLED of the A/R Bill: ",?55,$$GET1^DIQ(90056.24,BARIEN,".08")
+10 WRITE !?3,"Continue to post if sum of transactions is",!?10,"less than or equal to CURRENT BILL AMOUNT: ",?55,$$GET1^DIQ(90056.24,BARIEN,".09")
+11 WRITE !?3,"CANCELLED BILLS: ",?55,$$GET1^DIQ(90056.24,BARIEN,".11")
+12 ;
+13 WRITE !!
+14 QUIT
