| [613] | 1 | RCAMINS1 ;WASH-ISC@ALTOONA,PA/LDB-CHECK FOR INSURANCE COMPANY AS DEBTOR,SECONDARY OR TERTIARY CO ;11/22/95 2:08 PM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**20,144**;Mar 20, 1995
|
|---|
| 3 | MAIL ;Setup mail message after resetting insurance companies
|
|---|
| 4 | N XMTEXT,XMY
|
|---|
| 5 | K ^TMP($J,"MSG")
|
|---|
| 6 | S XMTEXT="^TMP($J,""MSG"","
|
|---|
| 7 | S XMY("G.PRCA ADJUSTMENT TRANS")=""
|
|---|
| 8 | S ^TMP($J,"MSG",1)="The following insurance company: "
|
|---|
| 9 | S ^TMP($J,"MSG",2)=" "
|
|---|
| 10 | S ^TMP($J,"MSG",3)=" "_INSN1
|
|---|
| 11 | I $G(ADD(1))]"" F P=1:1:7 D
|
|---|
| 12 | .I $P(ADD(1),"^",P)]"",(P<4) S ^TMP($J,"MSG",3+P)=" "_$P(ADD(1),"^",P)
|
|---|
| 13 | .I $P(ADD(1),"^",4)]"",(P=4) S ^TMP($J,"MSG",7)=" "_$P(ADD(1),"^",4)_", "
|
|---|
| 14 | .I $P(ADD(1),"^",5)]"",(P=5) S ^TMP($J,"MSG",7)=$S($G(^TMP($J,"MSG",7))="":" ",1:$G(^TMP($J,"MSG",7)))_$P(ADD(1),"^",5)
|
|---|
| 15 | .I $P(ADD(1),"^",6)]"",(P=6) D
|
|---|
| 16 | ..S $P(ADD(1),"^",7)=$E($P(ADD(1),"^",6),1,5)_$S($E($P(ADD(1),"^",6),6,9)]"":"-"_$E($P(ADD(1),"^",6),6,9),1:"")
|
|---|
| 17 | ..S ^TMP($J,"MSG",7)=$S($G(^TMP($J,"MSG",7))="":" ",1:$G(^TMP($J,"MSG",7)))_" "_$P(ADD(1),"^",7)
|
|---|
| 18 | S ^TMP($J,"MSG",8)=" "
|
|---|
| 19 | S ^TMP($J,"MSG",9)="has "_$S($G(INS1):"had bills merged to the following company: ",1:"been deleted.")
|
|---|
| 20 | I $G(INS1) D
|
|---|
| 21 | .S ^TMP($J,"MSG",10)=" "
|
|---|
| 22 | .S ^TMP($J,"MSG",11)=" "_INSN2
|
|---|
| 23 | .I $G(ADD(2))]"" F P=1:1:7 D
|
|---|
| 24 | ..I $P(ADD(2),"^",P)]"",(P<4) S ^TMP($J,"MSG",11+P)=" "_$P(ADD(2),"^",P)
|
|---|
| 25 | ..I $P(ADD(2),"^",4)]"",(P=4) S ^TMP($J,"MSG",15)=" "_$P(ADD(2),"^",4)_", "
|
|---|
| 26 | ..I $P(ADD(2),"^",5)]"",(P=5) S ^TMP($J,"MSG",15)=$S($G(^TMP($J,"MSG",15))="":" ",1:$G(^TMP($J,"MSG",15)))_$P(ADD(2),"^",5)
|
|---|
| 27 | ..I $P(ADD(2),"^",6)]"",(P=6) D
|
|---|
| 28 | ...S $P(ADD(2),"^",7)=$E($P(ADD(2),"^",6),1,5)_$S($E($P(ADD(2),"^",6),6,9)]"":"-"_$E($P(ADD(2),"^",6),6,9),1:"")
|
|---|
| 29 | ...S ^TMP($J,"MSG",15)=$S($G(^TMP($J,"MSG",15))="":" ",1:$G(^TMP($J,"MSG",15)))_" "_$P(ADD(2),"^",7)
|
|---|
| 30 | S ^TMP($J,"MSG",16)=" "
|
|---|
| 31 | S ^TMP($J,"MSG",18)=" "
|
|---|
| 32 | S C=18,I="" F S I=$O(^TMP("RCAMINS",$J,I)) Q:I="" S C=C+1,^TMP($J,"MSG",C)=" "_I
|
|---|
| 33 | D ^XMD
|
|---|
| 34 | K ^TMP("RCAMINS",$J),^TMP($J,"MSG")
|
|---|
| 35 | Q
|
|---|
