Routine: NURAED4

Information

NURAED4 ;HIRMFO/MD/RM-DATA ENTRY FOR POSITION ;10/15/90

Source file <NURAED4.m>

Package	Total	Call Graph
VA Fileman	2	^%DT D^DIQ
Kernel	1	EN1^XQH

Package	Total	Caller Graph
Nursing Service	1	NURAED1

Name	Comments	DBIA/ICR reference
STST	; SET START DATE FOR POSITION DISPLAY
EDTMAIL	;
PRT
STDT	; SET THE DATE
EDTADD	;
GETNOD	;OBTAIN POINTER TO VA(200
CPDS	; SELECT A DATE IF PAST SELECTED
MORHELP	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"STREET ADDRESS: ",NURSADD1 Line Location: EDTADD+4
Function Call: WRITE	Prompt: !,"MAILING ADDRESS: ",NURSADD1 Line Location: EDTMAIL+5
Function Call: WRITE	Prompt: !,"CITY: ",NURSCITY,!,"STATE: ",NURSTATE,?20,"ZIP CODE: ",NURSZIP Line Location: PRT+1
Function Call: READ	Timeout: DTIME Variable: NURLS Line Location: STST+1
Function Call: WRITE	Prompt: $C(7),!!?4,"ENTER A C TO SEE CURRENT POSITIONS,",!?12,"P TO SEE PAST POSITIONS" Line Location: STST+3
Function Call: WRITE	Prompt: $C(7),!!?4,"SELECT A DATE THAT PRECEEDS ALL POSITION START DATES IN THE DESIRED DISPLAY." Line Location: CPDS+3
Function Call: WRITE	Prompt: $C(7) Line Location: CPDS+5
Function Call: WRITE	Prompt: $C(7) Line Location: MORHELP+1
Function Call: WRITE	Prompt: !!?5,"TO ADD NEW POSITIONS ENTER THE LETTER 'N'." Line Location: MORHELP+3
Function Call: READ	Timeout: DTIME Variable: X Line Location: MORHELP+4

Name	Line Occurrences (* Changed, ! Killed)
^DIC(5 - [#5]	EDTADD+3, EDTMAIL+4
^NURSF(210 - [#210]	EDTMAIL+2, EDTMAIL+4, GETNOD+1, CPDS+2
^VA(200 - [#200]	EDTADD+1, EDTADD+3

Name	Field # of Occurrence
%DT	CPDS+4*!
%DT("A"	CPDS+1*
%DT("B"	CPDS+2*
%DT(0	CPDS+2*
>> DA	EDTMAIL+2, EDTMAIL+4
>> DIRUT	MORHELP+2
DT	STDT+1
DTIME	STST+1, MORHELP+4
ID	EDTADD+1, EDTADD+3, PRT+2!, GETNOD+1*
>> NURLS	STST+1, STST+2, STST+3, STST+4, STDT+1
>> NUROUT	STST+1, CPDS+4, MORHELP+2, MORHELP+4
NURSADD1	EDTADD+3, EDTADD+4, EDTMAIL+4, EDTMAIL+5, PRT+2!
NURSADD2	EDTADD+3, EDTMAIL+4, PRT, PRT+2!
NURSADD3	EDTADD+3, EDTMAIL+4, PRT, PRT+2!
>> NURSASS(""	MORHELP+2, MORHELP+3
NURSCITY	EDTADD+3, EDTMAIL+4, PRT+1, PRT+2!
>> NURSDBA	GETNOD+1, CPDS+2
NURSTATE	EDTADD+3, EDTMAIL+4, PRT+1, PRT+2!
>> NURSTDT	STDT+1*
NURSW	EDTADD+1!, EDTADD+2, EDTMAIL+1!, EDTMAIL+3
NURSZIP	EDTADD+3, EDTMAIL+4, PRT+1, PRT+2!
U	CPDS+2, MORHELP+4
>> X	STST+3, CPDS+4, MORHELP+4
XQH	MORHELP+2*!
>> Y	CPDS+2*, CPDS+5, STDT+1