QAOSOPEN.m

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 ---QAOSOPEN   992     printed  Apr 09, 2024@21:23:34                                                                                                                                                                                                     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