Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph Total: 5

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

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Nursing Service 1 NURQEDT1  

Entry Points

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.

External References

Name Field # of Occurrence
EN^DDIOL QUESID+23
LIST^DIC GETQUES+4, GETPM+5
GETS^DIQ QUESID+5
^DIR LISTQUES+9
^DIWP QUESID+14, QUESID+19

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
Routine Call
  • DIC
  • Line Location:
    • GETQUES+4
    • GETPM+5
Routine Call
  • DIR
  • Line Location:
    • LISTQUES+9

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
217.43 LIST^DIC

Global Variables Directly Accessed

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!

Label References

Name Line Occurrences
GETPM PERFORM+9
GETQUES REPM+9
LISTQUES REPM+2, REPM+13
QPM REPM+2, REPM+6
QUESID PMID+7
REPM REPM+6

Naked Globals

Name Field # of Occurrence
^(0 PMID+5

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All