BWGRVLD.m

BWGRVLD ; IHS/CMI/LAB - delete vgen/pgen custom report ;15-Feb-2003 21:53;PLS

 ;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996

 ;

 ;This routine will do a DIC lookup into the lister report

 ;temporary file and delete the entry.

 ;

EN ;EP - called from an option

 W !!,"This option enables the user to delete a WH Procedure or Patient",!,"General Retrieval report definition.",!!

 D GETRPT

 G:'BWGRRPT XIT ;no report selected

 D DELETE

 D XIT

 Q

GETRPT ;get report entry - only allow lookup on own reports

 S BWGRRPT=""

 S DIC="^BWGRTRPT(" S DIC(0)="AEQ",DIC("A")="REPORT NAME:  ",D="C" D IX^DIC K DIC,DA,DR

 Q:Y=-1

 S BWGRRPT=+Y

 Q

DELETE ;

 S DIR(0)="Y",DIR("A")="Are you sure you want to delete the "_$P(^BWGRTRPT(BWGRRPT,0),U,3)_" report definition",DIR("B")="N" K DA D ^DIR K DIR

 Q:$D(DIRUT)

 Q:'Y

 W !,"Report Definition ",$P(^BWGRTRPT(BWGRRPT,0),U)," deleted.",!

 S DA=BWGRRPT,DIK="^BWGRTRPT(" D ^DIK

 Q

XIT ;

 K BWGRRPT

 K DA,DIK,D0

 Q

BWGRVLD   ; IHS/CMI/LAB - delete vgen/pgen custom report ;15-Feb-2003 21:53;PLS

 +1       ;;2.0;WOMEN'S HEALTH;**6,8**;MAY 16, 1996

 +2       ;

 +3       ;This routine will do a DIC lookup into the lister report

 +4       ;temporary file and delete the entry.

 +5       ;

EN        ;EP - called from an option

 +1        WRITE !!,"This option enables the user to delete a WH Procedure or Patient",!,"General Retrieval report definition.",!!

 +2        DO GETRPT

 +3       ;no report selected

           IF 'BWGRRPT

               GOTO XIT

 +4        DO DELETE

 +5        DO XIT

 +6        QUIT 

GETRPT    ;get report entry - only allow lookup on own reports

 +1        SET BWGRRPT=""

 +2        SET DIC="^BWGRTRPT("

           SET DIC(0)="AEQ"

           SET DIC("A")="REPORT NAME:  "

           SET D="C"

           DO IX^DIC

           KILL DIC,DA,DR

 +3        IF Y=-1

               QUIT 

 +4        SET BWGRRPT=+Y

 +5        QUIT 

DELETE    ;

 +1        SET DIR(0)="Y"

           SET DIR("A")="Are you sure you want to delete the "_$PIECE(^BWGRTRPT(BWGRRPT,0),U,3)_" report definition"

           SET DIR("B")="N"

           KILL DA

           DO ^DIR

           KILL DIR

 +2        IF $DATA(DIRUT)

               QUIT 

 +3        IF 'Y

               QUIT 

 +4        WRITE !,"Report Definition ",$PIECE(^BWGRTRPT(BWGRRPT,0),U)," deleted.",!

 +5        SET DA=BWGRRPT

           SET DIK="^BWGRTRPT("

           DO ^DIK

 +6        QUIT 

XIT       ;

 +1        KILL BWGRRPT

 +2        KILL DA,DIK,D0

 +3        QUIT