Routine: IBOUNP4

Name	Comments	DBIA/ICR reference
DIVISION	; gets list of selected divisions,or sets VAUTC=1 if all select
DRANGE	; select a date range for report
CATGRY	; allows user to select categories to include in report
EXIT	;
SORTBY	;sets IBOBYWRD=1 if user wants the output sorted by ward
PICK	; gets user's choice of all current inpatients or all admitted in range
DEVICE	;
MAIN	;
QUEUED	; entry point if queued

Name	Field # of Occurrence
^%ZIS	DEVICE+4
HOME^%ZIS	DEVICE+5
^%ZISC	EXIT+6
^%ZTLOAD	DEVICE+5
^DIR	DRANGE+1, DRANGE+2, CATGRY+2, CATGRY+5, CATGRY+8, PICK+8, SORTBY+2
LOOP^IBOUNP5	QUEUED+5
REPORT^IBOUNP6	QUEUED+5
DIVISION^VAUTOMA	DIVISION+2

Name	Line Occurrences
Function Call: WRITE	Prompt: !,*7,"ENDING DATE must follow or be the same as the STARTING DATE" Line Location: DRANGE+2
Function Call: WRITE	Prompt: !,$S($D(ZTSK):"REQUEST QUEUED TASK="_ZTSK,1:"REQUEST CANCELLED") Line Location: DEVICE+5
Routine Call	%ZIS Line Location: DEVICE+5
Routine Call	DIR Line Location: DRANGE+1 DRANGE+2 CATGRY+2 CATGRY+5 CATGRY+8 PICK+8 SORTBY+2
Routine Call	%ZIS Line Location: DEVICE+4

Name	Line Occurrences (* Changed, ! Killed)
^TMP($J	MAIN+4!, EXIT+1!

Name	Field # of Occurrence
>> %ZIS	DEVICE+4*
DIR	DRANGE+1!, DRANGE+3!, CATGRY+2!, CATGRY+5!, CATGRY+8!, PICK+8!, SORTBY+1!
DIR("?"	PICK+2, PICK+3, PICK+4, PICK+5, PICK+6*
DIR("A"	DRANGE+1, DRANGE+2, CATGRY+1, CATGRY+4, CATGRY+7, PICK+7, SORTBY+1*
DIR("B"	CATGRY+2, CATGRY+5, CATGRY+8*
DIR(0	DRANGE+1, CATGRY+1, CATGRY+4, CATGRY+7, PICK+1, SORTBY+1
>> DIRUT	DRANGE+1, DRANGE+2, CATGRY+2, CATGRY+5, CATGRY+8, PICK+8, SORTBY+2
IBOBEG	EXIT+7!, DRANGE+2*
IBOBYWRD	MAIN+4, EXIT+7!, SORTBY+3
IBOEND	EXIT+7!, DRANGE+3*
IBOEXP	EXIT+7!, CATGRY+6*
IBOPICK	EXIT+7!, PICK+9*
IBOUI	EXIT+7!, CATGRY+9*
IBOUK	EXIT+7!, CATGRY+3*
IO	DEVICE+6
IO("Q"	DEVICE+5
ION	DEVICE+5
>> POP	DEVICE+4
QUIT	MAIN+4~, MAIN+5, MAIN+6, MAIN+7, DRANGE+1, DRANGE+2, DEVICE+4, DEVICE+5, CATGRY+2, CATGRY+5* , CATGRY+8, DIVISION+1, DIVISION+3, PICK+8, SORTBY+2*
VAUTD	EXIT+7!
VAUTNI	DIVISION+1~*
>> Y	DRANGE+2, DRANGE+3, CATGRY+3, CATGRY+6, CATGRY+9, DIVISION+2, PICK+9, SORTBY+3
>> ZTDESC	DEVICE+5*
>> ZTIO	DEVICE+5*
>> ZTQUEUED	EXIT+5, DEVICE+1
>> ZTREQ	EXIT+5*
>> ZTRTN	DEVICE+5*
>> ZTSAVE("IBO*"	DEVICE+5*
>> ZTSAVE("VA*"	DEVICE+5*
>> ZTSK	DEVICE+5

Information