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

Package: Fee Basis

Routine: FBAACCB


Information

FBAACCB ;AISC/GRR - CLERK CLOSE BATCH ;7/9/14 16:16

Source Information

Source file <FBAACCB.m>

Call Graph

Call Graph

Call Graph Total: 11

Package Total Call Graph
Fee Basis 6 (ASKH,GMORE,INTOT,LISTT,Q,SETV,WRTT)^FBAACCB0  (CHNH,LISTC,MORE,PHARM,TRAV,WRTSTR)^FBAACCB1  (FBCKO,PMNT)^FBAACCB2  $$ADJLRA^FBAAFA  ($$DATX,$$GETICN,$$SSN)^FBAAUTL  ($$CPT,$$MODL)^FBAAUTL4  
VA FileMan 4 ^DIC  DT^DICRW  EN^DIQ  ^DIR  
Kernel 1 ^%ZIS  

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

Package Total Caller Graph
Fee Basis 15 FBAA CLOSE BATCH  FBAACCB0  FBAACCB1  FBAALB  FBAAPAR  FBAARD  FBAARD2  FBAARJP  
FBAARR  FBAARR2  FBAASCB  FBAAVR  FBAAVR1  FBAAVR2  FBPHON2  

Entry Points

Name Comments DBIA/ICR reference
BT
RDD
RDD1
FIN ; FB*3.5*116 - check and handle $0 invoices
GOT
CHECK(FBINV) ; order thru array and save zero dollar invoices; report any zero dollar invoices
; FBINV = array of invoices
LIST
ENM
SET ;
GO
WRT
HED
LISTP
ENP

External References

Name Field # of Occurrence
^%ZIS LIST+1, LISTP+1
^DIC BT
DT^DICRW FBAACCB+3
EN^DIQ FIN+9
^DIR RDD, RDD1
ASKH^FBAACCB0 WRT, WRT+11
GMORE^FBAACCB0 ENM
INTOT^FBAACCB0 ENM, ENM+1, ENP+1, ENP+2
LISTT^FBAACCB0 RDD+1
Q^FBAACCB0 BT+1
SETV^FBAACCB0 ENP+1
WRTT^FBAACCB0 GO+1
CHNH^FBAACCB1 RDD1+3
LISTC^FBAACCB1 RDD+1
MORE^FBAACCB1 ENP+1
PHARM^FBAACCB1 RDD1+3
TRAV^FBAACCB1 RDD1+3
WRTSTR^FBAACCB1 WRT+29, WRT+30
FBCKO^FBAACCB2 SET+16
PMNT^FBAACCB2 WRT+32
$$ADJLRA^FBAAFA SET+8
$$DATX^FBAAUTL WRT+2, WRT+3, WRT+5, WRT+6
$$GETICN^FBAAUTL WRT+3
$$SSN^FBAAUTL WRT+2, WRT+3
$$CPT^FBAAUTL4 SET+14, SET+15
$$MODL^FBAAUTL4 SET+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: BT+0
Function Call: WRITE
  • Prompt: !!,*7,"No payments in Batch yet!",!
  • Line Location: BT+2
Function Call: WRITE
  • Prompt: !!,*7,"No Payments in Batch yet!",!
  • Line Location: BT+3
Function Call: WRITE
  • Prompt: !!,*7,"No Payments in Batch yet!",!
  • Line Location: BT+4
Function Call: WRITE
  • Prompt: !!,*7,"No Payments in Batch yet!",!
  • Line Location: BT+5
Function Call: WRITE
  • Prompt: *7,!!?2,"Batch cannot be closed. Listed invoices are zero dollar "
  • Line Location: FIN+4
Function Call: WRITE
  • Prompt: *7,!?2,"and must be corrected or removed from the batch."
  • Line Location: FIN+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: FIN+9
Function Call: WRITE
  • Prompt: !!,"Batch Closed"
  • Line Location: FIN+9
Function Call: WRITE
  • Prompt: !!,"Invoice #: "_FBAAIN_" totals $0.00"
  • Line Location: CHECK+4
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+0
Function Call: WRITE
  • Prompt: !!,N,?35,$$SSN^FBAAUTL(J),?58,B(1617),?67,$$DATX^FBAAUTL($G(FBVCHDT)),!,?3,V,?42,VID,?55,FBIN,?67,$$DATX^FBAAUTL(FBIN(1))
  • Line Location: WRT+2
Function Call: WRITE
  • Prompt: !!,$E(N,1,25)," (",$P($$SSN^FBAAUTL(J),"-",3),")",?35,$$GETICN^FBAAUTL(J),?58,B(1617),?67,$$DATX^FBAAUTL($G(FBVCHDT)),!,?3,V,?42,VID,?55,FBIN,?67,$$DATX^FBAAUTL(FBIN(1))
  • Line Location: WRT+3
