source: FOIAVistA/trunk/r/OCCURRENCE_SCREEN-QAO/QAOSOPEN.m@ 794

Last change on this file since 794 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 970 bytes
Line 
1QAOSOPEN ;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
6EXIT ;
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
11DFN ;
12 S QAOSWHAT="REOPENED" D ENDISP^QAOUTL0
13ASK 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
Note: See TracBrowser for help on using the repository browser.