Routine: NURAED7

Information

NURAED7 ;HIRMFO/MD-DATA STOREGE TMP FOR THE POSITION EDIT CONTINUED ;1/15/96

Call Graph

Call Graph Total: 5

Package	Total	Call Graph
VA FileMan	4	^%DT ^DIC YN^DICN D^DIQ
Nursing Service	1	EN4^NURSUT3

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 1

Package	Total	Caller Graph
Nursing Service	1	NURAED5

Entry Points

Name	Comments	DBIA/ICR reference
EDVD	; EDIT VACANCY DATE
DVD
EDVR	; EDIT VACANCY REASON
DVR
EDTT	; EDIT TRANSFER TO
DTT
QE

External References

Name	Field # of Occurrence
^%DT	DVD+4
^DIC	DVR+2
YN^DICN	DVD+1, DVR, DTT
D^DIQ	EDVD+1
EN4^NURSUT3	DVD+4

Interaction Calls

Name	Line Occurrences
Function Call: READ	Variable: X Timeout: DTIME Line Location: EDVD+2
Function Call: WRITE	Prompt: !,"VACANCY DATE: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDVD+2
Function Call: WRITE	Prompt: !!,?3,$C(7),"PAST ASSIGNMENTS CANNOT BE RE-ACTIVATED FROM THIS SCREEN A NEW ASSIGNMENT",!,?3,"MUST BE ADDED FROM THE CURRENT SCREEN." Line Location: DVD+0
Function Call: WRITE	Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE" Line Location: DVD+1
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: DVD+1
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES OR NO" Line Location: DVD+1
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: DVD+2
Function Call: WRITE	Prompt: !?5,$C(7),"Vacancy date for this position.",! Line Location: DVD+3
Function Call: READ	Variable: X Timeout: DTIME Line Location: EDVR+3
Function Call: WRITE	Prompt: !,"VACANCY REASON: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDVR+3
Function Call: WRITE	Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE" Line Location: DVR+0
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: DVR+0
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES OR NO" Line Location: DVR+0
Function Call: WRITE	Prompt: !?5,$C(7),"Reason why position is vacant or why employee transferred.",! Line Location: DVR+1
Function Call: READ	Variable: X Timeout: DTIME Line Location: EDTT+3
Function Call: WRITE	Prompt: !,"TRANSFER TO: "_$S(NURSDFLT'="":NURSDFLT_"// ",1:"") R X:DTIME S:'$T Line Location: EDTT+3
Function Call: WRITE	Prompt: !?3,$C(7),"SURE YOU WANT TO DELETE" Line Location: DTT+0
Function Call: WRITE	Prompt: $C(7)," ??" Condition for execution: %=2 Line Location: DTT+0
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES OR NO" Line Location: DTT+0
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: DTT+1
Function Call: WRITE	Prompt: !?5,$C(7),"The name of the location/service (if not nursing) where this employee was",!?5,"temporarily transferred.",!!?5,"Answer must be 3-30 characters in length." Line Location: DTT+2
Routine Call	DIC Line Location: DVR+2

FileNo	Call Tags
^NURSF(211.9 - [#211.9]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(211.9 - [#211.9]	EDVR+2, EDTT+1

Label References

Name	Line Occurrences
DTT	DTT
DVD	DVD+1
DVR	EDVD+3, DVR
EDTT	EDVR+4, DVR, DTT, DTT+1, DTT+2
EDVD	DVD+1, DVD+2, DVD+4
EDVR	DVD+1, DVR, DVR+3
QE	EDVR+1, EDTT+1, EDTT+4, DTT

Naked Globals

Name	Field # of Occurrence
^(0	EDVR+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	DVD+1, DVR, DTT*
>> %DT	DVD+4*
>> DIC	DVR+2*
>> DIC(0	DVR+2*
>> DLAYGO	DVR+2*
DTIME	EDVD+2, EDVR+3, EDTT+3
>> DTOUT	DVR+2
>> DUOUT	DVR+2
>> NURLS	DVD
>> NUROUT	EDVD+2, DVD, DVD+1, EDVR+3, DVR, DVR+2, EDTT+3, DTT
>> NURSBAD	DVD+4*
NURSDFLT	EDVD+1, EDVD+2, EDVD+3, DVD, DVD+1, EDVR+2, EDVR+3, EDVR+4, DVR, EDTT+2* , EDTT+3, EDTT+4, DTT, QE!
>> NURSNPOS	EDVD+3, DVD+1, DVD+4, DVD+5, EDVR+1, EDVR+4, DVR, DVR+3, EDTT+1, EDTT+4* , DTT, DTT+3, QE*
>> NURSOPOS	EDVD+1, EDVD+3, EDVR+1, EDVR+2, EDVR+4, EDTT+1, EDTT+2, EDTT+4, QE
U	EDVR+1, EDVR+2, EDVR+3, EDVR+4, DVR, DVR+3, EDTT+1, EDTT+2, EDTT+3, EDTT+4 , DTT, DTT+3, QE
>> X	EDVD+2, EDVD+3, DVD, DVD+1, DVD+2, DVD+3, EDVR+3, EDVR+4, DVR, DVR+1 , EDTT+3*, EDTT+4, DTT, DTT+1, DTT+2, DTT+3
>> Y	EDVD+1*, DVD+4, DVD+5, DVR+3

Customize PDF page

Package: Nursing Service