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 |  Label References |  Local Variables  | All
Print Page as PDF
Routine: IBCISC

Package: Integrated Billing

Routine: IBCISC


Information

IBCISC ;DSI/ESG - IB EDIT SCREENS ?CLA FUNCTIONALITY ;23-FEB-2001

Source Information

Source file <IBCISC.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
Integrated Billing 5 UPDT^IBCIADD1  (MSG4,ST2)^IBCIST  ($$CK1,$$CK2,$$CKLI,$$LITMS,CKFT)^IBCIUT1  ($$BILLER,$$CODER)^IBCIUT5  EN^IBCIWK  
VA FileMan 2 $$EXTERNAL^DILFD  ^DIR  

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

Package Total Caller Graph
Integrated Billing 2 IBCIASN  IBCSCH  

Entry Points

Name Comments DBIA/ICR reference
CLA(IBIFN) ; Entry point for ?CLA processing
; This is called by routine IBCSCH.
0 ; Clear screen and display header information
CLAX ;
TESTSEND ;
; Send the data to ClaimsManager as it currently exists
; and display any errors that ClaimsManager finds.
TSTSNDX ;
DISPERR ; Display the errors that were received during the last transaction
; with Ingenix ClaimsManager. These are the errors that are stored
; in the error fields in the CLAIMSMANAGER FILE (#351.9). These
; fields are the ERROR CODE, ERROR DATA, and ERROR TEXT. They are all
; stored at or under the 1 node.
DISPERX ;
STATS ; Display the data elements on the 0 node of file 351.9.
STATSX ;
EOP ; End of page
EOPX ;

External References

Name Field # of Occurrence
$$EXTERNAL^DILFD 0+9, 0+12, STATS+5, STATS+7, STATS+9, STATS+11, STATS+13, STATS+15, STATS+17, STATS+19
, STATS+21
^DIR 0+23, EOP+1
UPDT^IBCIADD1 TESTSEND+24
MSG4^IBCIST TESTSEND+27
ST2^IBCIST TESTSEND+31
$$CK1^IBCIUT1 0+5
$$CK2^IBCIUT1 TESTSEND+7
$$CKLI^IBCIUT1 TESTSEND+24, TESTSEND+27
$$LITMS^IBCIUT1 TESTSEND+24
CKFT^IBCIUT1 0+18
$$BILLER^IBCIUT5 STATS+25
$$CODER^IBCIUT5 STATS+23
EN^IBCIWK TESTSEND+47, DISPERR+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: 0+1
Function Call: WRITE
  • Prompt: !!?21,"VistA-ClaimsManager Interface Options"
  • Line Location: 0+2
Function Call: WRITE
  • Prompt: !!?5,"ClaimsManager is only available for CMS-1500 claims."
  • Line Location: 0+6
Function Call: WRITE
  • Prompt: !!?5,"The form type of the bill you're editing"
  • Line Location: 0+7
Function Call: WRITE
  • Prompt: " (",$G(IBBNO),") is "
  • Line Location: 0+8
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(399,.19,"",$P(^DGCR(399,IBIFN,0),U,19)),"."
  • Line Location: 0+9
Function Call: WRITE
  • Prompt: !?5,"The charge type of this bill is "
  • Line Location: 0+11
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(399,.27,"",$P(^DGCR(399,IBIFN,0),U,27)),"."
  • Line Location: 0+12
Function Call: WRITE
  • Prompt: !!?5,"The VistA-ClaimsManager Interface is not currently working."
  • Line Location: TESTSEND+8
Function Call: WRITE
  • Prompt: !!?5,"Please try again later."
  • Line Location: TESTSEND+9
Function Call: WRITE
  • Prompt: !!?5,"This bill is no longer editable. The ClaimsManager interface"
  • Line Location: TESTSEND+16
Function Call: WRITE
  • Prompt: !?5,"Test Send functionality is not available for this bill."
  • Line Location: TESTSEND+17
Function Call: WRITE
  • Prompt: !!?5,"ClaimsManager found "
  • Line Location: TESTSEND+38
Function Call: WRITE
  • Prompt: NUMBER," error"
  • Line Location: TESTSEND+40
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: NUMBER>1
  • Line Location: TESTSEND+40
Function Call: WRITE
  • Prompt: " with this bill."
  • Line Location: TESTSEND+41
Function Call: WRITE
  • Prompt: !?5,"Press RETURN to view the error"
  • Line Location: TESTSEND+42
Function Call: WRITE
  • Prompt: "s"
  • Condition for execution: NUMBER>1
  • Line Location: TESTSEND+42
Function Call: WRITE
  • Prompt: "."
  • Line Location: TESTSEND+42
Function Call: WRITE
  • Prompt: !!?5,"There was a communications failure:"
  • Line Location: TESTSEND+54
Function Call: WRITE
  • Prompt: !?8,$P(IBCIERR,U,2)
  • Line Location: TESTSEND+55
Function Call: WRITE
  • Prompt: !?8,$P($P(IBCIERR,U,3)," - ",1)
  • Line Location: TESTSEND+57
Function Call: WRITE
  • Prompt: !?8,$P($P(IBCIERR,U,3,99)," - ",2,99)
  • Line Location: TESTSEND+58
Function Call: WRITE
  • Prompt: !!?5,"Please report these errors to your system manager."
  • Line Location: TESTSEND+60
Function Call: WRITE
  • Prompt: !?5,"This bill was NOT successfully analyzed by ClaimsManager."
  • Line Location: TESTSEND+61
Function Call: WRITE
  • Prompt: !!?5,"There are no errors recorded in the file."
  • Line Location: DISPERR+7
Function Call: WRITE
  • Prompt: !!,$J("Current Status: ",J)
  • Line Location: STATS+4
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.02,"",$P(IBA0,U,2))
  • Line Location: STATS+5
