Routine: IBDFREG

Information

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

Source file <IBDFREG.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	2	NOW^%DTC ^DIR

Name	Comments	DBIA/ICR reference
ERROR2	;prints a message
WHCHFORM	;
FORM	;gets the type of form to print from the clinic setup - sets FORMS
DEVICE	; ; -- always ask with param as default
CLINIC	;asks the user for the clinic
EXIT	;
WI(DFN,IBCLINIC,IBAPPT)	; -- procedure ; -- print encounter form for walk-ins (not tested)
WIQ
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: !,"Queuing to a CRT not allowed!" Line Location: DEVICE+10
Function Call: WRITE	Prompt: ! Line Location: WI+8
Routine Call	%ZIS Line Location: DEVICE+14
Routine Call	DIR Line Location: CLINIC+1 WI+8
Routine Call	%ZIS Line Location: DEVICE+3

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

Name	Field # of Occurrence
%	NOW+1~, NOW+3
%H	NOW+1~
%I	NOW+1~
>> %ZIS	DEVICE+3*
>> %ZIS("A"	DEVICE+2*
>> %ZIS("B"	DEVICE+3*
>> %ZIS("S"	DEVICE+3*
DFN	QUEUED+6, WHCHFORM+2, WI~, WI+4
DIR	CLINIC+1!, WI+2~, WI+8!
DIR("A"	CLINIC+1, WI+7
DIR(0	CLINIC+1, WI+7
>> DIRUT	WI+8
>> DTOUT	CLINIC+1
>> DUOUT	CLINIC+1
FORMS	MAIN+8~, QUEUED+5, FORM+4, WHCHFORM+1, WHCHFORM+2*, WHCHFORM+3, WI+2~
I	EXIT+4!
IBAPPT	QUEUED+6, EXIT+4!, NOW+3*, WHCHFORM+2, WI~, WI+5
IBCLINIC	QUEUED+6, EXIT+4!, FORM+2, CLINIC+2*, WHCHFORM+2, WHCHFORM+3, WI~, WI+10
IBDEVICE	QUEUED+2~, QUEUED+4, QUEUED+5
>> IBDFRION	DEVICE+5*
IBDFWI	WI+2~, WI+12*
IBF	MAIN+8~, QUEUED+5*, WI+2~
IBFLAG	MAIN+12~, MAIN+13*
IBFORM	QUEUED+5*, EXIT+4!
IBPM	MAIN+8~, MAIN+16, QUEUED+6, WHCHFORM+1, WHCHFORM+2, WHCHFORM+3, WI+2~, WI+14
IBQUIT	MAIN+16, MAIN+17, MAIN+18, MAIN+21, EXIT+4!, FORM+2, FORM+3, FORM+4, DEVICE+4, DEVICE+10 , DEVICE+14, CLINIC+1, WHCHFORM+3, WI+2~, WI+3, WI+10, WI+14*, WI+16
IBTYPE	EXIT+4!
IO	DEVICE+10
IO(0	DEVICE+10
ION	DEVICE+5
IOST	DEVICE+10
NODE	MAIN+8~, WI+2~
>> POP	DEVICE+4
SETUP	FORM+1~, FORM+2, FORM+3, FORM+4
WITHDATA	MAIN~, MAIN+14, MAIN+18, QUEUED+5, QUEUED+6, WI+2~, WI+12
X	EXIT+4!, NOW+1~
Y	EXIT+4!, CLINIC+1, CLINIC+2, WHCHFORM+2*, WI+8
>> ZTDESC	DEVICE+12*
>> ZTDTH	DEVICE+11*
>> ZTQUEUED	EXIT+1
>> ZTREQ	EXIT+1*
>> ZTRTN	DEVICE+11*
>> ZTSAVE("DFN"	DEVICE+11*
>> ZTSAVE("FORMS"	DEVICE+11*
>> ZTSAVE("IB*"	DEVICE+11*
>> ZTSAVE("WITHDATA"	DEVICE+11*