PSORRD ;AITC/BWF - Remote RX report details ;8/15/16 5:43pm
;;7.0;OUTPATIENT PHARMACY;**454**;DEC 1997;Build 349
;
EN ; -- main entry point for PSO LM REMOTE REPORT DETAILS
D EN^VALM("PSO LM REMOTE REPORT DETAILS")
Q
;
HDR ; -- header code
S VALMHDR(1)="Detailed report of "_$P("Prescriptions dispensed for other Host Pharmacies^Our RXs filled by other facilities as the Dispensing Pharmacy^All OneVA Pharmacy Prescription Activity","^",PSOREPORT)
Q
;
INIT ; -- init variables and list array
S VALMCNT=PSORCNT
Q
;
HELP ; -- help code
S X="?" D DISP^XQORM1 W !!
Q
;
EXIT ; -- exit code
S VALMBCK="R"
K PSORCNT
Q
;
EXPND ; -- expand code
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSORRD 687 printed Oct 16, 2024@18:34:52 Page 2
PSORRD ;AITC/BWF - Remote RX report details ;8/15/16 5:43pm
+1 ;;7.0;OUTPATIENT PHARMACY;**454**;DEC 1997;Build 349
+2 ;
EN ; -- main entry point for PSO LM REMOTE REPORT DETAILS
+1 DO EN^VALM("PSO LM REMOTE REPORT DETAILS")
+2 QUIT
+3 ;
HDR ; -- header code
+1 SET VALMHDR(1)="Detailed report of "_$PIECE("Prescriptions dispensed for other Host Pharmacies^Our RXs filled by other facilities as the Dispensing Pharmacy^All OneVA Pharmacy Prescription Activity","^",PSOREPORT)
+2 QUIT
+3 ;
INIT ; -- init variables and list array
+1 SET VALMCNT=PSORCNT
+2 QUIT
+3 ;
HELP ; -- help code
+1 SET X="?"
DO DISP^XQORM1
WRITE !!
+2 QUIT
+3 ;
EXIT ; -- exit code
+1 SET VALMBCK="R"
+2 KILL PSORCNT
+3 QUIT
+4 ;
EXPND ; -- expand code
+1 QUIT
+2 ;
