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 |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCEPTC

Package: Integrated Billing

Routine: IBCEPTC


Information

IBCEPTC ;ALB/TMK - EDI PREVIOUSLY TRANSMITTED CLAIMS ; 4/12/05 11:15am

Source Information

Source file <IBCEPTC.m>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  $$PROD^XUPROD  
Integrated Billing 2 (LIST,LOC)^IBCEPTC0  RESUB^IBCEPTC3  
VA FileMan 2 MIX^DIC1  ^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 IBCE PREV TRANSMITTED CLAIMS  IBCEPTC3  

Entry Points

Name Comments DBIA/ICR reference
EN ; Main entrypoint
; IBDT1,IBDT2 = last transmit date range to use
; IBSORT = primary sort criteria to use B=BATCH #,I=INS CO NAME
; IBFORM = form type to limit selection to U=UB-04,C=CMS-1500,J=J430D, OR A=ALL
; IBCRIT = the additional sort criteria needed
; IBPTCCAN = whether or not to include cancelled claims
; IBRCBFPC = whether or not to include force print @ clearinghouse
; ^TMP("IB_PREV_CLAIM_INS",$J) = 1 for specific ins co/null for all
; ^($J,1,ien)="" for ien of each ins co selected
; ^($J,2,payer ID,ien)="" if selected
; IBREP = format output should be put in R=report,S=Listman
Q1 ;
Q1A
Q2 ;; JWS;IB*2.0*592 US1108 - Dental EDI 837D / form J430D
Q3 ;WCJ;IB665;start;allow times
Q3ED ; go to date
Q4 ; Additional selection criteria
Q41 ; Ask user if they want to include cancelled claims
Q42 ; Include claims that are forced to print at clearinghouse?
Q5
Q6
Q7 ; Select device
ENQ
DEVSEL(IBACT) ;
DEVSELQ
SELDSP(IBHOW) ; Display list of selected claims/batches
; IBHOW = "C" for claims "B" for batches
SCRN(Y) ; JWS;IB*2.0*641; added SCRN label to screen $$PROD^XUPROD(1) to allow more claim selections in non-prod environments

External References

Name Field # of Occurrence
^%ZIS DEVSEL+3
HOME^%ZIS DEVSEL+11
^%ZTLOAD DEVSEL+11
MIX^DIC1 Q1A+26
^DIR EN+22, Q1+7, Q1+24, Q1A+3, Q1A+11, Q2+4, Q3+8, Q3ED+11, Q4+14, Q41+2
, Q42+2, Q5+4, Q6+3, DEVSEL+6, SELDSP+10
LIST^IBCEPTC0 Q6+10, Q7+5
LOC^IBCEPTC0 Q6+8, Q7+6
RESUB^IBCEPTC3 Q1+36
$$FMADD^XLFDT Q3ED+1
$$FMTE^XLFDT Q3ED+8, Q3ED+10
$$UP^XLFSTR Q1A+32
$$PROD^XUPROD SCRN+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** Please Note ***"
  • Line Location: EN+16
Function Call: WRITE
  • Prompt: ?20,"2 '^' are needed to abort this option (^^)"
  • Line Location: EN+17
Function Call: WRITE
  • Prompt: !?20,"1 '^' brings you back to the previous prompt (^)"
  • Line Location: EN+18
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+19
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1+1
Function Call: WRITE
  • Prompt: !,"Previously printed claims to a payer that does not accept EDI are omitted."
  • Line Location: Q1+10
Function Call: WRITE
  • Prompt: !!,"PAYER SELECTION:"
  • Line Location: Q1A+3
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1A+10
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1A+15
Function Call: WRITE
  • Prompt: !
  • Line Location: Q1A+29
Function Call: WRITE
  • Prompt: *7,!!?3,"No payers have been selected. Please try again."
  • Line Location: Q1A+41
Function Call: WRITE
  • Prompt: !!,"BILL FORM TYPE SELECTION:"
  • Line Location: Q2+4
Function Call: WRITE
  • Prompt: !!,$S(IBLOC:"FIRST PRINT",1:"LAST BATCH TRANSMIT")_" DATE RANGE SELECTION:"
  • Line Location: Q3+8
Function Call: WRITE
  • Prompt: !!,"'Go to Date' must be after 'Start with Date'",!
  • Line Location: Q3ED+14
Function Call: WRITE
  • Prompt: !
  • Line Location: Q4+14
Function Call: WRITE
  • Prompt: !
  • Line Location: Q41+2
Function Call: WRITE
  • Prompt: !
  • Line Location: Q42+2
Function Call: WRITE
  • Prompt: !
  • Line Location: Q5+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q6+3
Function Call: WRITE
  • Prompt: !!,"You will need a 132 column printer for this report!"
  • Line Location: DEVSEL+2
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVSEL+6
Function Call: WRITE
  • Prompt: !
  • Line Location: DEVSEL+7
