NAMEECTW UD SCT
DESCRIPTIONThis option is taken from the Inpatient Meds - Unit Dose module.This report prints the total cost of dispensed medications forward services (medicine, surgery, etc.) over a user specifiedtime frame. The report provides the total number of unitsdispensed, the total cost of those units dispensed, and the averagecost of each unit dispensed on a service by service basis.
CREATORPOSTMASTER
E ACTION PRESENTYES
ENTRY ACTIONS ECT1="UDS" I $S('$D(^PS(59.7,1,20)):1,1:^(20)<3),'$D(^XUTL("XQ",$J,"PSG"_DUZ))!'$D(^XUTL("PSG",DUZ)) D ^PSGSET
EXIT ACTIONI $S('$D(^PS(59.7,1,20)):1,1:^(20)<3) D ENKV^PSGSET
MENU TEXTTotal Cost per Service
PACKAGEINTERIM MANAGEMENT SUPPORT
ROUTINEECTDIR
TYPErun routine
UPPERCASE MENU TEXTTOTAL COST PER SERVICE
X ACTION PRESENTYES