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 |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 19

Package Total Call Graph
Integrated Billing 17 ($$BDATE,$$DRGTD,$$ICD9)^IBACSV  $$IBMICN^IBCBB13  $$INPAT^IBCEF  ($$MRASEC,$$TXMT)^IBCEF4  ($$PROVTAX,$$SPECTAX)^IBCEF73A  DEFSEC^IBCEF74  REMARK^IBCEF77  ($$B,GETBP)^IBCEF79  
$$GETFAC^IBCEP8  ($$PSRV,GETPRV)^IBCEU  $$FO^IBCNEUT1  ^IBCSC10H  ^IBCSCP  (,H)^IBCSCU  $$FT^IBCU3  $$REQMRA^IBEFUNC  
$$EXPAND^IBTRE  
VA FileMan 2 $$EXTERNAL^DILFD  $$GET1^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: 1

Package Total Caller Graph
Integrated Billing 1 IBCSC10  

Entry Points

Name Comments DBIA/ICR reference
EN
Q

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD EN+69, EN+146
$$GET1^DIQ EN+110, EN+111, EN+125, EN+126
$$BDATE^IBACSV EN+58, EN+65, EN+75
$$DRGTD^IBACSV EN+65
$$ICD9^IBACSV EN+58, EN+75
$$IBMICN^IBCBB13 EN+39
$$INPAT^IBCEF EN+3
$$MRASEC^IBCEF4 EN+144
$$TXMT^IBCEF4 EN+120
$$PROVTAX^IBCEF73A EN+86
$$SPECTAX^IBCEF73A EN+87
DEFSEC^IBCEF74 EN+84
REMARK^IBCEF77 EN+26
$$B^IBCEF79 EN+118
GETBP^IBCEF79 EN+119
$$GETFAC^IBCEP8 EN+122
$$PSRV^IBCEU EN+106
GETPRV^IBCEU EN+14
$$FO^IBCNEUT1 EN+65
^IBCSC10H EN
^IBCSCP EN+154
^IBCSCU EN+4
H^IBCSCU EN+18
$$FT^IBCU3 EN
$$REQMRA^IBEFUNC EN+143
$$EXPAND^IBTRE EN+92, EN+105

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: " Bill Remarks",!?5,"- FL-80",?22,": "
  • Line Location: EN+21
Function Call: WRITE
  • Prompt: IBUN
  • Line Location: EN+23
Function Call: WRITE
  • Prompt: ?24,$G(IBZ(Z))
  • Line Location: EN+28
Function Call: WRITE
  • Prompt: ?48,$G(IBVI)," <--- This Line Will Not Print ",$G(IBVO)
  • Line Location: EN+29
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+30
Function Call: WRITE
  • Prompt: !?4,"ICN/DCN(s) : ",IBZ(0)
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !?24,IBZ(IBZCNT)
  • Line Location: EN+42
Function Call: WRITE
  • Prompt: !,?3," Auth/Referral : ",IBZ(0)
  • Line Location: EN+53
Function Call: WRITE
  • Prompt: !?24,IBZ(IBZCNT)
  • Line Location: EN+54
Function Call: WRITE
  • Prompt: !?4,"PPS (DRG)",?22,": ",$E(PPSDISP,1,56)
  • Line Location: EN+66
Function Call: WRITE
  • Prompt: " Pt Reason f/Visit : "
  • Line Location: EN+73
Function Call: WRITE
  • Prompt: IBU_$S(IBINP:" [NOT USED]",1:"")
  • Line Location: EN+73
Function Call: WRITE
  • Prompt: $P(PRV,U,1)_" - "_$E($P(PRV,U,3),1,45)
  • Line Location: EN+75
Function Call: WRITE
  • Prompt: !,?5,"- "
  • Line Location: EN+91
Function Call: WRITE
  • Prompt: $E(A_$J("",15),1,15),": "
  • Line Location: EN+94
Function Call: WRITE
  • Prompt: IBU
  • Line Location: EN+95
Function Call: WRITE
  • Prompt: $E($P(IB("PRV",IBZ),U)_$J("",20),1,20)
  • Line Location: EN+97
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+98
Function Call: WRITE
  • Prompt: !,?30,$E(IBQ,1,49)
  • Line Location: EN+100
Function Call: WRITE
  • Prompt: " Other Facility (VA/non): "
  • Line Location: EN+105
Function Call: WRITE
  • Prompt: ?53,"Taxonomy: "
  • Line Location: EN+109
Function Call: WRITE
  • Prompt: " Billing Provider : "
  • Line Location: EN+116
Function Call: WRITE
  • Prompt: !?3," Taxonomy Code : "
  • Line Location: EN+124
Function Call: WRITE
  • Prompt: " Alt Prim Payer ID : "
  • Line Location: EN+132
Function Call: WRITE
  • Prompt: ?23,IBUN
  • Line Location: EN+138
