BTIURB.m

BTIURB ; IHS/ITSC/LJF - IHS SUBRTNS FOR TIURB ;02-Feb-2010 11:20;MGH

 ;;1.0;TEXT INTEGRATION UTILITIES;**1006**;NOV 04, 2004

 ;

VNOTE(TIUDA) ;EP; -- delete v note entry

 NEW TIUZ,DIK,DA

 I $D(^AUPNVNOT("B",+TIUDA)),'$D(^TIU(8925,+TIUDA,0)) D

 . S TIUZ=+TIUDA,DIK="^AUPNVNOT("

 . S DA=$O(^AUPNVNOT("B",TIUZ,0)) I DA D ^DIK

 Q

RETRACT(TIUDA) ;EP -- Enter the date/time of the retraction

 N DIE,DR,DIC,DA,TIUZ,ARRAY

 D FIELD^DID(9000010.28,.04,"","TYPE","ARRAY")

 Q:$D(ARRAY)=0

 K ARRAY

 S DA=""

 S DA=$O(^AUPNVNOT("B",+TIUDA,DA)) Q:DA=""  D

 .S DIE=9000010.28,DR=".04////^S X=$$NOW^XLFDT" D ^DIE

 Q

BTIURB    ; IHS/ITSC/LJF - IHS SUBRTNS FOR TIURB ;02-Feb-2010 11:20;MGH

 +1       ;;1.0;TEXT INTEGRATION UTILITIES;**1006**;NOV 04, 2004

 +2       ;

VNOTE(TIUDA) ;EP; -- delete v note entry

 +1        NEW TIUZ,DIK,DA

 +2        IF $DATA(^AUPNVNOT("B",+TIUDA))

               IF '$DATA(^TIU(8925,+TIUDA,0))

                   Begin DoDot:1

 +3                    SET TIUZ=+TIUDA

                       SET DIK="^AUPNVNOT("

 +4                    SET DA=$ORDER(^AUPNVNOT("B",TIUZ,0))

                       IF DA

                           DO ^DIK

                   End DoDot:1

 +5        QUIT 

RETRACT(TIUDA) ;EP -- Enter the date/time of the retraction

 +1        NEW DIE,DR,DIC,DA,TIUZ,ARRAY

 +2        DO FIELD^DID(9000010.28,.04,"","TYPE","ARRAY")

 +3        IF $DATA(ARRAY)=0

               QUIT 

 +4        KILL ARRAY

 +5        SET DA=""

 +6        SET DA=$ORDER(^AUPNVNOT("B",+TIUDA,DA))

           IF DA=""

               QUIT 

           Begin DoDot:1

 +7            SET DIE=9000010.28

               SET DR=".04////^S X=$$NOW^XLFDT"

               DO ^DIE

           End DoDot:1

 +8        QUIT