Routine: NURAED2

Information

NURAED2 ;HIRMFO/MD,RM,FT-EDIT FOR POSITION ;5/14/01 15:37

Source Information

Source file <NURAED2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Nursing Service	4	MSG^NURAED1 EDTFLD^NURAED5 (EN4,ST1)^NURSUT2 EN4^NURSUT3
VA Fileman	2	EN^DDIOL (FILE,YN)^DICN

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Nursing Service	1	NURAED1

Entry Points

Name	Comments	DBIA/ICR reference
VALENT	; VALIDATE THE DATA ENTRY FOR THIS EMPLOYEE BY CALLING EN4^NURSUT2.
ADAS	; ADD NEW ASSIGNMENTS
NEW2118(NURNLOC,NURNCAT,NURNPOS)	; Function that adds a new entry to the ; NURS POSITION CONTROL (#211.8) file. ; NURNLOC - the .01 value of the entry (i.e., FILE 44 pointer value) ; NURNCAT - the service category code (e.g., "R" for registered nurse) ; NURNPOS - the ien of the Service Position (File 211.3) ; Returns the IEN of the new entry in File 211.8
VALE0	; BUILD UP LOCAL NUR ARRAY TO USE IN TMP EN4^NURSUT2 TO ; VALIDATE THE ENTRY OF THESE POSITIONS.
EN1	; USING NURSUL(#) DETERMINE IF EDIT, ADD, DELETE AND SET NURSPOS(#)
VALSEL	; VALIDATE SELECTIONS
VAL0	;VALIDATION CONTINUED
PROC	; PROCESS THE NURSUL(#) SELECTION

External References

Name	Field # of Occurrence
EN^DDIOL	NEW2118+23
FILE^DICN	NEW2118+10, NEW2118+18
YN^DICN	ADAS+1
MSG^NURAED1	PROC+1
EDTFLD^NURAED5	PROC+3, ADAS+3
EN4^NURSUT2	VALENT+4
ST1^NURSUT2	VALE0+9
EN4^NURSUT3	VALENT+4

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,$C(7),"Would you like to add a new assignment" Line Location: ADAS+1
Function Call: WRITE	Prompt: !?5,$C(7),"ANSWER YES IF YOU WISH TO ADD A NEW ASSIGNMENT, ELSE ANSWER NO." Line Location: ADAS+2

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(211.8 - [#211.8]	VALE0+6, NEW2118+13*, NEW2118+14

Label References

Name	Line Occurrences
$$NEW2118	VALE0+7
ADAS	PROC+4, ADAS+2, ADAS+5
PROC	EN1+1
VAL0	VALSEL+1

Naked Globals

Name	Field # of Occurrence
^(0	NEW2118+14*

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	VALE0+12~, VALE0+13, VALE0+14, VALE0+15, ADAS+1*, ADAS+2
DA	VALENT+1~, VALENT+2, VALENT+3, VALE0+2~, NEW2118+6~
DA(1	VALENT+2, VALENT+3, VALE0+2, NEW2118+12*
DD	NEW2118+9!, NEW2118+17!
DIC	NEW2118+6~, NEW2118+7, NEW2118+15
DIC("DR"	NEW2118+8, NEW2118+16
DIC(0	NEW2118+7, NEW2118+15
DIE	NEW2118+6~
DO	NEW2118+9!, NEW2118+17!
DR	NEW2118+6~
>> MSG	PROC+1*
>> NCNT	VAL0+2, VAL0+3, VAL0+4, ADAS+3*, ADAS+4
>> NID	ADAS+3
NUR	VALENT+2*, VALENT+3!, NEW2118+6~
NUR("SDT"	VALENT+2, VALENT+3, VALE0+12, VALE0+13*
NUR("VDT"	VALE0+14, VALE0+15*
NUR(0	VALENT+3*
NUR(1	VALE0+2, VALE0+6, VALE0+7*, VALE0+12, VALE0+13, VALE0+14, VALE0+15
NUR(2	VALE0+2, VALE0+5, VALE0+12, VALE0+13, VALE0+14, VALE0+15
NUR(3	VALE0+3, VALE0+4, VALE0+9, VALE0+12, VALE0+13, VALE0+14, VALE0+15
>> NUR1	VALSEL+1*
>> NUR10	VAL0+6*
>> NUR2	VALSEL+1*, VAL0+1, VAL0+2, VAL0+3, VAL0+4, VAL0+5, VAL0+6
>> NUR3	VAL0+5*, VAL0+6
>> NURAES	VALSEL+1
NURARRAY	NEW2118+6~, NEW2118+23
NURARRAY(1	NEW2118+19*
NURARRAY(2	NEW2118+20*
NURARRAY(3	NEW2118+21*
NURARRAY(4	NEW2118+22*
>> NURLS	PROC+1
NURNCAT	NEW2118~, NEW2118+8
NURNLOC	NEW2118~, NEW2118+7
NURNPOS	NEW2118~, NEW2118+15
NURNY	NEW2118+6~, NEW2118+12*, NEW2118+13, NEW2118+14, NEW2118+25
>> NUROUT	VALENT+4, EN1+1, PROC+3, ADAS+1, ADAS+3
>> NURSANM	VALE0+2, VALE0+3, VALE0+4, VALE0+6, VALE0+7, VALE0+11, VALE0+13, VALE0+15
>> NURSASS(	VALE0+2, VALE0+3, VALE0+4, VALE0+11, PROC+3, ADAS+3*
>> NURSBAD	VALSEL+1, VAL0+2, VAL0+3, VAL0+4*, VALENT+4
NURSHLIT	NEW2118+6~
>> NURSL(0	ADAS+1
>> NURSNPOS	PROC+3, ADAS+1, ADAS+4
>> NURSOPOS	PROC+3, ADAS+3
NURSPOS	EN1+1!
NURSPOS(	VALE0+3, VALE0+4, VALE0+6, VALE0+7, VALE0+11, VALE0+13, VALE0+15, PROC+2, PROC+3, ADAS+4*
>> NURSUL	EN1+1*, PROC+1, PROC+2, PROC+3, PROC+4
>> NURSUL(	VAL0+6*, EN1+1, PROC+2, PROC+3
>> NURSUL("N"	VAL0+1*
>> NURSW1	PROC+4, ADAS+1, ADAS+3
>> NURSX	EN1+1*
U	VALENT+4, VALE0+6, VALE0+7, VALE0+12, VALE0+13, VALE0+14, VALE0+15
X	NEW2118+6~, NEW2118+7, NEW2118+15
Y	NEW2118+6~, NEW2118+11, NEW2118+12

Customize PDF page

Package: Nursing Service

Routine: NURAED2

Call Graph Total: 6

Caller Graph Total: 1