Routine: IBERS1

Information

IBERS1 ;ALB/ARH - APPOINTMENT CHECK-OFF SHEET GENERATOR (CONTINUED); 12/6/91

Source Information

Source file <IBERS1.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Integrated Billing	4	$$PT^IBEFUNC $$TDG^IBEFUNC2 ^IBERS2 CPT^IBERSP
Kernel	1	$$S^%ZTLOAD
VA Fileman	1	^DIR

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Integrated Billing	2	IBERS IBERSP

Entry Points

Name	Comments	DBIA/ICR reference
PAUSE	;
HDRPG	;print a header/trailer pages if entire clinics or divisions were requested
ENDV	;entire divisions were choosen, find all clinics (with check-off sheets defined)
ENCL	;for every clinic choosen find every patient appointment on DATE
ENPT	;print an appointment check-off sheet for each patient selected
ENDC
PRINT	;print the patient data and then the check-off sheet CPT list that has been gathered/created
STOP()	;deterimine if user requested task to stop

External References

Name	Field # of Occurrence
$$S^%ZTLOAD	STOP+1
^DIR	PAUSE+1
$$PT^IBEFUNC	ENCL+7
$$TDG^IBEFUNC2	ENCL+10
^IBERS2	ENPT+8
CPT^IBERSP	PRINT+3

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!!!!!!,$J("End"_IBHDRLN,((IOM\2)+(IBX\2)+2)),@IOF Line Location: HDRPG+1
Function Call: WRITE	Prompt: !!!!,$J("Beginning"_IBHDRLN,((IOM\2)+(IBX\2)+5)),@IOF Line Location: HDRPG+2
Function Call: WRITE	Prompt: !,^TMP("IBRSP",$J,IBX) Line Location: PRINT+2
Function Call: WRITE	Prompt: @IOF Line Location: PAUSE+1
Routine Call	DIR Line Location: PAUSE+1

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	ENCL+5
^DG(40.8 - [#40.8]	ENDV+2, HDRPG+2
^DPT - [#2]	ENCL+8
^SC - [#44]	ENCL+4, ENCL+5, ENCL+6, ENCL+7, ENDV+5, HDRPG+2, PRINT+3
^SC("AF"	ENDV+3, ENDV+4
^SD(409.1 - [#409.1]	ENCL+9
^TMP("IBRS"	IBERS1+8, IBERS1+9, IBERS1+10, ENPT+5, ENPT+6, ENPT+7, ENPT+10!, ENCL+2, ENCL+3, ENCL+11* , ENDC!, ENDV+1, ENDV+2, ENDV+6, ENDV+7, ENDV+8!
^TMP("IBRSC"	IBERS1+11!
^TMP("IBRSP"	PRINT+2, PRINT+4!

Label References

Name	Line Occurrences
$$STOP	ENCL+2, ENDV+3, PRINT+1
ENCL	IBERS1+9
ENDV	IBERS1+8
ENPT	IBERS1+10
HDRPG	ENPT+5, ENPT+9
PAUSE	PRINT+2, PRINT+3
PRINT	ENPT+8

Naked Globals

Name	Field # of Occurrence
^(	ENPT+8

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DIR	PAUSE+1!
DIR(0	PAUSE+1*
DIROUT	PAUSE+1!
DIRUT	PAUSE+1!
DTOUT	PAUSE+1!
DUOUT	PAUSE+1!
IB1	ENPT+3*, ENPT+10!
IB2	ENPT+3*, ENPT+10!
IB3	ENPT+3*, ENPT+10!
IB4	ENPT+3*, ENPT+10!
IBAPP	ENCL+4*, ENCL+5, ENCL+6, ENCL+7, ENCL+8, ENCL+11, ENDC!
IBAPTYP	ENCL+8, ENCL+9, ENCL+11, ENDC!
IBCLN	ENCL+1, ENCL+2, ENCL+3, ENCL+4, ENCL+5, ENCL+6, ENCL+7, ENCL+10, ENCL+11, ENDC! , ENDV+3, ENDV+4, ENDV+5, ENDV+7, ENDV+8!
IBCLNE	ENCL+5*, ENCL+11, ENDC!
IBCNT	ENCL+1, ENCL+10, ENDC!
IBDIV	ENDV+2, ENDV+5, ENDV+6*, ENDV+7, ENDV+8!
IBDSH	ENPT+4*, ENPT+10!
IBDT	ENCL+4, ENDC!, ENDV+1, ENDV+2, ENDV+7*, ENDV+8!
IBDTE	ENCL+5*, ENCL+11, ENDC!
IBGRP	ENDV+3*, ENDV+4, ENDV+8!
IBHDR	IBERS1+11!, ENPT+5, ENPT+9, ENPT+10!, ENCL+1*
IBHDRLN	ENPT+10!, HDRPG+1, HDRPG+2*
IBI	ENPT+4, ENPT+10!, PRINT+2, PRINT+4!
IBLC	IBERS1+11!, PRINT+1, PRINT+2, PRINT+3, PRINT+4!, PAUSE+1*
IBLN	ENPT+8*, ENPT+10!, PRINT+3
IBPAT	ENCL+7*, ENCL+10, ENCL+11, ENDC!
IBPFN	ENCL+7*, ENCL+8, ENCL+11, ENDC!
IBQ	IBERS1+8, IBERS1+9, IBERS1+10, IBERS1+11!, ENPT+5, ENPT+6, ENPT+7, ENCL+2, ENDV+3, PRINT+1 , PRINT+2, PRINT+3, PAUSE+1*
>> IBSRT	ENPT+5, ENCL+10
IBSRT1	ENPT+5, ENPT+6, ENPT+7, ENPT+10!, ENCL+10, ENCL+11, ENDC!, HDRPG+2
IBSRT2	ENPT+5, ENPT+6, ENPT+7, ENPT+10!
IBSRT3	ENPT+6, ENPT+7, ENPT+8, ENPT+10!
IBX	ENCL+6, ENCL+7, ENDC!, HDRPG+1, HDRPG+2, HDRPG+3!, PRINT+1, PRINT+2, PRINT+3, PRINT+4!
IBY	ENCL+3*, ENCL+4, ENDC!
IOF	HDRPG+1, HDRPG+2, PRINT+4, PAUSE+1
IOM	ENPT+3, ENPT+4, HDRPG+1, HDRPG+2
IOSL	PRINT+2
IOST	PAUSE+1
Y	ENPT+10!, ENCL+5*, ENDC!, PAUSE+1
>> ZTQUEUED	IBERS1+14, STOP+1
ZTREQ	IBERS1+14*, STOP+1!
>> ZTSTOP	STOP+1*, STOP+2

Customize PDF page

Package: Integrated Billing

Routine: IBERS1

Call Graph Total: 6

Caller Graph Total: 2