Function Call: WRITE
  • Prompt: !,$S($D(QQ):QQ_")",1:""),$S(ZS="R":"*",1:""),$S(FBTYPE="B3":FBVP,1:""),$S(FBTYPE="B5":FBPV,1:""),$S($G(FBCAN)]"":"+",1:"")
  • Line Location: WRT+4
Function Call: WRITE
  • Prompt: ?4,$$DATX^FBAAUTL(D),?14,FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:""),?24,CPTDESC,?54,FBFPPSC,?66,FBFPPSL
  • Line Location: WRT+5
Function Call: WRITE
  • Prompt: ?4,$$DATX^FBAAUTL(D),?14,FBAACPT_$S($G(FBMODLE)]"":"-"_$P(FBMODLE,","),1:""),?24,CPTDESC,?56,FBFPPSC,?68,FBFPPSL
  • Line Location: WRT+6
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !,"(continued)"
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !,?19,"-",FBMOD
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: !?4,$J(A1,6),?17,$J(A2,6)
  • Line Location: WRT+14
Function Call: WRITE
  • Prompt: ?30,$S(FBADJLR]"":FBADJLR,1:T)
  • Line Location: WRT+16
Function Call: WRITE
  • Prompt: ?41,$S(FBADJLA]"":FBADJLA,1:TAMT)
  • Line Location: WRT+18
Function Call: WRITE
  • Prompt: "Patient Name",?20,"('*' Reimbursement to Patient '+' Cancellation Activity)",!,?13,"('#' Voided Payment)",?58,"Batch #",?67,"Voucher Date"
  • Line Location: HED+0
Function Call: WRITE
  • Prompt: !,?3,"Vendor Name",?42,"Vendor ID",?53,"Invoice #",?67,"Date Rec'd."
  • Line Location: HED+1
Function Call: WRITE
  • Prompt: !,?4,"SVC DATE",?14,"CPT-MOD",?24,"SERVICE PROVIDED",?54,"FPPS CLAIM",?66,"FPPS LINE"
  • Line Location: HED+3
Function Call: WRITE
  • Prompt: !,?4,"CLAIMED",?17,"PAID",?30,"ADJ CODE",?41,"ADJ AMOUNT"
  • Line Location: HED+4
Function Call: WRITE
  • Prompt: !,?4,"RX DATE",?14,"RX #",?24,"DRUG NAME",?56,"FPPS CLAIM",?68,"FPPS LINE"
  • Line Location: HED+6
Function Call: WRITE
  • Prompt: !,?4,"CLAIMED",?17,"PAID",?30,"ADJ CODE",?41,"ADJ AMOUNT"
  • Line Location: HED+7
Function Call: WRITE
  • Prompt: !,Q,!
  • Line Location: HED+8
Routine Call
  • %ZIS
  • Line Location:
    • LIST+1
    • LISTP+1
Routine Call
  • DIC
  • Line Location:
    • BT
