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

Package Total Call Graph
Integrated Billing 18 ($$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  $$BBB^IBCSC10  ^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+74, EN+151
$$GET1^DIQ EN+115, EN+116, EN+130, EN+131
$$BDATE^IBACSV EN+63, EN+70, EN+80
$$DRGTD^IBACSV EN+70
$$ICD9^IBACSV EN+63, EN+80
$$IBMICN^IBCBB13 EN+44
$$INPAT^IBCEF EN+3
$$MRASEC^IBCEF4 EN+149
$$TXMT^IBCEF4 EN+125
$$PROVTAX^IBCEF73A EN+91
$$SPECTAX^IBCEF73A EN+92
DEFSEC^IBCEF74 EN+89
REMARK^IBCEF77 EN+31
$$B^IBCEF79 EN+123
GETBP^IBCEF79 EN+124
$$GETFAC^IBCEP8 EN+127
$$PSRV^IBCEU EN+111
GETPRV^IBCEU EN+19
$$FO^IBCNEUT1 EN+70
$$BBB^IBCSC10 EN+12
^IBCSC10H EN
^IBCSCP EN+159
^IBCSCU EN+4
H^IBCSCU EN+23
$$FT^IBCU3 EN
$$REQMRA^IBEFUNC EN+148
$$EXPAND^IBTRE EN+97, EN+110

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

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A EN+94~, EN+97*, EN+98*, EN+99, EN+104*
A1 EN+94~, EN+98*
BPZ EN+18~, EN+123*, EN+124, EN+127
FIRSTPRV EN+2~, EN+79*, EN+80*
I EN+2~, EN+17*, EN+79*, EN+80
IB EN+2~
IB( EN+17*
IB("M2" EN+140, EN+141, EN+142
IB("PRV" EN+20!, EN+21*, EN+85, EN+86, EN+93, EN+98, EN+100, EN+101, EN+102, EN+106!
IB("TX" EN+151, EN+152*, EN+153
IB("U" EN+50, EN+56, EN+74
IB("U1" EN+68
IB("U2" EN+51, EN+52, EN+63, EN+110
IB("U3" EN+78, EN+80, EN+115, EN+116, EN+130, EN+131
IB("UF3" EN+40, EN+41, EN+42
IB("UF32" EN+53, EN+54, EN+55
IBARR EN+87~, EN+89
IBARR( EN+104
IBCUBFT EN*!
>> IBIFN ENEN+3, EN+12, EN+17, EN+19, EN+27, EN+31, EN+44, EN+63, EN+70
EN+80, EN+89, EN+91, EN+92, EN+111, EN+123, EN+124, EN+125, EN+148, EN+149
IBINP EN+2~, EN+3*, EN+11, EN+63, EN+66, EN+74, EN+78
IBMRASEC EN+18~, EN+149*, EN+152
IBNOSPEC EN+87~, EN+92
IBNOTAX EN+87~, EN+91
IBPRV EN+18~, EN+19
IBPRV( EN+21
IBQ EN+87~, EN+95*, EN+104*, EN+105
IBREQ EN+18~, EN+148*, EN+150, EN+151, EN+153
IBSPEC EN+87~, EN+92*, EN+103
>> IBSR EN+10*
>> IBSR1 EN+10*
IBT EN+87~
IBTAX EN+87~, EN+91*, EN+103
>> IBU EN+63, EN+74, EN+78, EN+85, EN+100, EN+103, EN+111, EN+115, EN+128, EN+130
>> IBUN EN+28, EN+45, EN+57, EN+69, EN+111, EN+143
>> IBV EN+13
>> IBV1 EN+10*, EN+11*, EN+12*, EN+13*
>> IBVI EN+34
>> IBVO EN+34
>> IBW EN+26*, EN+77*, EN+84*, EN+109*, EN+120*, EN+136*, EN+150*, EN+156*
>> IBWW EN+26, EN+77, EN+84, EN+109, EN+120, EN+136, EN+150, EN+156
IBX EN+2~, EN+63*, EN+74*
IBZ EN+18~, EN+21*, EN+30~, EN+31, EN+48!, EN+56*, EN+60!*, EN+88*, EN+93*, EN+97
EN+98, EN+100, EN+101, EN+102, EN+103, EN+104, EN+110*, EN+111, EN+112, EN+115*
EN+116*, EN+122!, EN+124, EN+126*, EN+127*, EN+128, EN+130*, EN+131*, EN+138!, EN+145!
EN+151*, EN+152*, EN+153
IBZ( EN+32, EN+33, EN+35, EN+39*, EN+40*, EN+41*, EN+42*, EN+47, EN+49*, EN+50*
EN+51*, EN+52*, EN+53*, EN+54*, EN+55*, EN+59, EN+140*, EN+141*, EN+142*, EN+144
IBZ("UB SCREE N 8" , EN+126
IBZ(0 EN+44*, EN+45*, EN+46, EN+57*, EN+58
>> IBZ1 EN+144*
IBZCNT EN+18~, EN+39*, EN+40*, EN+41*, EN+42, EN+47*, EN+49*, EN+50*, EN+51*, EN+52*
EN+53*, EN+54*, EN+55, EN+59*, EN+139*, EN+140*, EN+141*, EN+142*, EN+143, EN+144
PPS EN+67~, EN+68*, EN+69, EN+70
PPSDISP EN+67~, EN+69*, EN+70*, EN+71
PRV EN+2~, EN+80*
PRVS EN+2~, EN+78*, EN+79
TEXT EN+18~, EN+27*, EN+28, EN+29
TXMT EN+18~, EN+125*, EN+126, EN+127, EN+153
U EN+27, EN+40, EN+41, EN+42, EN+50, EN+51, EN+52, EN+53, EN+54, EN+55
EN+56, EN+63, EN+68, EN+74, EN+78, EN+80, EN+98, EN+100, EN+101, EN+102
EN+103, EN+110, EN+115, EN+116, EN+130, EN+131, EN+140, EN+141, EN+142, EN+151
EN+152, EN+153
Z EN+2~, EN+26*, EN+30~, EN+32*, EN+33, EN+34, EN+35, EN+77*, EN+84*, EN+87~
EN+109*, EN+120*, EN+136*, EN+150*, EN+156*
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