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

Package: Integrated Billing

Routine: IBCSC10H


Information

IBCSC10H ;ALB/ARH - MCCR SCREEN 10 (BILL SPECIFIC INFO) CMS-1500 ;4/21/92

Source Information

Source file <IBCSC10H.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
Q
WRT1(IBCRED) ; Write credentials mismatch
NSAME(DA) ; Returns 1 if div on bill is not the default billing facility
WRAP(STRING,ROOM,SUBS,IBARY) ; wrap long lines without breaking up words
FILTERP(IBIEN,TYPE) ;filter input of provider for dental claims

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: ?4,"ICN/DCN(s) : ",IBZ(0)
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !?25,IBZ(IBZCNT)
  • Line Location: EN+40
Function Call: WRITE
  • Prompt: !,?3," Auth/Referral : ",IBZ(0)
  • Line Location: EN+51
Function Call: WRITE
  • Prompt: !?25,IBZ(IBZCNT)
  • Line Location: EN+52
Function Call: WRITE
  • Prompt: !,?5,"- "
  • Line Location: EN+67
Function Call: WRITE
  • Prompt: $E(A_$J("",16),1,16),": "
  • Line Location: EN+70
Function Call: WRITE
  • Prompt: IBU
  • Line Location: EN+71
Function Call: WRITE
  • Prompt: $E($P(IB("PRV",IBZ),U)_$J("",16),1,16)
  • Line Location: EN+73
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+74
Function Call: WRITE
  • Prompt: !,?30,$E(IBQ,1,49)
  • Line Location: EN+76
Function Call: WRITE
  • Prompt: " Other Facility (VA/non): "
  • Line Location: EN+82
Function Call: WRITE
  • Prompt: ?53,"Taxonomy: "
  • Line Location: EN+86
Function Call: WRITE
  • Prompt: !,?4,"Lab CLIA # : ",IBZ1
  • Line Location: EN+105
Function Call: WRITE
  • Prompt: !?4,"Mammography Cert # : ",IBZ1
  • Line Location: EN+118
Function Call: WRITE
  • Prompt: " Dental Claim Note : "
  • Line Location: EN+130
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: EN+131
Function Call: WRITE
  • Prompt: !,?23,": ",IBNOTE(2)
  • Line Location: EN+134
Function Call: WRITE
  • Prompt: !,?4,"Homebound : ",$$EXPAND^IBTRE(399,236,$P(IB("U2"),U,14))
  • Line Location: EN+138
Function Call: WRITE
  • Prompt: !,?4,"Date Last Seen : ",$$EXPAND^IBTRE(399,237,$P(IB("U2"),U,15))
  • Line Location: EN+139
Function Call: WRITE
  • Prompt: " Billing Provider : "
  • Line Location: EN+145
Function Call: WRITE
  • Prompt: !?3," Taxonomy Code : "
  • Line Location: EN+150
Function Call: WRITE
  • Prompt: " Alt Prim Payer ID : "
  • Line Location: EN+158
Function Call: WRITE
  • Prompt: ?23,IBUN
  • Line Location: EN+164
Function Call: WRITE
  • Prompt: " Provider ID Maint : (Edit Provider ID information)",!
  • Line Location: EN+179
Function Call: WRITE
  • Prompt: !,*7," **Warning** Credentials differ from those found in NEW PERSON or IB NON VA",!,$J("",14),"BILLING PROVIDER file (",$S(IBCRED="":"none",1:IBCRED),")"
  • Line Location: WRT1+1
Function Call: WRITE
  • Prompt: !,$J("",14),"Changes will print local, but only credentials on file transmit"
  • Line Location: WRT1+2

FileMan Files Accessed Via FileMan Db Call

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