Routine: NURSUT2

Package	Total	Caller Graph
Nursing Service	44	NURA5A NURA5C NURA6C1 NURA6C2 NURA6D1 NURA6D2 NURA6G NURA6I1 NURA6I2 NURA6K2 NURA7A NURA7B NURA9C1 NURA9C2 NURA9D1 NURA9D2 NURA9G NURA9I NURA9K NURAAU2 NURADEG NURAED1 NURAED2 NURAFSD NURAGE NURAGEN NURAGEN1 NURAMH9 NURAR110 NURAR1A NURARCRW NURARMH1 NURARPC2 NURSCPLC NURSEP31 NURSEPC1 NURSEPCA NURSEPCP NURSEPD2 NURSEPD3 NURSEPL1 NURSEPML NURSUT3 OCCUPANCY/TRANSFERRED DATE
PAID	1	PRSNUT03

Entry Points

Name	Comments	DBIA/ICR reference
EN1	;GET THE TOTAL EMPLOYEE FTEE ; INPUT VARIABLES: NUR("DA")=ENTRY IN FILE 210 FOR NURSING EMPLOYEE ; NUR("DT")=DATE AT WHICH TOTAL FTEE TO BE CALCULATED ; (OPTIONAL VARIABLE DT IS USED IF NOT SUPPLIED) ; OUTPUT VARIABLE: NURTFTEE=TOTAL ASSIGNMENT FTEE
TOTX
EN2	;VARIABLE D0=NURS EMPLOYEE IEN IS PASSED IN TO COMPUTE PRIMARY LOCATION
S2	;
SETLOC
EN3	; ENTRY TO DETERMINE IF A POSITION CHANGE WILL CREATE DUPLICATE ; PRIMARY ASSIGNMENTS, MAKE TOTAL FTEE>1, MAKE THE START DATE ; AFTER THE VACANCY DATE OF THE ASSIGNMENT, OR CREATE DUPLICATE ; SERVICE POSITIONS ON THE SAME LOCATION ; INPUT VARIABLES: DA(1) AND DA = DEFINE THE POSITION ENTRY ; NUR(0)=DATA TO BE FILED IN ZEROTH NODE; AND OF THE ; SAME STRUCTURE AS THE ZEROTH NODE. ; OUTPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI,
EN4	; ENTRY FROM ASSIGNMENT EDIT TO VALIDATE POSITION ENTRY.
STPOAR	;
ST1	;
DTPRC	;
VACDT	;
VAC1	;
CAT(NURCAT)	; Input: Service Category code (i.e, R, L, N, A, S, C, O or ; O_<space>_sub-category value) ; Ouput: Expanded value of Service Category.
CNTR(NURPARM)	; Center Printed String
PROD(NURPROG)	; Input: Nurs Product Line free text value ; Output: Expanded value of Service Category.
FACL(NURFAC)	; Input: Facility free text value. ; Output: Printable Facility value.

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(210 - [#210]	EN1+5, EN2+1
^NURSF(211.8 - [#211.8]	EN1+6, TOTX, EN2+2, S2+1, SETLOC, EN3+11, STPOAR+1, ST1+1
^SC - [#44]	SETLOC

Name	Field # of Occurrence
^(0	EN1+5, TOTX, EN2+1, S2+1, SETLOC, STPOAR+1

Name	Field # of Occurrence
>> D0	EN2+1
>> DA	EN3+12, ST1+1
>> DA(1	EN3+12, ST1+1
DT	EN1+5, SETLOC, DTPRC+4
NUR	EN1+5, EN1+6, EN1+7!, TOTX, EN2+1, EN2+3!, SETLOC, EN3+9!, EN3+11, EN4+8! , STPOAR+1
NUR("CNTR"	EN3+10, EN4+7, ST1+1
NUR("DA"	EN1+5
NUR("DT"	EN1+5*, TOTX
NUR("PRI"	EN4+1, EN4+7, DTPRC+2, DTPRC+8, VAC1+1*
NUR("SDT"	EN3+12, EN4+2, EN4+3, EN4+4, ST1+1*, DTPRC+1, DTPRC+2, DTPRC+3, DTPRC+8, VACDT+1
NUR("SP"	EN4+1, DTPRC+3, DTPRC+4, DTPRC+5*, DTPRC+6, DTPRC+8
NUR("TFTE"	EN4+1, DTPRC+2, DTPRC+8, VAC1+1*
NUR("TOUR"	EN4+1, DTPRC+6, DTPRC+8
NUR("VDT"	EN3+12, EN4+1, ST1+1, DTPRC+1, DTPRC+8, VACDT+1, VAC1+1
NUR(0	EN1+6, TOTX, EN2+2, S2+1, SETLOC, EN3+9*, EN3+11, EN3+12, STPOAR+1
NUR(1	TOTX, S2+1, EN3+11, EN4+3, EN4+4, STPOAR+1, ST1+1, DTPRC+2, DTPRC+3
NUR(2	TOTX, S2+1, SETLOC, EN4+4, STPOAR+1, ST1+1, DTPRC+2, DTPRC+3
NUR(3	EN2+1, EN2+2, S2+1, STPOAR+1, ST1+1
NUR(4	VACDT+1*, VAC1+1
NUR(5	VAC1+1*
NURCAT	CAT~, CAT+4, CAT+5, CAT+6
NURCNTR	CNTR+4~*, CNTR+5
NURFAC	FACL~, FACL+2
>> NURLS	EN4+1
NURPARM	CNTR~, CNTR+4
>> NURPFAC	FACL+2*, FACL+3
>> NURPPROD	PROD+3*, PROD+4
NURPROG	PROD~, PROD+3
>> NURS132	CNTR+4
>> NURSBAD	EN4+1, EN4+2, EN4+3, EN4+4, EN4+7, DTPRC+8*, DTPRC+9
>> NURSNPOS	DTPRC+9*
>> NURSPOS(1	DTPRC+9*
>> NURTFTEE	EN1+6, TOTX
NURZ	EN3+9*, EN4+8!
NX	EN4+1, EN4+8!, DTPRC+3, DTPRC+4
NX(0	DTPRC+4*, DTPRC+5, DTPRC+6
U	EN1+5, TOTX, EN2+1, SETLOC, EN3+11, EN3+12, STPOAR+1, ST1+1, DTPRC+2, DTPRC+3 , DTPRC+4, DTPRC+5, DTPRC+6, DTPRC+9, VAC1+1
X	EN2+3, CNTR+4~