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

Package: Integrated Billing

Routine: IBCSC6


Information

IBCSC6 ;ALB/MJB - MCCR SCREEN 6 (INPT. BILLING INFO) ;27 MAY 88 10:19

Source Information

Source file <IBCSC6.m>

Entry Points

Name Comments DBIA/ICR reference
EN
1
ROI
3
BED
REV
BILL
RS
PRPAY
FROMTO ; - Print From and To dates of bill
SC ; -if patient is sc, are movements for sc care
SC1 ;
; -input ptf

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $J("",14),"Loc. of Care: ",$E($G(IBBTP1),1,30)
  • Line Location: 1+1
Function Call: WRITE
  • Prompt: !?4,"Charge Type : ",$S($P(IB(0),U,27)=1:"INSTITUTIONAL",$P(IB(0),U,27)=2:"PROFESSIONAL",1:IBU)
  • Line Location: 1+3
Function Call: WRITE
  • Prompt: ?38,"Timeframe: ",$S($D(IBBTP3):$E(IBBTP3,1,30),1:"")
  • Line Location: 1+6
Function Call: WRITE
  • Prompt: !?4,"Form Type : ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)
  • Line Location: 1+7
Function Call: WRITE
  • Prompt: ?39,"Division: ",$E($P($G(^DG(40.8,+$P(IB(0),U,22),0)),U,1),1,30)
  • Line Location: 1+8
Function Call: WRITE
  • Prompt: !,?4,"Bill Classif: ",$E($G(IBBTP2),1,30)
  • Line Location: 1+9
Function Call: WRITE
  • Prompt: " Sensitive? : ",$S(IB("U")="":IBU,$P(IB("U"),U,5)="":IBU,$P(IB("U"),U,5)=1:"YES",1:"NO")
  • Line Location: ROI+1
Function Call: WRITE
  • Prompt: ?46,"Assignment: ",$S(IB("U")="":IBU,$P(IB("U"),U,6)="":IBU,$P(IB("U"),U,6)["n":"NO",$P(IB("U"),U,6)["N":"NO",$P(IB("U"),U,6)=0:"NO",1:"YES")
  • Line Location: ROI+2
Function Call: WRITE
  • Prompt: !?4,"R.O.I. Form : ",$S($P(IB("U"),U,7)=1:"COMPLETED",$P(IB("U"),U,7)=0:"NOT COMPLETED",1:"STATUS UNKNOWN")
  • Line Location: ROI+5
Function Call: WRITE
  • Prompt: !?4,"R.O.I. Form : ",$S($P(IB("U"),U,7)=1:"COMPLETED",$P(IB("U"),U,7)=0:"NOT COMPLETED",1:"STATUS UNKNOWN")
  • Line Location: ROI+7
Function Call: WRITE
  • Prompt: !?4,"LOS : ",IBLS
  • Line Location: BED+2
Function Call: WRITE
  • Prompt: !?4,"PTF record indicates ",IBSCM," of ",IBM," movements are for Service Connected Care."
  • Line Location: BED+4
Function Call: WRITE
  • Prompt: !,?4,"Too many Revenue Codes to display, enter '5' to list"
  • Line Location: REV+1
Function Call: WRITE
  • Prompt: !,?39,"Non-Cov: ",X
  • Line Location: BILL+1
Function Call: WRITE
  • Prompt: " Rate Sched : (re-calculate charges)"
  • Line Location: RS+0
Function Call: WRITE
  • Prompt: !,?4
  • Condition for execution: X3
  • Line Location: PRPAY+6
Function Call: WRITE
  • Prompt: IBI
  • Line Location: PRPAY+6
Function Call: WRITE
  • Prompt: " Prior Claims: ",IBU
  • Line Location: PRPAY+7
Function Call: WRITE
  • Prompt: " Bill From : "
  • Line Location: FROMTO+1
Function Call: WRITE
  • Prompt: $S($L(Y):Y,1:IBU)
  • Line Location: FROMTO+1
Function Call: WRITE
  • Prompt: ?49,"Bill To: "
  • Line Location: FROMTO+2
Function Call: WRITE
  • Prompt: $S($L(Y):Y,1:IBU)
  • Line Location: FROMTO+2
Info |  Source |  Entry Points |  Interaction Calls