Routine: NURAED5

Package	Total	Call Graph
VA Fileman	5	^%DT ^DIC YN^DICN ^DIE D^DIQ
Nursing Service	3	EDVD^NURAED7 EN7^NURSAUTL EN4^NURSUT3

Package	Total	Caller Graph
Nursing Service	1	NURAED2

Entry Points

Name	Comments	DBIA/ICR reference
EDSP	; EDIT SERVICE POSITION, WILL STUFF IN NEW SERVICE CATEGORY
EDFT	; EDIT FTEE
EDST	; EDIT START DATE
EDEVAL	; EDIT NAME OF DATE OF PROFICIENCY/NAME OF EVALUATOR
EDTR	;EDIT TOUR OF DUTY
EDREST	; EDIT REST OF DATA
EDLO	; EDIT LOCATION
EDPRI	; EDIT PRIMARY ASSIGNMENT FLAG
SDTCK	;
EDTFLD	; SETS THE NURSNPOS = LOC^SCAT^(9 PIECES OF ZEROTH NODE) ; DEFAULT VALUES STORED IN NURSOPOS
DTR

External References

Name	Field # of Occurrence
^%DT	EDST+5
^DIC	EDLO+4, EDEVAL+3, EDSP+6, DTR+2
YN^DICN	EDPRI+2, DTR
^DIE	EDEVAL+4
D^DIQ	EDEVAL+2, EDST+1
EDVD^NURAED7	EDREST+1
EN7^NURSAUTL	EDLO+1
EN4^NURSUT3	EDST+5, SDTCK+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Is this a primary assignment" Line Location: EDPRI+2
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES IF THIS POSITION IS A PRIMARY ASSIGNMENT FOR THIS EMPLOYEE,",!?5,"ELSE ANSWER NO." Line Location: EDPRI+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDLO+1
Function Call: WRITE	Prompt: !,"LOCATION: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDLO+1
Function Call: WRITE	Prompt: !?5,$C(7),"Nursing location for this position.",! Line Location: EDLO+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDSP+3
Function Call: WRITE	Prompt: !,"SERVICE POSITION: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDSP+3
Function Call: WRITE	Prompt: !?5,$C(7),"Service position for this position.",! Line Location: EDSP+5
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDST+2
Function Call: WRITE	Prompt: !,"STARTING DATE: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDST+2
Function Call: WRITE	Prompt: !?5,$C(7),"Starting date for this position.",! Line Location: EDST+4
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDTR+2
Function Call: WRITE	Prompt: !,"ASSIGN TOUR OF DUTY: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDTR+2
Function Call: WRITE	Prompt: !,?3,$C(7),"SURE YOU WANT TO DELETE" Line Location: DTR+0
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: DTR+0
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES OR NO" Line Location: DTR+0
Function Call: WRITE	Prompt: !?5,$C(7),"Tour of duty for this position.",! Line Location: DTR+1
Function Call: READ	Timeout: DTIME Variable: X Line Location: EDFT+2
Function Call: WRITE	Prompt: !,"FTEE: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDFT+2
Function Call: WRITE	Prompt: !?5,$C(7),"The amount of FTEE assigned to this employee for this position.",!!?5,"Type a number between 0 and 1, 3 decimal digits." Line Location: EDFT+4
Routine Call	DIE Line Location: EDEVAL+4
Routine Call	DIC Line Location: EDLO+4 EDEVAL+3 EDSP+6 DTR+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	EDEVAL+2
^NURSF(211.3 - [#211.3]	EDSP+2
^NURSF(211.6 - [#211.6]	EDTR+1

Label References

Name	Line Occurrences
DTR	DTR
EDEVAL	EDLO+2
EDFT	EDTR+3, DTR, EDFT+3, EDFT+4
EDLO	EDLO+2, EDLO+5
EDPRI	EDPRI+3
EDREST	EDFT+3
EDSP	EDSP+4, EDSP+7
EDST	EDSP+4, EDST+3, EDST+5
EDTR	EDST+3, DTR, DTR+3
SDTCK	EDST+3

Naked Globals

Name	Field # of Occurrence
^(0	EDEVAL+2*, EDSP+2, EDTR+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	EDPRI+2, EDPRI+3, EDPRI+4, DTR
>> %DT	EDST+5*
DA	EDEVAL+1~, EDEVAL+4*
DA(1	EDEVAL+3*
DIC	EDLO+4!, EDEVAL+1~, EDEVAL+3, EDEVAL+4!, EDSP+6, DTR+2
DIC("B"	EDEVAL+2*
DIC("DR"	EDEVAL+3*
DIC(0	EDLO+4, EDEVAL+3, EDSP+6, DTR+2
DIE	EDEVAL+1~, EDEVAL+4*!
>> DLAYGO	EDEVAL+3, DTR+2
DR	EDEVAL+1~, EDEVAL+4*
DTIME	EDLO+1, EDSP+3, EDST+2, EDTR+2, EDFT+2
>> DTOUT	EDLO+4, EDSP+6, DTR+2
>> DUOUT	EDLO+4, EDEVAL+3, EDSP+6, DTR+2
NBAD	EDST+1!, EDST+3, SDTCK+1*
>> NPWARD	EDLO+1*
>> NUROUT	EDPRI+2, EDLO+1, EDLO+4, EDEVAL+3, EDEVAL+5, EDSP+1, EDSP+3, EDSP+6, EDST+2, EDTR+2* , DTR, DTR+2, EDFT+2*
>> NURSBAD	EDST+5, SDTCK+1
>> NURSDBA	EDEVAL+2, EDEVAL+3
>> NURSDFLT	EDPRI+1, EDPRI+2, EDLO+1, EDLO+2, EDSP+2, EDSP+3, EDSP+4, EDST+1, EDST+2, EDST+3 , EDTR+1, EDTR+2, EDTR+3, DTR, EDFT+1, EDFT+2, EDFT+3
NURSNPOS	EDTFLD+2!, EDPRI+4, EDLO+2, EDLO+5, EDEVAL+1, EDSP+4, EDSP+7, EDST+3, EDST+5, EDST+6* , EDTR+3, DTR, DTR+3, EDFT+3, EDFT+5*
>> NURSOPOS	EDPRI+1, EDLO+1, EDLO+2, EDSP+2, EDSP+4, EDST+1, EDST+3, EDTR+1, EDTR+3, EDFT+1 , EDFT+3, SDTCK+1
NURX	EDEVAL+1~, EDEVAL+2*
U	EDEVAL+1, EDEVAL+2, EDEVAL+4, EDST+3, SDTCK+1
X	EDLO+1, EDLO+2, EDLO+3, EDEVAL+1~, EDSP+3, EDSP+4, EDSP+5, EDST+2, EDST+3, EDST+4 , EDTR+2, EDTR+3, DTR, DTR+1, EDFT+2*, EDFT+3, EDFT+4, EDFT+5
Y	EDLO+5, EDEVAL+1~, EDEVAL+2, EDEVAL+3, EDEVAL+4, EDSP+7, EDST+1, EDST+5, EDST+6, DTR+3
Y(""	EDEVAL+5
Y(0	EDSP+7

Customize PDF page

Package: Nursing Service

Routine: NURAED5

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: