Routine: NURCYED0

Package	Total	Call Graph
VA Fileman	3	^%DT MIX^DIC1 (FILE,YN)^DICN
General Medical Record - IO	2	(INPUT,OUTPUT)^GMRYED1 LIST^GMRYED3
Nursing Service	1	WARDPAT^NURCVUT0
Registration	1	(1,KVAR)^VADPT

Package	Total	Caller Graph
Nursing Service	3	NURCPE-I/O-INTAKE NURCPE-I/O-IV CARE NURCPE-I/O-OUTPUT

Entry Points

Name	Comments	DBIA/ICR reference
SETUTIL	; SET ARRAY OF PATIENTS
WRDST	; SET UTILITY FOR PATIENTS ON WARD
EDIT	;
NEXT
Q	;
EN1	;CALL TO EDIT PATIENT OUTPUT
EN2	;CALL TO EDIT INTAKE
EN3	;IV AND IV MAINTENANCE
ASKOK	; LOOPING THROUGH NAMES
DATE	; CALL TO SET AND GMRVIDT (WHEN THE VITALS WERE TAKEN) ; ALSO RETURNS NURQUIT=1 IF TIMEOUT OR UPARROW OUT.
ASL
EDTPT	;
CHECK
EDIT2

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

FileNo	Call Tags
^GMR(126 - [#126]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^%ZOSF("TEST"	EN1+1, EN2+1, EN3+1
^DIC(42 - [#42]	EDIT2
^GMR(126 - [#126]	CHECK*
^NURSF(214 - [#214]	SETUTIL+1, SETUTIL+2
^TMP($J	EDIT+1, EDIT+2, EDTPT+1, SETUTIL+1!, WRDST+3*

Name	Field # of Occurrence
^(0	SETUTIL+1
^(44	EDIT2

Name	Field # of Occurrence
>> %	ASKOK+1, ASKOK+2, ASL, ASL+1
%DT	DATE+2*!
%DT("A"	DATE+2*
%DT(0	DATE+2*
>> D	CHECK+1*
DA	EDTPT+1, Q+1!, CHECK+1*
DD	CHECK+1!, NEXT!
DDLAYGO	NEXT!
DFN	EDTPT+1, SETUTIL+1, SETUTIL+2, WRDST+3, Q+1!, CHECK+1
DIC	CHECK+1*, NEXT!
DIC(0	CHECK+1*
>> DINUM	CHECK+1*
>> DLAYGO	CHECK+1*
DO	NEXT!
GDA	Q+1!
GMRHLOC	EDIT2*, EDIT2+1, Q+1!
GMROUT	EDIT2, EDIT2+1, Q+1!
GMRQUAL	Q+1!
>> GMRVIDT	DATE+4*
GNUROP	EN1+1, EN2+1, EN3+1*, EDIT2+1, Q+1!
IOST	WRDST+1
NBED	EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
ND1	Q+1!
NDA	Q+1!
NORM	Q+1!
NPWARD	Q+1!
NRMBD	EDIT+1, Q+1!
NRMBD(	WRDST+2
NUREDB	EDIT+1, EDTPT+1, EDIT2+1, SETUTIL+1, SETUTIL+2, WRDST+2, Q+1!
NURHLO	Q+1!
NURI	Q+1!
NURLEN	Q+1!
NURNAM	EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
NUROP	EN1+1, EN2+1, EN3+1*, Q+1!
NUROUT	Q+1!
NURP	Q+1!
NURQUIT	EDIT+1, EDIT+2, EDTPT+1, EDIT2+1, ASKOK+1, ASL, DATE+3*, Q+1!
NURQUIT(1	EDIT+1, EDIT2, EDIT2+1, ASKOK+1, ASL+2*
NURRM	EDIT+2*, EDTPT+1, ASKOK+1, Q+1!
NURRMST	Q+1!
NURSX	Q+1!
NURSY	Q+1!
NURWARD	SETUTIL+1*, SETUTIL+2, Q+1!
NURWLO	Q+1!
NURX	Q+1!
NWLOC	Q+1!
POP	Q+1!
VA	Q+1!
>> VADM(1	WRDST+2, WRDST+3
>> VAIN(4	EDIT2
>> VAIN(5	WRDST+2, WRDST+3
X	EN1+1, EN2+1, EN3+1, DATE+2, DATE+3, Q+1!, CHECK+1*
Y	DATE+3, DATE+4, Q+1!, CHECK+1