QAOSOPEN ;HISC/DAD-REOPEN CLOSED OR DELETED OCCURRENCES ;6/11/93 15:54
;;3.0;Occurrence Screen;;09/14/1993
W !!?32,"*** WARNING ***"
W !!?11,"Reopening a record will delete all final disposition data",*7
S QALIMIT="I $P(^(0),""^"",11)>0",QAOSPROG="DFN^QAOSOPEN" D EN2^QAOEDT
EXIT ;
K %,DA,DIC,DIE,DR,QAUDIT,QAOSWHAT,Y,QAWHO,QAOSD0,%W,%Y,%Y1,C,D0,DI,DIG
K DIH,DIU,DIV,DIW,DQ,I,QA,QACLOSE,QAHOLD,QAI,QALINE,QAOSWRD,QASCREEN
K QAWO,SAVEX,SAVEY,X,Y,Z,QALIMIT,QAOSONE,QAOSPROG,QAOSQUIT
Q
DFN ;
S QAOSWHAT="REOPENED" D ENDISP^QAOUTL0
ASK W !!?5,"Reopen this record (Y/N) "
S %=2 D YN^DICN S QAOSQUIT=$S(%=-1:1,1:0) Q:%=2!QAOSQUIT
I '% W !!?10,"Please answer Y(es) or N(o)" G ASK
S DIE="^QA(741,",DA=QAOSD0
S DR="11///^S X=0;14///^S X=""@"";15///^S X=""@"";16///^S X=""@"""
D ^DIE
S QAUDIT("FILE")="741^27",QAUDIT("DA")=DA,QAUDIT("ACTION")="o"
S QAUDIT("COMMENT")="REOPEN A CLOSED/DELETED RECORD" D ^QAQAUDIT
W !!?5,"*** RECORD HAS BEEN REOPENED ***",*7,!
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HQAOSOPEN 992 printed Nov 22, 2024@17:31:33 Page 2
QAOSOPEN ;HISC/DAD-REOPEN CLOSED OR DELETED OCCURRENCES ;6/11/93 15:54
+1 ;;3.0;Occurrence Screen;;09/14/1993
+2 WRITE !!?32,"*** WARNING ***"
+3 WRITE !!?11,"Reopening a record will delete all final disposition data",*7
+4 SET QALIMIT="I $P(^(0),""^"",11)>0"
SET QAOSPROG="DFN^QAOSOPEN"
DO EN2^QAOEDT
EXIT ;
+1 KILL %,DA,DIC,DIE,DR,QAUDIT,QAOSWHAT,Y,QAWHO,QAOSD0,%W,%Y,%Y1,C,D0,DI,DIG
+2 KILL DIH,DIU,DIV,DIW,DQ,I,QA,QACLOSE,QAHOLD,QAI,QALINE,QAOSWRD,QASCREEN
+3 KILL QAWO,SAVEX,SAVEY,X,Y,Z,QALIMIT,QAOSONE,QAOSPROG,QAOSQUIT
+4 QUIT
DFN ;
+1 SET QAOSWHAT="REOPENED"
DO ENDISP^QAOUTL0
ASK WRITE !!?5,"Reopen this record (Y/N) "
+1 SET %=2
DO YN^DICN
SET QAOSQUIT=$SELECT(%=-1:1,1:0)
if %=2!QAOSQUIT
QUIT
+2 IF '%
WRITE !!?10,"Please answer Y(es) or N(o)"
GOTO ASK
+3 SET DIE="^QA(741,"
SET DA=QAOSD0
+4 SET DR="11///^S X=0;14///^S X=""@"";15///^S X=""@"";16///^S X=""@"""
+5 DO ^DIE
+6 SET QAUDIT("FILE")="741^27"
SET QAUDIT("DA")=DA
SET QAUDIT("ACTION")="o"
+7 SET QAUDIT("COMMENT")="REOPEN A CLOSED/DELETED RECORD"
DO ^QAQAUDIT
+8 WRITE !!?5,"*** RECORD HAS BEEN REOPENED ***",*7,!
+9 QUIT
