PSSPCH13.m

PSSPCH13 ;BIR/WRT-PATCH ROUTINE ; 07/06/98 10:24

 ;;1.0;PHARMACY DATA MANAGEMENT;**13**;9/30/97

 S DIK="^DD(50,",DA=23,DA(1)=50 D ^DIK

 S DIK="^DD(50,",DA=24,DA(1)=50 D ^DIK

 ;

DEL ;Delete bogus field from "ID" node.

 I '$D(^DD(50,534016)) K ^DD(50,0,"ID",534016)

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSPCH13   275     printed  Sep 23, 2025@20:09:34                                                                                                                                                                                                     Page 2

PSSPCH13  ;BIR/WRT-PATCH ROUTINE ; 07/06/98 10:24

 +1       ;;1.0;PHARMACY DATA MANAGEMENT;**13**;9/30/97

 +2        SET DIK="^DD(50,"

           SET DA=23

           SET DA(1)=50

           DO ^DIK

 +3        SET DIK="^DD(50,"

           SET DA=24

           SET DA(1)=50

           DO ^DIK

 +4       ;

DEL       ;Delete bogus field from "ID" node.

 +1        IF '$DATA(^DD(50,534016))

               KILL ^DD(50,0,"ID",534016)

 +2        QUIT