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	Caller Graph
Nursing Service	37	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 OCCUPANCY/TRANSFERRED DATE

Entry Points

Name	Comments	DBIA/ICR reference
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
EN6(DA)	; SCREEN IF EMPLOYEE IS AUTHORIZED TO VIEW THIS LOCATION ; VARIABLES ARE SET BASED ON DIC("S") TO FILE 210.
EN7(DUZ)	; PRSE TRAIN SECURITY KEY CHECK
EN8(DUZ)	; PRSE SUP SECURITY KEY CHECK
EN9(DUZ)	; PRSE CORD SECURITY KEY CHECK
EN10(DUZ)	;
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
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
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.

External References

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

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

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 - [#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

Label References

Name	Line Occurrences
EN4	EN1+4

Naked Globals

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

Local Variables

Legend:

>>	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: 37

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: