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

Package: Integrated Billing

Routine: IBCSC102


Information

IBCSC102 ;ALB/MJB - MCCR SCREEN 10 (UB-04 BILL SPECIFIC INFO) ;27 MAY 88 10:20

Source Information

Source file <IBCSC102.m>

Entry Points

Name Comments DBIA/ICR reference
EN
Q

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Bill Remarks",!?5,"- FL-80",?22,": "
  • Line Location: EN+26
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: ?24,$G(IBZ(Z))
  • Line Location: EN+33
Function Call: WRITE
  • Prompt: ?48,$G(IBVI)," <--- This Line Will Not Print ",$G(IBVO)
  • Line Location: EN+34
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !?4,"ICN/DCN(s) : ",IBZ(0)
  • Line Location: EN+46
Function Call: WRITE
  • Prompt: !?24,IBZ(IBZCNT)
  • Line Location: EN+47
Function Call: WRITE
  • Prompt: !,?3," Auth/Referral : ",IBZ(0)
  • Line Location: EN+58
Function Call: WRITE
  • Prompt: !?24,IBZ(IBZCNT)
  • Line Location: EN+59
Function Call: WRITE
  • Prompt: !?4,"PPS (DRG)",?22,": ",$E(PPSDISP,1,56)
  • Line Location: EN+71
Function Call: WRITE
  • Prompt: " Pt Reason f/Visit : "
  • Line Location: EN+78
Function Call: WRITE
  • Prompt: IBU_$S(IBINP:" [NOT USED]",1:"")
  • Line Location: EN+78
Function Call: WRITE
  • Prompt: $P(PRV,U,1)_" - "_$E($P(PRV,U,3),1,45)
  • Line Location: EN+80
Function Call: WRITE
  • Prompt: !,?5,"- "
  • Line Location: EN+96
Function Call: WRITE
  • Prompt: $E(A_$J("",15),1,15),": "
  • Line Location: EN+99
Function Call: WRITE
  • Prompt: IBU
  • Line Location: EN+100
Function Call: WRITE
  • Prompt: $E($P(IB("PRV",IBZ),U)_$J("",20),1,20)
  • Line Location: EN+102
Function Call: WRITE
  • Prompt: " Taxonomy: ",$S($P(IBTAX,U,IBZ)'="":$P(IBTAX,U,IBZ),1:IBU),$S($P(IBSPEC,U,IBZ)'="":" ("_$P(IBSPEC,U,IBZ)_")",1:"")
  • Line Location: EN+103
Function Call: WRITE
  • Prompt: !,?30,$E(IBQ,1,49)
  • Line Location: EN+105
Function Call: WRITE
  • Prompt: " Other Facility (VA/non): "
  • Line Location: EN+110
Function Call: WRITE
  • Prompt: ?53,"Taxonomy: "
  • Line Location: EN+114
Function Call: WRITE
  • Prompt: " Billing Provider : "
  • Line Location: EN+121
Function Call: WRITE
  • Prompt: !?3," Taxonomy Code : "
  • Line Location: EN+129
Function Call: WRITE
  • Prompt: " Alt Prim Payer ID : "
  • Line Location: EN+137
Function Call: WRITE
  • Prompt: ?23,IBUN
  • Line Location: EN+143
Function Call: WRITE
  • Prompt: " Provider ID Maint : (Edit Provider ID information)"
  • Line Location: EN+157

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD
^USC(8932.1 - [#8932.1] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call