Routine: NURQEDT1

Information

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

Source file <NURQEDT1.m>

Package	Total	Call Graph
Nursing Service	3	($$GETLOC,E1,E2,E3,E5,E7,E8,EDTCOMM,Q)^NURQEDT0 $$PERFORM^NURQUTL $$SURGENVR^NURQUTL1
VA Fileman	2	LIST^DIC (,UPDATE)^DIE

Package	Total	Caller Graph
Nursing Service	2	NURQA-PT-ALL NURQEDT0

Name	Comments	DBIA/ICR reference
EN8	; Entry from the Edit All QI Summary Data [NURQA-PT-ALL] option.
QRI	; Exit RELIND and clean up.
RLIC	; edit Rationale, method of determining variance, conclusion, ; recommendation/action, person/group taking action, date of ; implemented, and effectiveness of action taken
RELIND	; Edit Performance Measure data. ; Input Variables: DA(2)=survey IEN in file 217. ; DA(1)=location IEN in 217.04.
REASK	; Jump back here to ask for another Performance Measure.

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"CANNOT EDIT PERFORMANCE MEASURE.",!! Line Location: RELIND+5
Function Call: WRITE	Prompt: !!,"For PERFORMANCE MEASURE: You have to complete the questions for this",!,"particular survey in the QA QUESTIONS FILE ^QA(748.25).",!! Line Location: RELIND+8
Routine Call	DIC Line Location: RELIND+6
Routine Call	DIE Line Location: REASK+3
Routine Call	DIE Line Location: REASK+4 REASK+6 RLIC+6

Name	Line Occurrences (* Changed, ! Killed)
^NURQ(217 - [#217]	REASK+5
^TMP("DILIST"	RELIND+6!, RELIND+7, QRI+1!

Name	Line Occurrences
QRI	RELIND+5, RELIND+7, REASK+1, REASK+4, REASK+6
REASK	REASK+5, RLIC+6
RELIND	EN8+12

Name	Field # of Occurrence
DA	EN8+2, EN8+3, EN8+6!, EN8+10!, EN8+12, REASK+4!, RLIC+3!, RLIC+4, RLIC+6!
DA(1	EN8+6, EN8+12, RELIND+4, REASK+4, REASK+6, RLIC+3*, RLIC+4
DA(2	EN8+12, RELIND+4, RELIND+5, RELIND+6, REASK+4, REASK+6, RLIC+3, RLIC+4
DA(3	RLIC+3*
DIC	REASK+6!
DIE	REASK+4!, REASK+6!, RLIC+4*, RLIC+6!
DIROUT	QRI+1!
DR	REASK+4!, REASK+6!, RLIC+5*, RLIC+6!
DTOUT	QRI+1!
DUOUT	QRI+1!
NURDFLT	REASK+4*, QRI+1!
NURFLAG	QRI+1!
NURQ	QRI+1!
NURQ1ST	QRI+1!
NURQDA	REASK+1, REASK+3, REASK+4, REASK+5, RLIC+3, RLIC+4, QRI+1!
NURQDA(1	RELIND+4*, REASK+1, REASK+2, REASK+5, RLIC+3
NURQDA(2	RELIND+4*, REASK+1, REASK+2, REASK+5, RLIC+3
NURQFDA	REASK+2!
NURQFDA(	REASK+2*
NURQIEN	REASK+2!, REASK+3!
NURQIEN(1	REASK+3
>> NURQOUT	EN8+4, EN8+5, EN8+6, EN8+7, EN8+8, EN8+11, REASK+1, REASK+4, REASK+6, RLIC+7
>> NURQSDA	EN8+2, EN8+6, EN8+9, EN8+10
>> NURQSDA(1	EN8+9*
NURQSEQ	QRI+1!
X	QRI+1!
Y	REASK+1*, REASK+2, REASK+4, REASK+6, RLIC+6, QRI+1!