Routine: NURCVPR0

Package	Total	Call Graph
Nursing Service	6	^NURCAS2 WARDSEL^NURCUT0 SELECT^NURCVPR1 ^NURCVUT0 EN6^NURSAUTL EN7^NURSUT0
General Medical Record - Vitals	5	EN2^GMRVDS0 EN3^GMRVDS1 EN1^GMRVER0 (DATE,EN5)^GMRVSC0 (EN5,Q2)^GMRVSR0
Kernel	4	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD $$UP^XLFSTR
VA Fileman	2	^%DT (,NOW)^%DTC
Registration	1	(1,INP,KVAR)^VADPT

Package	Total	Caller Graph
Nursing Service	5	NURCPP-VIT-CUM NURCPP-VIT-DISP NURCPP-VIT-ERROR NURCPP-VIT-SF511 NURCPP-VIT-WARD

Entry Points

Name	Comments	DBIA/ICR reference
Q1
Q2
Q4
START	; ENTRY TO PRINT THIS REPORT AFTER IT HAS BEEN QUEUED ; NOTE: THIS REPORT MUST BE QUEUED TO A PRINTER.
START2	;
REPORT
REPT	;
DEV
EN1	;ENTER FROM NURCPP-VIT-SF511 OPTION TO PRINT SF 511, B/P OR WEIGHT CHART
EN2	;VITAL SIGNS DISPLAY BY INDIVIDUAL PATIENT
EN3	;REPORT OF VITALS ENTERED IN ERROR FOR A PATIENT
EN4	;CUMULATIVE VITALS REPORT BY WARD/ROOM/PATIENT
START4
DATE
EN5	;DISPLAY VITAL SIGNS BY LOCATION

External References

