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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCSC7

Package: Integrated Billing

Routine: IBCSC7


Information

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

Source Information

Source file <IBCSC7.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 6 $$ROIDTCK^IBCEU7  (FROMTO,REV)^IBCSC6  ^IBCSC8  (,H)^IBCSCU  ^IBCU6  (4,5)^IBCVA1  
VA FileMan 1 $$EXTERNAL^DILFD  

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

Package Total Caller Graph
Integrated Billing 1 IBCSC6  

Entry Points

Name Comments DBIA/ICR reference
EN
ROI
OP

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD EN+9
$$ROIDTCK^IBCEU7 ROI+6
FROMTO^IBCSC6 ROI+11
REV^IBCSC6 OP+3
^IBCSC8 IBCSC7+6
^IBCSCU EN
H^IBCSCU EN+1
^IBCU6 IBCSC7+7
4^IBCVA1 EN+2
5^IBCVA1 EN+2

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: $J("",14),"Loc. of Care: ",$E($G(IBBTP1),1,30)
  • Line Location: EN+5
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: EN+8
Function Call: WRITE
  • Prompt: ?37,"Disch Stat: ",$E($$EXTERNAL^DILFD(399,162,"",$P(IB("U"),U,12)),1,30)
  • Line Location: EN+9
Function Call: WRITE
  • Prompt: !?4,"Form Type : ",$P($G(^IBE(353,+$P(IB(0),U,19),0)),U,1)
  • Line Location: EN+10
Function Call: WRITE
  • Prompt: ?38,"Timeframe: ",$S($D(IBBTP3):$E(IBBTP3,1,30),1:"")
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !,?4,"Bill Classif: ",$E($G(IBBTP2),1,30)
  • Line Location: EN+12
Function Call: WRITE
  • Prompt: ?39,"Division: ",$E($P($G(^DG(40.8,+$P(IB(0),U,22),0)),U,1),1,30)
  • Line Location: EN+14
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: !?18
  • Condition for execution: $X>67
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: Y_", "
  • Line Location: OP+0
Function Call: WRITE
  • Prompt: IBU
  • Line Location: OP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DD("DD" OP
^DG(40.8 - [#40.8] EN+14
^DGCR(399 - [#399] IBCSC7+6, ENOPOP+1
^DGCR(399.1 - [#399.1] EN+3
^IBE(353 - [#353] EN+10

Naked Globals

Name Field # of Occurrence
^( EN

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DGRVRCAL IBCSC7+7!
>> I EN*, ROI+8*, OP*
>> IB( EN*
>> IB("U" EN+9, ROI+1, ROI+2, ROI+7, ROI+9
>> IB(0 EN+3, EN+8, EN+10, EN+14
>> IBBT EN+3*, EN+4
IBBTP1 EN+5!
IBBTP2 EN+12!
IBBTP3 EN+11!
>> IBIFN IBCSC7+6, ENROI+6, OPOP+1
>> IBOA ROI+8*
>> IBOCN( ROI+8
>> IBOX ROI+8*, ROI+9
>> IBSR EN*
>> IBSR1 EN*
>> IBU EN+4, EN+8, ROI+1, ROI+2, OP+1
>> IBV EN
>> IBV1 EN*
>> IBW EN+4*, ROI*, ROI+11*, OP*
>> IBWW EN+4, ROIROI+11, OP
U EN+3, EN+8, EN+9, EN+10, EN+14, ROI+1, ROI+2, ROI+7, ROI+9
>> Y OP*
>> Z EN+4*, ROI*, ROI+11*, OP*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All