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 |  Global Variables Directly Accessed |  Label References |  Local Variables |  All
Print Page as PDF
Routine: NURCEVE1

Package: Nursing Service

Routine: NURCEVE1


Information

NURCEVE1 ;HIRMFO/RTK,RM-Nursing Care Plans Edit Report ;8/29/96

Source Information

Source file <NURCEVE1.m>

Call Graph

Call Graph Total: 5

Package Total Call Graph
VA Fileman 2 DD^%DT  ^DIR  
General Medical Record - Generator 1 EN1^GMRGRUT2  
Kernel 1 $$UP^XLFSTR  
Nursing Service 1 ($$ACTIVE,$$SELDAT)^NURCEVE2  

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Nursing Service 2 NURCEVE0  NURCEVP0  

Entry Points

Name Comments DBIA/ICR reference
HDR ; HEADER FOR PROBLEM LISTING
VALIDATE(X,GMR) ; GIVEN X AS INPUT TO READ FOR CHOOSING SELECTIONS
; ENTRY WILL KILL X IF INVALID, ELSE WILL RETURN A TRANSFORMED
; VERSION OF X
GETPRB(NURENT,DATE) ; GIVEN ENTRY IN 216.8 (NURENT), FUNCTION WILL
; RETURN 1 IF THERE ARE ACTIVE PROBLEMS, ELSE 0.
; IF FUNCTION RETURNS 1, THEN PROBLEMS WILL BE IN:
; ^TMP("NURPRB",$J,PROBNAME,PROBIEN,GMRGPDA) ARRAY
; WHERE PROBNAME=FREE TEXT, PROBIEN=PTR 124.2, GMRGPDA=PTR 124.3
GETPROB(NURENT,DATE) ; GIVEN ENTRY IN 216.8 (NURENT), FUNCTION WILL
; RETURN NUMBER OF ACTIVE PROBLEMS FOUND. IF
; COUNT>0, PROBLEMS WILL BE IN ^TMP("NURCHC",$J,X) ARRAY
; WHERE 1 <= X <=COUNT
PCKPROB(NURACM) ; GIVEN NUMBER OF SELECTIONS TO PRINT (NURACM)
; FUNCTION WILL RETURN 1 IF USER HAS SELECTIONS TO PROCESS, 0 IF USER
; SELECTED NO PROBLEMS, AND -1 IF USER ABNORMALLY EXITED, IF
; FUNCTION RETURNS 1, THE LIST OF PROBLEMS USER WISHES TO PROCESS
; WILL BE IN ^TMP("NURUSL",$J)
SRTPROB(NURACM) ; GIVEN FLAG (NURACM) AS $S(0:NO ARRAY,1:ARRAY EXISTS)
; WHERE ARRAY IS ^TMP("NURPRB",$J,PROBNAME,NURPRB,GMRGPDA), THIS
; FUNCTION WILL RETURN NUMBER OF ARRAY ELEMENTS (COUNT) AND IF
; COUNT>0 THIS FUNCTION WILL RETURN ^TMP("NURCHC",$J,X) ARRAY
; WHERE X IS 1 <= X <= COUNT.

External References

Name Field # of Occurrence
DD^%DT GETPRB+20
^DIR HDR+4
EN1^GMRGRUT2 PCKPROB+10
$$ACTIVE^NURCEVE2 GETPRB+15
$$SELDAT^NURCEVE2 PCKPROB+10
$$UP^XLFSTR VALIDATE+5

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"THERE ARE NO PROBLEMS FOR THIS PATIENT."
  • Line Location: PCKPROB+6
Function Call: WRITE
  • Prompt: !,NURCNT,?3,$E(GMRGXPRT,1,43),?48,$P($G(NURCPDT($P(X,U,4))),U,2),?68,$P(X,U,3)
  • Line Location: PCKPROB+11
Function Call: WRITE
  • Prompt: !
  • Line Location: HDR+2
Function Call: WRITE
  • Prompt: #,!!,?48,"DATE/TIME",?68,"EVALUATION",!?3,"PROBLEM",?48,"DEVELOPED",?68,"DATE"
  • Line Location: HDR+9
