PSSXREF.m

PSSXREF  ;BIR/TTH-REINDEX "AND" X-REFERENCE ON DRUG FILE (#50) ; 4-FEB-2000 14:17

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

 ;

INDEX ;Re-index AND cross-reference.

 S DIK="^PSDRUG(",DIK(1)="20^AND" D ENALL^DIK

 K DIK

 Q

DD202 ;Remove Field.

 I $$VFIELD^DILFD(50,202) D

 .F XX=0:0 S XX=$O(^PSDRUG(XX)) Q:'XX  I $D(^PSDRUG(1,"CH")) S DA=XX,DIE=50,DR="202///@" D ^DIE K DA,DIE,DR

 .S DIK="^DD(50,",DA=202,DA(1)=50

 .D ^DIK

 Q

PSSXREF   ;BIR/TTH-REINDEX "AND" X-REFERENCE ON DRUG FILE (#50) ; 4-FEB-2000 14:17

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

 +2       ;

INDEX     ;Re-index AND cross-reference.

 +1        SET DIK="^PSDRUG("

           SET DIK(1)="20^AND"

           DO ENALL^DIK

 +2        KILL DIK

 +3        QUIT 

DD202     ;Remove Field.

 +1        IF $$VFIELD^DILFD(50,202)

               Begin DoDot:1

 +2                FOR XX=0:0

                       SET XX=$ORDER(^PSDRUG(XX))

                       IF 'XX

                           QUIT 

                       IF $DATA(^PSDRUG(1,"CH"))

                           SET DA=XX

                           SET DIE=50

                           SET DR="202///@"

                           DO ^DIE

                           KILL DA,DIE,DR

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

                   SET DA=202

                   SET DA(1)=50

 +4                DO ^DIK

               End DoDot:1

 +5        QUIT