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

Package: Fee Basis

Routine: FBAAPIN


Information

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

Source Information

Source file <FBAAPIN.m>

Call Graph

Call Graph

Call Graph Total: 12

Package Total Call Graph
Fee Basis 7 WRTSTR^FBAACCB1  (FBCKO,PMNT)^FBAACCB2  $$ADJLRA^FBAAFA  $$RRL^FBAAFR  ^FBAAPIN1  $$DATX^FBAAUTL  ($$CPT,$$MODL)^FBAAUTL4  
VA FileMan 3 DT^DICRW  $$GET1^DIQ  ^DIR  
Kernel 2 ^%ZIS  $$REPEAT^XLFSTR  

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

Package Total Caller Graph
Fee Basis 3 FBAA INVOICE DISPLAY  FBAAPIN1  FBPHON2  

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

External References

Name Field # of Occurrence
^%ZIS LIST+1
DT^DICRW FBAAPIN+3
$$GET1^DIQ SET+2, PROV+1
^DIR RD1, WRT, WRT+8, PROV+10
WRTSTR^FBAACCB1 WRT+35, WRT+36
FBCKO^FBAACCB2 SET2+21
PMNT^FBAACCB2 WRT+38
$$ADJLRA^FBAAFA SET2+10
$$RRL^FBAAFR SET2+13
^FBAAPIN1 WRT+18
$$DATX^FBAAUTL WRT+1, WRT+3, HED+1
$$CPT^FBAAUTL4 SET2+6
$$MODL^FBAAUTL4 SET2+7
$$REPEAT^XLFSTR HED+8

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
Routine Call
  • %ZIS
  • Line Location:
    • LIST+1
Routine Call
  • DIR
  • Line Location:
    • RD1
    • WRT
    • WRT+8
    • PROV+10

