| 1 | PRCAMAS ;SF-ISC/YJK-MAS RECONCILIATION REPORT ;4/7/93 10:19 AM
|
|---|
| 2 | V ;;4.5;Accounts Receivable;**212**;Mar 20, 1995
|
|---|
| 3 | ;;Per VHA Directive 10-93-142, this routine should not be modified.
|
|---|
| 4 | INCOMPL ;list of bill with 'Bill Incomplete' status
|
|---|
| 5 | S PRCAP("S")=$P($G(^IBE(350.9,1,1)),"^",14)
|
|---|
| 6 | S PRCAHDR="INCOMPLETE BILLS",PRCASORT="@INTERNAL(SERVICE),@CURRENT STATUS:STATUS NUMBER,@DATE BILL PREPARED,DEBTOR"
|
|---|
| 7 | S PRCATEMP="[PRCAR MAS REPORT]",PRCAFT=PRCAP("S")_",201,@,@",PRCALAST=PRCAP("S")_",201,,",DIC="^PRCA(430," D PRINT^PRCAREPT,END^PRCAREPT K PRCAS,PRCAP("S") Q
|
|---|
| 8 | SUSP ;list of bills with 'SUSPENDED' status.
|
|---|
| 9 | Q ;OBSOLETE 4.0
|
|---|
| 10 | COMPL ;list of bills passed to Fiscal successfully other than 3rd party bills.
|
|---|
| 11 | S PRCA("DATE")="DATE BILL PREPARED" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
|
|---|
| 12 | S PRCAMAS=$P($G(^IBE(350.9,1,1)),"^",14),PRCAFT=PRCADT1_","_PRCAMAS_",C,100",PRCALAST=PRCADT2_","_PRCAMAS_",P,199",PRCAHDR="MAS OTHER COMPLETED BILLS"
|
|---|
| 13 | S PRCATEMP="[PRCAR MAS REPORT]",PRCASORT="@DATE BILL PREPARED,@INTERNAL(SERVICE),@CATEGORY:INTERNAL(TYPE),@CURRENT STATUS:STATUS NUMBER"
|
|---|
| 14 | S DIC="^PRCA(430," D PRINT^PRCAREPT,END^PRCAREPT K PRCAMAS Q
|
|---|
| 15 | END K PRCA,PRCADT1,PRCADT2 Q
|
|---|
| 16 | ;PRCAMAS
|
|---|
