Routine: NURSUT4

Package	Total	Call Graph
Nursing Service	1	$$COMPDAT^NURSUT4
VA Fileman	1	D^DIQ

Package	Total	Caller Graph
Nursing Service	4	NURSAFUD NURSAGP3 NURSPA NURSUT4

Entry Points

Name	Comments	DBIA/ICR reference
DISP	;
QUIT
VALENT	;
COMPDISP	; SERVICE COMP DATE DISPLAY
COMPDAT(D0)	; EXTRINSIC FUNCTION TO RETURN COMPUTED SERVICE COMPUTATION DATE ; FROM THE EMPLOYEE(#450) FILE
DSP	;
EN1	; ENTRY FROM INPUT TRANSFORM FROM FIELDS 10.4 AND 10.5 ON FILE 213.9
EN2	; EXECUTABLE HELP FROM OPTION NURAAM-ACU GRADE/STEP CODE LOAD
EN3	;INPUT TRANSFORM FOR FIELD 8 FILE 211.82
VAL0

Name	Field # of Occurrence
D^DIQ	COMPDISP+2
$$COMPDAT^NURSUT4	COMPDISP+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"NURS PAY SCALE FILE IS NOT RESIDENT CANNOT CONTINUE!!" Line Location: EN2+1
Function Call: WRITE	Prompt: !!,"Enter Grade/Step Code",!,"examples: ",!,"R/E1/5 = Registered Nurse,ENTRY1,Step 5",!,"N/4/7 = Nursing Assistant,GS4,Step 7",! Line Location: EN2+4
Function Call: WRITE	Prompt: @IOF Line Location: DSP+1
Function Call: WRITE	Prompt: ?52,$J(NURI(1),2),". ",$P($G(NSCD(NURI(1))),U,2) Condition for execution: $G(NSCD(NURI(0)))'="" ?26,$J(NURI(0),2),". ",$P($G(NSCD(NURI(0))),U,2) W:$G(NSCD(NURI(1)))'="" Line Location: DSP+5
Function Call: WRITE	Prompt: !,"<<More>>" Line Location: DSP+8
Function Call: READ	Timeout: DTIME Variable: NURX Line Location: DSP+9
Function Call: WRITE	Prompt: !,"Press the return key to continue or '^' to exit: " Line Location: DSP+9
Function Call: WRITE	Prompt: $C(7),!,"* NOT YET IMPLEMENTED *" Line Location: EN3+1
Function Call: WRITE	Prompt: !,?22,"Are examples of valid selections" Line Location: VAL0+8
Function Call: WRITE	Prompt: ?$X+1,Y,?$X+1," (NO EDITING)" Line Location: COMPDISP+2

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	COMPDAT+3
^NURSF(211.1 - [#211.1]	EN2+1, DISP+2
^PRSPC(	COMPDAT+4
^PRSPC("SSN"	COMPDAT+3
^TMP("NURCD"	EN2+2!
^VA(200 - [#200]	COMPDAT+3

Name	Field # of Occurrence
D0	COMPDAT~, COMPDAT+3, COMPDISP+2
DA	EN2+1~, DISP+2*, DISP+3
DTIME	DSP+9
I	QUIT!, DISP+2*
IOF	DSP+1
IOSL	DSP+2
NCTR	QUIT!, DISP+1*
NSCD	QUIT!, DISP+1!, DISP+2, DISP+3
NSCD(	DISP+3*, DSP+3, DSP+5
NURAQ	QUIT!, DSP+1*, DSP+2
>> NURCOMP	COMPDAT+3, COMPDAT+6, COMPDAT+7*, COMPDAT+8
>> NURDONE	DISP+5, DISP+6, DSP+7, DSP+8, DSP+10
NUREND	QUIT!
NURI	QUIT!, DSP+2*, DSP+3, DSP+4, DSP+5
NURI(0	DSP+4*, DSP+5
NURI(1	DSP+4*, DSP+5
NURMAX	QUIT!, DISP+1, DISP+3, DSP+2, DSP+7
NURMI	QUIT!
NUROUT	EN2+2!, DISP+5, DISP+6, DSP+9
NURP	QUIT!
NURS	QUIT!, DSP+2*, DSP+7
>> NURS1	VALENT+1*
>> NURS2	VALENT+1*, VAL0, VAL0+1, VAL0+2
>> NURSBAD	VALENT+1, VAL0, VAL0+1, VAL0+2, VAL0+3
>> NURSMAX	VAL0, VAL0+1, VAL0+2
>> NURSNALL	VAL0+5, VAL0+7
>> NURSSTRT	VAL0+8*
>> NURSTRT	DISP+5, DSP+2, DSP+11*
>> NURSX	VALENT+1, VAL0+3, VAL0+4, VAL0+6, VAL0+8
NURTAB	QUIT!, DISP+1!
NURX	DSP+9, DSP+11, COMPDAT+2~, COMPDAT+3
NURY	COMPDAT+2~, COMPDAT+3*
NURZ	COMPDAT+2~
PRSPCDA	COMPDAT+3*, COMPDAT+4, COMPDAT+7!
U	DSP+5, COMPDAT+3, COMPDAT+4
X	EN1+1!, EN2+1~, EN3+1!, COMPDAT+2~, COMPDISP+1~
Y	EN2+1~, COMPDAT+2~, COMPDAT+4, COMPDAT+6, COMPDISP+1~, COMPDISP+2