Routine: NURACE1

Package	Total	Call Graph
Nursing Service	8	(EN1,EN2)^NURACE2 (EN1,EN2,EN3,EN4,EN5)^NURACE3 (EN1,EN2)^NURACE4 (EN1,EN2)^NURACE5 (EN1,EN2)^NURACE6 (EN4,EN5,EN6)^NURACE8 (EN1,EN2)^NURACE9 EN6^NURSAUTL
VA Fileman	2	YN^DICN D^DIQ

Package	Total	Caller Graph
Nursing Service	1	NURACE7

Entry Points

Name	Comments	DBIA/ICR reference
PRTREV1	;
PRTCONT	;FINISH PRINTING PATIENT INFO
FACTCK	;
PRTREV	;PRINT REVIEW INFO IF REVIEWING
EDITIT2	;
EDITIT1	;GO TO EDIT PATIENT CLASSIFICATION
EN1	;BEGIN PRINTING PATIENT INFO
PRTCONT1	;
NURSWBYP	;PRINT REST OF PATIENT INFO
EDITCONT	;
FACTPRNT	; PRINT FACTOR LISTS

External References

Name	Field # of Occurrence
YN^DICN	PRTREV1+1, PRTCONT1+1, EDITIT1+2
D^DIQ	NURSWBYP+9, PRTREV+4
EN1^NURACE2	EDITCONT+12
EN2^NURACE2	FACTCK+1
EN1^NURACE3	FACTPRNT+1
EN2^NURACE3	FACTPRNT+1
EN3^NURACE3	FACTPRNT+1
EN4^NURACE3	FACTPRNT+1
EN5^NURACE3	FACTPRNT+1
EN1^NURACE4	EDITCONT+12
EN2^NURACE4	FACTCK+1
EN1^NURACE5	EDITCONT+12
EN2^NURACE5	FACTCK+1
EN1^NURACE6	EDITCONT+12
EN2^NURACE6	FACTCK+1
EN4^NURACE8	PRTREV1+2, PRTCONT1+2, EDITIT2+1, EDITCONT+8
EN5^NURACE8	NURSWBYP+3, EDITCONT+12
EN6^NURACE8	EDITCONT+2
EN1^NURACE9	EDITCONT+12
EN2^NURACE9	FACTCK+1
EN6^NURSAUTL	EN1+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,?13,"PATIENT CLASSIFICATION ",NURSBSF Line Location: EN1+1
Function Call: WRITE	Prompt: !,"FACTORS:" Line Location: EN1+3
Function Call: WRITE	Prompt: !!,?8,"Current Classification: ",CLASSX," Factors: ",FACTX," (",CONFIGX,")" Line Location: NURSWBYP+4
Function Call: WRITE	Prompt: !,?8,"Computer's Classification for Factors would have been: ",CLASSX Line Location: NURSWBYP+5
Function Call: WRITE	Prompt: !,?8,"Comments: ",COMMENTX Line Location: NURSWBYP+6
Function Call: WRITE	Prompt: !,?8,"Last user to classify: ",USERX Line Location: NURSWBYP+7
Function Call: WRITE	Prompt: !,?8,"Last date/time classified: " Line Location: NURSWBYP+8
Function Call: WRITE	Prompt: Y Line Location: NURSWBYP+9
Function Call: WRITE	Prompt: !,?8,"Last reviewed by: ",REVIEWER Line Location: PRTREV+2
Function Call: WRITE	Prompt: !,?8,"Last date/time reviewed: " Line Location: PRTREV+3
Function Call: WRITE	Prompt: Y Line Location: PRTREV+4
Function Call: WRITE	Prompt: !!,"Do you wish to override this classification" Line Location: PRTREV1+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: PRTREV1+3
Function Call: WRITE	Prompt: !,"Do you wish to retain this as the current classification" Line Location: PRTCONT1+1
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: PRTCONT1+5
Function Call: WRITE	Prompt: !,7,"* NO FACTORS OR CLASSIFICATION ENTERED FOR THIS PATIENT **" Line Location: EDITIT1+2
Function Call: WRITE	Prompt: !!,"Do you wish to enter in a classification" Line Location: EDITIT1+2
Function Call: WRITE	Prompt: !,"ANSWER YES OR NO" Line Location: EDITIT2+3
Function Call: WRITE	Prompt: !!,$C(7),"THIS PATIENT IS BEING EDITED, TRY LATER!!" Line Location: EDITCONT+1
Function Call: WRITE	Prompt: !!,"PATIENT: ",NURSNAM," SSN: ",SSN Line Location: EDITCONT+3
Function Call: WRITE	Prompt: !,"Choose one factor from each group." Line Location: EDITCONT+4
Function Call: READ	Timeout: DTIME Variable: FACT Line Location: EDITCONT+7
Function Call: WRITE	Prompt: !,$C(7),"This is an invalid response!" Line Location: EDITCONT+9

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(214 - [#214]	PRTREV1+2, EDITCONT+1, EDITCONT+2, EDITCONT+8, EDITCONT+13, EDITCONT+14

Label References

Name	Line Occurrences
EDITCONT	NURSWBYP+10, EDITIT1+3, EDITIT2+2, EDITCONT+9
EDITIT1	NURSWBYP+2, PRTREV+1, PRTREV1+4, PRTCONT+1, PRTCONT1+4, EDITIT2+3, EDITCONT+14
EDITIT2	EDITIT1+2
FACTCK	NURSWBYP+5
FACTPRNT	NURSWBYP+1
NURSWBYP	EN1+3
PRTCONT	NURSWBYP+3, NURSWBYP+11
PRTCONT1	PRTCONT1+5
PRTREV	NURSWBYP+2, NURSWBYP+3
PRTREV1	PRTREV1+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	PRTREV1+1, PRTREV1+2, PRTREV1+3, PRTREV1+4, PRTCONT1+1, PRTCONT1+2, PRTCONT1+3, PRTCONT1+4, EDITIT1+2*, EDITIT2+1 , EDITIT2+2
>> CK	EDITCONT+6, EDITCONT+10, EDITCONT+11
>> CLASSREV	NURSWBYP+2, NURSWBYP+3, NURSWBYP+11, EDITIT1+2, EDITIT2+2*
>> CLASSX	NURSWBYP+2, NURSWBYP+4, NURSWBYP+5, NURSWBYP+10, PRTREV+1, PRTCONT+1, EDITIT1+2
>> COMMENTX	NURSWBYP+6
>> CONFIGX	NURSWBYP+4, NURSWBYP+5
>> DATEX	NURSWBYP+9
>> DFN	PRTREV1+2, EDITCONT+1, EDITCONT+2, EDITCONT+8, EDITCONT+13, EDITCONT+14
DTIME	EDITCONT+7
FACT	EDITCONT+6!, EDITCONT+7, EDITCONT+8, EDITCONT+9, EDITCONT+10, EDITCONT+11*
>> FACTORS	NURSWBYP+10
>> FACTX	NURSWBYP+4, NURSWBYP+10*, PRTREV+1, EDITCONT+5
>> I	EDITCONT+10*
>> NOREVSW	PRTREV1+5*
>> NPWARD	EN1+2*
>> NURSBS	EN1+3, NURSWBYP+3, NURSWBYP+10, EDITCONT+2, EDITCONT+4, EDITCONT+12, EDITCONT+14, FACTCK+1, FACTPRNT+1
>> NURSBSF	EN1+1, EN1+2
>> NURSNAM	EN1+2, EDITCONT+3
>> NURSNSW	NURSWBYP+5*
>> NURSRMBD	EN1+2
>> NURSRTSW	PRTCONT1+3*
NURSTCLS	NURSWBYP+5*!
>> NURSWARD	EN1+2
>> OUTSW	NURSWBYP+1, PRTREV1+2, PRTCONT1+2, EDITIT2+1, EDITCONT+1, EDITCONT+8*, EDITCONT+13
>> PADMDT	EN1+2
>> REENTSW	NURSWBYP+10, EDITIT1+1, EDITCONT+14
>> REVDATE	PRTREV+4
>> REVIEWER	PRTREV+2
>> SSN	EN1+2, EDITCONT+3
>> USERX	NURSWBYP+7
>> XCLAS	NURSWBYP+5*
>> Y	NURSWBYP+9, PRTREV+4

Customize PDF page

Package: Nursing Service

Routine: NURACE1

Information

Source Information

Call Graph

Call Graph Total: 10

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: