source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/RCAMINS1.m@ 1800

Last change on this file since 1800 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 2.0 KB
Line 
1RCAMINS1 ;WASH-ISC@ALTOONA,PA/LDB-CHECK FOR INSURANCE COMPANY AS DEBTOR,SECONDARY OR TERTIARY CO ;11/22/95 2:08 PM
2V ;;4.5;Accounts Receivable;**20,144**;Mar 20, 1995
3MAIL ;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
Note: See TracBrowser for help on using the repository browser.