Routine: FBAAVP

Information

FBAAVP ;AISC/DMK - VOID & CANCEL VOIDED MEDICAL PAYMENT ;5/15/14 17:36

Call Graph

Call Graph Total: 9

Package	Total	Call Graph
Fee Basis	4	(FBCKO,PMNT)^FBAACCB2 $$SSN^FBAAUTL ($$CPT,$$MODL)^FBAAUTL4 (,NOCL,NVOID)^FBAAVP0
VA FileMan	4	^DIC DT^DICRW ^DIE ^DIR
Kernel	1	^%ZIS

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: 3

Package	Total	Caller Graph
Fee Basis	3	FBAA CANCEL MEDICAL VOID FBAA MEDICAL VOID PAYMENT FBAAVP0

Entry Points

Name	Comments	DBIA/ICR reference
RDP
RDV
EN1
EN2
WRT
HED
Q
CPAY
VERF
SETN
PRT2

Name	Field # of Occurrence
^%ZIS	EN1+1
^DIC	RDP, RDV
DT^DICRW	FBAAVP+4
^DIE	SETN+3
^DIR	CPAY, VERF
FBCKO^FBAACCB2	WRT+2, PRT2
PMNT^FBAACCB2	WRT+16, PRT2+11
$$SSN^FBAAUTL	HED
$$CPT^FBAAUTL4	WRT+5
$$MODL^FBAAUTL4	WRT+6
^FBAAVP0	VERF+1
NOCL^FBAAVP0	RDV
NVOID^FBAAVP0	RDV+1

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !! Line Location: RDP+0
Function Call: WRITE	Prompt: !,CNT_") ",$S(ZS="R":"*",1:""),$S(V="VP":"#",1:""),?3,FBAADT,?14,FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:""),?23,"$",$J(A1,8),?34,"$",$J(A2,8),?49,FBIN,?60,B2,?68,FBAAPD Line Location: WRT+7
Function Call: WRITE	Prompt: !,CNT,") (continued)" Line Location: WRT+13
Function Call: WRITE	Prompt: !,?19,"-",FBMOD Line Location: WRT+14
Function Call: WRITE	Prompt: !,?4,"FPPS Claim ID: ",FBFPPSC Line Location: WRT+15
Function Call: WRITE	Prompt: !?3,"Reason:",!?10,^("R"),! Line Location: WRT+17
Function Call: WRITE	Prompt: @IOF,"Patient Name: ",$P(^DPT(DFN,0),"^"),?50,"Pt.ID ",$$SSN^FBAAUTL(DFN),!!,?2,"VENDOR: ",$P(^FBAAV(DA,0),"^"),!,?10,"('*' Reimb. to Patient '#' Voided Payment)" Line Location: HED+0
Function Call: WRITE	Prompt: !," SVC DATE",?11,"CPT-MOD",?20,"AMT CLAIMED",?35,"AMT PAID",?47,"INVOICE #",?57,"BATCH #",?66,"DATE PAID",!,Q,! Line Location: HED+1
Function Call: WRITE	Prompt: !!,"Which payment item(s) would you like to ",$S($D(FBVOID):"Cancel the void on",1:"Void")," ? " Line Location: CPAY+0
Function Call: WRITE	Prompt: !,?5,".... Done.",! Line Location: VERF+1
Function Call: WRITE	Prompt: !,$P(Y(0),"^",1),?14,$P($P(Y(0),"^",2),","),?23,$P(Y(0),"^",3),?34,$P(Y(0),"^",4),?49,$P(Y(0),"^",6),?62,$P(Y(0),"^",7),?68,$P(Y(0),"^",8) Line Location: PRT2+1
Function Call: WRITE	Prompt: !,CNT,") (continued)" Line Location: PRT2+7
Function Call: WRITE	Prompt: !,?19,"-",FBMOD Line Location: PRT2+8
Function Call: WRITE	Prompt: !,?4,"FPPS Claim ID: ",$P(Y(0),U,5) Line Location: PRT2+9
Function Call: WRITE	Prompt: ! Line Location: PRT2+10
Routine Call	%ZIS Line Location: EN1+1
Routine Call	DIC Line Location: RDP RDV
Routine Call	DIE Line Location: SETN+3
Routine Call	DIR Line Location: CPAY VERF

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^FBAAV - [#161.2]	Classic Fileman Calls
^FBAAC - [#162]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	HED
^FBAA(161.7 - [#161.7]	WRT+1
^FBAAC - [#162]	RDP+1*, RDV, EN1+2, WRT, WRT+1, WRT+17
^FBAAV - [#161.2]	HED
^TMP($J	RDP!, WRT+18, Q!, CPAY+2, VERF+1

Label References

Name	Line Occurrences
CPAY	RDV+2
EN1	RDV
EN2	EN1+2
HED	EN1+1, CPAY+1
PRT2	CPAY+2
Q	RDP, RDV+2
RDP	RDP, RDV, VERF
RDV	RDV, CPAY+1
SETN	VERF+1
WRT	EN2

Naked Globals

Name	Field # of Occurrence
^(	EN1+2, VERF+1
^("R"	WRT+17

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
A	Q!, CPAY+2*
A1	WRT+4*, WRT+7, WRT+18, Q!
A2	WRT+4, WRT+7, WRT+18, Q!, CPAY+2, VERF+1*
B	EN1+2*, WRT, WRT+1, WRT+6, WRT+17, Q!
B1	WRT+1*, Q!
B2	WRT+1*, WRT+7, WRT+18, Q!
C	Q!
CNT	RDV+1, EN1, WRT+1, WRT+7, WRT+18, Q!, CPAY, CPAY+2
D	EN1+2*, Q!
D0	Q!
D1	Q!
D2	Q!
D3	Q!
DA	RDV, EN1+2, WRT, WRT+1, WRT+6, WRT+17, HED, Q!, SETN
DA(1	RDV*, Q!
DF	Q!
DFN	RDP, RDP+1, RDV, EN1+2, WRT, WRT+1, WRT+2, WRT+6, WRT+17, HED , Q!, CPAY+2, VERF+1, SETN+3, PRT2
DI	Q!
DIC	RDP, RDV, Q!
DIC("A"	RDP*!
DIC(0	RDP, RDV
DIDEL	SETN+3*!
DIE	Q!, SETN+3*
DIR	Q!, VERF!
DIR("A"	VERF*
DIR("B"	VERF*
DIR(0	CPAY, VERF
DIRUT	Q!, CPAY+1, VERF
DIYS	Q!
DR	Q!, SETN+1, SETN+2
FBAACB	Q!
FBAACPT	WRT+5*, WRT+7, WRT+18, Q!
FBAADT	WRT+1*, WRT+7, WRT+18, Q!
FBAAPD	EN2, WRT+3, WRT+7, WRT+18, Q!
FBDT	WRT+1*, Q!
FBFPPSC	WRT~*, WRT+15, WRT+18
FBI	WRT+9~, WRT+10, PRT2+3~, PRT2+4
FBIN	WRT+4*, WRT+7, WRT+18, Q!
FBMOD	WRT+10, WRT+14, Q!, PRT2+4, PRT2+8
FBMODLE	WRT+6*, WRT+7, WRT+8, WRT+10, WRT+18, Q!
FBON	EN2, WRT+18, Q!, CPAY+2, VERF+1*
FBSD	WRT+1, WRT+2, WRT+18, Q!, CPAY+2, VERF+1*, SETN+3, PRT2
FBSSN	Q!
FBSV	WRT+1, WRT+2, WRT+18, Q!, CPAY+2, VERF+1*, SETN, PRT2
FBVD	WRT+1, WRT+2, Q!, CPAY+2, VERF+1, SETN+3, PRT2
FBVOID	EN2, Q!, CPAY, VERF, SETN, SETN+1, SETN+2
FBVR	VERF+2!, SETN+2
FBX	Q!, CPAY+1*, CPAY+2
FD	EN2, WRT+18, Q!, CPAY+2
I	Q!, VERF+1*
IOF	HED
ION	EN1+1
IOP	EN1+1*!
K	EN1+2*, WRT, WRT+1, WRT+6, WRT+17, Q!
L	EN1+2*, EN2, WRT+1, WRT+4, WRT+5, Q!
ON	Q!
P3	Q!
P4	Q!
POP	Q!
Q	EN1*, HED+1, Q!
U	WRT, PRT2+2, PRT2+4, PRT2+9
V	EN2*, WRT+7, Q!
VAL	Q!
VP	Q!, SETN*
X	RDP, RDV, Q!, CPAY+2*
Y	RDP, RDV, Q!, CPAY+1, VERF
Y(0	CPAY+2, VERF+1, PRT2+1, PRT2+2, PRT2+4, PRT2+9
Z	Q!
ZS	EN2*, WRT+7, Q!
ZZ	Q!

Customize PDF page

Package: Fee Basis