Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: FBCHVH

Package: Fee Basis

Routine: FBCHVH


Information

FBCHVH ;AISC/DMK - VENDOR PAYMENT HISTORY ;7/17/2003

Source Information

Source file <FBCHVH.m>

Call Graph

Call Graph

Call Graph Total: 10

Package Total Call Graph
Fee Basis 7 FBCKI^FBAACCB1  PMNT^FBAACCB2  ($$DATX,$$GETICN,$$SSN,CLOSE,DATE,PDF,ZIS)^FBAAUTL  (GETVEN,HANG)^FBAAUTL1  $$ADJLRA^FBCHFA  $$RRL^FBCHFR  ($$ICD0,$$ICD9)^FBCSV1  
VA FileMan 2 $$GET1^DIQ  ^DIR  
Registration 1 DEM^VADPT  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 1

Package Total Caller Graph
Fee Basis 1 FBCHDI2  

Entry Points

Name Comments DBIA/ICR reference
GETVEN
START
END
GETINV ;
WRT
WRTSTR(STR,MX) ; Wordwrap string
WRTSTR1
WRTDX ;write dianosis code and present on admission code
WRTPC() ;write procedure code (if present) ; FB*3.5*135
HEDC
CDAT
GETDAT
PRVD ;DISPLAY PROVIDER INFORMATION BEFORE INVOICE DISPLAY FB*3.5*122

External References

Name Field # of Occurrence
$$GET1^DIQ PRVD+2
^DIR WRT+39, WRTSTR1+4, PRVD+11
FBCKI^FBAACCB1 GETINV+8
PMNT^FBAACCB2 WRT+51
$$DATX^FBAAUTL WRT+6
$$GETICN^FBAAUTL WRT+3
$$SSN^FBAAUTL WRT+3
CLOSE^FBAAUTL END+1
DATE^FBAAUTL GETVEN+1
PDF^FBAAUTL GETDAT
ZIS^FBAAUTL GETVEN+3
GETVEN^FBAAUTL1 GETVEN
HANG^FBAAUTL1 WRT
$$ADJLRA^FBCHFA GETINV+17
$$RRL^FBCHFR GETINV+20
$$ICD0^FBCSV1 WRTPC+4
$$ICD9^FBCSV1 WRT+16, WRTDX+5
DEM^VADPT GETINV+10

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"No invoices on line for this vendor."
  • Line Location: GETVEN+2
Function Call: WRITE
  • Prompt: VADM(1)_" "_$P(VADM(2),"^",2),?48,FBCSID
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: $E(VADM(1),1,20)," (",$$SSN^FBAAUTL(DFN,1),")",?29,$$GETICN^FBAAUTL(DFN),?48,FBCSID
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,?4,FBVEN,?45,FBVID,?62,FBIN(1)
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: !,$S(FBIN(13)["R":"*",1:""),$S(FBIN(14)]"":"#",1:"")
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?4,FBFPPSC,?18,FBFPPSL,?35,FBIN(2),?46,$$DATX^FBAAUTL(FBVINDT),?57,FBIN(6),?68,FBIN(7)
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: !?4,$J(FBIN(8),1,2),?17,$J(FBIN(9),1,2),?29,FBCDAYS
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: ?39,$S(FBADJLR]"":FBADJLR,1:FBIN(11))
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: ?49,$S(FBADJLA]"":FBADJLA,1:$J(FBIN(10),1,2))
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?64,FBRRMKL
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !!?5,"IPAC Number: ",$P($G(^FBAA(161.95,+$P(FBY5,U,10),0)),U,1),?30,"DoD Invoice Number: ",$P(FBY5,U,7)
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: !?2,"Admit Dx: ",$$ICD9^FBCSV1((FBADMTDX),$P($G(FBIN),"^",6))
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: ?25,"Contract Number: ",FBCNTRN
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !,?4,"PROC: "_WRTPC,?17,"RENDERING PROV NAME (LI): "_$P(RPROV(P3,0),U,2)
  • Line Location: WRT+33
Function Call: WRITE
  • Prompt: !,?22,"NPI: "_$P(RPROV(P3,0),U,3),?43,"TAXONOMY CODE: "_$P(RPROV(P3,0),U,4)
  • Line Location: WRT+35
