Routine: NURAED6

Information

NURAED6 ;HIRMFO/RM-DATA STORAGE TMP FOR THE POSITION EDIT ;7/11/90

Source file <NURAED6.m>

Package	Total	Call Graph
VA Fileman	3	FILE^DICN ^DIE ^DIK
Nursing Service	1	EN1^NURSUT1

Package	Total	Caller Graph
Nursing Service	2	NURAED1 NURAED3

Name	Comments	DBIA/ICR reference
DELP	;DELETE POSITION USING DIK
ADDP	; ADD A NEW POSITION USING FILE^DICN
ADD	; ADD NEW POSITION
EN1	; STORE PATIENT DATA FROM NURSASS(#) AND NURSPOS(#)
EN2	; STORE DATA FOR POSITION EDIT
DEL	; DELETE EXISTING POSITION
EDT	; EDIT EXISTING POSITION
EDFL	; ADD THE DATA FOR THE REST OF THE FIELDS

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

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(211.8 - [#211.8]	ADDP+1, ADDP+2

Name	Field # of Occurrence
^(0	ADDP+2*

Name	Field # of Occurrence
DA	EN1+1~, DEL+1, EDT+1, EDFL+1, ADDP+1, ADDP+4
DA(1	DEL+1, EDT+1, EDFL+1, ADDP+1*, ADDP+2
DD	ADDP+1!, ADDP+3!
DIC	ADDP+1!, ADDP+3!
DIC("DR"	ADDP+1, ADDP+3
DIC(0	ADDP+1, ADDP+3
>> DIE	EDFL+1*
>> DIK	DELP+1*
DR	EDFL+1!, EDFL+2, EDFL+3
>> NUR	ADDP+4*
>> NURSANM	EN2+1*, ADD+1, DEL+1, EDT+1, EDT+2, EDFL+1, EDFL+2, ADDP+4
>> NURSASS(	EN2+1, DEL+1, EDT+1, EDT+2, EDFL+1, EDFL+2, ADDP+4*
>> NURSNPOS	ADD+1, EDT+2, ADDP+1, ADDP+3
>> NURSPOS(	EN2+1, ADD+1, EDT+2, EDFL+1, EDFL+2
>> NURSPOS(""	EN1+1
>> NURSX	EDFL+2*
>> NURSY	EDFL+2*
U	DEL+1, EDT+1, EDT+2, EDFL+1, EDFL+2, ADDP+1, ADDP+3, ADDP+4
>> X	ADDP+1, ADDP+3
>> Y	ADDP+1, ADDP+4