Routine: NURSUT3

Package	Total	Call Graph
Nursing Service	3	(EN2,EN3)^NURSAUTL EN3^NURSUT2 ($$EN7,$$EN8,$$EN9)^NURSUT3
VA Fileman	2	^%DT $$GET1^DIQ

Package

Total

Call Graph

Nursing Service

(EN2,EN3)^NURSAUTL EN3^NURSUT2 ($$EN7,$$EN8,$$EN9)^NURSUT3

VA Fileman

^%DT $$GET1^DIQ

Package	Total	Caller Graph
Nursing Service	36	NURA6I2 NURA9I NURAAGS1 NURAAU2 NURAED1 NURAED2 NURAED5 NURAED7 NURAFSD NURAMH9 NURAR11A NURAR1A NURARCRW NURARMH1 NURARMH2 NURARNCT NURARPC3 NURARPC4 NURARWL1 NURARWL2 NURARWL4 NURSAFLL NURSAGP1 NURSAGS0 NURSAL0 NURSAUTL NURSCPLC NURSEP31 NURSEP3I NURSEPCA NURSEPD0 NURSEPD2 NURSEPIN NURSEPML NURSUT0 NURSUT3

Package

Total

Caller Graph

Nursing Service

NURA6I2  NURA9I  NURAAGS1  NURAAU2  NURAED1  NURAED2  NURAED5  NURAED7
NURAFSD  NURAMH9  NURAR11A  NURAR1A  NURARCRW  NURARMH1  NURARMH2  NURARNCT
NURARPC3  NURARPC4  NURARWL1  NURARWL2  NURARWL4  NURSAFLL  NURSAGP1  NURSAGS0
NURSAL0  NURSAUTL  NURSCPLC  NURSEP31  NURSEP3I  NURSEPCA  NURSEPD0  NURSEPD2
NURSEPIN  NURSEPML  NURSUT0  NURSUT3

Entry Points

Name	Comments	DBIA/ICR reference
EN13(NOD1)	; GET PRODUCT LINE OF PRIMARY NURS LOCATIO WITH IEN FROM THE ; POSITION CONTROL FILE THE VALUE OF THE FUNCTION WILL BE " BLANK ; IF THERE IS NO PRODUCT LINE ASSOCIATED WITH THIS NURS LOCATION OR THE ; FREE TEXT VALUE OF THE PRODUCT LINE
EN7(DUZ)	; PRSE TRAIN SECURITY KEY CHECK
EN10(DUZ)	;
EN6(DA)	; SCREEN IF EMPLOYEE IS AUTHORIZED TO VIEW THIS LOCATION ; VARIABLES ARE SET BASED ON DIC("S") TO FILE 210.
EN11(DA)	; GET FACILITY WITH POSITION CONTROL IEN IN THE NURS POSITION ; CONTROL 211.8 FILE. THE VALUE OF THE FUNCTION WILL BE "" IF THERE ; IS NO FACILITY ASSOCIATED WITH THIS HOSPITAL LOCATION, OR THE ; FREE TEXT VALUE OF THE FACILITY
EN12(DA)	; GET FACILITY WITH IEN FROM THE NURS LOCATION 211.4 FILE ; THE VALUE OF THE FUNCTION WILL BE " BLANK" IF THERE IS NO FACILITY ASSOCIATED ; WITH THIS NURS LOCATION OR THE FREE TEXT VALUE OF THE FACILITY
EN1	; INPUT TRANSFORM FOR THE VACANCY DATE (#3) OF THE OCCUPANCY/TRANS. ; DATE (#2) FIELD OF THE POSITION CONTROL FILE.
EN2	; ENTRY FROM INPUT TRANSFORM FOR 1 & 1.5 SUBFIELDS OF FIELD 27 ; OF FILE 210
EN3	; ENTRY FROM INPUT TRANSFORM ON SUBFIELD .01 OF SUBFIELD 5.5 OF ; FIELD 27 IN FILE 20
EN4	; PRINT ERROR MESSAGE BASED ON WHAT IS RETURNED FROM EN3 ; INPUT VARIABLES: NURSBAD=$S(0:NO PROB,1:PROB)^$S(1:FTEE>1,2:DUP PRI, ; 3:STARTDT>VACDT,4:DUP) ; SERVICE POS,5:NO PRI) ; ASS:ERR,7:DUP DUTY ; TOURS)
EN5	; ENTRY FROM INPUT TRANSFORM FOR 2 & 3 SUBFIELDS OF FIELD 24 ; OF FILE 210
EN8(DUZ)	; PRSE SUP SECURITY KEY CHECK
EN9(DUZ)	; PRSE CORD SECURITY KEY CHECK
GETSER()	; THIS PROCEDURE WILL RETURN THE VALUE FOR NURSING IN THE ; PAID COST CENTER ORGANIZATION CODE (454.1) FILE. THE VALUE ; OF THE FUNCTION WILL BE "" IF THERE ARE NO NURSING ENTRIES, OR ; A LIST OF NURSING ENTRY IEN's SEPARATED BY ^'s.

