- 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
- 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