Function Call: WRITE
  • Prompt: !,?4,"PROC: "
  • Line Location: WRT+37
Function Call: WRITE
  • Prompt: WRTPC_" "
  • Line Location: WRT+38
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+39
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+51
Function Call: WRITE
  • Prompt: $P(STR," ",1,$S(I=$L(STR," "):I,1:I-1))
  • Line Location: WRTSTR1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: WRTSTR1+4
Function Call: WRITE
  • Prompt: !,?4,"DX/POA: "
  • Line Location: WRTDX+7
Function Call: WRITE
  • Prompt: P4,""
  • Line Location: WRTDX+8
Function Call: WRITE
  • Prompt: ?25,FBHEAD_" PAYMENT HISTORY",!,?24,$E(Q,1,24),!?48,"Date Range: ",BEGDATE_" to "_ENDDATE
  • Line Location: HEDC+0
Function Call: WRITE
  • Prompt: !?32,"INVOICE DISPLAY",!,?31,$E(Q,1,17),!
  • Line Location: HEDC+1
Function Call: WRITE
  • Prompt: !,"Veteran's Name",?48,"Patient Control Number"
  • Line Location: HEDC+2
Function Call: WRITE
  • Prompt: !,"('*'Reimbursement to Veteran '+' Cancellation Activity) '#' Voided Payment)"
  • Line Location: HEDC+3
Function Call: WRITE
  • Prompt: !,?4,"Vendor Name",?45,"Vendor ID",?59,"Invoice #"
  • Line Location: HEDC+7
Function Call: WRITE
  • Prompt: !,?4,"FPPS Claim ID",?18,"FPPS Line Item",?35,"Date Rec.",?46,"Inv. Date",?57,"Fr Date",?68,"To Date"
  • Line Location: HEDC+9
Function Call: WRITE
  • Prompt: !,?4,"Amt Claimed",?17,"Amt Paid",?29,"Cov.Days",?39,"Adj Code",?49,"Adj Amount",?64,"Remit Remark"
  • Line Location: HEDC+10
Function Call: WRITE
  • Prompt: !,Q,!
  • Line Location: HEDC+11
Function Call: WRITE
  • Prompt: @IOF,!?30,"INVOICE DISPLAY",!?30,"===============",!?28,"PROVIDER INFORMATION",!
  • Line Location: PRVD+3
Function Call: WRITE
  • Prompt: !?3,"ATTENDING PROV NAME: "_$P(FBPRI,U),!?3,"ATTENDING PROV NPI: "_$P(FBPRI,U,2),?35,"ATTENDING PROV TAXONOMY CODE: "_$P(FBPRI,U,3)
  • Line Location: PRVD+4
Function Call: WRITE
  • Prompt: !!?3,"OPERATING PROV NAME: "_$P(FBPRI,U,4),!?3,"OPERATING PROV NPI: "_$P(FBPRI,U,5)
  • Line Location: PRVD+5
Function Call: WRITE
  • Prompt: !!?3,"RENDERING PROV NAME: "_$P(FBPRI,U,6),!?3,"RENDERING PROV NPI: "_$P(FBPRI,U,7),?35,"RENDERING PROV TAXONOMY CODE: "_$P(FBPRI,U,8)
  • Line Location: PRVD+6
Function Call: WRITE
  • Prompt: !!?3,"SERVICING PROV NAME: "_$P(FBPRI,U,9),!?3,"SERVICING PROV NPI: "_$P(FBPRI,U,10)
  • Line Location: PRVD+7
Function Call: WRITE
  • Prompt: ", "
  • Line Location: PRVD+8
Function Call: WRITE
  • Prompt: $P(FBSRVF,U,3)_" "_$P(FBSRVF,U,4)
  • Line Location: PRVD+9
Function Call: WRITE
  • Prompt: !!?3,"REFERRING PROV NAME: "_$P(FBPRI,U,11),!?3,"REFERRING PROV NPI: "_$P(FBPRI,U,12),!!
  • Line Location: PRVD+10