Name	Field # of Occurrence
^%DT	EN2+3, EN5+4
$$GET1^DIQ	EN11+4, EN11+5, EN11+6, EN12+3, EN13+5
EN2^NURSAUTL	EN6+17
EN3^NURSAUTL	EN6+13
EN3^NURSUT2	EN1+3
$$EN7^NURSUT3	EN10+3
$$EN8^NURSUT3	EN10+1
$$EN9^NURSUT3	EN10+2

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !?5,NURS("HELP") Line Location: EN2+3
Function Call: WRITE	Prompt: !!,$C(7),?5,"NO FUNDS WERE REQUESTED FOR "_$S(X="T":"TRAVEL",X="A":"AIRFARE",X="P":"PER DIEM",1:"REGISTRATION")_":" Line Location: EN3+3
Function Call: WRITE	Prompt: $S($P(NURSBAD,U,2)=1:"THE TOTAL FTEE",$P(NURSBAD,U,2)=2:"TWO PRIMARY ASSIGNMENTS EXIST FOR",$P(NURSBAD,U,2)=3:"THE START DATE IS GREATER THAN",$P(NURSBAD,U,2)=4:"DUPLICATE SERVICE POSITIONS ON THE",1:"") Line Location: EN4+7
Function Call: WRITE	Prompt: $S($P(NURSBAD,U,2)=7:"DUPLICATE DUTY TOURS ON THE",1:"") Line Location: EN4+8
Function Call: WRITE	Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"NO PRIMARY POSITION WAS DESIGNATED, THIS POSITION WILL BE PRIMARY",$P(NURSBAD,U,2)=7:"",1:"") Line Location: EN4+9
Function Call: WRITE	Prompt: $S($P(NURSBAD,U,2)=1:"",$P(NURSBAD,U,2)=2:"",$P(NURSBAD,U,2)=3:"",$P(NURSBAD,U,2)=4:"",$P(NURSBAD,U,2)=5:"",$P(NURSBAD,U,2)=6:"NO PRIMARY POSITION EXISTS FOR THIS ",$P(NURSBAD,U,2)=7:"",1:"INVALID DATA EXISTS FOR THIS") Line Location: EN4+10
Function Call: WRITE	Prompt: !?5,$S($P(NURSBAD,U,2)=1:"WOULD BE GREATER THAN 1 FOR THIS ",$P(NURSBAD,U,2)=2:"THIS ",$P(NURSBAD,U,2)=3:"THE VACANCY DATE FOR THIS ",$P(NURSBAD,U,2)=4!($P(NURSBAD,U,2)=7):"SAME LOCATION EXIST FOR THIS ",1:"") Line Location: EN4+11
Function Call: WRITE	Prompt: !?5,NURS("HELP") Line Location: EN5+4

