PSORPTP.m

PSORPTP ;BHAM ISC/SAB - ACTIVE/PARKED REPORT DRIVER ;Jan 10, 2022@15:06:40

 ;;7.0;OUTPATIENT PHARMACY;**441**;DEC 1997;Build 208

PARK ;ACTIVE/PARKED PRESCRIPTIONS

 I '$D(^PSRX("APARK")) W $C(7),!?5,"NO ACTIVE/PARKED PRESCRIPTIONS." Q

 S DIC=52,L=0,BY="[PSO PARK LIST]",FLDS="[PSO PARK]",DIS(0)="S ZZ=$P($G(^PSRX(D0,2)),U,6) I ZZ,ZZ'<DT" G EN1^DIP

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSORPTP   356     printed  Dec 13, 2024@02:34:11                                                                                                                                                                                                      Page 2

PSORPTP   ;BHAM ISC/SAB - ACTIVE/PARKED REPORT DRIVER ;Jan 10, 2022@15:06:40

 +1       ;;7.0;OUTPATIENT PHARMACY;**441**;DEC 1997;Build 208

PARK      ;ACTIVE/PARKED PRESCRIPTIONS

 +1        IF '$DATA(^PSRX("APARK"))

               WRITE $CHAR(7),!?5,"NO ACTIVE/PARKED PRESCRIPTIONS."

               QUIT 

 +2        SET DIC=52

           SET L=0

           SET BY="[PSO PARK LIST]"

           SET FLDS="[PSO PARK]"

           SET DIS(0)="S ZZ=$P($G(^PSRX(D0,2)),U,6) I ZZ,ZZ'<DT"

           GOTO EN1^DIP

 +3        QUIT