QAOSENT1.m

QAOSENT1 ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93  08:01

 ;;3.0;Occurrence Screen;;09/14/1993

 S QAOSQUIT=""

 F QAOSD0=0:0 S QAOSD0=$O(^QA(741,"AA",QASCRN,QADATE,QANAME,QAOSD0)) Q:QAOSD0'>0  S LOC=$S($D(^QA(741,QAOSD0,0))#2:$P(^(0),"^",11)+1\3+1,1:0) S:LOC $P(QAOSQUIT,"^",LOC)=1

 I QAOSQUIT="" S QAOSQUIT=0 G EXIT

 I +QAOSQUIT D  G EXIT

 . W !!?5,"*** THIS OCCURRENCE HAS ALREADY BEEN ENTERED ***",*7

 . W !!?5,"To create another similar occurrence screen record for this"

 . W !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",!

 . S QAOSQUIT=1

 . Q

 W !!?5,"*** A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ***",*7,!

ASK ;

 W !?5,"Do you want to continue"

 S %=2 D YN^DICN S QAOSQUIT=$S(%=2:1,%=-1:1,1:0) G:QAOSQUIT EXIT

 I '% D  G ASK

 . W !!?5,"Please answer Y(es) or N(o)"

 . W !!,"Answering Y(es) will add a new record to the file."

 . W !,"Answering N(o) will abort the entry process and allow you to enter"

 . W !,"a different new record, or you may use the 'Reopen Closed/Deleted"

 . W !,"Occurrence Screen Record' option to work with the old record.",!

 . Q

EXIT ;

 K %,QAOSD0

 Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---QAOSENT1   1141     printed  Apr 09, 2024@21:22:42                                                                                                                                                                                                    Page 2

QAOSENT1  ;HISC/DAD-ENTER EDIT AN OCCURRENCE (Cont.) ;2/4/93  08:01

 +1       ;;3.0;Occurrence Screen;;09/14/1993

 +2        SET QAOSQUIT=""

 +3        FOR QAOSD0=0:0

               SET QAOSD0=$ORDER(^QA(741,"AA",QASCRN,QADATE,QANAME,QAOSD0))

               if QAOSD0'>0

                   QUIT 

               SET LOC=$SELECT($DATA(^QA(741,QAOSD0,0))#2:$PIECE(^(0),"^",11)+1\3+1,1:0)

               if LOC

                   SET $PIECE(QAOSQUIT,"^",LOC)=1

 +4        IF QAOSQUIT=""

               SET QAOSQUIT=0

               GOTO EXIT

 +5        IF +QAOSQUIT

               Begin DoDot:1

 +6                WRITE !!?5,"*** THIS OCCURRENCE HAS ALREADY BEEN ENTERED ***",*7

 +7                WRITE !!?5,"To create another similar occurrence screen record for this"

 +8                WRITE !?5,"patient, enter a UNIQUE DATE AND TIME for the occurrence.",!

 +9                SET QAOSQUIT=1

 +10               QUIT 

               End DoDot:1

               GOTO EXIT

 +11       WRITE !!?5,"*** A SIMILAR 'DELETED' OCCURRENCE HAS BEEN FOUND ***",*7,!

ASK       ;

 +1        WRITE !?5,"Do you want to continue"

 +2        SET %=2

           DO YN^DICN

           SET QAOSQUIT=$SELECT(%=2:1,%=-1:1,1:0)

           if QAOSQUIT

               GOTO EXIT

 +3        IF '%

               Begin DoDot:1

 +4                WRITE !!?5,"Please answer Y(es) or N(o)"

 +5                WRITE !!,"Answering Y(es) will add a new record to the file."

 +6                WRITE !,"Answering N(o) will abort the entry process and allow you to enter"

 +7                WRITE !,"a different new record, or you may use the 'Reopen Closed/Deleted"

 +8                WRITE !,"Occurrence Screen Record' option to work with the old record.",!

 +9                QUIT 

               End DoDot:1

               GOTO ASK

EXIT      ;

 +1        KILL %,QAOSD0

 +2        QUIT