Prompt: !!,"There were ",$S($P($G(^PSD(58.8,PSALOC,1,PSADRG,0)),"^",4):$P($G(^(0)),"^",4),1:0)," on hand.",?40,"There are now ",$P($G(^(0)),"^",4)+PSAREC," on hand.",!
Line Location: POST+7
Function Call: WRITE
Prompt: !,"Updating monthly receipts and transaction history.",!