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 ---[H[J[2J[HFBAAPRGS 398 printed Dec 13, 2024@01:56:17 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