Function Call: WRITE
  • Prompt: " Provider ID Maint : (Edit Provider ID information)"
  • Line Location: EN+152

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] EXTERNAL^DILFD
^USC(8932.1 - [#8932.1] GET1^DIQ

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] EN+12, EN+22

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+89~, EN+92*, EN+93*, EN+94, EN+99*
A1 EN+89~, EN+93*
BPZ EN+13~, EN+118*, EN+119, EN+122
FIRSTPRV EN+2~, EN+74*, EN+75*
I EN+2~, EN+12*, EN+74*, EN+75
IB EN+2~
IB( EN+12*
IB("M2" EN+135, EN+136, EN+137
IB("PRV" EN+15!, EN+16*, EN+80, EN+81, EN+88, EN+93, EN+95, EN+96, EN+97, EN+101!
IB("TX" EN+146, EN+147*, EN+148
IB("U" EN+45, EN+51, EN+69
IB("U1" EN+63
IB("U2" EN+46, EN+47, EN+58, EN+105
IB("U3" EN+73, EN+75, EN+110, EN+111, EN+125, EN+126
IB("UF3" EN+35, EN+36, EN+37
IB("UF32" EN+48, EN+49, EN+50
IBARR EN+82~, EN+84
IBARR( EN+99
IBCUBFT EN*!
>> IBIFN ENEN+3, EN+12, EN+14, EN+22, EN+26, EN+39, EN+58, EN+65, EN+75
EN+84, EN+86, EN+87, EN+106, EN+118, EN+119, EN+120, EN+143, EN+144
IBINP EN+2~, EN+3*, EN+8, EN+58, EN+61, EN+69, EN+73
IBMRASEC EN+13~, EN+144*, EN+147
IBNOSPEC EN+82~, EN+87
IBNOTAX EN+82~, EN+86
IBPRV EN+13~, EN+14
IBPRV( EN+16
IBQ EN+82~, EN+90*, EN+99*, EN+100
IBREQ EN+13~, EN+143*, EN+145, EN+146, EN+148
IBSPEC EN+82~, EN+87*, EN+98
>> IBSR EN+8*
>> IBSR1 EN+8*
IBT EN+82~
IBTAX EN+82~, EN+86*, EN+98
>> IBU EN+58, EN+69, EN+73, EN+80, EN+95, EN+98, EN+106, EN+110, EN+123, EN+125
>> IBUN EN+23, EN+40, EN+52, EN+64, EN+106, EN+138
>> IBV EN+8
>> IBV1 EN+8*
>> IBVI EN+29
>> IBVO EN+29
>> IBW EN+21*, EN+72*, EN+79*, EN+104*, EN+115*, EN+131*, EN+145*, EN+151*
>> IBWW EN+21, EN+72, EN+79, EN+104, EN+115, EN+131, EN+145, EN+151
IBX EN+2~, EN+58*, EN+69*
IBZ EN+13~, EN+16*, EN+25~, EN+26, EN+43!, EN+51*, EN+55!*, EN+83*, EN+88*, EN+92
EN+93, EN+95, EN+96, EN+97, EN+98, EN+99, EN+105*, EN+106, EN+107, EN+110*
EN+111*, EN+117!, EN+119, EN+121*, EN+122*, EN+123, EN+125*, EN+126*, EN+133!, EN+140!
EN+146*, EN+147*, EN+148
IBZ( EN+27, EN+28, EN+30, EN+34*, EN+35*, EN+36*, EN+37*, EN+42, EN+44*, EN+45*
EN+46*, EN+47*, EN+48*, EN+49*, EN+50*, EN+54, EN+135*, EN+136*, EN+137*, EN+139
IBZ("UB SCREE N 8" , EN+121
IBZ(0 EN+39*, EN+40*, EN+41, EN+52*, EN+53
>> IBZ1 EN+139*
IBZCNT EN+13~, EN+34*, EN+35*, EN+36*, EN+37, EN+42*, EN+44*, EN+45*, EN+46*, EN+47*
EN+48*, EN+49*, EN+50, EN+54*, EN+134*, EN+135*, EN+136*, EN+137*, EN+138, EN+139
PPS EN+62~, EN+63*, EN+64, EN+65
PPSDISP EN+62~, EN+64*, EN+65*, EN+66
PRV EN+2~, EN+75*
PRVS EN+2~, EN+73*, EN+74
TEXT EN+13~, EN+22*, EN+23, EN+24
TXMT EN+13~, EN+120*, EN+121, EN+122, EN+148
U EN+22, EN+35, EN+36, EN+37, EN+45, EN+46, EN+47, EN+48, EN+49, EN+50
EN+51, EN+58, EN+63, EN+69, EN+73, EN+75, EN+93, EN+95, EN+96, EN+97
EN+98, EN+105, EN+110, EN+111, EN+125, EN+126, EN+135, EN+136, EN+137, EN+146
EN+147, EN+148
Z EN+2~, EN+21*, EN+25~, EN+27*, EN+28, EN+29, EN+30, EN+72*, EN+79*, EN+82~
EN+104*, EN+115*, EN+131*, EN+145*, EN+151*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Local Variables  | All