Routine: PSSP153

PSSP153 ;BIRM/SJA-Pharmacy system site parameters ;03/24/10

 ;;1.0;PHARMACY DATA MANAGEMENT;**153**;9/30/97;Build 32

POST ; set the USE DOSAGE FORM MED ROUTE LIST field to YES for sites that have the

 ; DEFAULT MED ROUTE FOR CPRS field (#80.7) of the PHARMACY SYSTEM file (#59.7) set to NO.

 ; Otherwise, the USE DOSAGE FORM MED ROUTE LIST field is set to NO.

 N PSSVAL,PSSIEN

 S PSSVAL=$P($G(^PS(59.7,1,80)),"^",7)

 S PSSIEN=0 F  S PSSIEN=$O(^PS(50.7,PSSIEN)) Q:'PSSIEN  I $D(^(PSSIEN,0)) D

 .S $P(^PS(50.7,PSSIEN,0),"^",13)=$S($G(PSSVAL)=1:"N",1:"Y")

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSP153   576     printed  Apr 23, 2025@18:47:38                                                                                                                                                                                                      Page 2

PSSP153   ;BIRM/SJA-Pharmacy system site parameters ;03/24/10

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**153**;9/30/97;Build 32

 +2       ;

 +3        QUIT

POST      ; set the USE DOSAGE FORM MED ROUTE LIST field to YES for sites that have the

 +1       ; DEFAULT MED ROUTE FOR CPRS field (#80.7) of the PHARMACY SYSTEM file (#59.7) set to NO.

 +2       ; Otherwise, the USE DOSAGE FORM MED ROUTE LIST field is set to NO.

 +3        NEW PSSVAL,PSSIEN

 +4        SET PSSVAL=$PIECE($GET(^PS(59.7,1,80)),"^",7)

 +5        SET PSSIEN=0

FOR

               SET PSSIEN=$ORDER(^PS(50.7,PSSIEN))

               if 'PSSIEN

                   QUIT

               IF $DATA(^(PSSIEN,0))

                   Begin DoDot:1

 +6                    SET $PIECE(^PS(50.7,PSSIEN,0),"^",13)=$SELECT($GET(PSSVAL)=1:"N",1:"Y")

                   End DoDot:1

 +7        QUIT

PSSP153.m