PSJ50265 ;BP-OIFO/JME - POST INSTALL FOR PATCH PSJ*5.0*265 ; Compiled September 20, 2011 8:50
;;5.0;INPATIENT MEDICATIONS;**265**;16 DEC 97;Build 4
;
EN ;
N CL,PSJP,DA
S PSJP=0 F S PSJP=$O(^PS(53.1,"AS","N",PSJP)) Q:'PSJP D
. S DA=0 F S DA=$O(^PS(53.1,"AS","N",PSJP,DA)) Q:'DA D
.. S CL=+$G(^PS(53.1,DA,"DSS")) Q:'CL
.. D NOW^%DTC I '$D(^PS(53.1,"AD",CL,PSJP,DA)),$P(^PS(53.1,DA,2),U,4)>% S ^PS(53.1,"AD",CL,PSJP,DA)=""
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSJ50265 444 printed Dec 13, 2024@02:05:55 Page 2
PSJ50265 ;BP-OIFO/JME - POST INSTALL FOR PATCH PSJ*5.0*265 ; Compiled September 20, 2011 8:50
+1 ;;5.0;INPATIENT MEDICATIONS;**265**;16 DEC 97;Build 4
+2 ;
EN ;
+1 NEW CL,PSJP,DA
+2 SET PSJP=0
FOR
SET PSJP=$ORDER(^PS(53.1,"AS","N",PSJP))
if 'PSJP
QUIT
Begin DoDot:1
+3 SET DA=0
FOR
SET DA=$ORDER(^PS(53.1,"AS","N",PSJP,DA))
if 'DA
QUIT
Begin DoDot:2
+4 SET CL=+$GET(^PS(53.1,DA,"DSS"))
if 'CL
QUIT
+5 DO NOW^%DTC
IF '$DATA(^PS(53.1,"AD",CL,PSJP,DA))
IF $PIECE(^PS(53.1,DA,2),U,4)>%
SET ^PS(53.1,"AD",CL,PSJP,DA)=""
End DoDot:2
End DoDot:1
+6 QUIT