Function Call: WRITE
  • Prompt: !!,$J("Times sent to ClaimsManager: ",J)
  • Line Location: STATS+6
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.04,"",$P(IBA0,U,4))
  • Line Location: STATS+7
Function Call: WRITE
  • Prompt: !,$J("Last sent date/time: ",J)
  • Line Location: STATS+8
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.03,"",$P(IBA0,U,3))
  • Line Location: STATS+9
Function Call: WRITE
  • Prompt: !,$J("Last sent by: ",J)
  • Line Location: STATS+10
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.05,"",$P(IBA0,U,5))
  • Line Location: STATS+11
Function Call: WRITE
  • Prompt: !!,$J("Date/time Entered: ",J)
  • Line Location: STATS+12
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.06,"",$P(IBA0,U,6))
  • Line Location: STATS+13
Function Call: WRITE
  • Prompt: !,$J("Entered by: ",J)
  • Line Location: STATS+14
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.07,"",$P(IBA0,U,7))
  • Line Location: STATS+15
Function Call: WRITE
  • Prompt: !,$J("Date/time Last Edited: ",J)
  • Line Location: STATS+16
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.08,"",$P(IBA0,U,8))
  • Line Location: STATS+17
Function Call: WRITE
  • Prompt: !,$J("Last Edited by: ",J)
  • Line Location: STATS+18
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.09,"",$P(IBA0,U,9))
  • Line Location: STATS+19
Function Call: WRITE
  • Prompt: !!,$J("Assigned to: ",J)
  • Line Location: STATS+20
Function Call: WRITE
  • Prompt: $$EXTERNAL^DILFD(351.9,.12,"",$P(IBA0,U,12))
  • Line Location: STATS+21
Function Call: WRITE
  • Prompt: !,$J("Coder: ",J)
  • Line Location: STATS+22
Function Call: WRITE
  • Prompt: $P($$CODER^IBCIUT5(IBIFN),U,3)
  • Line Location: STATS+23
Function Call: WRITE
  • Prompt: !,$J("Biller: ",J)
  • Line Location: STATS+24
Function Call: WRITE
  • Prompt: $P($$BILLER^IBCIUT5(IBIFN),U,2)
  • Line Location: STATS+25
Function Call: WRITE
  • Prompt: !!
  • Line Location: EOP+1
Routine Call
  • DIR
  • Line Location:
    • 0+23
    • EOP+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBA(351.9 - [#351.9] EXTERNAL^DILFD
^DGCR(399 - [#399] EXTERNAL^DILFD

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] 0+9, 0+10, 0+12, TESTSEND+15
^IBA(351.9 - [#351.9] DISPERR+6, STATS+3
^TMP("IBCITST" TESTSEND+39

Label References

Name Line Occurrences
CLAX 0+5, 0+24, 0+25, 0+26, 0+27
DISPERR 0+26
DISPERX DISPERR+6
EOP 0+14, TESTSEND+10, TESTSEND+18, TESTSEND+27, TESTSEND+34, TESTSEND+43, TESTSEND+63, DISPERR+8, STATS+26
STATS 0+27
TESTSEND 0+25
TSTSNDX TESTSEND+7, TESTSEND+15, TESTSEND+27, TESTSEND+34, TESTSEND+37

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DIR CLA+2~, 0+23!, EOP+1!
DIR("A" 0+21*, EOP+1*
DIR(0 0+22*, EOP+1*
DIROUT CLA+2~
DIRUT CLA+2~
DTOUT CLA+2~, TESTSEND+43
DUOUT CLA+2~, TESTSEND+43
IBA0 STATS+1~, STATS+3*, STATS+5, STATS+7, STATS+9, STATS+11, STATS+13, STATS+15, STATS+17, STATS+19
, STATS+21
>> IBBNO 0+8
IBCIERR TESTSEND+4~, TESTSEND+55, TESTSEND+56, TESTSEND+57, TESTSEND+58
IBCIREDT TESTSEND+4~
IBCISNT TESTSEND+4~, TESTSEND+30*
IBCISTAT TESTSEND+4~, TESTSEND+34, TESTSEND+37
IBIFN CLA~, 0+5, 0+9, 0+10, 0+12, 0+18, TESTSEND+15, TESTSEND+24, TESTSEND+27, DISPERR+6
, STATS+3, STATS+23, STATS+25
IOF 0+1
J STATS+1~, STATS+2*, STATS+4, STATS+6, STATS+8, STATS+10, STATS+12, STATS+14, STATS+16, STATS+18
, STATS+20, STATS+22, STATS+24
NUMBER TESTSEND+4~, TESTSEND+39*, TESTSEND+40, TESTSEND+42
U 0+9, 0+10, 0+12, TESTSEND+15, TESTSEND+55, TESTSEND+56, TESTSEND+57, TESTSEND+58, DISPERR+6, STATS+5
, STATS+7, STATS+9, STATS+11, STATS+13, STATS+15, STATS+17, STATS+19, STATS+21, STATS+23, STATS+25
X CLA+2~
Y CLA+2~, 0+24, 0+25, 0+26, 0+27
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All