Routine: IBDF1A

Information

IBDF1A ;ALB/CJM - ENCOUNTER FORM (prints for a single patient);NOV 16,1992

Source file <IBDF1A.m>

Package	Total	Call Graph
Automated Information Collection System	4	$$FORMS^IBDF1B2 ($$IFOTHR,PRNTOTHR)^IBDF1B5 DRWFORM^IBDF2A (DEVICE,KPRNTVAR)^IBDFUA
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	3	NOW^%DTC ^DIC ^DIR

Package	Total	Caller Graph
Automated Information Collection System	3	IBDF PRINT BLNK ENCOUNTER FORM IBDF PRNT FORM W/DATA NO APPT. IBDFFSMP
Integrated Billing	2	IBDF PRINT BLNK ENCOUNTER FORM IBDF PRNT FORM W/DATA NO APPT.

Name	Comments	DBIA/ICR reference
ERROR2	;prints a message
PATIENT	;gets the patient to print the form for
WHCHFORM	;
FORM	;gets the type of form to print from the clinic setup - sets FORMS
ASKFORM	;asks to select single form
DEVICE	;
CLINIC	;asks the user for the clinic
EXIT	;
ERROR	;prints a message
MAIN(WITHDATA)	; ; -- prints encounter forms, either with patient data for a patient ; with no appointment (in which case it uses time of printing as ; the appointment time) or without patient data (only if a form ; is defined for the clinic for such use) ; $G(WITDATA) if the form should be printed with data ; 0 if a blank form for use without patient data should be printed
NOW	;sets IBAPPT to NOW
QUEUED	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"There is no encounter form defined for this clinic that should print",!,"without patient data!",! Line Location: ERROR+1
Function Call: WRITE	Prompt: !!,"There are no forms defined to print for this clinic!",! Line Location: ERROR2+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+8
Routine Call	DIC Line Location: ASKFORM+2
Routine Call	DIR Line Location: PATIENT+1 CLINIC+1 WHCHFORM+2
Routine Call	%ZIS Line Location: DEVICE+3

Name	Line Occurrences (* Changed, ! Killed)
^SD(409.95 - [#409.95]	FORM+2, FORM+3
^TMP("DFN"	EXIT+4!
^TMP("IB"	MAIN+15!, EXIT+4!
^TMP("IBDF"	MAIN+15!, EXIT+4!
^TMP("RPT"	EXIT+4!

Name	Field # of Occurrence
%	NOW+1~, NOW+3
%H	NOW+1~
%I	NOW+1~
%IS	DEVICE+3!
%ZIS	DEVICE+3!*
DA	CLINIC+1!
DFN	MAIN+16, QUEUED+6, EXIT+4!, PATIENT+2, WHCHFORM+6
DIC	ASKFORM+1!*, ASKFORM+2!
DIC("A"	ASKFORM+1*
DIC("S"	ASKFORM+1*
DIC(0	ASKFORM+1*
DIR	PATIENT+1!, CLINIC+1!, WHCHFORM+2!
DIR("A"	PATIENT+1, CLINIC+1, WHCHFORM+2*
DIR(0	PATIENT+1, CLINIC+1, WHCHFORM+2*
>> DIRUT	PATIENT+1, WHCHFORM+2
>> DTOUT	CLINIC+1, ASKFORM+2
>> DUOUT	CLINIC+1, ASKFORM+2
FORMS	MAIN+8~, QUEUED+5, FORM+4, WHCHFORM+3, WHCHFORM+6, WHCHFORM+7, ASKFORM+3
I	EXIT+4!
IBAPPT	QUEUED+6, EXIT+4!, NOW+3*, WHCHFORM+6
IBCLINIC	QUEUED+6, EXIT+4!, FORM+2, CLINIC+2*, WHCHFORM+1, WHCHFORM+6, WHCHFORM+7
IBDEVICE	QUEUED+2~, QUEUED+4, QUEUED+5
IBF	MAIN+8~, QUEUED+5*
IBFLAG	MAIN+12~, MAIN+13*
IBFORM	QUEUED+5*, EXIT+4!
IBPM	MAIN+8~, MAIN+16, QUEUED+6, WHCHFORM+3, WHCHFORM+6*, WHCHFORM+7
IBQUIT	MAIN+16, MAIN+17, MAIN+18, MAIN+19, MAIN+22, MAIN+23, EXIT+4!, FORM+2, FORM+3, FORM+4 , PATIENT+1, DEVICE+3, DEVICE+8, CLINIC+1, WHCHFORM+2, WHCHFORM+4, WHCHFORM+7, ASKFORM+2*
IBTYPE	EXIT+4!
IO	DEVICE+9
IO("Q"	DEVICE+4
IOP	DEVICE+3!
NODE	MAIN+8~
>> POP	DEVICE+3
SETUP	FORM+1~, FORM+2, FORM+3, FORM+4
WITHDATA	MAIN~, MAIN+14*, MAIN+18, MAIN+22, QUEUED+5, QUEUED+6
X	EXIT+4!, NOW+1~
Y	EXIT+4!, PATIENT+1, PATIENT+2, CLINIC+1, CLINIC+2, WHCHFORM+2, WHCHFORM+4, WHCHFORM+6, ASKFORM+2, ASKFORM+3
>> ZTDESC	DEVICE+6*
>> ZTQUEUED	EXIT+1, DEVICE+1
>> ZTREQ	EXIT+1*
>> ZTRTN	DEVICE+5*
>> ZTSAVE("DFN"	DEVICE+5*
>> ZTSAVE("FORMS"	DEVICE+5*
>> ZTSAVE("IB*"	DEVICE+5*
>> ZTSAVE("WITHDATA"	DEVICE+5*
>> ZTSK	DEVICE+7