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

PSSNOD2.m

Go to the documentation of this file.
  1. 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
  1. S PSDX=0
  1. F S PSDX=$O(^PS(55,"B",PSDX)) Q:'PSDX K ^PS(55,PSDX,2)
  1. K DIU S DIU=55.05,DIU(0)="SD" D EN^DIU2 K DIU
  1. K DIK,DA F DA=21,70 S DIK="^DD(55,",DA(1)=55 D ^DIK
  1. K DA,DIK,PSDX,X,Y
  1. Q