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

Call Graph

Call Graph

Call Graph Total: 13

Package Total Call Graph
Integrated Billing 6 SETUP^IBCE837  ($$FT,$$INPAT)^IBCEF  $$LAST364^IBCEF4  (FORMPRE,ROUT)^IBCFP1  $$FO^IBCNEUT1  $$WRAP^IBCSC10H  
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  $$FMTE^XLFDT  ($$TRIM,$$UP)^XLFSTR  
VA FileMan 3 ^DIC  CLEAN^DILF  ^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: 1

Package Total Caller Graph
Integrated Billing 1 IBCE EDI VIEW/PRINT EXTRACT  

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) ; 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
INCLUDE(IBSEQ) ; Function to determine if segment should be included or not
INCLX ;

External References

Name Field # of Occurrence
^%ZIS DEV+3
HOME^%ZIS DEV+9
^%ZTLOAD DEV+7
^DIC INIT+5
CLEAN^DILF EXITQ+3
^DIR INIT+14, INIT+24, INIT+36, HDR+3, EXITQ+1
SETUP^IBCE837 EXTRACT+12
$$FT^IBCEF LIST+6, LIST+48
$$INPAT^IBCEF LIST+9, LIST+51
$$LAST364^IBCEF4 INIT+8
FORMPRE^IBCFP1 EXTRACT+7
ROUT^IBCFP1 EXTRACT+13
$$FO^IBCNEUT1 LIST+41
$$WRAP^IBCSC10H LIST+60
$$FMTE^XLFDT HDR+7
$$TRIM^XLFSTR INIT+38, INCLUDE+7
$$UP^XLFSTR INIT+38

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+11
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+14
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+20
Function Call: WRITE
  • Prompt: !
  • Line Location: INIT+28
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+12
Function Call: WRITE
  • Prompt: !,IBDATA(1)
  • Line Location: LIST+61
Function Call: WRITE
  • Prompt: ?47,IBNOTE(X)
  • Line Location: LIST+62
Function Call: WRITE
  • Prompt: !,^TMP($J,"IBLINES",Z,Z0,Z1)
  • Line Location: LIST+63
Function Call: WRITE
  • Prompt: !
  • Line Location: LIST+68
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
Routine Call
  • %ZIS
  • Line Location:
    • DEV+3
Routine Call
  • %ZIS
  • Line Location:
    • DEV+9
Routine Call
  • DIC
  • Line Location:
    • INIT+5
