FBAAPRGS.m

FBAAPRGS ;AISC/DMK-STATUS OF PURGE ;15JUL92

 ;;3.5;FEE BASIS;;JAN 30, 1995

 ;;Per VHA Directive 10-93-142, this routine should not be modified.

 I '$D(^XUTL("FBAAPURGE")) W !?5,"Fee Purge is not running!",! Q

 ;

 W !?5,"Total Payment Line Items to be Purged:  ",$FN($P(^XUTL("FBAAPURGE"),"^"),",")

 W !!?5,"Number of Line Items Purged as of now:  ",$FN($P(^XUTL("FBAAPURGE"),"^",2),",")

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---FBAAPRGS   398     printed  Apr 09, 2024@21:04:28                                                                                                                                                                                                     Page 2

FBAAPRGS  ;AISC/DMK-STATUS OF PURGE ;15JUL92

 +1       ;;3.5;FEE BASIS;;JAN 30, 1995

 +2       ;;Per VHA Directive 10-93-142, this routine should not be modified.

 +3        IF '$DATA(^XUTL("FBAAPURGE"))

               WRITE !?5,"Fee Purge is not running!",!

               QUIT 

 +4       ;

 +5        WRITE !?5,"Total Payment Line Items to be Purged:  ",$FNUMBER($PIECE(^XUTL("FBAAPURGE"),"^"),",")

 +6        WRITE !!?5,"Number of Line Items Purged as of now:  ",$FNUMBER($PIECE(^XUTL("FBAAPURGE"),"^",2),",")

 +7        QUIT