Routine: NURQUTL

Information

NURQUTL ;HIRMFO/RM-QI SUMMARY UTILITIES ;4/24/96

Source file <NURQUTL.m>

Package	Total	Call Graph
VA Fileman	5	EN^DDIOL LIST^DIC GETS^DIQ ^DIR ^DIWP

Package	Total	Caller Graph
Nursing Service	1	NURQEDT1

Name	Comments	DBIA/ICR reference
QPM	; Quit and exit PERFORM procedure
GETPM(NURQIENS)	; This procedure will get the Performance Measures from 217.43 ; sub-file for the entry defined by NURQIENS (FM DB IENS format). ; Data will be returned in the ^TMP($J,"NURQPMS", array.
GETQUES(NURQIENS)	; This procedure will get the Questions from 748.26 ; sub-file for the entry defined by NURQIENS (FM DB IENS format). ; Data will be returned in the ^TMP($J,"NURQPMA", array.
QUESID(NURQIENS)	; This procedure is given the entry in the Question ; (748.26) sub-file defined by NURQIENS (in DBS IENS format), will ; set the printable text of that question for a LIST^DIC call.
REPM	; Label is here so can jump back to reask Performance Measures.
LISTQUES(ARRAY)	; This procedure will list perfmance measures selected so far, ; or questions that can be selected. ARRAY will be set to the list ; of performance measures to print.
PERFORM(NURQSURV,NURQLOC)	; This function will do a lookup on the ; Performance measure multiple and return a valid entry, or -1. ; Input variables: NURQSURV=IEN in file 217 ; NURQLOC=IEN in 217.04 sub-file (Location) ; Return Value: IEN in 217.43 sub-file, or -1 if none selected. ; NURQOUT=1 if user abnormally terminated selection.
PMID	; This procedure is called by Identifier code in LIST^DIC call which ; is returning the printable text for the question to be listed for ; a particular entry in the Performance Measure (217.43) sub-file.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!,"The following performance measures have been selected for "_NURQPLOC_":" Line Location: REPM+1
Function Call: WRITE	Prompt: !,"Select PERFORMANCE MEASURE: "_$S(Y]"":Y_"// ",1:"") Line Location: REPM+4
Function Call: WRITE	Prompt: !,$C(7),"INVALID ENTRY" Line Location: REPM+11
Function Call: WRITE	Prompt: !," Choose from: " Line Location: REPM+12
Function Call: WRITE	Prompt: !,NURQTXT Line Location: LISTQUES+8
Routine Call	DIC Line Location: GETQUES+4 GETPM+5
Routine Call	DIR Line Location: LISTQUES+9

FileNo	Call Tags
217.43	LIST^DIC

Name	Line Occurrences (* Changed, ! Killed)
^NURQ(217 - [#217]	PERFORM+10
^SC - [#44]	PERFORM+10
^TMP("DILIST"	GETQUES+3!, GETQUES+6, GETQUES+8!, GETPM+4!, GETPM+7, GETPM+8, GETPM+9!, QUESID+7
^TMP($J	PERFORM+8!, REPM+3, REPM+8, REPM+9, REPM+10, QPM+1!, GETQUES+3!, GETQUES+5!, GETQUES+6, GETQUES+7* , GETQUES+8!, GETPM+4!, GETPM+6!, GETPM+7, GETPM+8, GETPM+9!, QUESID+8
^UTILITY($J	QUESID+9!, QUESID+13!*, QUESID+21, QUESID+22, QUESID+25!

Name	Field # of Occurrence
^(0	PMID+5

Name	Field # of Occurrence
>> %	PERFORM+10, QUESID+13
ARRAY	LISTQUES~, LISTQUES+4, LISTQUES+5, LISTQUES+6, LISTQUES+7
>> DIR(0	LISTQUES+9*
DIWF	QUESID+14!, QUESID+19!
DIWL	QUESID+14!, QUESID+19!
DIWR	QUESID+14!, QUESID+19!
DTIME	REPM+4
IOM	QUESID+14, QUESID+19
IOSL	LISTQUES+9
>> NURQ1ST	QUESID+9, QUESID+12, QUESID+14
>> NURQDA	REPM+3
NURQDAT	QUESID+4~
NURQDAT(	QUESID+6, QUESID+10, QUESID+11
NURQFXN	PERFORM+7~, REPM+6, REPM+8, REPM+9, REPM+10, REPM+11*, QPM+2
NURQIENS	GETQUES~, GETQUES+4, GETPM~, PMID+4~, PMID+6*, PMID+7, QUESID~, QUESID+5, QUESID+6, QUESID+8 , QUESID+10, QUESID+11
NURQLOC	PERFORM~, PERFORM+9, PERFORM+10, GETPM+5
>> NURQOUT	REPM+2, REPM+5, REPM+6, LISTQUES+9
NURQPLOC	PERFORM+10*, REPM+1, QPM+1!
NURQQNO	LISTQUES+3~, LISTQUES+4, LISTQUES+5, QUESID+4~, QUESID+6, QUESID+8, QUESID+12, QUESID+18
NURQQUES	LISTQUES+3~, QUESID+4~
NURQREF	PMID+4~, PMID+5*, PMID+6
NURQSEQ	LISTQUES+5, LISTQUES+6, LISTQUES+7, QUESID+4~, QUESID+7, QUESID+8
NURQSURV	PERFORM~, PERFORM+9, PERFORM+10, REPM+9, GETPM+5, QUESID+4~
NURQTXT	LISTQUES+3~, LISTQUES+7*, LISTQUES+8
NURQX	REPM+7, REPM+8, REPM+10, REPM+11, QPM+1!, LISTQUES+3~, LISTQUES+6, LISTQUES+7, QUESID+4~, QUESID+11* , QUESID+21*, QUESID+22, QUESID+23
NURQY	REPM+7, QPM+1!, QUESID+4~, QUESID+22, QUESID+23
>> X	REPM+4, REPM+5, REPM+6, REPM+7, QUESID+11, QUESID+12, QUESID+13, QUESID+18
>> Y	REPM+3*, REPM+4, REPM+5, REPM+7, LISTQUES+9