Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
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>

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

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: !,?4,FBVEN,?45,FBVID,?62,FBIN(1)
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,$S(FBIN(13)["R":"*",1:""),$S(FBIN(14)]"":"#",1:"")
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?4,FBFPPSC,?18,FBFPPSL,?35,FBIN(2),?46,$$DATX^FBAAUTL(FBVINDT),?57,FBIN(6),?68,FBIN(7)
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: !?4,$J(FBIN(8),1,2),?17,$J(FBIN(9),1,2),?29,FBCDAYS
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: ?39,$S(FBADJLR]"":FBADJLR,1:FBIN(11))
  • Line Location: WRT+8
Function Call: WRITE
  • Prompt: ?49,$S(FBADJLA]"":FBADJLA,1:$J(FBIN(10),1,2))
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?64,FBRRMKL
  • Line Location: WRT+11
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+13
Function Call: WRITE
  • Prompt: !?2,"Admit Dx: ",$$ICD9^FBCSV1((FBADMTDX),$P($G(FBIN),"^",6))
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?25,"Contract Number: ",FBCNTRN
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: !,?4,"PROC: "_WRTPC,?17,"RENDERING PROV NAME (LI): "_$P(RPROV(P3,0),U,2)
  • Line Location: WRT+32
Function Call: WRITE
  • Prompt: !,?22,"NPI: "_$P(RPROV(P3,0),U,3),?43,"TAXONOMY CODE: "_$P(RPROV(P3,0),U,4)
  • Line Location: WRT+34
Function Call: WRITE
  • Prompt: !,?4,"PROC: "
  • Line Location: WRT+36
Function Call: WRITE
  • Prompt: WRTPC_" "
  • Line Location: WRT+37
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+38
Function Call: WRITE
  • Prompt: !
  • Line Location: WRT+50
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DIC(5 - [#5] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call