Routine: GMRYRP5

Name	Comments	DBIA/ICR reference
PATDAT	;
ROOM	; SELECT ROOMS ON A GIVEN WARD
MASPT
WP1	;
WARDPAT	; SELECT EDIT BY 1. UNIT, 2. SELECTED ROOMS ON UNIT, 3. PATIENT
Q
WARDSEL	; SELECT SEARCH WARD
RMCHK	;
HOSP
WARD	; SORT PATIENTS ON WARD
WSA1	; STORE SELECTED WARD/ROOM PATIENTS IN ^TMP("GMRPT",$J)
S3

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: GMREDB Line Location: WARDPAT+1
Function Call: WRITE	Prompt: !!,"Enter A for all patients on a unit,",!," S for the selected rooms on unit, or",!," P for a patient.",!! Line Location: WARDPAT+2
Function Call: WRITE	Prompt: !,$C(7),?5,"INVALID ENTRY ??" Line Location: WARDPAT+4
Function Call: WRITE	Prompt: !,7,"* NO PATIENTS REGISTERED ON UNIT ",$P(^DIC(42,GMRWARD,0),U)," **" Line Location: WARDSEL+4
Function Call: WRITE	Prompt: !!,"Unit "_GMRWARD(1)_" has the following Rooms:",! Line Location: S3+0
Function Call: WRITE	Prompt: !!,"Select the NUMBER(S) of the Rooms: " Line Location: S3+1
Function Call: READ	Timeout: DTIME Variable: GMRRMST Line Location: S3+2
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: S3+3
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: S3+4
Function Call: WRITE	Prompt: !?5,$C(7),"Please select a number between 1 and ",GMRMSL Line Location: RMCHK+1
Routine Call	DIC Line Location: WARDSEL+2 PATDAT+1 HOSP

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^DIC(42 - [#42]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DG(405.4 - [#405.4]	WP1+1, ROOM+2
^DIC(42 - [#42]	WARDSEL+4, WARDSEL+5, HOSP
^DPT("CN"	WARDSEL+3, WSA1+3
^SC - [#44]	HOSP
^TMP("GMRPT"	PATDAT+4, WARD+1!, WSA1+2

Name	Field # of Occurrence
^(0	HOSP, ROOM+2
^(44	WARDSEL+5

Name	Field # of Occurrence
>> DFN	WARDSEL+3, WARDSEL+4, PATDAT+1, PATDAT+2, PATDAT+4, WSA1+2, WSA1+3*, WSA1+4
DIC	WARDSEL+1, WARDSEL+2!, PATDAT+1!, HOSP*!
DIC("A"	HOSP*
DIC("B"	HOSP*
DIC("S"	WARDSEL+1, HOSP
DIC(0	WARDSEL+1, PATDAT+1, HOSP*
DTIME	WARDPAT+1, S3+2
GBED	Q!, PATDAT+4, WSA1+1, WSA1+2
>> GMREDB	MASPT, WARDPAT+1, WARDPAT+2, WARDPAT+3, WP1+1, WSA1+2
>> GMRI	S3+5*
>> GMRLEN	S3+5*
>> GMRLEN(1	S3+5*
GMRMSL	Q!, ROOM+1!, ROOM+3*, RMCHK+1
GMRMSL(	ROOM+2*, S3, RMCHK+1, RMCHK+2
GMRMSL("B"	ROOM+2*
>> GMRNAM	PATDAT+3, PATDAT+4, WSA1+1, WSA1+2
>> GMROUT	MASPT, WARDPAT+1, WP1+1, WARDSEL+2, WARDSEL+4, PATDAT+2, HOSP, S3+2, S3+5, RMCHK+1
GMRQUAL	Q!
GMRRMBD	Q!, PATDAT+3, PATDAT+4, WSA1+1
GMRRMST	Q!, S3+2*, S3+3, S3+4, S3+5
GMRROOM	Q!
GMRROOM(	WSA1+2, RMCHK+2*
>> GMRVHLOC	WARDSEL+5, HOSP+1
>> GMRVWLOC	WARDPAT+1*
>> GMRWARD	WP1+1, WARDSEL+3, WARDSEL+4, WARDSEL+5, PATDAT+3, HOSP, ROOM+2
>> GMRWARD(1	WARDSEL+3, PATDAT+3, WSA1+3, S3
>> GMRX	S3+5*, RMCHK+1, RMCHK+2
GRM	Q!, PATDAT+3, PATDAT+4, WSA1+1, WSA1+2
I	S3!
I(1	S3*
I(2	S3*
I(3	S3*
I(4	S3*
I(5	S3*
U	WARDPAT+1, WARDSEL+2, WARDSEL+3, WARDSEL+4, WARDSEL+5, PATDAT+3, HOSP
VA	PATDAT+4!, WSA1+1!
>> VADM(1	PATDAT+3, WSA1+1
VAIN	Q!
VAIN(4	PATDAT+3
VAIN(5	PATDAT+3, WSA1+1
>> X	WARDSEL+2, ROOM+2*
XQH	WP1+1*!
>> Y	WARDSEL+2, WARDSEL+3, PATDAT+1, HOSP, HOSP+1, ROOM+2, ROOM+3, S3
>> Y(0	WARDSEL+3

Information