NURQEDT1.m

NURQEDT1 ;HIRMFO/MH,RM,YH-EDIT QI SUMMARY (#217) FILE ;1/22/97  15:28

 ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN8 ; Entry from the Edit All QI Summary Data [NURQA-PT-ALL] option.

 Q:'$$SURGENVR^NURQUTL1(2,1)

 D EDTCOMM^NURQEDT0(0) S NURQSDA=DA

 I DA>0 D

 .  D E5^NURQEDT0 Q:NURQOUT

 .  D E3^NURQEDT0 Q:NURQOUT

 .  S DA(1)=DA D E2^NURQEDT0 Q:NURQOUT  K DA S DA=NURQSDA

 .  D E7^NURQEDT0 Q:NURQOUT

 .  D E8^NURQEDT0 Q:NURQOUT

 .  S NURQSDA(1)=NURQSDA,NURQSDA=$$GETLOC^NURQEDT0(NURQSDA(1))

 .  Q:NURQSDA'>0  K DA M DA=NURQSDA

 .  D E1^NURQEDT0 Q:NURQOUT

 .  S DA(2)=DA(1),DA(1)=DA D RELIND

 .  Q

 D Q^NURQEDT0

 Q

RELIND ; Edit Performance Measure data.

 ;  Input Variables: DA(2)=survey IEN in file 217.

 ;                   DA(1)=location IEN in 217.04.

 ;

 S NURQDA(2)=DA(2),NURQDA(1)=DA(1)

 I DA(2)'>0 W !,"CANNOT EDIT PERFORMANCE MEASURE.",!! G QRI

 K ^TMP("DILIST",$J) D LIST^DIC(748.26,","_DA(2)_",","","",1)

 I +$G(^TMP("DILIST",$J,0))'>0 D  G QRI

 .  W !!,"For PERFORMANCE MEASURE: You have to complete the questions for this",!,"particular survey in the QA QUESTIONS FILE ^QA(748.25).",!!

 .  Q

REASK ; Jump back here to ask for another Performance Measure.

 S NURQOUT=0,(NURQDA,Y)=$$PERFORM^NURQUTL(NURQDA(2),NURQDA(1)) G:+Y'>0 QRI

 K NURQFDA,NURQIEN S NURQFDA(217.43,"?+1,"_NURQDA(1)_","_NURQDA(2)_",",.01)="QA(748.25,"_NURQDA(2)_",1,"_+Y_","

 D UPDATE^DIE("","NURQFDA","NURQIEN") S NURQDA=+NURQIEN(1) K NURQIEN

 S NURDFLT="" K DA M DA=NURQDA S DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,",DR=".01" D ^DIE K DIE,DR I $D(Y) S NURQOUT=1 G QRI

 I '$D(^NURQ(217,NURQDA(2),2,NURQDA(1),3,NURQDA,0)) G REASK

 S DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,",DR="5;5.5" D ^DIE K DIE,DIC,DR I $D(Y) S NURQOUT=1 G QRI

RLIC ; edit Rationale, method of determining variance, conclusion,

 ; recommendation/action, person/group taking action, date of

 ; implemented, and effectiveness of action taken

 K DA S DA(3)=NURQDA(2),DA(2)=NURQDA(1),DA(1)=NURQDA

 M DA=NURQDA S DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,"

 S DR="1;8;9.5;10;11;13;19"

 D ^DIE K DIE,DA,DR I '$D(Y) G REASK

 S NURQOUT=1

QRI ; Exit RELIND and clean up.

 K NURFLAG,NURQ1ST,NURQSEQ,^TMP("DILIST",$J),DIROUT,DTOUT,DUOUT,NURDFLT,NURQ,NURQDA,X,Y

 Q

NURQEDT1  ;HIRMFO/MH,RM,YH-EDIT QI SUMMARY (#217) FILE ;1/22/97  15:28

 +1       ;;4.0;NURSING SERVICE;;Apr 25, 1997

EN8       ; Entry from the Edit All QI Summary Data [NURQA-PT-ALL] option.

 +1        IF '$$SURGENVR^NURQUTL1(2,1)

               QUIT 

 +2        DO EDTCOMM^NURQEDT0(0)

           SET NURQSDA=DA

 +3        IF DA>0

               Begin DoDot:1

 +4                DO E5^NURQEDT0

                   IF NURQOUT

                       QUIT 

 +5                DO E3^NURQEDT0

                   IF NURQOUT

                       QUIT 

 +6                SET DA(1)=DA

                   DO E2^NURQEDT0

                   IF NURQOUT

                       QUIT 

                   KILL DA

                   SET DA=NURQSDA

 +7                DO E7^NURQEDT0

                   IF NURQOUT

                       QUIT 

 +8                DO E8^NURQEDT0

                   IF NURQOUT

                       QUIT 

 +9                SET NURQSDA(1)=NURQSDA

                   SET NURQSDA=$$GETLOC^NURQEDT0(NURQSDA(1))

 +10               IF NURQSDA'>0

                       QUIT 

                   KILL DA

                   MERGE DA=NURQSDA

 +11               DO E1^NURQEDT0

                   IF NURQOUT

                       QUIT 

 +12               SET DA(2)=DA(1)

                   SET DA(1)=DA

                   DO RELIND

 +13               QUIT 

               End DoDot:1

 +14       DO Q^NURQEDT0

 +15       QUIT 

RELIND    ; Edit Performance Measure data.

 +1       ;  Input Variables: DA(2)=survey IEN in file 217.

 +2       ;                   DA(1)=location IEN in 217.04.

 +3       ;

 +4        SET NURQDA(2)=DA(2)

           SET NURQDA(1)=DA(1)

 +5        IF DA(2)'>0

               WRITE !,"CANNOT EDIT PERFORMANCE MEASURE.",!!

               GOTO QRI

 +6        KILL ^TMP("DILIST",$JOB)

           DO LIST^DIC(748.26,","_DA(2)_",","","",1)

 +7        IF +$GET(^TMP("DILIST",$JOB,0))'>0

               Begin DoDot:1

 +8                WRITE !!,"For PERFORMANCE MEASURE: You have to complete the questions for this",!,"particular survey in the QA QUESTIONS FILE ^QA(748.25).",!!

 +9                QUIT 

               End DoDot:1

               GOTO QRI

REASK     ; Jump back here to ask for another Performance Measure.

 +1        SET NURQOUT=0

           SET (NURQDA,Y)=$$PERFORM^NURQUTL(NURQDA(2),NURQDA(1))

           IF +Y'>0

               GOTO QRI

 +2        KILL NURQFDA,NURQIEN

           SET NURQFDA(217.43,"?+1,"_NURQDA(1)_","_NURQDA(2)_",",.01)="QA(748.25,"_NURQDA(2)_",1,"_+Y_","

 +3        DO UPDATE^DIE("","NURQFDA","NURQIEN")

           SET NURQDA=+NURQIEN(1)

           KILL NURQIEN

 +4        SET NURDFLT=""

           KILL DA

           MERGE DA=NURQDA

           SET DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,"

           SET DR=".01"

           DO ^DIE

           KILL DIE,DR

           IF $DATA(Y)

               SET NURQOUT=1

               GOTO QRI

 +5        IF '$DATA(^NURQ(217,NURQDA(2),2,NURQDA(1),3,NURQDA,0))

               GOTO REASK

 +6        SET DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,"

           SET DR="5;5.5"

           DO ^DIE

           KILL DIE,DIC,DR

           IF $DATA(Y)

               SET NURQOUT=1

               GOTO QRI

RLIC      ; edit Rationale, method of determining variance, conclusion,

 +1       ; recommendation/action, person/group taking action, date of

 +2       ; implemented, and effectiveness of action taken

 +3        KILL DA

           SET DA(3)=NURQDA(2)

           SET DA(2)=NURQDA(1)

           SET DA(1)=NURQDA

 +4        MERGE DA=NURQDA

           SET DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,"

 +5        SET DR="1;8;9.5;10;11;13;19"

 +6        DO ^DIE

           KILL DIE,DA,DR

           IF '$DATA(Y)

               GOTO REASK

 +7        SET NURQOUT=1

QRI       ; Exit RELIND and clean up.

 +1        KILL NURFLAG,NURQ1ST,NURQSEQ,^TMP("DILIST",$JOB),DIROUT,DTOUT,DUOUT,NURDFLT,NURQ,NURQDA,X,Y

 +2        QUIT