PRCAMAS ;SF-ISC/YJK-MAS RECONCILIATION REPORT ;4/7/93 10:19 AM
V ;;4.5;Accounts Receivable;**212**;Mar 20, 1995
;;Per VHA Directive 10-93-142, this routine should not be modified.
INCOMPL ;list of bill with 'Bill Incomplete' status
S PRCAP("S")=$P($G(^IBE(350.9,1,1)),"^",14)
S PRCAHDR="INCOMPLETE BILLS",PRCASORT="@INTERNAL(SERVICE),@CURRENT STATUS:STATUS NUMBER,@DATE BILL PREPARED,DEBTOR"
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
SUSP ;list of bills with 'SUSPENDED' status.
Q ;OBSOLETE 4.0
COMPL ;list of bills passed to Fiscal successfully other than 3rd party bills.
S PRCA("DATE")="DATE BILL PREPARED" D ASKDT^PRCAQUE G:(PRCADT1="")!(PRCADT2="") END
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"
S PRCATEMP="[PRCAR MAS REPORT]",PRCASORT="@DATE BILL PREPARED,@INTERNAL(SERVICE),@CATEGORY:INTERNAL(TYPE),@CURRENT STATUS:STATUS NUMBER"
S DIC="^PRCA(430," D PRINT^PRCAREPT,END^PRCAREPT K PRCAMAS Q
END K PRCA,PRCADT1,PRCADT2 Q
;PRCAMAS
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPRCAMAS 1189 printed Dec 13, 2024@01:40:22 Page 2
PRCAMAS ;SF-ISC/YJK-MAS RECONCILIATION REPORT ;4/7/93 10:19 AM
V ;;4.5;Accounts Receivable;**212**;Mar 20, 1995
+1 ;;Per VHA Directive 10-93-142, this routine should not be modified.
INCOMPL ;list of bill with 'Bill Incomplete' status
+1 SET PRCAP("S")=$PIECE($GET(^IBE(350.9,1,1)),"^",14)
+2 SET PRCAHDR="INCOMPLETE BILLS"
SET PRCASORT="@INTERNAL(SERVICE),@CURRENT STATUS:STATUS NUMBER,@DATE BILL PREPARED,DEBTOR"
+3 SET PRCATEMP="[PRCAR MAS REPORT]"
SET PRCAFT=PRCAP("S")_",201,@,@"
SET PRCALAST=PRCAP("S")_",201,,"
SET DIC="^PRCA(430,"
DO PRINT^PRCAREPT
DO END^PRCAREPT
KILL PRCAS,PRCAP("S")
QUIT
SUSP ;list of bills with 'SUSPENDED' status.
+1 ;OBSOLETE 4.0
QUIT
COMPL ;list of bills passed to Fiscal successfully other than 3rd party bills.
+1 SET PRCA("DATE")="DATE BILL PREPARED"
DO ASKDT^PRCAQUE
if (PRCADT1="")!(PRCADT2="")
GOTO END
+2 SET PRCAMAS=$PIECE($GET(^IBE(350.9,1,1)),"^",14)
SET PRCAFT=PRCADT1_","_PRCAMAS_",C,100"
SET PRCALAST=PRCADT2_","_PRCAMAS_",P,199"
SET PRCAHDR="MAS OTHER COMPLETED BILLS"
+3 SET PRCATEMP="[PRCAR MAS REPORT]"
SET PRCASORT="@DATE BILL PREPARED,@INTERNAL(SERVICE),@CATEGORY:INTERNAL(TYPE),@CURRENT STATUS:STATUS NUMBER"
+4 SET DIC="^PRCA(430,"
DO PRINT^PRCAREPT
DO END^PRCAREPT
KILL PRCAMAS
QUIT
END KILL PRCA,PRCADT1,PRCADT2
QUIT
+1 ;PRCAMAS
