- 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 Feb 18, 2025@23:47:33 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