Routine Call
  • DIR
  • Line Location:
    • INIT+14
    • INIT+24
    • INIT+36
    • HDR+3
    • EXITQ+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^DGCR(399 - [#399] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] INIT+7
^DPT - [#2] HDR+9
^IBA(364 - [#364] INIT+10
^IBA(364.1 - [#364.1] INIT+12
^IBA(364.6 - [#364.6] LIST+15, LIST+17
^IBE(353 - [#353] EXTRACT+11
^TMP("IBXDATA" LIST+23, LIST+25, LIST+28*, LIST+32, LIST+35, LIST+40, EXITQ+2!, INCLUDE+4, INCLUDE+5, INCLUDE+6
^TMP("IBXERR" LIST+11, LIST+12, EXITQ+2!
^TMP($J LIST+4!, LIST+42*, LIST+53, LIST+58, LIST+63, LIST+68, LIST+71!

Label References

Name Line Occurrences
$$INCLUDE LIST+15
DEV INIT+26
EXITQ INIT+6, INIT+8, INIT+10, INIT+15, INIT+25, INIT+42, DEV+3, DEV+4, LIST+11, LIST+72
EXTRACT LIST+2
HDR LIST+52, LIST+54, LIST+62, LIST+65
INCLX INCLUDE+3, INCLUDE+4

Naked Globals

Name Field # of Occurrence
^( LIST+23
^(2 EXTRACT+11

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS DEV+1~, DEV+3*
DIC INIT+2~, INIT+5*
DIC("S" INIT+5*
DIC(0 INIT+5*
DIR INIT+2~, INIT+14!, INIT+24!, INIT+36!, HDR+1~, HDR+3!, EXITQ+1!
DIR("?" INIT+35*
DIR("A" INIT+13*, INIT+22*, INIT+33*, INIT+34*
DIR("B" INIT+13*, INIT+23*
DIR(0 INIT+13*, INIT+21*, INIT+32*, HDR+3*, EXITQ+1*
DPTNOFZY INIT+4~*
DSP LIST+16~, LIST+39*, LIST+41*, LIST+42
DT HDR+7
DTOUT INIT+2~, INIT+15, INIT+25, INIT+37, INIT+42
DUOUT INIT+2~, INIT+15, INIT+25, INIT+37, INIT+42
IB364IEN INIT+2~, INIT+8*, INIT+10
IBBATCH EXTRACT~, EXTRACT+8
IBDA LIST+1~, LIST+3*, LIST+15*, LIST+17
IBDATA LIST+16~, LIST+40*, LIST+41, LIST+57~, LIST+58*, LIST+59
IBDATA(1 LIST+59*, LIST+61
IBDATA(2 LIST+59*, LIST+60
IBERR LIST+1~, LIST+12*
IBFMTYP LIST+6~*, LIST+8*, LIST+9, LIST+48~*, LIST+50*, LIST+51
IBFORM EXTRACT~, EXTRACT+9, EXTRACT+11, EXTRACT+13
IBIEN INIT+2~, INIT+7*, INIT+8, LIST+2, LIST+6, LIST+9, LIST+48, LIST+51
IBIFN EXTRACT~, EXTRACT+13
IBILL LIST+1~, LIST+9*, LIST+51*, HDR+9
IBINC INIT+2~, INIT+16*, LIST+35, EXTRACT+6~
IBL EXTRACT+6~, EXTRACT+9*, EXTRACT+11*, EXTRACT+13
IBLINE LIST+1~, LIST+3*, LIST+54, LIST+62*, LIST+64*, LIST+65, LIST+68*, HDR+10*
IBLOCAL EXTRACT~, EXTRACT+9
IBMULT LIST+16~, LIST+32*, LIST+35, LIST+40, LIST+42
IBNOTE LIST+57~, LIST+60*
IBNOTE( LIST+62
IBOK LIST+16~, LIST+22*, LIST+23*, LIST+24
IBPC LIST+1~, LIST+3*, LIST+15*, LIST+22, LIST+35, LIST+38, LIST+40, LIST+42
IBPG LIST+1~, LIST+3*, HDR+2, HDR+6*, HDR+7
IBQUIT LIST+1~, LIST+3*, LIST+46*, LIST+53, LIST+54, LIST+56, LIST+62, LIST+65, HDR+2, HDR+3*
, EXITQ+1
IBREC LIST+1~, LIST+17*, LIST+18, LIST+26, LIST+39
IBREC1 INIT+2~, INIT+7*, HDR+9
IBSEG INIT+2~, INIT+29!, INIT+34, EXTRACT+6~, INCLUDE+3
IBSEG( INIT+40*, INCLUDE+8
IBSEQ LIST+1~, LIST+3*, LIST+15*, LIST+23, LIST+25, LIST+28, LIST+32, LIST+35, LIST+40, LIST+42
, INCLUDE~, INCLUDE+4, INCLUDE+5, INCLUDE+6
IBVNUM INIT+2~, INIT+10*, INIT+12*, LIST+2, EXTRACT+6~, EXTRACT+8*
IBXDATA LIST+1~
IBXERR LIST+1~, EXITQ+2!
IO DEV+10
IO("Q" DEV+4, DEV+9!
IOF LIST+47, HDR+4
IOM HDR+8
IOSL LIST+54, LIST+62, LIST+65
IOST LIST+47, HDR+3, EXITQ+1
LZ INCLUDE+1~, INCLUDE+5*, INCLUDE+6
OK INCLUDE+1~, INCLUDE+2*, INCLUDE+4*, INCLUDE+8*, INCLX+1
PCD LIST+16~, LIST+38*, LIST+41
POP INIT+2~, DEV+3
SEGNAME INCLUDE+1~, INCLUDE+6*, INCLUDE+7*, INCLUDE+8
SN LIST+16~, LIST+25*, LIST+26*, LIST+27*, LIST+28
STOP INIT+2~, INIT+30*, INIT+31, INIT+37*, INIT+39*
U INIT+10, INIT+12, LIST+18, LIST+25, LIST+26, LIST+28, LIST+35, LIST+39, LIST+40, HDR+9
, EXTRACT+11, INCLUDE+6
X INIT+2~, LIST+57~, LIST+62*
Y INIT+2~, INIT+6, INIT+7, INIT+16, INIT+26, INIT+38*, INIT+39, INIT+40, HDR+1~, HDR+3
Z LIST+1~, LIST+16~, LIST+23*, LIST+53*, LIST+56, LIST+58, LIST+63, LIST+68
Z0 LIST+1~, LIST+53*, LIST+58, LIST+63, LIST+68
Z1 LIST+1~, LIST+53*, LIST+56, LIST+58, LIST+63, LIST+68
ZTDESC DEV+1~, DEV+5*
ZTRTN DEV+1~, DEV+5*
ZTSAVE DEV+1~
ZTSAVE("IB*" DEV+6*
ZTSK DEV+8, DEV+9!
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 |  Naked Globals |  Local Variables |  All