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
Print Page as PDF
Routine: FBAAIARD

Package: Fee Basis

Routine: FBAAIARD


Information

FBAAIARD ;ALB/ESG - Fee IPAC Vendor Payment Report (Detail) Print ;2/17/2014

Source Information

Source file <FBAAIARD.m>

Entry Points

Name Comments DBIA/ICR reference
PRINT ; entry point for printing the report
; Variables assumed to exist from FBAAIARB: FBIAVEN, FBIABEG, FBIAEND, FBIATYPE, FBIAEXCEL, FBIAADJ, FBIAIGNORE
PX ;
PRINTX ;
RPTLN ; display one payment line item detail
RPTLNX ;
DIAGDISP(Z) ; For inpatient, display diagnosis codes and POA codes
PROCDISP(Z) ; For inpatient, display procedure codes
HDR ; report header
HDRX ;
EXCELHD ; print an Excel CSV header record (only 1 Excel CSV header should print for the whole report)
EXCELN(RPTG) ; write a line of CSV data
CSV(STRING,DATA) ; build the Excel data string for CSV format

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!?5,"No data found for this report."
  • Line Location: PRINT+8
Function Call: WRITE
  • Prompt: !!?5,"This report was halted during compilation by TaskManager Request."
  • Line Location: PRINT+9
Function Call: WRITE
  • Prompt: !!?5,"*** End of Report ***"
  • Line Location: PRINT+33
Function Call: WRITE
  • Prompt: !,$$LJ^XLFSTR(FBDODINV,20)
  • Line Location: RPTLN+7
Function Call: WRITE
  • Prompt: ?21,$$LJ^XLFSTR(FBZPTNM,"16T")
  • Line Location: RPTLN+8
Function Call: WRITE
  • Prompt: ?38,$E($P(RPTG,U,4),6,10)
  • Line Location: RPTLN+9
Function Call: WRITE
  • Prompt: ?44,$$FMTE^XLFDT(FBZDOS,"2Z")
  • Line Location: RPTLN+10
Function Call: WRITE
  • Prompt: ?54,$P(RPTG,U,5),?61,$P(RPTG,U,7)
  • Line Location: RPTLN+12
Function Call: WRITE
  • Prompt: ?54,$$FMTE^XLFDT($P(RPTG,U,8),"2Z")
  • Line Location: RPTLN+13
Function Call: WRITE
  • Prompt: ?54,$P(RPTG,U,12)
  • Line Location: RPTLN+14
Function Call: WRITE
  • Prompt: ?64,$$RJ^XLFSTR($FN($P(RPTG,U,14),"",2),10)
  • Line Location: RPTLN+16
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR($FN($P(RPTG,U,15),"",2),10)
  • Line Location: RPTLN+17
Function Call: WRITE
  • Prompt: $$RJ^XLFSTR($FN($P(RPTG,U,16),"",2),10)
  • Line Location: RPTLN+18
Function Call: WRITE
  • Prompt: ?95,$E($P(RPTG,U,17),1,6)
  • Line Location: RPTLN+19
Function Call: WRITE
  • Prompt: ?103,$$FMTE^XLFDT($P(RPTG,U,23),"2Z")
  • Line Location: RPTLN+20
Function Call: WRITE
  • Prompt: ?113,$E($P(RPTG,U,24),1,8)
  • Line Location: RPTLN+21
Function Call: WRITE
  • Prompt: ?122,$$RJ^XLFSTR($FN($P(RPTG,U,25),"",2),"10T")
  • Line Location: RPTLN+22
Function Call: WRITE
  • Prompt: !?3,$P(RPTG,U,20)
  • Line Location: RPTLN+25
Function Call: WRITE
  • Prompt: ?14,$P(RPTG,U,21)
  • Line Location: RPTLN+26
Function Call: WRITE
  • Prompt: ?21,$P(RPTG,U,22)
  • Line Location: RPTLN+27
Function Call: WRITE
  • Prompt: ?29,$S($P(RPTG,U,27):"**VOIDED**",1:"")
  • Line Location: RPTLN+28
Function Call: WRITE
  • Prompt: ?40,"**REJECTED**"
  • Line Location: RPTLN+30
Function Call: WRITE
  • Prompt: ?46,$P(RPTG,U,10)
  • Line Location: RPTLN+31
Function Call: WRITE
  • Prompt: ?54,$P(RPTG,U,6)
  • Line Location: RPTLN+32
Function Call: WRITE
  • Prompt: ?54,$E($P(RPTG,U,13),1,29)
  • Line Location: RPTLN+33
Function Call: WRITE
  • Prompt: ?61,"**REJECTED**"
  • Line Location: RPTLN+34
