Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: NURQUTL

Package: Nursing Service

Routine: NURQUTL


Information

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

Source Information

Source file <NURQUTL.m>

Entry Points

Name Comments DBIA/ICR reference
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.
REPM ; Label is here so can jump back to reask Performance Measures.
QPM ; Quit and exit PERFORM procedure
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.
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.
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.
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.
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.

Interaction Calls

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
217.43 LIST^DIC
748.26 GETS^DIQ,  LIST^DIC
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call