| 1 | QAOSOPEN ;HISC/DAD-REOPEN CLOSED OR DELETED OCCURRENCES ;6/11/93 15:54
|
|---|
| 2 | ;;3.0;Occurrence Screen;;09/14/1993
|
|---|
| 3 | W !!?32,"*** WARNING ***"
|
|---|
| 4 | W !!?11,"Reopening a record will delete all final disposition data",*7
|
|---|
| 5 | S QALIMIT="I $P(^(0),""^"",11)>0",QAOSPROG="DFN^QAOSOPEN" D EN2^QAOEDT
|
|---|
| 6 | EXIT ;
|
|---|
| 7 | K %,DA,DIC,DIE,DR,QAUDIT,QAOSWHAT,Y,QAWHO,QAOSD0,%W,%Y,%Y1,C,D0,DI,DIG
|
|---|
| 8 | K DIH,DIU,DIV,DIW,DQ,I,QA,QACLOSE,QAHOLD,QAI,QALINE,QAOSWRD,QASCREEN
|
|---|
| 9 | K QAWO,SAVEX,SAVEY,X,Y,Z,QALIMIT,QAOSONE,QAOSPROG,QAOSQUIT
|
|---|
| 10 | Q
|
|---|
| 11 | DFN ;
|
|---|
| 12 | S QAOSWHAT="REOPENED" D ENDISP^QAOUTL0
|
|---|
| 13 | ASK W !!?5,"Reopen this record (Y/N) "
|
|---|
| 14 | S %=2 D YN^DICN S QAOSQUIT=$S(%=-1:1,1:0) Q:%=2!QAOSQUIT
|
|---|
| 15 | I '% W !!?10,"Please answer Y(es) or N(o)" G ASK
|
|---|
| 16 | S DIE="^QA(741,",DA=QAOSD0
|
|---|
| 17 | S DR="11///^S X=0;14///^S X=""@"";15///^S X=""@"";16///^S X=""@"""
|
|---|
| 18 | D ^DIE
|
|---|
| 19 | S QAUDIT("FILE")="741^27",QAUDIT("DA")=DA,QAUDIT("ACTION")="o"
|
|---|
| 20 | S QAUDIT("COMMENT")="REOPEN A CLOSED/DELETED RECORD" D ^QAQAUDIT
|
|---|
| 21 | W !!?5,"*** RECORD HAS BEEN REOPENED ***",*7,!
|
|---|
| 22 | Q
|
|---|
