| [613] | 1 | NURQEDT1 ;HIRMFO/MH,RM,YH-EDIT QI SUMMARY (#217) FILE ;1/22/97 15:28
|
|---|
| 2 | ;;4.0;NURSING SERVICE;;Apr 25, 1997
|
|---|
| 3 | EN8 ; Entry from the Edit All QI Summary Data [NURQA-PT-ALL] option.
|
|---|
| 4 | Q:'$$SURGENVR^NURQUTL1(2,1)
|
|---|
| 5 | D EDTCOMM^NURQEDT0(0) S NURQSDA=DA
|
|---|
| 6 | I DA>0 D
|
|---|
| 7 | . D E5^NURQEDT0 Q:NURQOUT
|
|---|
| 8 | . D E3^NURQEDT0 Q:NURQOUT
|
|---|
| 9 | . S DA(1)=DA D E2^NURQEDT0 Q:NURQOUT K DA S DA=NURQSDA
|
|---|
| 10 | . D E7^NURQEDT0 Q:NURQOUT
|
|---|
| 11 | . D E8^NURQEDT0 Q:NURQOUT
|
|---|
| 12 | . S NURQSDA(1)=NURQSDA,NURQSDA=$$GETLOC^NURQEDT0(NURQSDA(1))
|
|---|
| 13 | . Q:NURQSDA'>0 K DA M DA=NURQSDA
|
|---|
| 14 | . D E1^NURQEDT0 Q:NURQOUT
|
|---|
| 15 | . S DA(2)=DA(1),DA(1)=DA D RELIND
|
|---|
| 16 | . Q
|
|---|
| 17 | D Q^NURQEDT0
|
|---|
| 18 | Q
|
|---|
| 19 | RELIND ; Edit Performance Measure data.
|
|---|
| 20 | ; Input Variables: DA(2)=survey IEN in file 217.
|
|---|
| 21 | ; DA(1)=location IEN in 217.04.
|
|---|
| 22 | ;
|
|---|
| 23 | S NURQDA(2)=DA(2),NURQDA(1)=DA(1)
|
|---|
| 24 | I DA(2)'>0 W !,"CANNOT EDIT PERFORMANCE MEASURE.",!! G QRI
|
|---|
| 25 | K ^TMP("DILIST",$J) D LIST^DIC(748.26,","_DA(2)_",","","",1)
|
|---|
| 26 | I +$G(^TMP("DILIST",$J,0))'>0 D G QRI
|
|---|
| 27 | . W !!,"For PERFORMANCE MEASURE: You have to complete the questions for this",!,"particular survey in the QA QUESTIONS FILE ^QA(748.25).",!!
|
|---|
| 28 | . Q
|
|---|
| 29 | REASK ; Jump back here to ask for another Performance Measure.
|
|---|
| 30 | S NURQOUT=0,(NURQDA,Y)=$$PERFORM^NURQUTL(NURQDA(2),NURQDA(1)) G:+Y'>0 QRI
|
|---|
| 31 | K NURQFDA,NURQIEN S NURQFDA(217.43,"?+1,"_NURQDA(1)_","_NURQDA(2)_",",.01)="QA(748.25,"_NURQDA(2)_",1,"_+Y_","
|
|---|
| 32 | D UPDATE^DIE("","NURQFDA","NURQIEN") S NURQDA=+NURQIEN(1) K NURQIEN
|
|---|
| 33 | 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
|
|---|
| 34 | I '$D(^NURQ(217,NURQDA(2),2,NURQDA(1),3,NURQDA,0)) G REASK
|
|---|
| 35 | 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
|
|---|
| 36 | RLIC ; edit Rationale, method of determining variance, conclusion,
|
|---|
| 37 | ; recommendation/action, person/group taking action, date of
|
|---|
| 38 | ; implemented, and effectiveness of action taken
|
|---|
| 39 | K DA S DA(3)=NURQDA(2),DA(2)=NURQDA(1),DA(1)=NURQDA
|
|---|
| 40 | M DA=NURQDA S DIE="^NURQ(217,"_DA(2)_",2,"_DA(1)_",3,"
|
|---|
| 41 | S DR="1;8;9.5;10;11;13;19"
|
|---|
| 42 | D ^DIE K DIE,DA,DR I '$D(Y) G REASK
|
|---|
| 43 | S NURQOUT=1
|
|---|
| 44 | QRI ; Exit RELIND and clean up.
|
|---|
| 45 | K NURFLAG,NURQ1ST,NURQSEQ,^TMP("DILIST",$J),DIROUT,DTOUT,DUOUT,NURDFLT,NURQ,NURQDA,X,Y
|
|---|
| 46 | Q
|
|---|
