PRCAMAS.m

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 ---PRCAMAS   1189     printed  Apr 09, 2024@20:46:51                                                                                                                                                                                                     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