PSS0174 ;BIR/JMC- PSS*1*174 POST INSTALL ;01/25/2013
;;1.0;PHARMACY DATA MANAGEMENT;**174**;9/30/97;Build 19
;
;Reference to ^DD(52.6 is supported by DBIA 5895.
;
Q
EN ;
; STRENGTH (#19) field in the IV ADDITIVES File (#52.6) needs to display on any lookup on the file. This node has to be
; set directly.
; Also, per the User Group, the Quick Code Strength and the Administration Schedule will display next to any
; quick codes associated with the IV ADDITIVE.
S ^DD(52.6,0,"ID","W19")="S PSSY15=$P(^(0),U,15) W "" Additive Strength: "",$S($G(PSSY15)="""":""N/A"",$E($G(PSSY15),1)=""."":""0""_PSSY15,1:$G(PSSY15))_"" ""_$S($G(PSSY15)="""":"""",1:$$GET1^DIQ(52.6,+Y_"","",2))"
S ^DD(52.6,0,"ID","WRITE")="W:$D(^PSDRUG(+$P(^PS(52.6,+Y,0),""^"",2),0)) !?15,$P(^(0),""^"",10) I $D(DD),DD F PSIV=0:0 S PSIV=$O(^PS(52.6,+Y,1,PSIV)) Q:'PSIV W !?7,""- "",$P(^(PSIV,0),""^""),"" - Quick Code Strength: """
S ^DD(52.6,0,"ID","WRITE")=^DD(52.6,0,"ID","WRITE")_",$S($P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",2)'="""":$P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",2),1:""N/A"")"
S ^DD(52.6,0,"ID","WRITE")=^DD(52.6,0,"ID","WRITE")_"_"" Schedule: "",$S($P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",5)'="""":$P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",5),1:""N/A"")"
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSS0174 1264 printed Dec 13, 2024@02:29:04 Page 2
PSS0174 ;BIR/JMC- PSS*1*174 POST INSTALL ;01/25/2013
+1 ;;1.0;PHARMACY DATA MANAGEMENT;**174**;9/30/97;Build 19
+2 ;
+3 ;Reference to ^DD(52.6 is supported by DBIA 5895.
+4 ;
+5 QUIT
EN ;
+1 ; STRENGTH (#19) field in the IV ADDITIVES File (#52.6) needs to display on any lookup on the file. This node has to be
+2 ; set directly.
+3 ; Also, per the User Group, the Quick Code Strength and the Administration Schedule will display next to any
+4 ; quick codes associated with the IV ADDITIVE.
+5 SET ^DD(52.6,0,"ID","W19")="S PSSY15=$P(^(0),U,15) W "" Additive Strength: "",$S($G(PSSY15)="""":""N/A"",$E($G(PSSY15),1)=""."":""0""_PSSY15,1:$G(PSSY15))_"" ""_$S($G(PSSY15)="""":"""",1:$$GET1^DIQ(52.6,+Y_"","",2))"
+6 SET ^DD(52.6,0,"ID","WRITE")="W:$D(^PSDRUG(+$P(^PS(52.6,+Y,0),""^"",2),0)) !?15,$P(^(0),""^"",10) I $D(DD),DD F PSIV=0:0 S PSIV=$O(^PS(52.6,+Y,1,PSIV)) Q:'PSIV W !?7,""- "",$P(^(PSIV,0),""^""),"" - Quick Code Strength: """
+7 SET ^DD(52.6,0,"ID","WRITE")=^DD(52.6,0,"ID","WRITE")_",$S($P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",2)'="""":$P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",2),1:""N/A"")"
+8 SET ^DD(52.6,0,"ID","WRITE")=^DD(52.6,0,"ID","WRITE")_"_"" Schedule: "",$S($P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",5)'="""":$P($G(^PS(52.6,+Y,1,PSIV,0)),""^"",5),1:""N/A"")"
+9 QUIT
