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

Package: Integrated Billing

Routine: IBJTEP1


Information

IBJTEP1 ;ALB/TJB - TP ERA/835 INFORMATION SCREEN ;01-MAY-2015

Source Information

Source file <IBJTEP1.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 3 ($$FIND1,FIND)^DIC  ($$GET1,GETS)^DIQ  ^DIR  
Kernel 2 $$FMTE^XLFDT  ($$REPLACE,$$TRIM)^XLFSTR  
List Manager 2 EN^VALM  FULL^VALM1  
Integrated Billing 1 SET^IBJTEP  
Outpatient Pharmacy 1 EN^PSOORDER  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

protocol O screenman SM broker B event driver Ed print P extended action Ea limited protocol LP edit E server Se subscriber Su inquire I run routine RR action A

Caller Graph

Caller Graph Total: 4

Package Total Caller Graph
Integrated Billing 3 IBJT ERA 835 RECEIPT PROF  IBJTEP  IBJTPE  
Kernel 1 ^ORD(101  

Entry Points

Name Comments DBIA/ICR reference
GETRCPT(ARRAY) ; If only one receipt return with the single receipt, otherwise user selects receipt
DLN(ZIN,ZARR,FLN,SLN) ;
; ZIN - array to get lines of text
; ZRARR - array for display passed by indirection
; FLN - First line length; SLN - Second and subsequent line lengths
RESORT(ZAR,ZIDX) ; Resort the subscripts from GETS so items collate correctly while walking the array
; Pass ZAR through indirection
; Take the second subscript and reverse the pieces, put them in right order
GETRX(IBIEN,IBARRY) ;return pharmacy data to about EEOB items
; input - IBIEN = ien to record in 361.1
; IBARRY = Array name that will be used to store and return pharmacy data elements
; output - IBARRY = holds pharmacy data
; IA 6033 (controlled subscription) - read access of file 362.4. status is pending
; ICR 1878 (supported) - usage of EN^PSOORDER
RECEIPT ; Go to Receipt profile
; Build the ^TMP(RCDPDPLM,$J,"IDX",#,#)=# array if we have a receipt on this ERA
; ERALST, IBIFN is passed in by IBJTEP and will be cleaned up there
RC1 ;
RC2 ;
BILLN(IEN,CODE,CPT) ; Get the line item information from the Bill
EOBREM(RCEOB,LINE) ; EP from IBJTEP - Show EOB removal details if EOB removed
; Input: RCEOB - Internal entry number from file 361.1
; LINE - Line counter for ListMan storage
; Output: To screen
; Get last move/copy history record
RCQ ;
; If RCDPFXIT is set, exit option entirely was selected so quit back to the menu
EEOB(ARRAY,IENERA,KBILL,SPLIT) ; Return all of the EEOBs with this KBILL for the ERA IEN in 344.4
ADJU(TYPE,ARR1,END) ; Get the Deduction information from the line level
; TYPE = "DEDUCT" or "COINS", pass array by reference, END - quit condition

External References

Name Field # of Occurrence
$$FIND1^DIC EEOB+9
FIND^DIC BILLN+3
$$GET1^DIQ EOBREM+10, EOBREM+11, EOBREM+12
GETS^DIQ EEOB+3, RC2+5
^DIR RC1+6, RC2+1, RC2+7, RC2+14, GETRCPT+5
SET^IBJTEP EOBREM+8, EOBREM+10, EOBREM+11, EOBREM+19, EOBREM+20
EN^PSOORDER GETRX+18
EN^VALM RC2+18
FULL^VALM1 RECEIPT+4
$$FMTE^XLFDT GETRX+15
$$REPLACE^XLFSTR RC1+5, DLN+14, DLN+17
$$TRIM^XLFSTR DLN+14, DLN+17

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"ERA: "_Y_" not a valid selection. Please try again...",!
  • Line Location: RC1+8
Function Call: WRITE
  • Prompt: !
  • Line Location: RC2+1
Function Call: WRITE
  • Prompt: !
  • Line Location: RC2+7
Function Call: WRITE
  • Prompt: !
  • Line Location: RC2+14
Routine Call
  • VALM
  • Line Location:
    • RC2+18
Routine Call
  • DIC
  • Line Location:
    • BILLN+3
Routine Call
  • DIC
  • Line Location:
    • EEOB+9
Routine Call
  • DIR
  • Line Location:
    • RC1+6
    • RC2+1
    • RC2+7
    • RC2+14
    • GETRCPT+5

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GETS^DIQ
361.1101 GET1^DIQ
^DGCR(399 - [#399] FIND1^DIC
399.042 FIND^DIC

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBA(362.4 - [#362.4] GETRX+12, GETRX+14
^IBM(361.1 - [#361.1] EEOB+5, EEOB+10, GETRX+10, EOBREM+6
^PRCA(430 - [#430] GETRX+11
^RCY(344 - [#344] GETRCPT+3
^RCY(344.4 - [#344.4] RC2+3, RC2+7
^TMP("PSOR" GETRX+19, GETRX+20, GETRX+21
^TMP("RCDPDPLM" RC2+5!, RC2+11*, RC2+13*, RC2+16, RCQ+3!

Label References

Name Line Occurrences
$$GETRCPT RC2+16
RC1 RC1+8
RC2 RC1+2
RCQ RC1+7, RC2+1, RC2+7, RC2+13, RC2+17

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
A RESORT+4~
AA EEOB+1~, ADJU+2~, ADJU+4*, ADJU+5
AA( EEOB+6*, EEOB+10
ARR1 ADJU~
ARR1( ADJU+4, ADJU+5, ADJU+6, ADJU+7
ARRAY EEOB~, EEOB+6, EEOB+10, EEOB+11, GETRCPT~, GETRCPT+1, GETRCPT+3
BB ADJU+2~, ADJU+5*, ADJU+6, ADJU+7
CNT EEOB+1~, EEOB+2*, EEOB+6*, EEOB+10*, EEOB+11
CODE BILLN~, BILLN+3
CPT BILLN~, BILLN+4
DIR RECEIPT+3~, RC1+6!, RC2+1!, RC2+7!, RC2+14!, GETRCPT+2~, GETRCPT+5!
DIR("A" RC1+3*, RC1+4*, RC1+5*, RC2+1*, RC2+7*, RC2+14*, GETRCPT+5*
DIR(0 RC1+3*, RC2+1*, RC2+7*, RC2+14*, GETRCPT+4*
DIROUT GETRCPT+2~
DIRUT GETRCPT+2~
DTOUT RECEIPT+3~, RC1+7, GETRCPT+2~, GETRCPT+6
DUOUT RECEIPT+3~, RC1+7, GETRCPT+2~, GETRCPT+6
DZX RECEIPT+3~
END ADJU~, ADJU+4
>> EPBILL RC2+9, RC2+14
EPIEN RECEIPT+3~
>> ERALST RC1+2, RC1+5, RC1+8
FLN DLN~, DLN+12, DLN+13, DLN+23, DLN+25
I RECEIPT+3~, RC2+9*, RC2+11*, EOBREM+5~, EOBREM+14*, EOBREM+16*, EOBREM+17, EOBREM+20
IB0 GETRX+7~, GETRX+12*, GETRX+13, GETRX+14
IBAR2 RECEIPT+3~
IBAR3 RECEIPT+3~
IBARR RECEIPT+3~
IBARRY GETRX~, GETRX+8!
IBARRY("DOS" GETRX+15*
IBARRY("FILL" GETRX+16*, GETRX+20, GETRX+21
IBARRY("RELEA SED STATUS" , GETRX+20*, GETRX+21*
IBARRY("RX" GETRX+19*
IBDFN GETRX+7~, GETRX+11*, GETRX+18
IBDG EEOB+1~, EEOB+9*, EEOB+10
IBEPB RECEIPT+3~, RC2+5!
IBEPB( RC2+9, RC2+11
IBERA RECEIPT+3~, RC1+2*, RC1+8*, RC2+1, RC2+3, RC2+5, RC2+7, RC2+14
IBI EEOB+1~, EEOB+9*, EEOB+10*
IBIEN GETRX~, GETRX+9, GETRX+10
IBRP RECEIPT+3~, RC1+5
IBRP( RC1+1*
IBZZ EEOB+1~
IBZZ( EEOB+4, EEOB+5, EEOB+6, EEOB+9
IEN BILLN~, BILLN+3
IENERA EEOB~, EEOB+3
II BILLN+1~, BILLN+4*, RESORT+4~, RESORT+6*
INDEX RECEIPT+3~
IX RECEIPT+3~, RC2+9*, RC2+11
J EOBREM+5~, EOBREM+15*, EOBREM+16, EOBREM+17, EOBREM+20*
KBILL EEOB~, EEOB+4
LINE EOBREM~, EOBREM+8, EOBREM+10, EOBREM+11, EOBREM+19, EOBREM+20
PRIEN GETRX+7~, GETRX+10*, GETRX+11, GETRX+12
QQ RESORT+10, RESORT+11!, GETRCPT+2~, GETRCPT+3*, GETRCPT+4
QQ( RESORT+8*, RESORT+9*
RCDEPTDA RECEIPT+3~
RCDPFXIT RECEIPT+3~, RCQ+2
RCEOB EOBREM~, EOBREM+6, EOBREM+10, EOBREM+11, EOBREM+12
RCEOBH EOBREM+5~, EOBREM+6*, EOBREM+8, EOBREM+10, EOBREM+11, EOBREM+12
RCJUST EOBREM+5~, EOBREM+12*, EOBREM+13, EOBREM+15, EOBREM+16, EOBREM+17, EOBREM+18
RCJUST( EOBREM+16, EOBREM+17*, EOBREM+20
RCJUST(1 EOBREM+18*, EOBREM+19
RCOUT BILLN+1~, BILLN+3!, ADJU+2~
RCOUT("DILIST" BILLN+4
RCRECTDA RECEIPT+3~, RC2+16*, RC2+17
RET BILLN+1~, BILLN+2*, BILLN+4*, BILLN+5, ADJU+2~, ADJU+3*, ADJU+5, ADJU+6*, ADJU+7*, ADJU+8
RXDATA GETRX+7~, GETRX+14*, GETRX+15, GETRX+16, GETRX+17
RXFILL GETRX+7~
RXIEN GETRX+7~, GETRX+17*, GETRX+18, GETRX+19, GETRX+20, GETRX+21
SLN DLN~, DLN+11, DLN+16
SPLIT EEOB~, EEOB+8
TYPE ADJU~, ADJU+6, ADJU+7
U EEOB+5, RC1+1, RC1+2, RC1+8, RC2+7, RC2+13, GETRCPT+3, GETRX+10, GETRX+11, GETRX+15
, GETRX+16, GETRX+17, GETRX+19, GETRX+20, GETRX+21
>> VALMBCK RECEIPT+5*, RCQ+2*
X RECEIPT+3~, RC1+8*, GETRCPT+2~
XX RESORT+4~, RESORT+7*, RESORT+8, RESORT+9
Y RECEIPT+3~, RC1+7, RC1+8, GETRCPT+2~, GETRCPT+6, GETRCPT+7
YY RESORT+4~, RESORT+8*, RESORT+9*
Z1 RESORT+4~
ZAR RESORT~, RESORT+5, RESORT+7, RESORT+8, RESORT+9, RESORT+10, GETRCPT+2~
ZAR( GETRCPT+3*, GETRCPT+7
ZARR DLN~, DLN+12, DLN+14, DLN+17, DLN+18, DLN+19, DLN+23, DLN+26, DLN+27
ZCT DLN+4~, DLN+5*, DLN+11*, DLN+12, DLN+14, DLN+15, DLN+17, DLN+18*, DLN+19
ZI DLN+4~, DLN+5*, DLN+7*, DLN+10*, DLN+25*, DLN+26
ZICT DLN+4~, DLN+5*, DLN+7*, DLN+9, DLN+21
ZIDX RESORT~, RESORT+3, RESORT+5, RESORT+7, RESORT+8, RESORT+9, RESORT+10
ZIN DLN~, DLN+7, DLN+10, DLN+22, DLN+23, DLN+25, DLN+26
ZL DLN+4~, DLN+10*, DLN+11, DLN+12*, DLN+13, DLN+14*, DLN+16, DLN+17*, DLN+18*, DLN+25*
, DLN+26
ZLN DLN+4~
ZN RESORT+4~*, RESORT+6*, RESORT+8, RESORT+9, RC2+3*, RC2+7, RC2+13
ZSP DLN+4~, DLN+14!, DLN+17!
ZSP( DLN+14*, DLN+17*
ZX GETRCPT+2~, GETRCPT+3*, DLN+4~, DLN+13*, DLN+16*, DLN+22*, DLN+23, DLN+25, DLN+26
ZXL DLN+4~, DLN+13*, DLN+14, DLN+16*, DLN+17
ZY GETRCPT+2~
ZZ EEOB+1~, EEOB+4*, EEOB+5, EEOB+6, EEOB+9, RESORT+4~*, RESORT+5*, RESORT+6, RESORT+7, RESORT+8
, RESORT+9, GETRCPT+2~, GETRCPT+3*
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