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

Package: Integrated Billing

Routine: IBCEXTRP


Information

IBCEXTRP ;ALB/JEH - VIEW/PRINT EDI EXTRACT DATA ;4/22/03 9:59am

Source Information

Source file <IBCEXTRP.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;
INIT ;
DEV ; - Select device
LIST ; - set up array and print data
HDR ; - Report header
EXITQ ; - clean up and exit
EXTRACT(IBIFN,IBBATCH,IBFORM,IBLOCAL,IBXPOSTWA) ;
; *****************
; this label is called by 2 routines outside IB
; VEJDIBPI
; VEJDIBPZ
;
; Extracts transmitted form data into global
; ^TMP("IBXDATA",$J). Errors are in ^TMP("IBXERR",$J,err_num)=text.
; IBBATCH = Batch # of bill (if known), otherwise, set to 1. This
; variable must be > 0 to prevent a new batch from being added
; IBFORM = the ien of the form in file 353
; IBLOCAL = 1 if OK to use local form, 0 if not
; IBXPOSTWA = 1 if executing FSC post processing workarounds ;WCJ;IB718v22;
INCLUDE(IBSEQ) ; Function to determine if segment should be included or not
INCLX ;

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"This option will display the EDI extract data for a bill.",!
  • Line Location: INIT+1
Function Call: WRITE
  • Prompt: !,"There is no entry in the EDI Transmit Bill file for this bill number."
  • Line Location: INIT+9
Function Call: WRITE
  • Prompt: !!,"There is no batch # for this bill. It has not been transmitted."
  • Line Location: INIT+13
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+16
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+22
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+30
Function Call: WRITE
  • Prompt: !
  • Line Location: DEV+2
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: DEV+8
Function Call: WRITE
  • Prompt: !,$G(^TMP("IBXERR",$J,IBERR))
  • Line Location: LIST+14
Function Call: WRITE
  • Prompt: !,IBDATA(1)
  • Line Location: LIST+64
Function Call: WRITE
  • Prompt: ?47,IBNOTE(X)
  • Line Location: LIST+65
Function Call: WRITE
  • Prompt: !,^TMP($J,"IBLINES",Z,Z0,Z1)
  • Line Location: LIST+66
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+71
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: HDR+4
Function Call: WRITE
  • Prompt: !,?25,"EDI Transmitted Bill Extract Data",!,"Bill #",?11,"Type",?27,"Patient Name",?52,"SSN",?57,$$FMTE^XLFDT(DT),?71,"Page: "_IBPG
  • Line Location: HDR+7
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","=")
  • Line Location: HDR+8
Function Call: WRITE
  • Prompt: !,$P(IBREC1,U)_" "_"("_IBILL_")",?27,$P($G(^DPT(+$P(IBREC1,U,2),0)),U),?52,$P($G(^DPT($P(IBREC1,U,2),0)),U,9),!
  • Line Location: HDR+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EXITQ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(350.9 - [#350.9] GET1^DIQ
^DGCR(399 - [#399] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call