Routine: NURACE7

Package	Total	Call Graph
Nursing Service	3	EN1^NURACE1 EN4^NURACE8 $$DUPCLAS^NURSCUTL
VA Fileman	1	^%DT

Package	Total	Caller Graph
Nursing Service	2	NURACE0 NURACE8

Entry Points

Name	Comments	DBIA/ICR reference
ADDREV	; ADD REVIEWED CLASSIFICATION DATA
LOCK1
PRINTIT	;GO TO CLASSIFY PATIENT
CHK
A1
EN1	; SET LOCAL VARIABLES WITH PATIENT DATA
COMADD	;ENTER COMMENTS IF NECESSARY
A2
LOCK
FINAL21	;
FINAL2	;ADD PATIENT CLASSIFICATION TO DATABASE

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7)," NO PREVIOUS CLASSIFICATION--CANNOT REVIEW " Line Location: EN1+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: COMADD+1
Function Call: WRITE	Prompt: !,$C(7),"ANSWER MUST BE 1 TO 50 CHARACTERS IN LENGTH:" Line Location: COMADD+3
Function Call: WRITE	Prompt: !,$C(7),"* WHEN CHANGING THE CLASSIFICATION, COMMENTS MUST BE FILLED IN *" Line Location: COMADD+5
Function Call: WRITE	Prompt: $C(7)," * COMMENTS CANNOT BE DELETED *" Line Location: COMADD+7
Function Call: WRITE	Prompt: !,"ANSWER MUST BE 1 TO 50 CHARACTERS IN LENGTH" Line Location: COMADD+8
Function Call: WRITE	Prompt: !! Line Location: FINAL2+1

Name	Line Occurrences (* Changed, ! Killed)
^NURSA(214.6 - [#214.6]	CHK+1, LOCK, LOCK+1, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6
^NURSA(214.7 - [#214.7]	EN1+5, EN1+6, A1, ADDREV+2, LOCK1, LOCK1+2, LOCK1+3, LOCK1+4, LOCK1+5, LOCK1+6*
^NURSF(214 - [#214]	PRINTIT+1, COMADD+2, FINAL2+2
^VA(200 - [#200]	A1

Name	Line Occurrences
A2	EN1+5, EN1+6
ADDREV	FINAL21+1
CHK	CHK
COMADD	COMADD+3, COMADD+5, COMADD+7, COMADD+8
FINAL2	PRINTIT+2, PRINTIT+3, PRINTIT+4, COMADD+6
FINAL21	PRINTIT+2
LOCK	LOCK
LOCK1	LOCK1
PRINTIT	EN1+2, A1

Name	Field # of Occurrence
^(0	A1

Name	Field # of Occurrence
>> %DT	FINAL2+3, LOCK1+1
>> CHANGESW	COMADD+9*
>> CLASSREV	EN1+2, FINAL21+1
>> CLASSX	LOCK+1
>> COMMENTX	EN1+1, PRINTIT+3, PRINTIT+4, COMADD+1, COMADD+6, COMADD+9, LOCK+1
>> CONFIGX	EN1+1, PRINTIT+3, PRINTIT+4, FINAL2+2*, LOCK+1
>> DA	CHK+1, LOCK, LOCK+1, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK+6, LOCK+7, ADDREV+2* , LOCK1*, LOCK1+2, LOCK1+3, LOCK1+4, LOCK1+5, LOCK1+6
>> DATEX	FINAL2+3, CHK, LOCK+1
>> DFN	EN1+5, EN1+6, PRINTIT+1, COMADD+2, FINAL2+2, CHK, LOCK+1, LOCK1+2
DTIME	COMADD+1
DUZ	LOCK+1, LOCK1+2
>> FACTORS	EN1+1*, LOCK+1
>> FACTX	EN1+1*
>> I	COMADD+4*
>> NEWREV	LOCK+7, LOCK1+1, LOCK1+2
>> NOREVSW	PRINTIT+2, ADDREV+1*, LOCK1+2
>> NRX	A1*
>> NURSBS	EN1+1, PRINTIT+4, LOCK+1
>> NURSCLAS	EN1+3, EN1+4, EN1+5, EN1+6
>> NURSOLDC	EN1+4*, LOCK1+2
>> NURSREV	EN1+5, EN1+6, A1
>> NURSRMBD	LOCK+1
>> NURSRTSW	PRINTIT+2
>> NURSRVDT	LOCK1+1*, LOCK1+2
>> NURSWARD	LOCK+1
>> OUTSW	PRINTIT+1, COMADD+2
>> REVDATE	A1, A2
>> REVIEWER	A1, A2
>> REVNO	A1, A2
U	CHK+1, LOCK+6
>> X	COMADD+1, COMADD+2, COMADD+3, COMADD+4, COMADD+5, COMADD+6, COMADD+7, COMADD+8, COMADD+9, FINAL2+3* , LOCK+1, LOCK+2, LOCK+3, LOCK+4, LOCK+5, LOCK1+1, LOCK1+2*, LOCK1+3, LOCK1+4, LOCK1+5
>> Y	FINAL2+3, LOCK1+1