Routine: NURACEW

Package	Total	Call Graph
Nursing Service	3	(EN1,EN2)^NURACE0 SORTTABL^NURACEW1 EN6^NURSAUTL
Registration	1	1^VADPT
VA Fileman	1	^DIC

Package	Total	Caller Graph
Nursing Service	2	NURAPC-REVWRD NURAPC-WRD

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;KILL LOCAL VARIABLES
CHKCONT2	;
READNXT	; GET NEXT PATIENT
EDIT	; SELECT WARD TO BE SEARCHED
CHKCONT	;
QUIT2	; KILL THE REST OF THE VARIABLES
EN1	;
EN2	; ENTRY FROM OPTION NURAPC-REVWRD
CHKENTR	;ASK TO CLASSIFY ON THE WARD
CHKCONT1	;
BGNRPT	; VALIDATE EACH PATIENT REGISTERED ON WARD

Name	Line Occurrences
Function Call: WRITE	Prompt: !,7,"* NO PATIENTS REGISTERED ON WARD ",NPWARD," **" Line Location: EDIT+5
Function Call: WRITE	Prompt: !,"Begin updating patient classifications." Line Location: CHKENTR+3
Function Call: WRITE	Prompt: !!,$P(NURSTABL(TCNT),"^",2),?$X+10,ROOMTABL(TCNT)," OK? YES// " Line Location: CHKCONT1+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: CHKCONT1+5
Function Call: WRITE	Prompt: !!,"Do you wish to stop looping through names? YES//" Line Location: CHKCONT2+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: CHKCONT2+4
Function Call: WRITE	Prompt: !!,?16,"** ROUTINE FINISHED **",!! Line Location: QUIT2+1
Routine Call	DIC Line Location: EDIT+2

FileNo	Call Tags
^NURSF(211.4 - [#211.4]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1, EN2+1
^NURSF(214 - [#214]	EDIT+3, READNXT+1

Name	Line Occurrences
BGNRPT	READNXT+3
CHKCONT	CHKCONT1+3, CHKCONT2+3
CHKCONT1	CHKCONT1+5
CHKCONT2	CHKCONT1+4, CHKCONT2+4
CHKENTR	READNXT+2
EDIT	EN1+4
QUIT	EN1+2, EN2+2, CHKENTR+1
QUIT2	CHKENTR+2, CHKCONT+2, CHKCONT1+2, CHKCONT2+2

Name	Field # of Occurrence
DA	EDIT+5!
DFN	EDIT+3, EDIT+5, BGNRPT+3, READNXT+1, READNXT+2, QUIT+1!
DIC	EDIT+1*, EDIT+2!, EDIT+5!, QUIT+1!
DIC("A"	EDIT+1*
DIC("S"	EDIT+1*
DIC(0	EDIT+1*
DTIME	CHKCONT1+1, CHKCONT2+1
I	QUIT+1!
NOPATSW	EDIT+5!, QUIT+1!
NPWARD	EDIT+5*!
NURSCNT	BGNRPT+3*, QUIT2+2!
NURSDTSW	QUIT2+2!
NURSTABL	EDIT+6!, QUIT2+2!
NURSTABL(	BGNRPT+3*, CHKCONT+2, CHKCONT1+1
NURSTABL(1	CHKENTR+2, QUIT2+1
NURSWHO	QUIT2+2!
NURSX	CHKCONT1+1, CHKCONT1+2, CHKCONT1+3, CHKCONT1+4, CHKCONT2+1, CHKCONT2+2, CHKCONT2+3, QUIT2+2!
NURSY	QUIT2+2!
NURSZ	QUIT2+2!
POP	QUIT+1!
REVSW	EN1+3, EN2+3, EDIT+2!, EDIT+5!, CHKCONT1+3, QUIT2+2!
ROOMTABL	QUIT2+2!
ROOMTABL(	BGNRPT+3*, CHKCONT1+1
TABLSW	CHKCONT1+3*, QUIT2+2!
TCNT	EDIT+6, BGNRPT+3, CHKENTR+4, CHKCONT+1, CHKCONT+2, CHKCONT1+1, QUIT2+2!
>> VADM(1	BGNRPT+3
>> VAIN(5	BGNRPT+2
VAROOT	QUIT2+2!
WARDNAM	EDIT+3*, EDIT+5!, READNXT+1, QUIT+1!
X	EDIT+2, QUIT+1!
XRMBD	BGNRPT+1, BGNRPT+2, BGNRPT+3, QUIT2+2!
Y	EDIT+2, EDIT+3, QUIT+1!