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

Package: Fee Basis

Routine: FBAACCB


Information

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

Source Information

Source file <FBAACCB.m>

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

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: !,$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+3
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+4
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+5
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !,"(continued)"
  • Line Location: WRT+11
Function Call: WRITE
  • Prompt: !,?19,"-",FBMOD
  • Line Location: WRT+12
Function Call: WRITE
  • Prompt: !?4,$J(A1,6),?17,$J(A2,6)
  • Line Location: WRT+13
Function Call: WRITE
  • Prompt: ?30,$S(FBADJLR]"":FBADJLR,1:T)
  • Line Location: WRT+15
Function Call: WRITE
  • Prompt: ?41,$S(FBADJLA]"":FBADJLA,1:TAMT)
  • Line Location: WRT+17
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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^FBAA(161.7 - [#161.7] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call