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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HNURQEDT1 2238 printed Dec 13, 2024@02:21:08 Page 2
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
