PSJ50265.m

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 ---PSJ50265   444     printed  Mar 13, 2025@21:10:48                                                                                                                                                                                                     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