PSORRD.m

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 ---PSORRD   687     printed  Apr 09, 2024@21:37:05                                                                                                                                                                                                       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       ;