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

Package: Integrated Billing

Routine: IBCISC


Information

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

Source Information

Source file <IBCISC.m>

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 ;

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

FileMan Files Accessed Via FileMan Db Call

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