BKM22PRE.m

BKM22PRE ;GDIT/HS/ALA-Version 2.2 Preinstall ; 12 Dec 2013  9:54 AM

 ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 ;

 ;

EN ;EP

 NEW DA,DIK

 S DIK="^BKM(90454,",DA=0

 F  S DA=$O(^BKM(90454,DA)) Q:'DA  D ^DIK

 ;

 ; Delete DD for register subfile which is being resent

 ; this will remove field 2 - ICD Diagnosis

 S DIU=90451.01,DIU(0)="S" D EN^DIU2

 Q

BKM22PRE  ;GDIT/HS/ALA-Version 2.2 Preinstall ; 12 Dec 2013  9:54 AM

 +1       ;;2.2;HIV MANAGEMENT SYSTEM;;Apr 01, 2015;Build 40

 +2       ;

 +3       ;

EN        ;EP

 +1        NEW DA,DIK

 +2        SET DIK="^BKM(90454,"

           SET DA=0

 +3        FOR 

               SET DA=$ORDER(^BKM(90454,DA))

               IF 'DA

                   QUIT 

               DO ^DIK

 +4       ;

 +5       ; Delete DD for register subfile which is being resent

 +6       ; this will remove field 2 - ICD Diagnosis

 +7        SET DIU=90451.01

           SET DIU(0)="S"

           DO EN^DIU2

 +8        QUIT