- 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 Feb 18, 2025@23:24:50 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