Routine: NURCEVE1

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.

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*

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

Customize PDF page

Package: Nursing Service

Routine: NURCEVE1

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 2

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: