NAMEPSO RX LIST
DESCRIPTIONThis report provides the ability to identify all patients who have been dispensed a particular medication(s). Prescription List for Drug Warnings [PSO RX LIST] option uses a sorttemplate PSO DRUG WARNINGS to prompt for user input. Users are promptedfor inclusion or exclusion of deceased Patients, Divisions and a range ofFinish Dates. Print templates PSO DRUG WARNINGS and PSO DRUG WARNINGSHEADER produce a report in a delimited output format suitable for importto a spreadsheet. Report output will be delimited by a caret (^).
BY[PSO DRUG WARNINGS]
CREATORUSER,SEVENTEEN
DIC {DIP}PSRX(
DIOBEGD EXCMSG^PSORLST
DIS(0)S PSOSHOW=$S('$G(PSOEXC):1,$G(PSOEXC)&$G(^DPT(+$P(^PSRX(D0,0),U,2),.35)):0,1:1) S PSODED=$$PSODED^PSORLST(D0) I PSOSHOW
E ACTION PRESENTYES
ENTRY ACTIONS PSODWFL=1 D MARGIN^PSORLST K DIR S DIR("A")="EXCLUDE DECEASED PATIENTS (Y/N) ",DIR(0)="SA^Y:YES;N:NO",DIR("B")="Y" D ^DIR Q:$D(DUOUT)!$D(DIRUT) S PSOEXC=$S(Y="Y":1,1:0)
EXIT ACTIONK PSOSHOW,PSOEXC
FLDS[PSO DRUG WARNINGS]
L.0
MENU TEXTPrescription List for Drug Warnings
PACKAGEOUTPATIENT PHARMACY
TYPEprint
UPPERCASE MENU TEXTPRESCRIPTION LIST FOR DRUG WAR
X ACTION PRESENTYES