Routine: IBDFFSMP

Information

IBDFFSMP ;ALB/MAF -- Print a sample of all encounter forms. - Dec 12 1995@800

Package	Total	Call Graph
Automated Information Collection System	3	NOW^IBDF1A DRWFORM^IBDF2A (DEVICE,KPRNTVAR)^IBDFUA
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	1	^DIR

Package	Total	Caller Graph
Automated Information Collection System	1	IBDF PRINT SAMPLE ALL CLINICS
Integrated Billing	1	IBDF PRINT SAMPLE ALL CLINICS

Name	Comments	DBIA/ICR reference
DEVICE	;
EXIT	;
SET	; -- Build list into array IBFORMS. Make sure EF is one that is active ; Will print form only once.
PATIENT	; -- gets the patient to print the form for
QUEUED	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There are no forms set up for clinics...",!! Line Location: IBDFFSMP+16
Function Call: WRITE	Prompt: !! Line Location: PATIENT+1
Function Call: WRITE	Prompt: !,$C(7)," Encounter Forms require a page size of 80 lines and 132 columns. " Line Location: DEVICE+2
Routine Call	%ZIS Line Location: DEVICE+9
Routine Call	DIR Line Location: PATIENT+2
Routine Call	%ZIS Line Location: DEVICE+3

Name	Line Occurrences (* Changed, ! Killed)
^SC - [#44]	IBDFFSMP+14
^SD(409.95 - [#409.95]	IBDFFSMP+12, IBDFFSMP+13, SET+2, SET+3
^TMP("IBFRMS"	IBDFFSMP+5!, IBDFFSMP+16, SET+5*, QUEUED+6, QUEUED+7, EXIT+4!

Name	Line Occurrences
DEVICE	IBDFFSMP+17
EXIT	IBDFFSMP+8, IBDFFSMP+16, IBDFFSMP+18, IBDFFSMP+20
PATIENT	IBDFFSMP+8
QUEUED	IBDFFSMP+19
SET	IBDFFSMP+15

Name	Field # of Occurrence
%IS	DEVICE+3!
%ZIS	DEVICE+3!*
CLINIC	EXIT+6!
DFN	PATIENT+3*, EXIT+6!
DIR	PATIENT+2!
DIR("A"	PATIENT+2*
DIR(0	PATIENT+2*
>> DIRUT	PATIENT+2
FORMS	EXIT+6!
I	EXIT+6!
IBAPPT	EXIT+6!
IBCLINIC	IBDFFSMP+12, IBDFFSMP+13, IBDFFSMP+14, SET+2, SET+5, QUEUED+7, EXIT+6!
IBDEVICE	QUEUED+2~, QUEUED+4, QUEUED+8
IBDFFLG	IBDFFSMP+3, IBDFFSMP+19, EXIT+6!, DEVICE+8
IBDFNODE	SET+3*, SET+5, EXIT+6!
IBDSAMP	QUEUED+5*, EXIT+1!
IBFORM	QUEUED+6*, QUEUED+7, QUEUED+8, EXIT+6!
IBPM	IBDFFSMP+4*, EXIT+6!
IBQUIT	IBDFFSMP+3, IBDFFSMP+8, IBDFFSMP+18, SET+4, PATIENT+2, EXIT+6!, DEVICE+3, DEVICE+9*
IO	IBDFFSMP+19
IO("Q"	DEVICE+4
IOP	DEVICE+3!
NAME	IBDFFSMP+14*, EXIT+6!
POP	EXIT+6!, DEVICE+3
SETUP	IBDFFSMP+13*, SET+3, EXIT+6!
WITHDATA	IBDFFSMP+4*, QUEUED+8, EXIT+6!
X	SET+5*, EXIT+6!
Y	PATIENT+2, PATIENT+3, EXIT+6!
>> ZTDESC	DEVICE+6*
>> ZTQUEUED	EXIT+2, DEVICE+1
>> ZTREQ	EXIT+2*
>> ZTRTN	DEVICE+5*
>> ZTSAVE("DFN"	DEVICE+5*
>> ZTSAVE("FORMS"	DEVICE+5*
>> ZTSAVE("IB*"	DEVICE+5*
>> ZTSAVE("WITHDATA"	DEVICE+5*
>> ZTSAVE("^TMP(""IBFRMS"",$J,"	DEVICE+5*
>> ZTSK	DEVICE+7, DEVICE+8