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

Package: Fee Basis

Routine: FBAAPIN


Information

FBAAPIN ;AISC/GRR - INVOICE DISPLAY ;7/17/2003

Source Information

Source file <FBAAPIN.m>

Entry Points

Name Comments DBIA/ICR reference
RD1
LIST
SET
SET2 ;
WRT
HED
Q
ERR
SETHD
MMORE
INDAT
PROV ;Display Invoice Provider information before invoice details FB*3.5*122

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,*7,"Invalid selection.",!
  • Line Location: RD1+1
Function Call: WRITE
  • Prompt: !!,N,?33,$$DATX^FBAAUTL(D),?43,FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:"")
  • Line Location: WRT+1
Function Call: WRITE
  • Prompt: ?51,"/",FBAARCE
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: ?57,FBBN,?67,$S(FBYY("REJ")]"":"Rejected",1:$$DATX^FBAAUTL(D2))
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,"(continued)"
  • Line Location: WRT+7
Function Call: WRITE
  • Prompt: !,?48,"-",FBMOD
  • Line Location: WRT+9
Function Call: WRITE
  • Prompt: !,$S(ZS="R":"*",1:""),$S(VP="VP":"#",1:""),$S($G(FBCAN)]"":"+",1:"")
  • Line Location: WRT+10
Function Call: WRITE
  • Prompt: ?3,FBFPPSL,?14,"$",$J(A1,8),?26,"$",$J(A2,8),?37,FBUNITS
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: ?43,$S(FBADJLR]"":FBADJLR,1:T)
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: ?53,"$",$S(FBADJLA]"":FBADJLA,1:TAMT)
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?69,FBRRMKL
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: !!,?2,"Contract Number: ",FBCNTRN
  • Line Location: WRT+19
Function Call: WRITE
  • Prompt: !!?5,"IPAC Number: ",FBIA,?30,"DoD Invoice Number: ",FBDODINV
  • Line Location: WRT+20
Function Call: WRITE
  • Prompt: !?3,"RENDERING PROV NAME (LI): "_$P(FBLIPRV,U,3)
  • Line Location: WRT+42
Function Call: WRITE
  • Prompt: !?7,"NPI: "_$P(FBLIPRV,U,4),?29,"TAXONOMY CODE: "_$P(FBLIPRV,U,5)
  • Line Location: WRT+43
Function Call: WRITE
  • Prompt: @IOF,!,"Invoice Number: ",FBAAIN,?30,"Vendor Name: ",V,!,?2,"Date Received: ",FBINDAT
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: ?33,"Invoice Date: ",$$DATX^FBAAUTL(+FBY)
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !?2,"FPPS Claim ID: ",$S(FBFPPSC]"":FBFPPSC,1:"N/A")
  • Line Location: HED+2
Function Call: WRITE
  • Prompt: ?33,"Patient Account #: ",FBCSID
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !?10,"('*' Reimb. to Patient '+' Cancel. Activity '#' Voided Payment)"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,"PATIENT",?33,"SVC DATE",?43,"CPT-MOD",?51,"/REV",?57,"BATCH NO.",?67,"VOUCHER DATE"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,?3,"FPPS LINE",?14,"AMT CLAIMED",?26,"AMT PAID",?36,"UNITS",?43,"ADJ CODE",?53,"ADJ AMT",?69,"REMIT RMK"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !,$$REPEAT^XLFSTR("=",79)
  • Line Location: HED+8
Function Call: WRITE
  • Prompt: !,*7,"Please enter a whole number! Alpha characters and puctuation are invalid"
  • Line Location: ERR+0
Function Call: WRITE
  • Prompt: @IOF,!?30,"INVOICE DISPLAY",!?30,"===============",!?28,"PROVIDER INFORMATION",!
  • Line Location: PROV+2
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: PROV+3
Function Call: WRITE
  • Prompt: !!?3,"OPERATING PROV NAME: "_$P(FBPRI,U,4),!?3,"OPERATING PROV NPI: "_$P(FBPRI,U,5)
  • Line Location: PROV+4
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: PROV+5
Function Call: WRITE
  • Prompt: !!?3,"SERVICING PROV NAME: "_$P(FBPRI,U,9),!?3,"SERVICING PROV NPI: "_$P(FBPRI,U,10)
  • Line Location: PROV+6
Function Call: WRITE
  • Prompt: ", "
  • Line Location: PROV+7
Function Call: WRITE
  • Prompt: $P(FBSRVF,U,3)_" "_$P(FBSRVF,U,4)
  • Line Location: PROV+8
Function Call: WRITE
  • Prompt: !!?3,"REFERRING PROV NAME: "_$P(FBPRI,U,11),!?3,"REFERRING PROV NPI: "_$P(FBPRI,U,12),!!
  • Line Location: PROV+9

FileMan Files Accessed Via FileMan Db Call

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