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

Package: Integrated Billing

Routine: IBCA3


Information

IBCA3 ;ALB/AAS - MCCR SINGLE LINE DISPLAY OF BILL ;12/22/89

Source Information

Source file <IBCA3.m>

Entry Points

Name Comments DBIA/ICR reference
EN1 ;entry for one bill, must pass IBIFN
EN2 ;Find all bills for a patient must pass dfn
EN2Q
EN3 ;Find all bills for a patient on one episode date. must pass dfn, episode date in x
EN3Q
EN4 ;Find all bills beginning a CEOC and allow selection by number, pass dfn
EN4Q
41
SCRN
ONE
ONE1 ; Display IB Actions. Input: K, X
HDR
HDR1 ; Write header to dislay IB Actions.
PAUSE
ASK
HELPSEL
UTIL
UTIL1 ; Get IB charges for a patient for a single event date. Input: DFN, X
END
ACTNM(X,P) ; returns external form of action type (350.1), short or long

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No Bills On File for this Patient!"
  • Line Location: EN2+2
Function Call: WRITE
  • Prompt: !,"No Other Bills for this Episode Date on File!"
  • Line Location: EN3+2
Function Call: WRITE
  • Prompt: !,"No Other Bills for this Episode Date on File!"
  • Line Location: EN3+6
Function Call: WRITE
  • Prompt: !,"No Other Bills for this Episode Date on File!"
  • Line Location: EN4+2
Function Call: WRITE
  • Prompt: !
  • Line Location: ONE+0
Function Call: WRITE
  • Prompt: DGSELNO
  • Line Location: ONE+1
Function Call: WRITE
  • Prompt: ?DGTAB,IBBNO,?13,$S($P(IBND0,U,27)=1:"I",$P(IBND0,U,27)=2:"P",1:"")
  • Line Location: ONE+2
Function Call: WRITE
  • Prompt: ?15,$S(IBCL=2:"HE ",IBCL=4:"HE ",1:""),$$BCHGTYPE^IBCU(IBIFN),?29
  • Line Location: ONE+3
Function Call: WRITE
  • Prompt: $S(IBWHO="p":"Pat",IBWHO="i":"Ins",1:"Oth"),$S($P(IBND0,U,21)="S":" s",$P(IBND0,U,21)="T":" t",1:""),?36
  • Line Location: ONE+4
Function Call: WRITE
  • Prompt: $E(I,4,5)_"/"_$E(I,6,7)_"/"_$E(I,2,3)," "
  • Line Location: ONE+5
Function Call: WRITE
  • Prompt: ?66,$S(IBST=1:"Enterd",IBST=2:"ReqMRA",IBST=3:"Auth. ",IBST=4:"Pr/Txd",1:"Cancel")," "
  • Line Location: ONE+6
Function Call: WRITE
  • Prompt: ?74,$S(IBTF=1:"Ad-Ds",IBTF=2:"Int FC",IBTF=3:"Int CC",IBTF=4:"Int LC",IBTF=5:"Late",IBTF=6:"Adjust",IBTF=7:"Replac",IBTF=0:"ZERO",1:"")
  • Line Location: ONE+7
Function Call: WRITE
  • Prompt: !,?2,$P($P(D,"^",11),"-",2),?13,$S($P($G(^IBE(350.1,+$P(D,"^",3),0)),"^")["OPT":"Outpt.",1:"Inpat."),?28,"Patnt",?36
  • Line Location: ONE1+2
Function Call: WRITE
  • Prompt: $$DAT1^IBOUTL(I)," "
  • Line Location: ONE1+3
Function Call: WRITE
  • Prompt: ?66,$E(Y,1,4),?72,$$ACTNM($P(D,"^",3),1)
  • Line Location: ONE1+4
Function Call: WRITE
  • Prompt: !,?DGTAB,"Bill #",?13,"Classf ($typ)",?29,"Payer",?36,"Event DT From DT To Date",?66,"Status",?74,"Timefm"
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !,?DGTAB,"------",?13,"-------------",?29,"-----",?36,"-------- -------- --------",?66,"------",?74,"------"
  • Line Location: HDR+1
Function Call: WRITE
  • Prompt: !,?2,"Bill #",?13,"Classf",?28,"Payer",?36,"Event DT From DT To Date",?66,"Stat",?72,"Act Typ"
  • Line Location: HDR1+1
Function Call: WRITE
  • Prompt: !,?2,"------",?13,"-------",?28,"-----",?36,"-------- -------- --------",?66,"----",?72,"------"
  • Line Location: HDR1+2
Function Call: READ
  • Timeout: DTIME
  • Line Location: PAUSE+0
Function Call: READ
  • Variable: IBX
  • Timeout: DTIME
  • Line Location: ASK+1
Function Call: WRITE
  • Prompt: " ",$P(Y(0),"^")
  • Line Location: ASK+3
Function Call: WRITE
  • Prompt: !!,"Enter 1-",DGSELNO," to select that entry or enter the Bill Number"
  • Line Location: HELPSEL+0
Info |  Source |  Entry Points |  Interaction Calls