Routine Call
  • DIR
  • Line Location:
    • RDD
    • RDD1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.7 - [#161.7] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DPT - [#2] SET+2
^FBAA(161.7 - [#161.7] BT+1, FIN+9*!, WRT+1
^FBAA(162.1 - [#162.1] BT+4, ENP+1
^FBAAC - [#162] GOT, SET+3, SET+4, SET+5, WRT+20, WRT+22, WRT+23, WRT+25
^FBAAC("AC" BT+2, RDD1+4
^FBAAC("AD" BT+3
^FBAAC("AJ" ENM
^FBAAI("AC" BT+5
^FBAAV - [#161.2] SET+2
^IBE(353.3 - [#353.3] WRT+26, WRT+28
^XUSEC("FBAA LEVEL 2" BT

Label References

Name Line Occurrences
BT BT+1, BT+2, BT+3, BT+4, BT+5, RDD+1, RDD1, FIN+2, FIN+9
CHECK FIN+1
GOT RDD1+4
HED ENM, WRT, WRT+12, ENP
LIST RDD+1
LISTP RDD+1
WRT GO+1

Naked Globals

Name Field # of Occurrence
^(0 SET+2, WRT+1, ENP+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> A ENP+1*
>> A1 GO*, WRT+14
>> A2 GO*, WRT+14
AI WRT+21~*, WRT+22*, WRT+23, WRT+25
AID WRT+21~, WRT+23*, WRT+24
AITI WRT+21~, WRT+25*, WRT+26, WRT+28
>> B BT+1*, BT+2, BT+3, BT+4, BT+5, RDD1+4, FIN+9, ENM, WRT+1, ENP+1
>> B(1617 WRT+1*, WRT+2, WRT+3
>> B2 ENP+1*
>> C RDD1+3*, FIN+8, GOT+2*
>> CPTDESC SET+15*, WRT+5, WRT+6
>> D SET+3*, SET+15, WRT+5, WRT+6
>> DA FIN+9*
>> DIC BT*
>> DIC("S" BT*!
>> DIC(0 BT*
DIR RDD!, RDD1!
DIR("?" RDD*
DIR("A" RDD*, RDD1*
DIR("B" RDD*, RDD1*
DIR(0 RDD*, RDD1*
>> DIRUT RDD+1, RDD1
>> DR FIN+9*
DT FIN+9
DUZ BT
>> FBAACPT SET+14*, WRT+5, WRT+6
FBAAIN CHECK+2~, CHECK+3*, CHECK+4, CHECK+5
>> FBAAOUT ENM*, ENM+1, WRT, WRT+7, WRT+9, WRT+10, WRT+11, ENP*, ENP+1, ENP+2
FBADJLA SET+1~, SET+10*, WRT+18
FBADJLR SET+1~, SET+9*, WRT+16
FBARY RDD1+1~, FIN+1, FIN+2
FBARY( GOT+4*
>> FBCAN WRT+4
FBFPPSC SET+1~, SET+6*, WRT+5, WRT+6
FBFPPSL SET+1~, SET+7*, WRT+5, WRT+6
FBI WRT+8~, WRT+9*
>> FBIN GOT*, GOT+4, ENM*, ENM+1*, SET+11*, WRT+2, WRT+3, WRT+32, ENP+1*, ENP+2*
>> FBIN(1 SET+16*, WRT+2, WRT+3
>> FBINOLD ENM*, WRT+32*, ENP*
>> FBINTOT ENM*, GO*, ENP*
FBINV CHECK~
FBINV( CHECK+3, CHECK+4, CHECK+5!
FBINVT RDD1+1~
FBMOD WRT+8~, WRT+9*, WRT+13
>> FBMODLE SET+17*, WRT+5, WRT+6, WRT+7, WRT+9
FBOLD RDD1+1~
>> FBPV WRT+4
>> FBSSNRF WRT+2, WRT+3
>> FBTYPE BT+1*, BT+2, BT+3, BT+4, BT+5, RDD+1, RDD1+3, GO+1, WRT+4, WRT+5
, WRT+6, WRT+20, HED+2, HED+5
>> FBVCHDT SET+16*, WRT+2, WRT+3
>> FBVP SET+13*, WRT+4
FBX SET+1~, SET+8*, SET+9, SET+10
FBY3 SET+1~, SET+5*, SET+6, SET+7
>> FZ BT+1*, FIN+8*, FIN+9*
IOF RDD+1, WRT, WRT+12
IOM WRT+29, WRT+30
ION LIST+1, LISTP+1
IOP LIST+1*!, LISTP+1*!
IOSL WRT, WRT+10
IOST WRT, WRT+11
>> J RDD1+4*, GOT, ENM*, SET+2, SET+3, SET+4, SET+5, SET+8, SET+16, SET+17
, WRT+2, WRT+3, WRT+20, WRT+22, WRT+23, WRT+25
>> K RDD1+4*, GOT, SET+2, SET+3, SET+4, SET+5, SET+8, SET+16, SET+17, WRT+20
, WRT+22, WRT+23, WRT+25
>> L RDD1+4*, GOT, SET+3, SET+4, SET+5, SET+8, SET+16, SET+17, WRT+20, WRT+22
, WRT+23, WRT+25
>> M RDD1+4*, GOT, SET+4, SET+5, SET+8, SET+16, SET+17, WRT+20, WRT+22, WRT+23
, WRT+25
>> N SET+2*, WRT+2, WRT+3
>> Q LIST*, HED+8, LISTP*
QQ FBAACCB+3!, WRT+4
>> S SET+2*
>> T RDD1+3*, FIN+8, GOT+2*, SET+11*, WRT+16
TAMT SET+1~, SET+12*, WRT+18
U SET+6, SET+7, SET+9, SET+10, SET+14, SET+15, WRT+23, WRT+25, WRT+26, WRT+28
>> V SET+2*, WRT+2, WRT+3
>> VID SET+2*, WRT+2, WRT+3
>> WRTPC WRT+21*, WRT+23*, WRT+24*, WRT+26*, WRT+27*, WRT+28*, WRT+29, WRT+30
>> X BT+1
>> XY ENM*
>> Y BT+1, RDD+1, RDD1, SET+4*, SET+11, SET+12, SET+13, SET+14, SET+15, SET+16
, GO
>> Y(0 GOT*, GOT+2, GOT+4
>> Z(0 ENP+1*
>> ZS SET+11*, WRT+4
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