Routine: NURSAGP3

Information

NURSAGP3 ;HISC/MD-MULTIPLE SERVICE CATEGORY SELECTION UTILITY ;4/17/97

Source file <NURSAGP3.m>

Package	Total	Caller Graph
Nursing Service	1	NURSAGSP

Name	Comments	DBIA/ICR reference
DISP	; ; Define list of user selectable service category(ies) from the ; NURS Service Positon (#211.3) File.
EN1	; SELECT SERVICE CATEGORY
ASK	; ; Interactive user service category selection.
DSP	; ; Display the list of selectable service category(ies) from file 211.3.
QUIT

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"OTHER Service Categories",!,$$REPEAT^XLFSTR("-",24) Line Location: DSP+6
Function Call: WRITE	Prompt: !!,"<<More>>",! Line Location: DSP+10
Function Call: WRITE	Prompt: !!,"Select SERVICE CATEGORY: " Line Location: ASK+3
Routine Call	DIR Line Location: DSP+10

Name	Line Occurrences (* Changed, ! Killed)
^NURSF(211.3 - [#211.3]	DISP+9
^TMP("NURSCAT"	EN1+2!, EN1+3, ASK+7!, ASK+9*

Name	Field # of Occurrence
DA	EN1+1~, DISP+9*
DIC	QUIT!
>> DIR(0	DSP+10*
>> DIRUT	DSP+10
DLAYGO	QUIT!
DTIME	ASK+3
I	QUIT!
IOF	DSP+3
IOSL	DSP+4
>> NRNLPN	DISP+6, DISP+9
NUROUT	EN1+2!, EN1+3, DISP+13, DISP+14, DSP+10, DSP+11, ASK+4
NURS	QUIT!, DSP+4*, DSP+9
NURSAQ	QUIT!, DSP+3*, DSP+4
>> NURSBAD	ASK+6
NURSCAT	QUIT!, DISP+4!
NURSCAT(	DISP+7, DISP+10, DISP+12*, DSP+5, DSP+7, ASK+7, ASK+8
NURSCLA	QUIT!, ASK+7*
NURSCNT	QUIT!, ASK+7*, ASK+8
>> NURSDONE	DISP+13, DISP+14, DSP+9, DSP+10, DSP+12
NURSI	QUIT!, DSP+3, DSP+4, DSP+5, DSP+6, DSP+7, ASK+6, ASK+7*
NURSMAX	QUIT!, DISP+4, DISP+7, DISP+10, DISP+12, DSP+4, DSP+9, ASK+5
NURSMI	QUIT!
NURSND	QUIT!, ASK+7*
NURSTAB	QUIT!, DISP+4!
>> NURSTRT	DISP+13, DSP+4, ASK+6*
>> NURSX	DISP+4, DISP+5, DISP+6, DISP+7, DISP+9, DISP+10, ASK+3, ASK+4, ASK+5, ASK+6 , ASK+7
X	EN1+1~, ASK+8*
Y	EN1+1~, ASK+8*, ASK+9