Routine: NURCEVP0

Package	Total	Call Graph
Nursing Service	7	^NURCAS2 $$GETPROB^NURCEVE1 $$SELDAT^NURCEVE2 ^NURCKILL WARDPAT^NURCUT0 EN7^NURSUT0 (CLOSE,ENDPG)^NURSUT1
General Medical Record - Generator	1	EN1^GMRGRUT2
VA Fileman	1	(D,DT)^DIQ

Package	Total	Caller Graph
Nursing Service	1	NURCPP-EVAL

Entry Points

Name	Comments	DBIA/ICR reference
END	; CLEAN UP VARIABLES
DEV	; SELECT DEVICE TO SEND OUTPUT TO. ; IF REPORT IS QUEUED, SET UP TASK USING %ZTLOAD AND GET OUT OF ROUTINE
ENT1	;
HEADER	; PRINT HEADER FOR REPORT
PRINT	; ENTRY FROM TASKMAN TO PRINT THIS REPORT
PRTRMBD(ROOM,BED)	; THIS FUNTION RETURNS THE PRINTABLE FORM OF ROOM/BED

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"THERE IS A PROBLEM IN THE ""AA"" XREF.",! Line Location: ENT1+1
Function Call: WRITE	Prompt: !?3,"THIS PATIENT HAS NO PROBLEMS TO BE EVALUATED." Line Location: PRINT+17
Function Call: WRITE	Prompt: !?3,$E(GMRGXPRT,1,43),?48,$P($G(NURCPDT($P(X1,U,4))),U,2),?68,$P(X1,U,3) Line Location: PRINT+22
Function Call: WRITE	Prompt: !! Line Location: PRINT+26
Function Call: WRITE	Prompt: ! Line Location: HEADER+4
Function Call: WRITE	Prompt: ?23,"Nursing Problems to be Evaluated",?70,"Page ",PAGE Line Location: HEADER+4
Function Call: WRITE	Prompt: !!,"ROOM/BED",?17,"PATIENT (PID)",!,?48,"DATE/TIME",?68,"EVALUATION",!?3,"PROBLEM TO BE EVALUATED",?48,"DEVELOPED",?68,"DATE" Line Location: HEADER+5
Function Call: WRITE	Prompt: !,"==============================================================================" Line Location: HEADER+6

Name	Line Occurrences (* Changed, ! Killed)
^GMR(124.3 - [#124.3]	PRINT+5, PRINT+7
^GMRD(124.2 - [#124.2]	ENT1+1
^NURSC(216.8 - [#216.8]	PRINT+6
^TMP(	PRINT+1!, END+1!
^TMP("NURCHC"	PRINT+9
^TMP("NURPROB"	PRINT+9*, PRINT+17, PRINT+18, PRINT+19, PRINT+21
^TMP($J	PRINT+1!, PRINT+3, PRINT+4, PRINT+13, PRINT+14, END+1!

Name	Field # of Occurrence
BED	PRINT+3, PRINT+4, PRINT+13, PRINT+14, PRINT+16, PRTRMBD~, PRTRMBD+2, PRTRMBD+3, PRTRMBD+4
>> DEVDT	PRINT+7*
>> DFN	PRINT+4, PRINT+5, PRINT+9, PRINT+14, PRINT+17, PRINT+18, PRINT+19, PRINT+21
DT	PRINT+8, HEADER+4
>> GMRGPDA	PRINT+5, PRINT+6, PRINT+7, PRINT+9, PRINT+19, PRINT+21
>> GMRGRT	ENT1+1, ENT1+2, PRINT+5
>> GMRGXPRT	PRINT+21*, PRINT+22
>> GMRGXPRT(0	PRINT+21*
>> GMRGXPRT(1	PRINT+21*
IO	PRINT+12
IOF	HEADER+2
IOSL	PRINT+15, PRINT+20
IOST	HEADER+1, HEADER+2
>> NACT	ENT1+3*
>> NURCHC	PRINT+9*
>> NURCPDT(	PRINT+7*, PRINT+9, PRINT+22
>> NUREVDT	PRINT+8*
>> NUROUT	PRINT+1, PRINT+13, PRINT+15, PRINT+18, PRINT+19, PRINT+20, HEADER+1
>> NURPRB	PRINT+18*, PRINT+19, PRINT+21
NURQUEUE	DEV+2!
>> NURQUIT	ENT1+3
>> NURSCPE	PRINT+6*, PRINT+8
>> NURSW1	PRINT+1, PRINT+15, HEADER+1, HEADER+3
>> NURX	PRINT+13, PRINT+21
>> PAGE	PRINT+1, HEADER+2, HEADER+3, HEADER+4
>> PATNAME	PRINT+3, PRINT+4, PRINT+13, PRINT+14, PRINT+16
POP	DEV+2!
>> REVDT	PRINT+5*
>> REVDTDV	PRINT+18*, PRINT+19, PRINT+21
RMBD	PRTRMBD+1~, PRTRMBD+2, PRTRMBD+3, PRTRMBD+4, PRTRMBD+5, PRTRMBD+6
ROOM	PRINT+3, PRINT+4, PRINT+13, PRINT+14, PRINT+16, PRTRMBD~, PRTRMBD+2, PRTRMBD+3, PRTRMBD+4, PRTRMBD+5
U	PRINT+7, PRINT+9, PRINT+16, PRINT+21, PRINT+22
>> X	PRINT+1, PRINT+9, PRINT+14, PRINT+16, END+1
>> X1	PRINT+21*, PRINT+22
>> Y	PRINT+7, HEADER+4
ZTDESC	DEV+2*!
>> ZTRTN	DEV+2*
ZTSK	DEV+2!