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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Integrated Billing 7 $$FT^IBCEF  (OFFSET,REV)^IBCSC61  EN^IBCSC7  ^IBCSCP  (,H)^IBCSCU  ^IBCU6  (4,5)^IBCVA1  
VA FileMan 2 COMMA^%DTC  D^DIQ  

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

Package Total Caller Graph
Integrated Billing 2 IBCA0  IBCSC7  

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

External References

Name Field # of Occurrence
COMMA^%DTC BILL+1
D^DIQ FROMTO+1, FROMTO+2
$$FT^IBCEF BILL+1
OFFSET^IBCSC61 BILL
REV^IBCSC61 REV
EN^IBCSC7 EN
^IBCSCP PRPAY+9
^IBCSCU EN+2
H^IBCSCU EN+3
^IBCU6 EN+1
4^IBCVA1 EN+6
5^IBCVA1 EN+6

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DG(40.8 - [#40.8] 1+8
^DGCR(399 - [#399] EN, EN+2, PRPAY+1, PRPAY+5
^DGCR(399.1 - [#399.1] EN+5, BED+1
^DGPT - [#45] SC1+6, SC1+7
^DPT - [#2] BED+4
^IBE(353 - [#353] 1+7

Label References

Name Line Occurrences
FROMTO 3
SC BED+4

Naked Globals

Name Field # of Occurrence
^( EN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DFN BED+4
DGRVRCAL EN+1!
>> I EN+2*, ROI+4*, REV*
>> IB( EN+2*
>> IB("M1" PRPAY+1*, PRPAY+2
>> IB("U" ROI+1, ROI+2, ROI+3, ROI+5, BED+1, FROMTO+1, FROMTO+2
>> IB("U2" PRPAY+2
>> IB(0 EN+4, EN+5, 1+3, 1+7, 1+8, SC+1
>> IBBT EN+4*
>> IBBT1 EN+5*, 1
IBBTP1 1+1!
IBBTP2 1+9!
IBBTP3 1+6!
>> IBI PRPAY+1*, PRPAY+3*, PRPAY+4*, PRPAY+5*, PRPAY+6*
>> IBIFN EN, EN+2, BILL+1, PRPAY+1
>> IBLS BED+2
>> IBM BED+4, SC1+5*, SC1+7*
>> IBOA ROI+4*
>> IBOCN( ROI+4
>> IBOX ROI+4*, ROI+5
>> IBREVC REV*, REV+1
>> IBREVC( REV
>> IBSCM BED+4, SC1+5*, SC1+7*
>> IBSR EN+2*
>> IBSR1 EN+2*
>> IBU 1, 1+3, ROI+1, ROI+2, BED+1, PRPAY+4, PRPAY+5, PRPAY+7, FROMTO+1, FROMTO+2
>> IBUCH BILL+1
>> IBV EN+2
>> IBV1 EN+2*
>> IBW 1*, ROI*, 3*, BED*, REV*, RS*, PRPAY*
>> IBWW 1, ROI, 3, BED, REV, RS, PRPAY
>> M SC1+5*, SC1+7*
>> PTF SC+1*, SC1+6, SC1+7
U EN+4, EN+5, 1+3, 1+7, 1+8, ROI+1, ROI+2, ROI+3, ROI+5, BED+1
, REV, PRPAY+2, PRPAY+5
>> X BILL+1*, PRPAY+1*, PRPAY+2, PRPAY+3
>> X1 PRPAY+2*, PRPAY+4
>> X2 BILL+1*, PRPAY+2*, PRPAY+5
>> X3 PRPAY+1*, PRPAY+6*, PRPAY+7
>> Y FROMTO+1*, FROMTO+2*
>> Z 1*, ROI*, 3*, BED*, REV*, RS*, PRPAY*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables |  All