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

Call Graph

VA Fileman

^%DT MIX^DIC1 (FILE,YN)^DICN

General Medical Record - IO

(INPUT,OUTPUT)^GMRYED1 LIST^GMRYED3

Nursing Service

WARDPAT^NURCVUT0

Registration

(1,KVAR)^VADPT

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

Package

Total

Caller Graph

Nursing Service

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	Field # of Occurrence
^%DT	DATE+2
MIX^DIC1	CHECK+1
FILE^DICN	CHECK+1
YN^DICN	ASKOK+1, ASL
INPUT^GMRYED1	EDIT2+1
OUTPUT^GMRYED1	EDIT2+1
LIST^GMRYED3	EDIT2+1
WARDPAT^NURCVUT0	EDIT+1
1^VADPT	EDIT2, WRDST+1
KVAR^VADPT	Q+1

Interaction Calls

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	Line Occurrences
ASKOK	EDTPT+1, ASKOK+2
ASL	ASL+1
CHECK	EDTPT+1
EDIT	EN1+1, EN2+1, EN3+1
EDIT2	EDTPT+1
EDTPT	EDIT+2
NEXT	CHECK+1
Q	EN1+1, EN2+1, EN3+1
SETUTIL	EDIT+1
WRDST	SETUTIL+1, SETUTIL+2

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

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

Customize PDF page

Package: Nursing Service

Routine: NURCYED0

Information

Source Information

Call Graph

Call Graph Total: 7

Caller Graph

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: