Routine: NURCUT0

Information

NURCUT0 ;HIRMFO/MD,RM,FT-PATIENT SELECTION UTILITY BY WARD, ROOM OR SINGLE PATIENT ;7/24/97

Package	Total	Call Graph
Nursing Service	2	EN6^NURSAUTL EN7^NURSCUTL
VA Fileman	1	^DIC

Package	Total	Caller Graph
Nursing Service	7	NURCAS0 NURCES0 NURCEVP0 NURCHSUM NURCPPS1 NURCVPR0 NURCVUT0

Name	Comments	DBIA/ICR reference
QUIT	;
PATDAT	; SINGLE PATIENT SELECTION
WP1	;
WARDPAT	; SELECT ASSIGNMENT SHEET BY 1. WHOLE WARD, 2. SELECTED ROOMS ON WARD, 3. PATIENT
WARDSEL	; SELECT WARD TO BE SEARCHED
EN3	; SELECT ROOMS ON A GIVEN WARD
RMST	;

Name	Line Occurrences
Function Call: READ	Timeout: DTIME Variable: NUREDB Line Location: WARDPAT+1
Function Call: WRITE	Prompt: !,$C(7),?5,"INVALID ENTRY ??" Line Location: WARDPAT+4
Function Call: WRITE	Prompt: ! Line Location: WP1+2
Function Call: WRITE	Prompt: ! Line Location: WARDSEL+1
Function Call: WRITE	Prompt: ! Line Location: WARDSEL+3
Function Call: WRITE	Prompt: ! Line Location: WARDSEL+4
Function Call: WRITE	Prompt: !,$C(7),"** NO PATIENTS REGISTERED ON UNIT ",NPWARD," **" Line Location: WARDSEL+6
Function Call: WRITE	Prompt: !,"Unit "_NPWARD_" has the following rooms:",! Line Location: EN3+1
Function Call: WRITE	Prompt: ?33,NURP(3),". ",$G(NMRC(NURP(3))) Condition for execution: $G(NMRC($G(NURP(2))))'="" ?16,NURP(2),". ",$G(NMRC(NURP(2))) W:$G(NMRC($G(NURP(3))))'="" Line Location: EN3+2
Function Call: WRITE	Prompt: !!,"Select the NUMBER(S) of the rooms: " Line Location: EN3+6
Function Call: READ	Timeout: DTIME Variable: NURRMST Line Location: EN3+7
Function Call: WRITE	Prompt: ! Line Location: EN3+8
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+8
Function Call: WRITE	Prompt: $C(7)," ??" Line Location: EN3+9
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+8
^NURSF(214 - [#214]	WARDSEL+4

Name	Line Occurrences
EN3	WARDSEL+10, EN3+8, EN3+9, EN3+11
PATDAT	WP1+2
QUIT	WP1+1, WP1+3
RMST	WARDSEL+8
WARDPAT	WARDPAT+3, WARDPAT+4, WP1+1, WP1+2, WARDSEL+3
WARDSEL	WP1+1
WP1	WARDPAT+2

Name	Field # of Occurrence
^(0	RMST+1

Name	Field # of Occurrence
>> DFN	WARDSEL+4, WARDSEL+6, PATDAT+2, PATDAT+3
DIC	WARDSEL+1*, WARDSEL+3!
DIC("A"	WARDSEL+2*
DIC("S"	WARDSEL+1*
DIC(0	WARDSEL+1, PATDAT+2
DTIME	WARDPAT+1, EN3+7
NACT	PATDAT+1*, QUIT+1!
NASK	PATDAT+2*, QUIT+1!
ND1	RMST+1*, QUIT+1!
NDA	WARDSEL+8*, QUIT+1!
NMRC	WARDSEL+9!, WARDSEL+10!, QUIT+1!
NMRC(	WARDSEL+9*, EN3+1, EN3+2, EN3+3, EN3+10
NMRC(""	WARDSEL+10
NORM	WP1+1, WARDSEL+1, WARDSEL+10, QUIT+1!
>> NPWARD	WARDSEL+4*, WARDSEL+6, EN3+1
NRM	WARDSEL+8!, WARDSEL+10!, RMST+1*
NRM(	WARDSEL+9, RMST+1*
NRMBD	EN3+1!
NRMBD(	EN3+10*
NRMBD(""	WARDSEL+10
>> NUREDB	WARDPAT+1, WARDPAT+2, WARDPAT+3, WP1+1, WARDSEL+7
NURI	EN3+10*, QUIT+1!
NURLEN	EN3+10*, QUIT+1!
NURLEN(1	EN3+10*
>> NURLOCSW	WARDSEL+3
>> NUROUT	WARDPAT+1*
NURP	EN3+1!, QUIT+1!
NURP(1	EN3+1, EN3+2, EN3+4
NURP(2	EN3+1, EN3+2, EN3+4
NURP(3	EN3+1, EN3+2, EN3+4
NURP(4	EN3+1, EN3+3, EN3+4
NURP(5	EN3+1, EN3+3, EN3+4
>> NURQUIT	WARDPAT+1, WP1+1, WARDSEL+3, WARDSEL+6, WARDSEL+10, PATDAT+2, EN3+7, EN3+10, EN3+11*
NURRMST	EN3+7*, EN3+8, EN3+9, EN3+10, QUIT+1!
NURSX	WARDSEL+9, EN3+1, QUIT+1!
NURSY	WARDSEL+9*, QUIT+1!
>> NURWARD	WARDSEL+4*
NURX	EN3+10*, QUIT+1!
NWLOC	WARDSEL+8*, RMST+1, QUIT+1!
RMSEL	QUIT+1!
X	WARDSEL+3, QUIT+1!
Y	WP1+2, WARDSEL+3, WARDSEL+4, WARDSEL+8, PATDAT+3, QUIT+1!