Routine: GMRYUT4

Entry Points

Name	Comments	DBIA/ICR reference
WARDPAT	; SELECT ASSIGNMENT SHEET BY 1. WHOLE UNIT, 2. SELECTED ROOMS ON UNIT, 3. PATIENT
WP1	;
WARDSEL	; SELECT UNIT TO BE SEARCHED
RMST	;
PATDAT	; SINGLE PATIENT SELECTION
EN3	; SELECT ROOMS ON A GIVEN UNIT
QUIT	;
INACT42(GMWLOC)	; THIS PROCEDURE WILL CALL SUPPORTED ENTRY POINT WIN^DGPMDDCF ; TO DETERMINE IF UNIT LOCATION (GMWLOC) IS INACTIVE.

Name	Line Occurrences
Function Call: READ	Variable: GMREDB Timeout: DTIME Line Location: WARDPAT+1
Function Call: WRITE	Prompt: !,$C(7),?5,"INVALID ENTRY ??" Line Location: WARDPAT+4
Function Call: WRITE	Prompt: ! Line Location: WARDSEL+2
Function Call: WRITE	Prompt: ! Line Location: WARDSEL+4
Function Call: WRITE	Prompt: !,$C(7),"** NO PATIENTS REGISTERED ON WARD ",GMRWARD(1)," **" Line Location: WARDSEL+7
Function Call: WRITE	Prompt: !,"Unit "_GMRWARD(1)_" has the following rooms:",! Line Location: EN3+1
Function Call: READ	Variable: GNURRMST Timeout: DTIME Line Location: EN3+5
Function Call: WRITE	Prompt: ! Line Location: EN3+6
Function Call: WRITE	Prompt: !,?5,"Type in number(s) associated with the rooms you want,",!,?5,"separated by commas or hyphens if there is more than one room",!,?5,"(e.g., 1-3,5 would be entries 1,2,3 and 5)." Line Location: EN3+6
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: EN3+7
Routine Call	DIC Line Location: WARDSEL+3

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

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	RMST+1
^NURSF(211.4 - [#211.4]	WARDSEL+1, WARDSEL+4, WARDSEL+9
^NURSF(214 - [#214]	WARDSEL+4
^SC - [#44]	WARDSEL+4

Name	Field # of Occurrence
^(0	WARDSEL+4, RMST+1

Name	Field # of Occurrence
D0	INACT42+2~, INACT42+3*
>> DFN	WARDSEL+4*, WARDSEL+7
DGPMOS	INACT42+2~
DIC	WARDSEL+2*, WARDSEL+3!
DIC("S"	WARDSEL+2*
DIC(0	WARDSEL+2*
DTIME	WARDPAT+1, EN3+5
>> GMREDB	WARDPAT+1, WARDPAT+2, WARDPAT+3, WP1+1, WARDSEL+8
>> GMROUT	WARDPAT+1, WP1+1, WARDSEL+1, WARDSEL+3, WARDSEL+7, WARDSEL+11, EN3+5, EN3+8, EN3+9*
>> GMRWARD	WARDSEL+4*
>> GMRWARD(1	WARDSEL+4, WARDSEL+5, WARDSEL+7, EN3+1
GMWLOC	INACT42~, INACT42+3
GND1	RMST+1*, QUIT+1!
GNDA	WARDSEL+9*, QUIT+1!
GNMRC	WARDSEL+10!, WARDSEL+11!, QUIT+1!
GNMRC(	WARDSEL+10*, EN3+1, EN3+2, EN3+3, EN3+8
GNMRC(""	WARDSEL+11
GNORM	WP1+1, WARDSEL+2, WARDSEL+11, QUIT+1!
GNRM	WARDSEL+9!, WARDSEL+11!, RMST+1*
GNRM(	WARDSEL+10, RMST+1*
GNRMBD	EN3+1!
GNRMBD(	EN3+8*
GNRMBD(""	WARDSEL+11
GNURI	EN3+8*, QUIT+1!
GNURLEN	EN3+8*, QUIT+1!
GNURLEN(1	EN3+8*
GNURRMST	EN3+5*, EN3+6, EN3+7, EN3+8, QUIT+1!
GNURSX	WARDSEL+10, EN3+1, QUIT+1!
GNURSY	WARDSEL+10*, QUIT+1!
GNURX	EN3+8*, QUIT+1!
GNWLOC	WARDSEL+9*, RMST+1, QUIT+1!
GRMSEL	QUIT+1!
I	EN3+1!
I(1	EN3+1, EN3+2, EN3+4
I(2	EN3+1, EN3+2, EN3+4
I(3	EN3+1, EN3+2, EN3+4
I(4	EN3+1, EN3+3, EN3+4
I(5	EN3+1, EN3+3, EN3+4
X	WARDSEL+3, QUIT+1!, INACT42+2~, INACT42+4
Y	WARDSEL+3, WARDSEL+4, WARDSEL+9, QUIT+1!