Routine: NURAED01

Information

NURAED01 ;HIRMFO/RM-Cont. of NURAED0 routine ;2/26/92

Package	Total	Call Graph
VA Fileman	3	^DIC YN^DICN ^DIE
Nursing Service	1	EN5^NURAED3

Package	Total	Caller Graph
Nursing Service	1	NURAED0

Name	Line Occurrences
Function Call: READ	Prompt: "Select Nursing Service Staff Name: " Formatting: !! Timeout: DTIME Variable: X Line Location: SEL+1
Function Call: WRITE	Prompt: !!?1,"YOU MAY ALSO ADD A NEW NURS STAFF IF YOU WISH.",! Line Location: SEL+2
Function Call: WRITE	Prompt: !?7,Y(0,0) Line Location: SEL+3
Function Call: WRITE	Prompt: !!,$C(7)," STAFF RECORD DATA MISSING " Line Location: SEL+4
Function Call: WRITE	Prompt: !?9,"...OK" Line Location: YNOK+1
Function Call: WRITE	Prompt: !?13,"ANSWER YES OR NO." Line Location: YNOK+1
Function Call: WRITE	Prompt: ?15,Y(0,0) Line Location: YNOK+3
Function Call: WRITE	Prompt: "??" Line Location: YNOK+5
Function Call: WRITE	Prompt: $C(7),!?3,"ARE YOU ADDING '",Y(0,0),"' AS A NEW NURS STAFF (THE ",NURCNT,$S(NURCNT#10=1&(NURCNT#100-11):"ST",NURCNT#10=2&(NURCNT#100-12):"ND",NURCNT#10=3&(NURCNT#100-13):"RD",1:"TH"),")" Line Location: ADD+1
Function Call: WRITE	Prompt: $C(7),!?4,"ANSWER 'YES' OR 'NO'" Line Location: ADD+2
Routine Call	DIE Line Location: ADD+3
Routine Call	DIC Line Location: SEL+2 SEL+3 YNOK+2

Name	Line Occurrences (* Changed, ! Killed)
^DIC(213.9 - [#213.9]	EN1+1
^NURSF(210 - [#210]	YNOK+3, YNOK+4!, YNOK+6, ADD, ADD+3*

Name	Field # of Occurrence
^(0	EN1+1, YNOK+6

Name	Field # of Occurrence
%	YNOK+1, ADD+1, ADD+2, Q14!
DA	YNOK+2, ADD+3, Q14!
DIC	SEL+2, SEL+3, SEL+5!, YNOK+2*!, Q14!
DIC("DR"	YNOK+2*
DIC("S"	YNOK+2*
DIC("W"	SEL+2, SEL+3, YNOK+2*
DIC(0	SEL+2, SEL+3, YNOK+2*
DIE	ADD+3*!
DLAYGO	YNOK+2*!, Q14!
DR	ADD+3*, Q14!
DR(1	YNOK+2*
DTIME	SEL+1
DTOUT	SEL+5, YNOK+2, Q14!
DUOUT	SEL+5, YNOK+2, Q14!
NI	Q14!
NUR200	YNOK+2*, Q14!
NUR200SC	EN1+1*, SEL+2, YNOK+2, YNOK+5, Q14!
NURANM	Q14!
NURCNT	YNOK+6*, ADD+1, ADD+3, Q14!
NURCNT(0	YNOK+6, ADD, ADD+3
NURDA	ADD+3*, Q14!
NURIDSP	Q14!
NURIDSP(	SEL+2, SEL+3, YNOK+2
NURIDSP(200	EN1+3*
NURIDSP(210	EN1+2*, SEL+3
NUROUT	Q14!
>> NURSADD	ADD
NURSASS	Q14!
>> NURSDBA	YNOK+1, ADD+3
NURSNP	Q14!
NURSNPOS	Q14!
NURSOPOS	Q14!
NURSPOS	Q14!
NURSTAT	Q14!
NURSX	Q14!
NURSY	Q14!
NURX	YNOK+3*, YNOK+4, Q14!
>> X	SEL+1, SEL+2
>> XQUIT	SEL+1, SEL+5, YNOK+1, YNOK+2, ADD+2*
>> Y	SEL+3, YNOK+1, YNOK+2, YNOK+3, YNOK+4, YNOK+5, ADD+2*, ADD+3
>> Y(0	SEL+3, YNOK+3, ADD+1