Routine: NURAAE0

Package	Total	Call Graph
VA Fileman	4	^%DT ^%DTC ^DIC ^DIE
Nursing Service	3	EN1^NURAAE1 ^NURAKILL EN6^NURSAUTL

Package	Total	Caller Graph
Nursing Service	1	NURAAM-ACUEDT

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	; KILL LOCAL VARIABLES
NODESEL	; SELECT NODE TO BE EDITED, THIS IS THE DATE PART
EDIT	; UPDATE ACUITY IN 213.4 amis 10-1106A MANHOURS FILE
SHIFT	; SELECT SHIFT OF RECORD TO BE EDITED
BEDSECT	; SELECT BED SECTION OF NODE
NEXT
EN1	; ENTRY FROM MENU OPTION NURAAM-ACUEDT
MSG
WARD	; SELECT WARD OF NODE

Name	Line Occurrences
Function Call: WRITE	Prompt: $C(7),!,"THIS DATE IS TOO FAR IN THE PAST. CANNOT UPDATE OR EDIT." Line Location: NODESEL+5
Function Call: WRITE	Prompt: !,$C(7),"SORRY, CANNOT EDIT FUTURE OR PRESENT DATES." Line Location: NODESEL+6
Function Call: READ	Prompt: "Select Shift(s) (Enter [N]ight [D]AY [E]vening or [A]ll Shifts): " Formatting: !! Timeout: DTIME,! Variable: NURSHFT Line Location: SHIFT+1
Function Call: WRITE	Prompt: !,"Enter shift selection(s) (i.e., N,D,E - A - ALL - ND - DE etc)." Line Location: SHIFT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+2
Function Call: WRITE	Prompt: ! Line Location: EDIT+2
Function Call: WRITE	Prompt: !,$C(7)," IMPROPER SHIFT SELECTION " Line Location: MSG+0
Routine Call	DIE Line Location: EDIT+2
Routine Call	DIC Line Location: WARD+5 BEDSECT+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1
^NURSA(213.4 - [#213.4]	EDIT+1*, EDIT+2
^NURSF(211.4 - [#211.4]	BEDSECT+1
^NURSF(213.3 - [#213.3]	BEDSECT+1, BEDSECT+3

Name	Field # of Occurrence
^(1	BEDSECT+3

Name	Field # of Occurrence
>> %DT	NODESEL+3, NODESEL+5
>> BEDSECT	BEDSECT+3*, EDIT+2
>> D1	BEDSECT+1*
>> DA	EDIT+2*
>> DA(1	EDIT+1, EDIT+2
DIC	WARD+5!, BEDSECT+2
DIC("A"	BEDSECT+2*
DIC("B"	BEDSECT+1*
DIC("S"	WARD+3, WARD+4
DIC(0	WARD+5, BEDSECT+2
DIE	EDIT+2*!
>> DR	EDIT+2*
DT	NODESEL+6
DTIME	NODESEL+1, SHIFT+1, WARD+1
DUZ(0	WARD+3
>> I	NEXT, SHIFT+5
>> MNCHKDTE	NODESEL+5*
>> NOSW	EN1+3, NEXT, WARD+2, BEDSECT+2*
>> NPWARD	NEXT, WARD+6*
>> NUREND	BEDSECT+3*
>> NURSHFT	NEXT, SHIFT+1, SHIFT+2, SHIFT+3*, SHIFT+4, SHIFT+5, SHIFT+6, SHIFT+7
>> NURSX	EN1+3*
>> NURX	SHIFT+6, SHIFT+7
>> OUTSW	EN1+2, EN1+3, EN1+4, NEXT, NODESEL+2, NODESEL+5, NODESEL+6, SHIFT+1, WARD+2, BEDSECT+2*
>> RPTDATE	NODESEL+4*, NODESEL+5, NODESEL+6
SHIFT	SHIFT+7!
SHIFT(	NEXT, SHIFT+6, SHIFT+7
U	BEDSECT+1, BEDSECT+2, BEDSECT+3
>> WARD	WARD+6*, BEDSECT+1
>> X	NODESEL+1, NODESEL+2, NODESEL+3, NODESEL+5, NODESEL+6, WARD+1, WARD+2, WARD+5, BEDSECT+1, BEDSECT+2
>> X1	NODESEL+5, NODESEL+6
>> X2	NODESEL+5, NODESEL+6
>> Y	NODESEL+3, NODESEL+4, NODESEL+5, WARD+5, WARD+6, BEDSECT+2, BEDSECT+3