source: WorldVistAEHR/trunk/r/ACCOUNTS_RECEIVABLE-PRCA-PRY-RC/PRCAMAS.m@ 1608

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

initial load of WorldVistAEHR

File size: 1.1 KB
Line 
1PRCAMAS ;SF-ISC/YJK-MAS RECONCILIATION REPORT ;4/7/93 10:19 AM
2V ;;4.5;Accounts Receivable;**212**;Mar 20, 1995
3 ;;Per VHA Directive 10-93-142, this routine should not be modified.
4INCOMPL ;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
8SUSP ;list of bills with 'SUSPENDED' status.
9 Q ;OBSOLETE 4.0
10COMPL ;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
15END K PRCA,PRCADT1,PRCADT2 Q
16 ;PRCAMAS
Note: See TracBrowser for help on using the repository browser.