PSSNOD2.m

PSSNOD2 ;BIR/TTH-Delete Node #2 Field #21 and #70 ;[ 01/15/98  1:26 PM ]

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

 S PSDX=0

 F  S PSDX=$O(^PS(55,"B",PSDX)) Q:'PSDX   K ^PS(55,PSDX,2)

 K DIU S DIU=55.05,DIU(0)="SD"  D EN^DIU2 K DIU

 K DIK,DA F DA=21,70  S DIK="^DD(55,",DA(1)=55  D ^DIK

 K DA,DIK,PSDX,X,Y

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSSNOD2   321     printed  Dec 13, 2024@02:33:17                                                                                                                                                                                                      Page 2

PSSNOD2   ;BIR/TTH-Delete Node #2 Field #21 and #70 ;[ 01/15/98  1:26 PM ]

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

 +2        SET PSDX=0

 +3        FOR 

               SET PSDX=$ORDER(^PS(55,"B",PSDX))

               if 'PSDX

                   QUIT 

               KILL ^PS(55,PSDX,2)

 +4        KILL DIU

           SET DIU=55.05

           SET DIU(0)="SD"

           DO EN^DIU2

           KILL DIU

 +5        KILL DIK,DA

           FOR DA=21,70

               SET DIK="^DD(55,"

               SET DA(1)=55

               DO ^DIK

 +6        KILL DA,DIK,PSDX,X,Y

 +7        QUIT