Routine: NURCVED0

Information

NURCVED0 ;HIRMFO/YH,MD,RM,FT-VITAL SIGNS EDIT SHORT FORM ;6/22/01 10:28

Source file <NURCVED0.m>

Package	Total	Call Graph
General Medical Record - Vitals	3	LIST^GMRVALL0 (EN3,Q)^GMRVED0 EN2^GMRVEE0
Nursing Service	2	WARDPAT^NURCVUT0 EN5^NURSCUTL
VA Fileman	2	^%DT YN^DICN
Kernel	1	$$FMADD^XLFDT
Registration	1	1^VADPT

Package	Total	Caller Graph
Nursing Service	2	NURCPE-VIT-ERROR NURCVED2

Name	Comments	DBIA/ICR reference
WRDST	; SET UTILITY FOR PATIENTS ON WARD
MULTIVM
Q5
EN2	;EDIT A VITAL/MEASUREMENT ENTERED IN ERROR
Q	;
EN1	;CALL TO EDIT PATIENT VITALS
SETWLO	; SET 42 FILE ENTRY FOR NURSWARD, NURWLO=$S(1:ONLY ONE 42 ENTRY, ; 0: MORE THAN ONE 42 ENTRY OR NO ENTRY)_"^"_(42 ENTRY) ; AND THE NURHLO ARRAY AS THE HOSPITAL LOCATIONS ASSOCIATED WITH 211.4
SETUTIL	; SET ARRAY OF PATIENTS
ASKOK	; LOOPING THROUGH NAMES
DATE	; CALL TO SET AND GMRVIDT (WHEN THE VITALS WERE TAKEN) ; ALSO RETURNS NURQUIT=1 IF TIMEOUT OR UPARROW OUT.
EDTPT	;
ASL

Name	Line Occurrences
Function Call: WRITE	Prompt: !,NURNAM,?$X+10,$S(NURRM=" BLANK":" ",1:NURRM)_"-"_$S(NBED=" BLANK":" ",1:NBED_" ") Line Location: ASKOK+1
Function Call: WRITE	Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'" Line Location: ASKOK+2
Function Call: WRITE	Prompt: !,"Do you wish to stop looping through names?" Line Location: ASL+0
Function Call: WRITE	Prompt: ! Line Location: ASL+0
Function Call: WRITE	Prompt: $C(7),!,?4,"ANSWER 'YES' or 'NO'" Line Location: ASL+1
Function Call: WRITE	Prompt: !,?3,$C(7),"Sorry, you cannot enter a date more than 1 year old." Line Location: DATE+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(42 - [#42]	WRDST+3, WRDST+4, SETWLO+3
^NURSF(211.4 - [#211.4]	WRDST+5, SETWLO+3
^NURSF(214 - [#214]	SETUTIL+1, SETUTIL+2
^TMP($J	EN1+9, EN1+10, EDTPT+1, SETUTIL+1!, WRDST+6*

Name	Field # of Occurrence
%	ASKOK+1, ASKOK+2, ASL, ASL+1, Q+1!, MULTIVM*
%DT	DATE+2*!
%DT("A"	DATE+2*
%DT(0	DATE+2*
C	Q+1!
DFN	EDTPT+1, SETUTIL+1, SETUTIL+2, WRDST+6, EN2+2, Q5!
DIC	Q5!
DIC(0	EN2+2*
DT	DATE+4
GDT	Q+1!
>> GMRENTY	EN1+8, EDTPT+2, MULTIVM+1
GMROK	Q+1!
GMROUT	EN1+5, EN1+8, EDTPT+1, ASKOK+1, Q+1!, MULTIVM+1
GMROV	Q+1!
GMRP	Q+1!
>> GMRSTR	EDTPT+2*
GMRTYPE	Q+1!
>> GMRVHLOC	EDTPT+1*
GMRVIDT	EN1+5, DATE+5, Q+1!
GMRVIEN	Q+1!
GNUROP	EN1+5*, Q+1!
I	Q+1!
IOST	WRDST+1
J	Q+1!
K	Q+1!
NACT	EN2+2*, Q5!
NAME	Q+1!
NASK	EN2+2*, Q5!
NBED	EN1+10*, EDTPT+1, ASKOK+1, Q+1!
NN	EN1+10*, Q+1!
NPWARD	Q+1!
>> NRMBD	EN1+9
>> NRMBD(	WRDST+2
NROOM	Q+1!
NUREDB	EN1+9, EDTPT+1, SETUTIL+1, SETUTIL+2, WRDST+2, Q+1!
NURENTY	EDTPT+2, Q+1!, MULTIVM+1
NURHLO	WRDST+3, WRDST+4, WRDST+5*, WRDST+6, Q+1!
NURHLO(	SETWLO+3*
NURNAM	EN1+10*, EDTPT+1, ASKOK+1, Q+1!
NURP	Q+1!
NURQUIT	EN1+5, EN1+7, EN1+9, EN1+10, EDTPT+1, ASKOK+1, ASL, DATE+3, Q+1!, MULTIVM+1
NURQUIT(1	EN1+7, EDTPT+1, ASKOK+1, ASL+2*
NURRM	EN1+10*, EDTPT+1, ASKOK+1, Q+1!
>> NURSDBA	EN1+5
NURSTR	EDTPT+2*, Q+1!
NURWARD	SETUTIL+1*, SETUTIL+2, WRDST+5, SETWLO+3, Q+1!
NURWLO	WRDST+4, SETWLO+3, SETWLO+4, Q+1!
NURX	Q+1!
>> VADM(1	WRDST+2, WRDST+6
>> VAIN(4	WRDST+3
>> VAIN(5	WRDST+2, WRDST+6
W	Q+1!
>> X	SETWLO+3, DATE+2, DATE+3
Y	SETWLO+3*, SETWLO+4, DATE+3, DATE+4, DATE+5, Q+1!
Z	SETWLO+3*, Q+1!