Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping
Routine: PSSPCH13

PSSPCH13.m

Go to the documentation of this file.

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)

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSSPCH13   275     printed  Apr 09, 2024@21:34:44                                                                                                                                                                                                     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