Routine: IBOUNP1

Name	Comments	DBIA/ICR reference
DRANGE	; select a date range for report
CATGRY	; allows user to select categories to include in report
CLINIC	; gets list of selected clinics,or sets VAUTC=1 if all selected
EXIT	;
LCLINIC	; lists clinics if not all divisions were chosen
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
LOOPCLNC^IBOUNP2	QUEUED+5
REPORT^IBOUNP3	QUEUED+5
CLINIC^VAUTOMA	CLINIC+2
DIVISION^VAUTOMA	CLINIC+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
Routine Call	%ZIS Line Location: DEVICE+4

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	LCLINIC+2, LCLINIC+3
^TMP($J	MAIN+4!, EXIT+1!

Name	Field # of Occurrence
>> %ZIS	DEVICE+4*
DIR	DRANGE+1!, DRANGE+3!, CATGRY+2!, CATGRY+5!, CATGRY+8!
DIR("A"	DRANGE+1, DRANGE+2, CATGRY+1, CATGRY+4, CATGRY+7*
DIR("B"	CATGRY+2, CATGRY+5, CATGRY+8*
DIR(0	DRANGE+1, CATGRY+1, CATGRY+4, CATGRY+7
>> DIRUT	DRANGE+1, DRANGE+2, CATGRY+2, CATGRY+5, CATGRY+8
IBCLN	LCLINIC+1~, LCLINIC+2*, LCLINIC+3, LCLINIC+8
IBOBEG	EXIT+7!, DRANGE+2*
IBOEND	EXIT+7!, DRANGE+3*
IBOEXP	EXIT+7!, CATGRY+6*
IBOQUIT	MAIN+4, MAIN+5, MAIN+6, MAIN+7, QUEUED+5, EXIT+7!, DRANGE+1, DRANGE+2, DEVICE+4, DEVICE+5* , CLINIC+1, CLINIC+3, CATGRY+2, CATGRY+5, CATGRY+8*
IBOUI	EXIT+7!, CATGRY+9*
IBOUK	EXIT+7!, CATGRY+3*
IO	DEVICE+6
IO("Q"	DEVICE+5
ION	DEVICE+5
NODE	LCLINIC+1~, LCLINIC+3*, LCLINIC+5, LCLINIC+7
>> POP	DEVICE+4
VAUTC	EXIT+7!, LCLINIC+2*
VAUTC(	LCLINIC+8*
VAUTD	EXIT+7!, LCLINIC+2
VAUTD(	LCLINIC+5
VAUTNI	CLINIC+1~, CLINIC+2
>> Y	DRANGE+2, DRANGE+3, CLINIC+2, CATGRY+3, CATGRY+6, CATGRY+9
>> 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