Routine: IBEMTF2

Package	Total	Call Graph
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
Integrated Billing	2	($$NBCL,$$NBCSC,$$NBDIS)^IBEFUNC ($$DAT1,$$DAT2)^IBOUTL
VA Fileman	2	^%DT ^DIR

Package	Total	Caller Graph
Integrated Billing	3	IB MT LIST FLAGGED PARAMS IBAMTI2 IBEMTO1

Entry Points

Name	Comments	DBIA/ICR reference
EN	; Option entry point - describe output.
NBILLQ
HDR	; Generate a report header.
LSTQ
NBILL(IBF,IBEN,IBD)	; Is the entry not billable as of the effective date?
VAL(IBF,IBEN)	; Return the entry name.
PAUSE	; Page break
ENQ
LST	; List all selected entries.
ENQ1
VALQ
DASH()	; Return a dashed line.
DQ	; Tasked entry point.

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,$S($D(ZTSK):"This job has been queued. The task number is "_ZTSK_".",1:"Unable to queue this job.") Line Location: EN+12
Function Call: WRITE	Prompt: @IOF,*13 Line Location: HDR+1
Function Call: WRITE	Prompt: "All ",$S(IBI=352.2:"dispositions",IBI=352.3:"clinic stop codes",1:"clinics")," are billable on this date." Line Location: LST+1
Function Call: WRITE	Prompt: $$VAL(IBI,IBJ) Line Location: LST+4
Function Call: WRITE	Prompt: ! Line Location: PAUSE+3
Routine Call	%ZIS Line Location: EN+13
Routine Call	DIR Line Location: PAUSE+4
Routine Call	%ZIS Line Location: EN+9

Name	Line Occurrences (* Changed, ! Killed)
^DIC(37 - [#37]	VAL+6
^DIC(40.7 - [#40.7]	VAL+7
^IBE(	DQ+3
^SC - [#44]	VAL+8
^TMP("IBEMTF2"	DQ+3*, ENQ1!, LST+1, LST+2

Name	Field # of Occurrence
%DT	EN+5*, EN+6!
%DT("A"	EN+5*
%DT("B"	EN+5*
>> %ZIS	EN+9*
DIR	PAUSE+2~
DIR(0	PAUSE+4*
DIROUT	PAUSE+2~
DIRUT	PAUSE+2~, PAUSE+4
DT	EN+5, HDR+4
DTOUT	PAUSE+2~
DUOUT	PAUSE+2~, PAUSE+4
IBD	NBILL~, NBILL+5
IBDAT	EN+6*, DQ+3, ENQ+1!, HDR+3, NBILL+6, NBILL+7, NBILL+8
IBEN	NBILL~, NBILL+5, NBILL+6, NBILL+7, NBILL+8, VAL~, VAL+5, VAL+6, VAL+7, VAL+8
IBF	NBILL~, NBILL+5, NBILL+6, NBILL+7, NBILL+8, VAL~, VAL+5, VAL+6, VAL+7, VAL+8
IBI	DQ+3, DQ+6, ENQ+1!, HDR+2, LST+1, LST+2, LST+4
IBJ	DQ+3, ENQ+1!, LST+2, LST+4
IBPAG	DQ+6, ENQ+1!, HDR+1, HDR+2, HDR+4
IBQ	DQ+6, ENQ+1!, LST+2, LST+3, PAUSE+4
IBT	ENQ+1!, HDR+2*, HDR+3
IBX	PAUSE+2~, PAUSE+3*
IO	EN+15
IO("Q"	EN+10, EN+13!
IOF	HDR+1
IOSL	LST+3, PAUSE+3
IOST	HDR+1, PAUSE+1
>> POP	EN+9
X	PAUSE+2~
Y	EN+6, NBILL+4~, NBILL+6, NBILL+7, NBILL+8, NBILLQ, VAL+4~, VAL+6, VAL+7, VAL+8 , VALQ, PAUSE+2~
>> ZTDESC	EN+11*
>> ZTQUEUED	ENQ
>> ZTRTN	EN+11*
>> ZTSAVE("IBDAT"	EN+11*
ZTSK	EN+12, EN+13!