PSSP153 ;BIRM/SJA-Pharmacy system site parameters ;03/24/10
;;1.0;PHARMACY DATA MANAGEMENT;**153**;9/30/97;Build 32
;
Q
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")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSP153 576 printed Dec 13, 2024@02:33: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
