Routine: FBAACLU

Information

FBAACLU ;AISC/DMK,WOIFO/SAB - CLERK WHO ENTERED AUTHORIZATION ;12/8/2014

Call Graph

Call Graph Total: 10

Package	Total	Call Graph
VA FileMan	5	DD^%DT NOW^%DTC (,IX)^DIC $$GET1^DIQ ^DIR
Kernel	4	(,HOME)^%ZIS ^%ZISC (,$$S)^%ZTLOAD $$FMTE^XLFDT
Fee Basis	1	LOOKUP^FBUCUTL3

Caller Graph

Legends:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 4

Package	Total	Caller Graph
Fee Basis	4	FBAA CLERK LOOK-UP FBCH CLERK LOOKUP FBCH REQUEST CLERK LOOKUP FBUC CLERK LOOKUP

Entry Points

Name	Comments	DBIA/ICR reference
QEN	; queued entry point ; inputs from Taskman ; ZTQUEUED - (optional) set by TaskMan to indicate report is tasked ; outputs to Taskman ; ZTREQ - set when report is tasked ; ZTSTOP - set when report is tasked and job was stopped per request
EXIT	;
HD	; page header
HDEDT(FBCONT)	; header for edited table ; input ; FBCONT (optional) =1 when table continued after page break
DUA(FBROOT)	; display the user audit for a record in one of the supported files

External References