Routine Call
  • DIR
  • Line Location:
    • WRT+39
    • WRTSTR1+4
    • PRVD+11

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^FB(161.94 - [#161.94] WRTDX+6
^FBAA(161.43 - [#161.43] WRT+18
^FBAA(161.95 - [#161.95] WRT+14
^FBAAI - [#162.5] START+1, GETINV+3, GETINV+4, GETINV+5, GETINV+6, WRT, WRT+22, WRT+23, WRT+27, WRT+28
, WRT+40, WRT+42, WRT+43, WRT+45, PRVD+2
^FBAAI("AF" GETVEN+2, START+1
^FBAAV - [#161.2] GETINV+9
^IBE(353.3 - [#353.3] WRT+46, WRT+48

Label References

Name Line Occurrences
$$WRTPC WRT+30
$$WRTSTR WRT+49, WRT+50
CDAT GETINV+11, GETINV+12
END GETVEN, GETVEN+3
GETDAT START
GETINV START+1
GETVEN GETVEN+1, GETVEN+2, START+2
HEDC START, WRT
WRTDX WRT+24
WRTSTR1 WRTSTR1+6

Naked Globals

Name Field # of Occurrence
^("FBREJ" START+1
^(0 START+1, GETINV+9

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A2 WRT+51~*
AD GETINV+2~
AI WRT+41~*, WRT+42*, WRT+43, WRT+45
AID WRT+41~, WRT+43*, WRT+44
AITI WRT+41~, WRT+45*, WRT+46, WRT+48
B GETINV+1~
BEGDATE GETVEN+1, GETVEN+3, END!, HEDC, GETDAT*
DA END!
>> DFN GETINV+10*, WRT+3
DIC END!
DIR WRT+26~, WRT+39!, WRTSTR1+4!
DIR(0 WRT+39*, WRTSTR1+4*, PRVD+11*
DTOUT WRT+26~, WRT+39, WRTSTR1+4
DUOUT WRT+26~, WRT+39, WRTSTR1+4
ENDDATE GETVEN+1, GETVEN+3, END!, HEDC, GETDAT*
F135 WRT+26~, WRT+29*, WRT+33*, WRT+35*, WRT+39*, WRTSTR1+4*
FBAANQ GETVEN!, GETVEN+3*, START+2, END!
FBAAOUT START*, START+1, END!, WRT
FBADJLA GETINV+1~, GETINV+19*, WRT+11
FBADJLR GETINV+1~, GETINV+18*, WRT+9
FBADMTDX GETINV+1~, WRT+16*
FBBEG GETVEN+1*, GETVEN+3, START+1, END!
>> FBCAN WRT+1
FBCDAYS GETINV+1~, GETINV+13*, WRT+7
FBCNTRN GETINV+1~, WRT+18*, WRT+19
FBCSID GETINV+1~, GETINV+14*, WRT+2, WRT+3
FBDX END!, WRTDX+2*, WRTDX+4, WRTDX+5
FBEND GETVEN+1*, GETVEN+3, START+1, END!
FBFPPSC GETINV+1~, GETINV+15*, WRT+6
FBFPPSL GETINV+1~, GETINV+16*, WRT+6
FBHEAD START*, END!, HEDC, HEDC+1
FBI START+1*, END!, GETINV+3, GETINV+4, GETINV+5, GETINV+6, GETINV+8, GETINV+17, GETINV+20, WRT
, WRT+22, WRT+23, WRT+27, WRT+28, WRT+40, WRT+42, WRT+43, WRT+45, PRVD+2
FBIN END!, GETINV+3*, GETINV+7, WRT+16, WRTDX+5, WRTPC+4
FBIN( GETINV+7*
FBIN(1 WRT+4
FBIN(10 WRT+11
FBIN(11 WRT+9
FBIN(13 WRT+1, WRT+5
FBIN(14 WRT+5
FBIN(2 GETINV+11*, WRT+6
FBIN(3 GETINV+9
FBIN(4 GETINV+10
FBIN(6 GETINV+12*, WRT+6
FBIN(7 GETINV+12*, WRT+6
FBIN(8 WRT+7
FBIN(9 WRT+7, WRT+51
FBM START+1*, END!
FBOUT WRT+26~, WRT+29*, WRT+30, WRT+39*, WRT+40, WRT+42, WRT+49*, WRT+50*, WRTSTR+1*, WRTSTR1+4*
, WRTSTR1+5, WRTSTR1+7
FBPG START*, END!, HEDC!, HEDC+1!
FBPOA GETINV+1~, WRTDX+3*, WRTDX+6
>> FBPOP GETVEN+1, GETVEN+3
FBPRI PRVD+1~, PRVD+2*, PRVD+4, PRVD+5, PRVD+6, PRVD+7, PRVD+10
FBPROC END!, WRTPC+2*, WRTPC+3, WRTPC+4
FBPROG GETVEN+3, START*, START+1, END!
FBRRMKL GETINV+1~, GETINV+20*, WRT+12
FBSRVF PRVD+1~, PRVD+2*, PRVD+8, PRVD+9
>> FBSSNRF WRT+2, WRT+3
FBST PRVD+1~
FBVEN END!, GETINV+9*, WRT+4
FBVID END!, GETINV+9*, WRT+4
FBVINDT END!, GETINV+8*, WRT+6
>> FBX GETINV+17*, GETINV+18, GETINV+19
FBY2 GETINV+1~, GETINV+4*, GETINV+8, GETINV+13, GETINV+14
FBY3 GETINV+1~, GETINV+5*, GETINV+15, GETINV+16
FBY5 GETINV+1~, GETINV+6*, WRT+14, WRT+16, WRT+18
I WRTSTR+1~, WRTSTR1+1*, WRTSTR1+2, WRTSTR1+3
IFN GETVEN, GETVEN+2, GETVEN+3, START+1, END!
IO GETVEN+3, START
IO(0 GETVEN+3
IOF HEDC, HEDC+1, PRVD+3
IOM WRTDX+7
IOSL WRT
IOST START, WRT
J END!, GETINV+7*
K END!, WRT+24*, WRTDX+2, WRTDX+3, WRTDX+7
L END!, WRT+26~, WRT+30*, WRT+31, WRTPC+2
MX WRTSTR~, WRTSTR1, WRTSTR1+6
P1 WRT+21~, WRT+22*, WRTDX+2
P2 WRT+21~, WRT+23*, WRTDX+3
P3 WRT+26~, WRT+31*, WRT+32, WRT+33, WRT+34, WRT+35, WRTDX+1~, WRTDX+5*, WRTDX+6
P4 WRTDX+1~, WRTDX+6*, WRTDX+7, WRTDX+8
P5 WRT+26~, WRT+27*, WRTPC+2
P6 WRTPC+1~, WRTPC+4*, WRTPC+5
PGM GETVEN+3*, END!
Q START*, END!, HEDC, HEDC+1, HEDC+11
RM WRTSTR+1~, WRTSTR1*, WRTSTR1+1
RPROV WRT+26~, WRT+28*
RPROV( WRT+33, WRT+34, WRT+35
RPROV("B" WRT+31
STR WRTSTR~, WRTSTR1, WRTSTR1+1, WRTSTR1+2, WRTSTR1+3*, WRTSTR1+6
STRLEN WRT+26~, WRT+29*, WRT+33*, WRT+37*, WRT+38*, WRT+39*
U GETINV+13, GETINV+14, GETINV+15, GETINV+16, GETINV+18, GETINV+19, WRT+14, WRT+18, WRT+33, WRT+34
, WRT+35, PRVD+2, PRVD+4, PRVD+5, PRVD+6, PRVD+7, PRVD+8, PRVD+9, PRVD+10
VA END!
VADM END!
VADM(1 WRT+2, WRT+3
VADM(2 WRT+2
VAERR END!
VAL GETVEN+3*, END!
VAR GETVEN+3*, END!
WRTPC WRT+26~, WRT+30*, WRT+33, WRT+38, WRT+41*, WRT+43*, WRT+44*, WRT+46*, WRT+47*, WRT+48*
, WRT+49, WRT+50
X END!
Y END!, GETINV+11*, GETINV+12*, CDAT*, GETDAT*
ZZ GETVEN+1*, END!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All