FileNo	Call Tags
^NURSF(211.8 - [#211.8]	GET1^DIQ
^NURSF(212.7 - [#212.7]	GET1^DIQ
^DIC(4 - [#4]	GET1^DIQ
^SC - [#44]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^NURSA(213.2 - [#213.2]	EN11+6
^NURSF(210 - [#210]	EN2+2, EN3+2, EN5+2, EN6+5
^NURSF(211.4 - [#211.4]	EN12+3, EN13+4, EN13+5
^NURSF(211.8 - [#211.8]	EN1+2, EN6+9, EN6+10, EN6+11, EN13+4
^PRSP(454.1	GETSER+5, GETSER+6
^SC - [#44]	EN12+3
^XUSEC("PRSE CORD"	EN9+1
^XUSEC("PRSE SUP"	EN8+1
^XUSEC("PRSE TRAIN"	EN7+1

Name	Line Occurrences
EN4	EN1+4

Name	Field # of Occurrence
^(0	EN1+2, EN2+2, EN3+2, EN5+2

Local Variables

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%DT	EN2+3, EN2+4!, EN5+4, EN5+5!
%DT(0	EN2+2, EN2+3!, EN5+2, EN5+3*, EN5+4!
>> D1	EN3+2*
>> D2	EN3+2*
DA	EN1+2, EN2+2, EN5+2, EN6~, EN11~, EN11+4, EN12~, EN12+3
DA(1	EN1+2, EN2+2, EN5+2
DA(2	EN3+2
DIC44DA	EN11+4*, EN11+5, EN11+7!
DIC4DA	EN11+5, EN11+7!, EN12+3!
DT	EN6+12
DUZ	EN7~, EN7+1, EN8~, EN8+1, EN9~, EN9+1, EN10~, EN10+1, EN10+2, EN10+3
FXN	GETSER+4~, GETSER+7, GETSER+8, GETSER+9
FXN(1	GETSER+5*, GETSER+7
FXN(2	GETSER+6*, GETSER+7
NOD1	EN13~, EN13+4
>> NUR(0	EN1+2, EN1+3
NUR200DA	EN6+4~, EN6+5*, EN6+9, EN6+10
NUR21182	EN6+4~, EN6+10*, EN6+11
NUR2127	EN13+4~, EN13+5*
NURDATA	EN6+4~, EN6+11*, EN6+12
>> NURMDSW	EN11+6
NURNODE4	EN6+4~, EN6+9*, EN6+10, EN6+11
NURS	EN2+2, EN2+4!, EN3+2*, EN3+3, EN3+4!, EN5+2, EN5+5!
NURS("HELP"	EN2+2, EN2+3, EN5+2, EN5+4
NURS(0	EN2+2, EN3+2, EN5+2*
NURSBAD	EN1+2*, EN1+3, EN1+4, EN4+6, EN4+7, EN4+8, EN4+9, EN4+10, EN4+11, EN4+12 , EN4+13!
NURSSEE	EN6+4~
>> NURSZAP	EN6+7, EN6+17, EN10+1, EN10+2, EN10+3*
>> NURSZORT	EN6+3, EN6+5, EN6+6, EN6+7, EN6+8, EN6+9, EN6+10, EN6+13, EN6+19
NURUNIT	EN13+4~*, EN13+5
NX	EN4+13!
SC44DA	EN13+4~*
U	EN1+2, EN1+3, EN2+2, EN3+2, EN4+6, EN4+7, EN4+8, EN4+9, EN4+10, EN4+11 , EN4+12, EN5+2, EN6+12, EN12+3, EN13+5, GETSER+7
X	EN1+3, EN1+4!, EN2+3!, EN3+2, EN3+3!, EN5+4!
>> XXX	EN11+4, EN11+5, EN11+6, EN11+8, EN12+3, EN12+4, EN13+5*, EN13+6
>> Y	EN1+2, EN2+3, EN5+4, EN6+5

Customize PDF page

Package: Nursing Service

Routine: NURSUT3

Information

Source Information

Call Graph

Call Graph Total: 5

Caller Graph

Caller Graph Total: 36

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: