Routine: ABMDFPRT

Package	Total	Call Graph
Third Party Billing	4	^ABMDBCNT WTOT^ABMDFUTL ^ABMDRSEL $$EN^ABMVDF
Kernel	3	(,HOME)^%ZIS ^%ZISC ^%ZTLOAD
VA Fileman	2	^DIC ^DIR

Package

Total

Call Graph

(,HOME)^%ZIS ^%ZISC ^%ZTLOAD

^DIC ^DIR

Name	Comments	DBIA/ICR reference
ZIS	; ; Select output device, call routine to print specified form
CHK	; ; Loop thru bills with a claim status of approved count those to be ; exported.
PRT	; Entry point for Taskman
XIT	;CLEAN UP AND QUIT
QUE	;
SEL	; ; Select the form to be exported (printed)
SEL2	; ; Select exclusion parameters, find bills that match specified ; criteria

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: SEL+2
Function Call: WRITE	Prompt: !!?8," (NOTE: ",$S($P($G(^ABMDEXP(ABMP("EXP"),1)),U,4):"Plain Paper",1:Y(0,0)_" forms")," should be loaded in the printer.)" Line Location: SEL+13
Function Call: WRITE	Prompt: !!,"Counting..." Line Location: CHK+3
Function Call: WRITE	Prompt: !!?5,*7,"There are no Approved ",ABM("F"),"'s to be Printed!",! Line Location: CHK+14
Function Call: WRITE	Prompt: !!?8,"You have reached the Maximum Number (250) of Forms that can be",!?8,"printed during one job!",!! Line Location: CHK+18
Function Call: WRITE	Prompt: " Number of ",ABM("F")," forms awaiting export: ",ABM("C") Line Location: CHK+19
Function Call: WRITE	Prompt: !!?5,*7,"With the EXCLUSION PARAMETERS selected there are no ",ABM("F"),"'s to Print!",! Line Location: SEL2+12
Function Call: WRITE	Prompt: !!?5,"Number of "_$P(^ABMDEXP(ABMP("EXP"),0),U)_" forms to be Printed: ",ABM("C") Line Location: SEL2+19
Function Call: WRITE	Prompt: !! Line Location: ZIS+2
Function Call: WRITE	Prompt: $$EN^ABMVDF("IOF") Line Location: PRT+3
Routine Call	%ZIS Line Location: ZIS+9
Routine Call	DIC Line Location: SEL+8
Routine Call	DIR Line Location: CHK+17 SEL2+17
Routine Call	%ZIS Line Location: ZIS+5

FileNo	Call Tags
^ABMDEXP - [#9002274.08]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^ABMDBILL(	CHK+6, CHK+7!, CHK+9, CHK+11
^ABMDEXP - [#9002274.08]	SEL+13, SEL2+19, PRT+2

Name	Field # of Occurrence
>> %ZIS	ZIS+4*
>> %ZIS("A"	ZIS+3*
ABM	ABMDFPRT+4!, CHK+4, CHK+6, CHK+7, CHK+9, CHK+11, XIT+1!
ABM("APPR"	SEL2+3*
ABM("C"	CHK+5, CHK+11, CHK+13, CHK+18, CHK+19, SEL2+11, SEL2+19
ABM("F"	SEL+12*, CHK+14, CHK+19, SEL2+12
ABM("FORM"	SEL+11*, CHK+11
ABM("NODX"	SEL2+4*
ABMAPOK	PRT+1*, XIT+1!
ABMP	ABMDFPRT+4!, XIT+1!
ABMP("EXP"	SEL+11*, SEL+13, SEL2+19, PRT+2
ABMP("TYP"	SEL2+5*
ABMY	XIT+1!
DIC	SEL+3!, SEL+4*
DIC("A"	SEL+6*
DIC("S"	SEL+7*
DIC(0	SEL+5*
DIQ	XIT+1!
DIR	CHK+15!, SEL2+13!, SEL2+18!
DIR("A"	SEL2+16*
DIR("B"	SEL2+15*
DIR(0	CHK+16, SEL2+14
>> DTOUT	SEL+9, SEL2+7
>> DUOUT	SEL+9, SEL2+7
DUZ	SEL2+3
DUZ(2	CHK+6, CHK+7, CHK+9, CHK+11
IO	ZIS+7, ZIS+12
IO("Q"	XIT+1!
IO("S"	ZIS+11
IO(0	ZIS+7, ZIS+10
>> IOT	ZIS+7
POP	ZIS+6, XIT+1!
U	SEL+13, CHK+9, CHK+11, SEL2+19, PRT+2
>> X	SEL+9
>> Y	SEL+10, SEL+11, SEL2+11
>> Y(0	SEL+12, SEL+13
>> ZTDESC	QUE+2*
>> ZTRTN	QUE+1*
>> ZTSAVE("ABM*"	QUE+3*
ZTSK	XIT+1!, QUE+5

Information