Name	Field # of Occurrence
^%DT	DATE, DATE+2
^%DTC	DATE+5
NOW^%DTC	DATE+3
^%ZIS	DEV, DEV+5
HOME^%ZIS	DEV+7
^%ZISC	Q2
^%ZTLOAD	DEV+7
EN2^GMRVDS0	EN2+2
EN3^GMRVDS1	START2+2
EN1^GMRVER0	EN3+2
DATE^GMRVSC0	EN4+5
EN5^GMRVSC0	REPORT
EN5^GMRVSR0	REPT+1
Q2^GMRVSR0	Q1
^NURCAS2	START+7, EN4+3
WARDSEL^NURCUT0	EN5+7
SELECT^NURCVPR1	EN1+7
^NURCVUT0	EN1+7, EN4+2
EN6^NURSAUTL	START+8
EN7^NURSUT0	EN4+6, EN5+10
1^VADPT	START2+1
INP^VADPT	EN4+4
KVAR^VADPT	Q4
$$UP^XLFSTR	DEV+4, START+2, START+4, START+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"PAIN CHART must be queued to a HP Laser printer",! Line Location: EN1+10
Function Call: WRITE	Prompt: !!,"This report must be queued to a line printer",!,"or a slave printer with 132 columns",!,"or a Kyocera/HP Laser printer",! Line Location: EN1+11
Function Call: WRITE	Prompt: ! Line Location: DEV+0
Function Call: WRITE	Prompt: !!,"Sorry, you must select a DEVICE that can print 132 columns. Try again." Line Location: DEV+2
Function Call: WRITE	Prompt: !,"PAIN CHART uses HP Laser printer only." Line Location: DEV+4
Function Call: WRITE	Prompt: ! Line Location: DEV+6
Function Call: WRITE	Prompt: !,"Sorry, you must select a Kyocera or HP Laser printer for the Pain Chart." Line Location: START+4
Function Call: WRITE	Prompt: !,"Sorry, you must select a HP Laser printer." Line Location: START+5
Function Call: WRITE	Prompt: !,"NO DATA FOR THIS REPORT" Line Location: START+7
Function Call: WRITE	Prompt: !?5,"Ending date of range needs to be greater that starting date.",!?5,$C(7),"PLEASE REENTER!!" Line Location: DATE+6
Function Call: WRITE	Prompt: !,"NO PATIENT FOR THIS REPORT" Line Location: EN4+3
Function Call: WRITE	Prompt: !,"**** NO DATA FOR UNIT : ",NPWARD Line Location: EN5+8
Routine Call	%ZIS Line Location: DEV+7
Routine Call	%ZIS Line Location: DEV DEV+5

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN1+9, START+3
^DD("DD"	DATE+7
^DIC(42 - [#42]	START2+2
^NURSF(211.4 - [#211.4]	EN5+8
^NURSF(214 - [#214]	START+8, START2+1
^TMP($J	START+7!, START+11, REPT+1, Q2+1!, EN4+3!, START4+2, REPORT, START2+1*

Label References

Name	Line Occurrences
DATE	EN1+8, DATE+6
DEV	EN1+10, DEV+2, DEV+4
Q1	START+7, START+12
Q2	EN1+7, EN1+8, DEV, DEV+5, DEV+7, Q4, EN5+7, EN5+8, EN5+10, START2+3
Q4	EN4+2, EN4+3, EN4+5, EN4+6
REPORT	START4+2
REPT	START+11
START	DEV+5

Naked Globals

Name	Field # of Occurrence
^(	REPT+1
^(0	START+8, EN5+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DATE+3
%DT	DATE!, DATE+2!
%DT("A"	DATE, DATE+2
%DT("B"	DATE, DATE+2
%T	Q2+2!
%W	Q2+2!
%Y1	Q2+2!
%ZIS	DEV*, DEV+5!
%ZIS("B"	DEV*
DFN	START+8, REPT+1, Q2+1!, REPORT, START2+1*
DT	DATE+3
G	DEV+6, Q2+1!, EN4+5, EN5+9*
GFLAG	START+7*, Q4!
GMRDATE	START+10*, Q2+1!
GMRDT	Q2+1!
GMROUT	Q2+1!, EN4+4*, EN4+5, START4+2, Q4!
GMRPG	START4*, Q4!
GMRVFDT	Q4!
>> GMRVHLOC	START2+2*
GMRVSDT	Q4!
GMRVWLO	START+9, Q2+1!, START2+2
GMRX	EN4+4*, Q4!
GSTRFIN	DATE+7*, Q2+3!
IO	START4
IO("Q"	DEV+5, DEV+6, DEV+7, START+2
IOM	DEV+1, DEV+2
ION	DEV+1, DEV+6
>> IOP	DEV+5*
IOSL	DEV+1
IOST	DEV+1, DEV+4, START+2, START+4, START+5
NAME	Q2+1!
NBED	START+11, REPT+1, Q2+1!, START4+2, REPORT
ND1	Q2+1!
NDA	Q2+1!
NGRAPH	EN1+7*, EN1+9, EN1+10, DEV+4, START+2, START+10, Q2!
NI	Q2+1!
NIEF	Q2+1!
NN	Q2+1!
NORM	Q2+1!
NPWARD	START+8*, START+9, Q2+1!, EN5+8, START2+2
NRMBD	EN1+7, Q2+1!, EN4+2
NROOM	Q2+1!
NUR5FLG	EN1+9*, EN1+10, DEV+4, Q2+1!
NURDEV	DEV+1~*, DEV+5
NUREDB	EN1+7, START+8, Q2+1!, EN4+2, EN4+4, EN5+7*
NURFIN	START+10, DATE+5*, DATE+6, DATE+7, Q2+1!
NURI	Q2+1!
NURLEN	Q2+1!
NURLOCSW	Q2!, EN5+7*
NURMDSW	Q2+3!
NURNAM	START+11, REPT+1, Q2+1!, START4+2, REPORT
NURP	Q2!
NURPERR	START+2, START+4, START+5*, Q2+1!
NURQUEUE	Q2+1!
NURQUIT	EN1+7, EN1+8, START+11, DATE, DATE+2, Q2+1!, EN4+2, EN5+7*
NURRM	START+10, START+11, REPT+1, Q2+1!, START4+1, START4+2, REPORT
NURRMST	Q2+1!
NURSTRT	START+10, DATE+1*, DATE+5, DATE+6, DATE+7, Q2+1!
NURSX	Q2+2!
NURSY	Q2+2!
NURWARD	Q2+1!, EN5+8, START2+1
NURX	Q2+2!
NWLOC	Q2+2!
NWRD	Q2+1!
>> POP	DEV, DEV+5, EN4+6, EN5+10
VA	Q4!
>> VADM(1	START2+1
>> VAIN(4	START2+2
>> VAIN(5	START2+1
>> VAIN(7	EN4+4
VAROOT	Q2+2!
X	EN1+9, START+3, DATE+6, Q2+1!
X1	DATE+5*, Q2!
X2	DATE+5*, Q2!
Y	DATE, DATE+1, DATE+2, DATE+3, DATE+4, DATE+5, DATE+7*, Q2+1!
ZTDESC	DEV+6, Q2!, EN5+9
>> ZTIO	DEV+6*
>> ZTRTN	DEV+6, EN4+5, EN5+9*
>> ZTSAVE(	DEV+6, EN4+5, EN5+9*
ZTSK	Q2!, EN4+6, EN5+10

Customize PDF page

Package: Nursing Service

Routine: NURCVPR0

Information

Source Information

Call Graph

Call Graph Total: 18

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: