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