FileMan Files Accessed Via FileMan Db Call

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SET2+2
^FBAA(161.27 - [#161.27] SET2+4
^FBAA(161.43 - [#161.43] SET2+14
^FBAA(161.7 - [#161.7] SET2+20
^FBAA(161.95 - [#161.95] SET2+16
^FBAAC - [#162] SET, SET+1, SET2+15, SET2+17, SET2+22, WRT+23, WRT+26, WRT+27, WRT+30, WRT+40
, INDAT+1, INDAT+3, INDAT+4, PROV+1
^FBAAC("C" RD1+1, LIST+2, MMORE, INDAT
^FBAAV - [#161.2] SET2+2, SETHD
^IBE(353.3 - [#353.3] WRT+32, WRT+34

Label References

Name Line Occurrences
HED SET2+23, WRT, WRT+8
INDAT SETHD
LIST RD1+2
MMORE LIST+2
PROV SET2+22
Q RD1
RD1 RD1+1, RD1+2, ERR
SET MMORE
SET2 SET+3
SETHD MMORE
WRT SET2+24

Naked Globals

Name Field # of Occurrence
^("FBREJ" SET
^(0 SET2+2, SET2+20, SETHD

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A1 SET2+18*, WRT+11, Q!
A2 SET2+18*, WRT+11, Q!
A3 SET2+18*, Q!
AI WRT+24~, WRT+25*, WRT+26*, WRT+27, WRT+28, WRT+30
AID WRT+24~, WRT+27*, WRT+29
AITI WRT+24~, WRT+30*, WRT+31, WRT+32, WRT+34
C Q!
D SET*, WRT+1, Q!
D2 SET2+3*, WRT+3, Q!
DIC Q!
DIR RD1!, WRT!, WRT+8!
DIR("?" RD1*
DIR("A" RD1*
DIR(0 RD1*, WRT*, WRT+8*, PROV+10*
DIRUT RD1, Q!
DIYS Q!
FBAACPT SET2+6*, WRT+1, Q!
FBAAIN RD1+2*, LIST+2, HED, Q!, MMORE, INDAT
FBAAOUT RD1*, LIST+2, WRT*, WRT+4, WRT+6, WRT+7, WRT+8*, Q!, MMORE
FBAARCE SET+2*, WRT+2, Q+2!
FBADJLA SET2+12*, WRT+15, Q+2!
FBADJLR SET2+11*, WRT+13, WRT+18, Q+2!
FBBN SET2+20*, WRT+3, Q!
>> FBCAN WRT+10
>> FBCNTRN SET2+14*, WRT+19
FBCSID HED+3, Q+2!, INDAT+4*
FBDODINV SET2+1~, SET2+17*, WRT+20
FBFILE SET*, Q!
FBFPPSC HED+2, Q+2!, INDAT+3*
FBFPPSL SET2+9*, WRT+11, Q+2!
FBHDONE RD1*, Q!, SETHD*
FBHED RD1!, SET2+23, SET2+24*, Q!, PROV+10
FBI WRT+5~, WRT+6*
FBIA SET2+1~, SET2+15*, SET2+16*, WRT+20
FBINDAT HED, Q!, INDAT+1*, INDAT+2*
FBINTOT RD1*, SET2+18*, SET2+19*, Q!
FBLIPRV WRT+40~*, WRT+41, WRT+42, WRT+43
FBMOD WRT+6*, WRT+9, Q!
FBMODLE SET2+7*, WRT+1, WRT+4, WRT+6, Q+1!
FBPRI PROV+1~*, PROV+3, PROV+4, PROV+5, PROV+6, PROV+9
FBRRMKL SET2+13*, WRT+16, Q+2!
FBSRVF PROV+1~*, PROV+7, PROV+8
FBSW RD1*, Q!, SETHD, MMORE*, INDAT+5*
FBUNITS SET2+8*, WRT+11, Q+2!
FBX SET2+1~, SET2+10*, SET2+11, SET2+12
FBY SET*, SET2+8, HED+1, Q!
>> FBY3 SET+1*, SET2+9, SET2+14
FBYY SET*, SET2+3, SET2+5, SET2+6, SET2+18, SET2+20, Q!
FBYY("REJ" SET*, SET2+20, WRT+3
HX RD1+2*, Q!
I Q!
IOF HED, PROV+2
IOM WRT+35, WRT+36
ION LIST+1
IOP LIST+1*!
IOSL WRT, WRT+7
J LIST+2*, SET, SET+1, SET+2, SET2+2, SET2+7, SET2+10, SET2+13, SET2+15, SET2+17
, SET2+21, SET2+22, WRT+23, WRT+26, WRT+27, WRT+30, WRT+40, Q!, MMORE, INDAT
, INDAT+1, INDAT+3, INDAT+4, PROV+1
K SET, SET+1, SET+2, SET2+2, SET2+7, SET2+10, SET2+13, SET2+15, SET2+17, SET2+21
, SET2+22, WRT+23, WRT+26, WRT+27, WRT+30, WRT+40, Q!, SETHD, MMORE*, INDAT
, INDAT+1, INDAT+3, INDAT+4, PROV+1
L SET, SET+1, SET+2, SET2+7, SET2+10, SET2+13, SET2+15, SET2+17, SET2+21, SET2+22
, WRT+23, WRT+26, WRT+27, WRT+30, WRT+40, Q!, MMORE*, INDAT*, INDAT+1, INDAT+3
, INDAT+4, INDAT+5!, PROV+1
M SET, SET+1, SET+2, SET2+7, SET2+10, SET2+13, SET2+15, SET2+17, SET2+21, SET2+22
, WRT+23, WRT+26, WRT+27, WRT+30, WRT+40, Q!, MMORE*, INDAT*, INDAT+1, INDAT+3
, INDAT+4, INDAT+5!, PROV+1
N SET2+2*, WRT+1, Q!
Q LIST*, Q!
S SET2+2*, Q!
T SET2+3*, SET2+4*, WRT+13, WRT+18, Q!
TAMT SET2+5*, WRT+15, Q+2!
U SET2+4, SET2+5, SET2+8, SET2+9, SET2+11, SET2+12, SET2+14, SET2+15, SET2+16, SET2+17
, WRT+27, WRT+30, WRT+32, WRT+34, WRT+41, WRT+42, WRT+43, INDAT+3, INDAT+4, PROV+1
, PROV+3, PROV+4, PROV+5, PROV+6, PROV+7, PROV+8, PROV+9
V SET2+2*, HED, Q!, SETHD*
VP SET2+3*, WRT+10, Q!
WRTPC WRT+24~, WRT+25*, WRT+28*, WRT+29*, WRT+32*, WRT+33*, WRT+34*, WRT+35, WRT+36
>> X RD1+1, RD1+2*
>> Y RD1, WRT, WRT+8
Z Q!
ZS SET2+3*, WRT+10, Q!
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