Name	Field # of Occurrence
DD^%DT	QEN+11
NOW^%DTC	QEN+11
^%ZIS	FBAACLU+34
HOME^%ZIS	FBAACLU+40
^%ZISC	QEN+93
^%ZTLOAD	FBAACLU+40
$$S^%ZTLOAD	HD+2
^DIC	FBAACLU+15, FBAACLU+17, FBAACLU+20
IX^DIC	FBAACLU+23
$$GET1^DIQ	QEN+47, QEN+48, QEN+50, QEN+51, QEN+60, QEN+62, QEN+63, QEN+64, QEN+65, QEN+66 , QEN+74, QEN+75, QEN+76, QEN+84, QEN+85, QEN+86, QEN+87, QEN+88, QEN+89, DUA+13
^DIR	QEN+92, HD+3
LOOKUP^FBUCUTL3	FBAACLU+26
$$FMTE^XLFDT	DUA+12

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"Authorization" Line Location: QEN+46
Function Call: WRITE	Prompt: !,"Veteran: ",$$GET1^DIQ(161,FBDA(1)_",",.01) Line Location: QEN+47
Function Call: WRITE	Prompt: ?40,"Vendor: ",$$GET1^DIQ(161.01,FBIENS,.04) Line Location: QEN+48
Function Call: WRITE	Prompt: !,"Authorization Number: ",FBDA(1),"-",FBDA Line Location: QEN+49
Function Call: WRITE	Prompt: !,"Authorized From Date: ",$$GET1^DIQ(161.01,FBIENS,.01) Line Location: QEN+50
Function Call: WRITE	Prompt: ?40,"Authorized To Date: ",$$GET1^DIQ(161.01,FBIENS,.02) Line Location: QEN+51
Function Call: WRITE	Prompt: !!,"10-7078 Authorization" Line Location: QEN+59
Function Call: WRITE	Prompt: !,"Veteran: ",$$GET1^DIQ(162.4,FBIENS,2) Line Location: QEN+60
Function Call: WRITE	Prompt: ?40,"Vendor: ",$$GET1^DIQ(161.2,FBVEN_",",.01) Line Location: QEN+62
Function Call: WRITE	Prompt: !,"Reference Number: ",$$GET1^DIQ(162.4,FBIENS,.01) Line Location: QEN+63
Function Call: WRITE	Prompt: ?40,"Fee Program: ",$$GET1^DIQ(162.4,FBIENS,.5) Line Location: QEN+64
Function Call: WRITE	Prompt: !,"Authorized From Date: ",$$GET1^DIQ(162.4,FBIENS,3) Line Location: QEN+65
Function Call: WRITE	Prompt: ?40,"Authorized To Date: ",$$GET1^DIQ(162.4,FBIENS,4) Line Location: QEN+66
Function Call: WRITE	Prompt: !!,"CH Notification" Line Location: QEN+73
Function Call: WRITE	Prompt: !,"Date/Time: ",$$GET1^DIQ(162.2,FBIENS,.01) Line Location: QEN+74
Function Call: WRITE	Prompt: !,"Veteran: ",$$GET1^DIQ(162.2,FBIENS,3) Line Location: QEN+75
Function Call: WRITE	Prompt: ?40,"Vendor: ",$$GET1^DIQ(162.2,FBIENS,1) Line Location: QEN+76
Function Call: WRITE	Prompt: !!,"Unauthorized Claim" Line Location: QEN+83
Function Call: WRITE	Prompt: !,"Veteran: ",$$GET1^DIQ(162.7,FBIENS,2) Line Location: QEN+84
Function Call: WRITE	Prompt: ?40,"Vendor: ",$$GET1^DIQ(162.7,FBIENS,1) Line Location: QEN+85
Function Call: WRITE	Prompt: !,"Date Claim Received: ",$$GET1^DIQ(162.7,FBIENS,.01) Line Location: QEN+86
Function Call: WRITE	Prompt: ?40,"Fee Program: ",$$GET1^DIQ(162.7,FBIENS,.5) Line Location: QEN+87
Function Call: WRITE	Prompt: !,"Treatment From Date: ",$$GET1^DIQ(162.7,FBIENS,3) Line Location: QEN+88
Function Call: WRITE	Prompt: ?40,"Treatment To Date: ",$$GET1^DIQ(162.7,FBIENS,4) Line Location: QEN+89
Function Call: WRITE	Prompt: @IOF Line Location: HD+4
Function Call: WRITE	Prompt: FBHD,?49,FBDTR,?72,"page ",FBPG Line Location: HD+6
Function Call: WRITE	Prompt: !,FBDL Line Location: HD+7
Function Call: WRITE	Prompt: !!,?4,"Date/Time Edited",?27,"Edited By" Line Location: HDEDT+3
Function Call: WRITE	Prompt: !,FBDL("ED") Line Location: HDEDT+5
Function Call: WRITE	Prompt: ! Line Location: DUA+11
Function Call: WRITE	Prompt: ?4,$S(FBDT:$$FMTE^XLFDT(FBDT),1:"") Line Location: DUA+12
Function Call: WRITE	Prompt: ?27,$S(FBUSR:$$GET1^DIQ(200,FBUSR,.01),1:"") Line Location: DUA+13
Function Call: WRITE	Prompt: !,?6,"Comments: ",FBTXT Line Location: DUA+14
Function Call: WRITE	Prompt: !,?4,"No information found in user audit" Line Location: DUA+15
Routine Call	DIC Line Location: FBAACLU+15 FBAACLU+17 FBAACLU+20
Routine Call	DIC Line Location: FBAACLU+23
Routine Call	DIR Line Location: QEN+92 HD+3
Routine Call	%ZIS Line Location: FBAACLU+34
Routine Call	%ZIS Line Location: FBAACLU+40

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAAA - [#161]	Classic Fileman Calls, GET1^DIQ
161.01	GET1^DIQ
^FBAAV - [#161.2]	GET1^DIQ
^FBAA(162.2 - [#162.2]	Classic Fileman Calls, GET1^DIQ
^FB7078 - [#162.4]	Classic Fileman Calls, GET1^DIQ
^FB583 - [#162.7]	GET1^DIQ
^VA(200 - [#200]	GET1^DIQ

Name	Line Occurrences (* Changed, ! Killed)
^FB7078 - [#162.4]	QEN+61
^FBAA(162.2 - [#162.2]	QEN+30
^FBAAA - [#161]	QEN+26, QEN+41
^TMP("FBARY"	FBAACLU+28, FBAACLU+29, FBAACLU+30!

Label References

Name	Line Occurrences
DUA	QEN+52, QEN+67, QEN+77, QEN+90
EXIT	FBAACLU+31, FBAACLU+34, FBAACLU+35
HD	QEN+34, QEN+45, QEN+58, QEN+72, QEN+82, DUA+2, DUA+10
HDEDT	DUA+3, DUA+10

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	QEN+7~, QEN+11
%ZIS	FBAACLU+10~, FBAACLU+34*
D	FBAACLU+10~, FBAACLU+22*
DIC	FBAACLU+14, FBAACLU+15!, FBAACLU+16, FBAACLU+17!, FBAACLU+19, FBAACLU+20!, FBAACLU+22, FBAACLU+23!, EXIT+3!
DIC("A"	FBAACLU+22*
DIC(0	FBAACLU+14, FBAACLU+16, FBAACLU+19, FBAACLU+22
DIR	QEN+92!, EXIT+3!, HD+3!
DIR(0	QEN+92, HD+3
DIROUT	EXIT+3!
DIRUT	EXIT+3!
DTOUT	EXIT+3!
DUOUT	EXIT+3!
FBARY	FBAACLU+25~
FBC	DUA+1~, DUA+4, DUA+5, DUA+15
FBCONT	HDEDT~, HDEDT+4
FBDA	FBAACLU+10~, FBAACLU+17, FBAACLU+20, FBAACLU+23, FBAACLU+29, FBAACLU+31, QEN+24, QEN+26, QEN+41, QEN+44 , QEN+49, QEN+52, EXIT+2!
FBDA(1	FBAACLU+15*, FBAACLU+16, QEN+26, QEN+41, QEN+44, QEN+47, QEN+49, QEN+52
FBDATA	QEN+38~, QEN+41*, QEN+42
FBDL	QEN+12!, QEN+13*, QEN+14, EXIT+2!, HD+7
FBDL("ED"	QEN+14*, HDEDT+5
FBDT	EXIT+2!, DUA+1~, DUA+7*, DUA+12
FBDTR	QEN+11*, EXIT+2!, HD+6
>> FBFILE	FBAACLU+8, FBAACLU+13, FBAACLU+18, FBAACLU+21, FBAACLU+24, QEN+17, QEN+18, QEN+19, QEN+20, QEN+24 , QEN+25
FBHD	QEN+17, QEN+18, QEN+19, QEN+20, EXIT+2!, HD+6
FBI	FBAACLU+25~, FBAACLU+28, FBAACLU+29, HD+1~, DUA+1~, DUA+4, DUA+6
FBIENS	QEN+44, QEN+48, QEN+50, QEN+51, QEN+57, QEN+60, QEN+63, QEN+64, QEN+65, QEN+66 , QEN+71, QEN+74, QEN+75, QEN+76, QEN+81, QEN+84, QEN+85, QEN+86, QEN+87, QEN+88 , QEN+89, EXIT+2!
FBOUT	FBAACLU+25~, FBAACLU+27
FBPG	QEN+11, EXIT+2!, HD+3, HD+4, HD+5, HD+6
FBQUIT	QEN+11, QEN+37, QEN+45, QEN+55, QEN+58, QEN+70, QEN+72, QEN+80, QEN+82, QEN+92 , EXIT+2!, HD+2, HD+3*, DUA+2, DUA+4, DUA+10
FBROOT	DUA~, DUA+4, DUA+6
FBSHOW	EXIT+2!
FBSHOW(	QEN+23, QEN+24, QEN+27, QEN+28, QEN+29, QEN+30, QEN+31*, QEN+37, QEN+42, QEN+55 , QEN+57, QEN+61, QEN+67, QEN+70, QEN+71, QEN+77, QEN+80, QEN+81, QEN+90
FBTXT	DUA+1~, DUA+9*, DUA+14
FBUSR	DUA+1~, DUA+8*, DUA+13
FBVEN	QEN+56~, QEN+61*, QEN+62
FBX	FBAACLU+36~, FBAACLU+39, QEN+23, QEN+26, QEN+27, QEN+28, QEN+30, QEN+31, EXIT+2!
FBY0	DUA+1~, DUA+6*, DUA+7, DUA+8, DUA+9
IO	QEN+9
IO("Q"	FBAACLU+35
IOF	HD+4
IOSL	QEN+45, QEN+58, QEN+72, QEN+82, DUA+2, DUA+10
IOST	QEN+92, HD+3, HD+4
POP	FBAACLU+10~, FBAACLU+34
U	QEN+26
X	EXIT+3!
Y	FBAACLU+15, FBAACLU+17, FBAACLU+20, FBAACLU+23, QEN+11*, EXIT+3!, HD+3
ZTCPU	FBAACLU+37~
ZTDESC	FBAACLU+37~, FBAACLU+38*
ZTDTH	FBAACLU+37~
ZTIO	FBAACLU+37~
ZTKIL	FBAACLU+37~
ZTPRI	FBAACLU+37~
>> ZTQUEUED	EXIT+1, HD+2
>> ZTREQ	EXIT+1*
ZTRTN	FBAACLU+37~, FBAACLU+38*
ZTSAVE	FBAACLU+37~
ZTSAVE(	FBAACLU+39*
ZTSK	FBAACLU+37~
>> ZTSTOP	HD+2*
ZTSYNC	FBAACLU+37~
ZTUCI	FBAACLU+37~

Customize PDF page

Package: Fee Basis