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

Entry Points

Name Comments DBIA/ICR reference
EN
ROI
OP

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call