Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: AQAODEL

AQAODEL.m

Go to the documentation of this file.
  1. AQAODEL ; IHS/ORDC/LJF - DELETE AN OCCURRENCE RECORD ;
  1. ;;1.01;QAI MANAGEMENT;;OCT 05, 1995
  1. ;
  1. ;This rtn contians the code for user interface for deleting an
  1. ;occurrence. Due to the importance of this data, the entry is just
  1. ;flagged as deleted. It can be reopened, if needed. Also, deleted
  1. ;occurrence summaries can be printed.
  1. ;
  1. ASK ; >>> ask for occ id or patient name or indicator
  1. K AQAOIFN D ASK^AQAOLKP G EXIT:'$D(AQAOIFN)
  1. ;
  1. D FIND^AQAOREV1 ;find all reviews and display them
  1. ;
  1. DELETE ; >>> delete occurrence
  1. W ! K DIR S DIR(0)="Y",DIR("B")="NO"
  1. S DIR("A")="Are you SURE you want to DELETE this Occurrence"
  1. D ^DIR G EXIT:$D(DIRUT),EXIT:Y'=1
  1. L +^AQAOC(AQAOIFN):1 I '$T D G EXIT
  1. .W !!,"CANNOT DELETE; ANOTHER USER HAS ENTRY LOCKED. TRY AGAIN!",!
  1. L +^AQAGU(0):1 I '$T D G EXIT
  1. .W !!,"CANNOT DELETE; AUDIT FILE LOCKED. TRY AGAIN.",!
  1. ;
  1. W !!!?5,"Deleting Occurrence #",AQAOCID,". . . .",!!
  1. S AQAOUDIT("DA")=AQAOIFN,AQAOUDIT("ACTION")="D"
  1. S AQAOUDIT("COMMENT")="DELETING A RECORD" D ^AQAOAUD
  1. K DIE S DIE="^AQAOC(",DA=AQAOIFN,DR=".11////2;.112"
  1. D ^DIE L -^AQAOC(AQAOIFN)
  1. ;
  1. ;
  1. EXIT ; >> eoj
  1. D KILL^AQAOUTIL Q