Routine Call
  • DIR
  • Line Location:
    • HDR+4

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^GMRD(124.2 - [#124.2] GETPRB+14
^GMRD(124.25 - [#124.25] GETPRB+11
^NURSC(216.8 - [#216.8] GETPRB+12, GETPRB+13, GETPRB+17, GETPRB+18
^TMP("NURCHC" GETPROB+9!, SRTPROB+10*, PCKPROB+10
^TMP("NURPRB" GETPROB+9!, GETPROB+12!, GETPRB+22*, GETPRB+25, SRTPROB+8, SRTPROB+10
^TMP("NURUSL" PCKPROB+5!, PCKPROB+14, HDR+7*

Label References

Name Line Occurrences
$$GETPRB GETPROB+11
$$SRTPROB GETPROB+11
HDR PCKPROB+8, PCKPROB+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DATE GETPROB~, GETPROB+8*, GETPROB+11, GETPRB~, GETPRB+9*, GETPRB+22
DIR PCKPROB+16!, HDR+2!
DIR("?" HDR+2*, HDR+3*, HDR+4*
DIR("A" HDR+2*
DIR(0 HDR+4*
>> DTOUT HDR+5
GMR VALIDATE~, VALIDATE+3*, VALIDATE+5
GMRGPDA GETPRB+15, GETPRB+22, SRTPROB+5~, SRTPROB+8*, SRTPROB+10, PCKPROB+10*
>> GMRGXPRT PCKPROB+10*, PCKPROB+11
>> GMRGXPRT(0 PCKPROB+10*
>> GMRGXPRT(1 PCKPROB+10*
IEN GETPRB+10~, GETPRB+17*, GETPRB+18
IOSL PCKPROB+12
NURACM GETPROB+10~, GETPROB+11*, GETPROB+13, SRTPROB~, SRTPROB+6, SRTPROB+7*, SRTPROB+9*, SRTPROB+10, SRTPROB+13, PCKPROB~
, PCKPROB+6, PCKPROB+9, PCKPROB+12, HDR+3, HDR+9
NURCNT PCKPROB+8*, PCKPROB+9*, PCKPROB+10, PCKPROB+11, PCKPROB+12, PCKPROB+16!, HDR+1, HDR+2, HDR+3, HDR+4
, HDR+6*, HDR+9, VALIDATE+8, VALIDATE+9
>> NURCPDT( GETPRB+22, PCKPROB+11
NURCPRB GETPRB+11*, GETPRB+15, GETPRB+24!
NURDATE GETPRB+10~, GETPRB+16*, GETPRB+20*, GETPRB+22
NURENT GETPROB~, GETPROB+11, GETPRB~, GETPRB+12, GETPRB+13, GETPRB+17, GETPRB+18
NURMUL GETPRB+10~, GETPRB+12*, GETPRB+13
>> NUROUT PCKPROB+9, PCKPROB+14, HDR+1, HDR+5*
NURPRB GETPRB+10~, GETPRB+13*, GETPRB+14, GETPRB+15, GETPRB+17, GETPRB+22, SRTPROB+5~, SRTPROB+8*, SRTPROB+10
NURRD HDR+2!, HDR+6, VALIDATE+5*
NURSTAT GETPRB+10~, GETPRB+16*, GETPRB+19*, GETPRB+22
NURUSL PCKPROB+5~*, PCKPROB+14*, PCKPROB+17
NURX HDR+7*, VALIDATE+4~, VALIDATE+6*, VALIDATE+7, VALIDATE+8, VALIDATE+9
NURY HDR+7*, VALIDATE+4~, VALIDATE+6*
>> NURZ HDR+7*
PROBNAME GETPRB+10~, GETPRB+14*, GETPRB+22, SRTPROB+5~, SRTPROB+7*, SRTPROB+8*, SRTPROB+10
REVDT GETPRB+10~, GETPRB+17*
U GETPRB+14, GETPRB+15, GETPRB+19, GETPRB+20, GETPRB+22, SRTPROB+10, PCKPROB+10, PCKPROB+11, HDR+5
X GETPRB+10~, GETPRB+14*, GETPRB+15, GETPRB+18*, GETPRB+19, GETPRB+20, PCKPROB+10*, PCKPROB+11, VALIDATE~, VALIDATE+5*!
, VALIDATE+6, VALIDATE+7!, VALIDATE+8!, VALIDATE+9!
Y GETPRB+10~, GETPRB+20*, HDR+5, HDR+7
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Local Variables |  All