Function Call: WRITE
  • Prompt: !!,$S(IBHOW="C":"Claims",1:"Batches")," Already Selected:"
  • Line Location: SELDSP+5
Function Call: WRITE
  • Prompt: !,?3,$P($G(^DGCR(399,Z,0)),U)
  • Line Location: SELDSP+7
Function Call: WRITE
  • Prompt: !,?3,$P($G(^IBA(364.1,Z,0)),U)," ",$P(^(0),U,3)," Claims"
  • Line Location: SELDSP+8
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDSP+10
Function Call: WRITE
  • Prompt: !
  • Line Location: SELDSP+11
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+3
Routine Call
  • %ZIS
  • Line Location:
    • DEVSEL+11
Routine Call
  • DIR
  • Line Location:
    • EN+22
    • Q1+7
    • Q1+24
    • Q1A+3
    • Q1A+11
    • Q2+4
    • Q3+8
    • Q3ED+11
    • Q4+14
    • Q41+2
    • Q42+2
    • Q5+4
    • Q6+3
    • DEVSEL+6
    • SELDSP+10

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SELDSP+7
^DIC(36 - [#36] Q1A+32
^IBA(364 - [#364] Q1+34, SCRN+1, SCRN+2
^IBA(364.1 - [#364.1] SELDSP+8
^TMP("IB_PREV_CLAIM_INS" Q1A!, Q1A+7*, Q1A+17*, Q1A+23, Q1A+30*, Q1A+34*, Q1A+35*, Q1A+40, ENQ!
^TMP("IB_PREV_CLAIM_SELECT" Q1+32*, Q1+34, Q1+35*, ENQ!
^TMP($J Q1+14!, Q1+27*, Q1+30, Q1+32, Q1+33, SELDSP+3, SELDSP+6, SELDSP+10

Label References

Name Line Occurrences
DEVSEL Q7+1
DEVSELQ DEVSEL+3, DEVSEL+4, DEVSEL+8
ENQ EN+23, Q1+8, Q1+29, Q1+37, Q1A+4, Q1A+12, Q1A+38, Q2+5, Q3+9, Q3ED+12
, Q4+15, Q41+3, Q42+3, Q5+5, Q6+4, Q6+8, Q6+10, Q7+2
Q1 Q1+30, Q1A+5
Q1A Q1+11, Q1A+13, Q1A+40, Q2+6
Q2 Q1A+7, Q3+10
Q3 Q3ED+13, Q4+16
Q3ED Q3ED+14
Q4 Q41+4
Q41 Q42+4
Q42 Q5+6
Q5 Q6+5
Q6 Q41+7

Naked Globals

Name Field # of Occurrence
^( SELDSP+6
^(0 Q1+34*, SELDSP+8, SCRN+1, SCRN+2

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
%ZIS EN+13~, DEVSEL+3*
CT SELDSP+2~, SELDSP+4*, SELDSP+9*, SELDSP+10
D Q1A+26~*!
DIC EN+12~, Q1A+22*, Q1A+26!
DIC("A" Q1A+22*, Q1A+23*
DIC("W" Q1A+24*
DIC(0 Q1A+22*
DIR EN+12~, EN+22!, Q1+7!, Q1+24!, Q1A+3!, Q1A+11!, Q2+4!, Q3+8!, Q3ED+11!, Q4+14!
, Q41+2!, Q42+2!, Q5+4!, Q6+3!, DEVSEL+1~, DEVSEL+6!, SELDSP+2~, SELDSP+10!
DIR("?" Q1+22*, Q3+4*, Q3+5*, Q3+6*, Q3+7*, Q3ED+4*, Q3ED+5*, Q3ED+6*, Q3ED+7*, Q4+13*
DIR("A" EN+21*, Q1+5*, Q1+19*, Q1+20*, Q1+21*, Q1A+2*, Q1A+11*, Q2+3*, Q3+3*, Q3ED+10*
, Q4+5*, Q4+8*, Q4+9*, Q4+11*, Q41+1*, Q42+1*, Q5+3*, Q6+1*, DEVSEL+5*, SELDSP+10*
DIR("B" EN+21*, Q1+5*, Q1A+2*, Q1A+11*, Q2+2*, Q3ED+8*, Q41+1*, Q42+1*, Q5+2*, Q6+2*
, DEVSEL+5*
DIR("L" Q5*, Q5+1*
DIR("S" Q1+19*, Q1+20*, Q1+21*
DIR(0 EN+21*, Q1+5*, Q1+19*, Q1+20*, Q1+21*, Q1+23*, Q1A+1*, Q1A+11*, Q2+2*, Q3+2*
, Q3ED+9*, Q4+3*, Q4+4*, Q41+1*, Q42+1*, Q5+2*, Q6*, DEVSEL+5*, SELDSP+10*
DIROUT EN+14~, Q1A+12
DIRUT EN+14~, Q1A+13, Q41+4, Q42+4
DT Q3ED+3
DTOUT EN+13~, EN+14~, EN+23, Q1+8, Q1A+5, Q2+6, Q3+10, Q3ED+13, Q4+16, Q5+6
, Q6+5, SELDSP+10
DUOUT EN+13~, EN+14~, EN+23, Q1+8, Q1A+5, Q2+6, Q3+10, Q3ED+13, Q4+16, Q5+6
, Q6+5, SELDSP+10
EDI EN+14~, Q1A+32*, Q1A+33
IBACT EN+12~, Q7+1*, Q7+2, DEVSEL~, DEVSEL+3*, DEVSEL+4*, DEVSEL+8*, DEVSEL+12*
IBCRIT EN+12~, Q4+17*
IBCT EN+12~, Q1+13*, Q1+19, Q1+20, Q1+21, Q1+23, Q1+27*, Q1+33*, Q1+34*, Q1+35
IBDT1 EN+12~, Q3+11*, Q3ED+1, Q3ED+9, Q3ED+10, Q3ED+14
IBDT2 EN+12~, Q3ED+1*, Q3ED+2*, Q3ED+3*, Q3ED+8, Q3ED+9, Q3ED+10, Q3ED+16*
>> IBDTSAME Q3+1*
IBFORM EN+13~, Q2+7*
IBHOW EN+12~, Q1+9*, Q1+11, Q1+14, Q1+19, Q1+20, Q1+21, Q1+26, Q1+27, Q1+30
, Q1+32, Q1+33, SELDSP~, SELDSP+3, SELDSP+5, SELDSP+6, SELDSP+7, SELDSP+10
IBLOC EN+12~, EN+25*, Q1+10, Q1+19, Q1+20, Q1+26, Q3+3, Q3+5, Q3+8, Q3ED+5
, Q3ED+10, Q4+4, Q4+7, Q4+11, Q41+7, Q6+8, Q6+10, Q7+5, Q7+6
IBOK EN+13~, DEVSEL+4*, DEVSEL+7*
IBPAYER EN+14~, Q1A+14*, Q1A+31
IBPTCCAN EN+14~, Q41+5*
IBQUIT EN+13~, Q1+13*, Q1+15, Q1+25*, Q1+29, Q1+30, Q1A+18*, Q1A+19, Q1A+27*, Q1A+28*
, Q1A+38
IBRCBFPC EN+14~, Q41+7*, Q42+5*
IBREP EN+12~, Q6+6*, Q6+8, Q6+10
IBSORT EN+13~, Q41+7*, Q5+7*
IBY EN+13~, Q1+26*, Q1+27
INST EN+14~, Q1A+33*, Q1A+35
IO Q7+3
IO("Q" DEVSEL+8, DEVSEL+9!
IOM DEVSEL+4, DEVSEL+5
POP EN+14~, DEVSEL+1~, DEVSEL+3
PROF EN+14~, Q1A+33*, Q1A+34
QUIT SELDSP+2~, SELDSP+4*, SELDSP+6, SELDSP+10*
U Q1+23, Q1A+33, SELDSP+7, SELDSP+8, SCRN+2
X EN+12~, Q1+25, Q1A+4, Q1A+27, Q2+5, Q3+9, Q3ED+12, Q4+15, Q41+3, Q42+3
, Q5+5, Q6+4, DEVSEL+1~
Y EN+12~, EN+25, Q1+9, Q1+25, Q1+26*, Q1+27, Q1A+7, Q1A+14, Q1A+28, Q1A+30
, Q1A+32, Q1A+34, Q1A+35, Q2+7, Q3+11, Q3ED+14, Q3ED+16, Q4+17, Q41+5, Q42+5
, Q5+7, Q6+6, DEVSEL+1~, DEVSEL+7, SCRN~, SCRN+1, SCRN+2
Y(0 Q1+26
Z EN+12~, Q1+31*, Q1+32*, Q1+33*, Q1+34, SELDSP+2~, SELDSP+6*, SELDSP+7, SELDSP+8, SELDSP+10
Z0 EN+12~, Q1+34*, SELDSP+6*
Z1 EN+12~, Q1+34*
ZTDESC EN+13~, DEVSEL+10*
ZTRTN EN+13~, DEVSEL+1~, DEVSEL+10*
ZTSAVE EN+13~, DEVSEL+1~
ZTSAVE("IB*" DEVSEL+10*
ZTSAVE("IBCRIT(" DEVSEL+10*
ZTSAVE("^TMP(""IB_PREV_CLAIM_INS"",$J)" DEVSEL+10*
ZTSAVE("^TMP(""IB_PREV_CLAIM_INS"",$J," DEVSEL+10*
ZTSK DEVSEL+11!
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All