DVBHDEL ;ALB/JLU - Deletetion routine for HINQ suspence file
;;V4.0;HINQ;;03/25/92
;
EN ;entry point to this routine.
W !,"This option will delete an entry from the HINQ suspense file.",!
S DIC="^DVB(395.5,",DIC(0)="AEMQ"
F D ^DIC Q:Y'>0 D:+Y DEL
EX K DIC,Y,DIK,DA,DVBT,%
Q
;
DEL S (DVBT,DA)=+Y,DIK="^DVB(395.5,"
ASK W !!,"Is this the entry you want deleted? ",$P(^DPT(DVBT,0),U)
S %=2
D YN^DICN Q:%=2!(%=-1)
I %=0 W !!,"Yes to delete the entry or No to leave it in the suspense file." G ASK
D ^DIK
W !!,"Deletion completed on ",$P(^DPT(DVBT,0),U),!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDVBHDEL 586 printed Dec 13, 2024@01:58:28 Page 2
DVBHDEL ;ALB/JLU - Deletetion routine for HINQ suspence file
+1 ;;V4.0;HINQ;;03/25/92
+2 ;
EN ;entry point to this routine.
+1 WRITE !,"This option will delete an entry from the HINQ suspense file.",!
+2 SET DIC="^DVB(395.5,"
SET DIC(0)="AEMQ"
+3 FOR
DO ^DIC
if Y'>0
QUIT
if +Y
DO DEL
EX KILL DIC,Y,DIK,DA,DVBT,%
+1 QUIT
+2 ;
DEL SET (DVBT,DA)=+Y
SET DIK="^DVB(395.5,"
ASK WRITE !!,"Is this the entry you want deleted? ",$PIECE(^DPT(DVBT,0),U)
+1 SET %=2
+2 DO YN^DICN
if %=2!(%=-1)
QUIT
+3 IF %=0
WRITE !!,"Yes to delete the entry or No to leave it in the suspense file."
GOTO ASK
+4 DO ^DIK
+5 WRITE !!,"Deletion completed on ",$PIECE(^DPT(DVBT,0),U),!
+6 QUIT