Function Call: WRITE
  • Prompt: ?84,$$RJ^XLFSTR($FN($P(RPTG,U,18),"",2),10)
  • Line Location: RPTLN+36
Function Call: WRITE
  • Prompt: ?95,$E($P(RPTG,U,19),1,6)
  • Line Location: RPTLN+37
Function Call: WRITE
  • Prompt: ?106,"**CANCELLED ",$$FMTE^XLFDT($P(RPTG,U,26),"2Z"),"**"
  • Line Location: RPTLN+39
Function Call: WRITE
  • Prompt: !?3,"DX(POA): "
  • Line Location: DIAGDISP+4
Function Call: WRITE
  • Prompt: !?12
  • Line Location: DIAGDISP+7
Function Call: WRITE
  • Prompt: DXP
  • Line Location: DIAGDISP+8
Function Call: WRITE
  • Prompt: DELIM
  • Line Location: DIAGDISP+9
Function Call: WRITE
  • Prompt: !?6,"PROC: "
  • Line Location: PROCDISP+4
Function Call: WRITE
  • Prompt: !?12
  • Line Location: PROCDISP+7
Function Call: WRITE
  • Prompt: PRC
  • Line Location: PROCDISP+8
Function Call: WRITE
  • Prompt: DELIM
  • Line Location: PROCDISP+9
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: $C(13)
  • Line Location: HDR+11
Function Call: WRITE
  • Prompt: "IPAC Vendor Payment Report"
  • Line Location: HDR+21
Function Call: WRITE
  • Prompt: ?44,"For Date Range ",$$FMTE^XLFDT(FBIABEG,"5DZ")," - ",$$FMTE^XLFDT(FBIAEND,"5DZ")
  • Line Location: HDR+22
Function Call: WRITE
  • Prompt: ?96,$$FMTE^XLFDT($$NOW^XLFDT),?120,"Page: ",PAGE
  • Line Location: HDR+23
Function Call: WRITE
  • Prompt: !?3,"Selected Invoice Types: ",ITSTR
  • Line Location: HDR+24
Function Call: WRITE
  • Prompt: ?102,"**Suspended Payments Only**"
  • Line Location: HDR+25
Function Call: WRITE
  • Prompt: !?3,"Vendor Name: ",FBVENAME
  • Line Location: HDR+28
Function Call: WRITE
  • Prompt: " (ID# ",VENID,")"
  • Line Location: HDR+31
Function Call: WRITE
  • Prompt: ?81,"Invoice Type: "
  • Line Location: HDR+33
Function Call: WRITE
  • Prompt: "Outpatient/Civil Hospital Ancillary"
  • Line Location: HDR+34
Function Call: WRITE
  • Prompt: "Civil Hospital Inpatient"
  • Line Location: HDR+35
Function Call: WRITE
  • Prompt: "Pharmacy"
  • Line Location: HDR+36
Function Call: WRITE
  • Prompt: !,"DoD Invoice Number",?21,"Patient Name",?38,"SSN"
  • Line Location: HDR+40
Function Call: WRITE
  • Prompt: ?44,"Svc Dt Proc Rev"
  • Line Location: HDR+41
Function Call: WRITE
  • Prompt: ?44,"Admit Dt Disch Dt"
  • Line Location: HDR+42
Function Call: WRITE
  • Prompt: ?44,"Fill Dt Rx#"
  • Line Location: HDR+43
Function Call: WRITE
  • Prompt: ?66,"Claimed",?79,"Paid",?90,"Adj Reason",?103,"Dt Paid",?113,"Check#",?123,"Disbursed"
  • Line Location: HDR+44
Function Call: WRITE
  • Prompt: !?3,"Fee Inv#",?14,"Bch#",?21,"Oblig#"
  • Line Location: HDR+45
Function Call: WRITE
  • Prompt: ?54,"Modifiers"
  • Line Location: HDR+46
Function Call: WRITE
  • Prompt: ?46,"Adm Dx"
  • Line Location: HDR+47
Function Call: WRITE
  • Prompt: ?54,"Drug Name"
  • Line Location: HDR+48
Function Call: WRITE
  • Prompt: !,SEPLINE
  • Line Location: HDR+49
Function Call: WRITE
  • Prompt: !!!?5,"*** Report Halted by TaskManager Request ***"
  • Line Location: HDR+54
Function Call: WRITE
  • Prompt: FBH
  • Line Location: EXCELHD+34
Function Call: WRITE
  • Prompt: !,FBZ
  • Line Location: EXCELN+37
Info |  Source |  Entry Points |  Interaction Calls