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

Package Total Call Graph
Kernel 4 (,HOME)^%ZIS  ^%ZTLOAD  ($$FMADD,$$FMTE)^XLFDT  $$UP^XLFSTR  
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
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

External References

Name Field # of Occurrence
^%ZIS DEVSEL+3
HOME^%ZIS DEVSEL+11
^%ZTLOAD DEVSEL+11
MIX^DIC1 Q1A+26
^DIR EN+22, Q1+4, Q1+21, Q1A+3, Q1A+11, Q2+4, Q3+4, Q3+11, Q4+5, 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+33
$$FMADD^XLFDT Q3+8
$$FMTE^XLFDT Q3+10, Q3+11
$$UP^XLFSTR Q1A+32

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+7
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+4
Function Call: WRITE
  • Prompt: !
  • Line Location: Q4+5
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+4
    • Q1+21
    • Q1A+3
    • Q1A+11
    • Q2+4
    • Q3+4
    • Q3+11
    • Q4+5
    • 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+31
^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+29*, Q1+31, Q1+32*, ENQ!
^TMP($J Q1+11!, Q1+24*, Q1+27, Q1+29, Q1+30, 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+5, Q1+26, Q1+34, Q1A+4, Q1A+12, Q1A+38, Q2+5, Q3+5, Q3+12
Q4+6, Q41+3, Q42+3, Q5+5, Q6+4, Q6+8, Q6+10, Q7+2
Q1 Q1+27, Q1A+5
Q1A Q1+8, Q1A+13, Q1A+40, Q2+6
Q2 Q1A+7, Q3+6
Q3 Q3+13, Q4+7
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+31*, SELDSP+8

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+4!, Q1+21!, Q1A+3!, Q1A+11!, Q2+4!, Q3+4!, Q3+11!, Q4+5!
Q41+2!, Q42+2!, Q5+4!, Q6+3!, DEVSEL+1~, DEVSEL+6!, SELDSP+2~, SELDSP+10!
DIR("?" Q1+19*, Q3+2*, Q3+9*, Q4+4*
DIR("A" EN+21*, Q1+3*, Q1+16*, Q1+17*, Q1+18*, Q1A+2*, Q1A+11*, Q2+3*, Q3*, Q3+11*
Q4+2*, Q4+3*, Q41+1*, Q42+1*, Q5+3*, Q6+1*, DEVSEL+5*, SELDSP+10*
DIR("B" EN+21*, Q1+3*, Q1A+2*, Q1A+11*, Q2+2*, Q3+10*, Q41+1*, Q42+1*, Q5+2*, Q6+2*
, DEVSEL+5*
DIR("L" Q5*, Q5+1*
DIR("S" Q1+16*, Q1+17*, Q1+18*
DIR(0 EN+21*, Q1+3*, Q1+16*, Q1+17*, Q1+18*, Q1+20*, Q1A+1*, Q1A+11*, Q2+2*, Q3*
Q3+10*, Q4+1*, 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 Q3+8
DTOUT EN+13~, EN+14~, EN+23, Q1+5, Q1A+5, Q2+6, Q3+6, Q3+13, Q4+7, Q5+6
Q6+5, SELDSP+10
DUOUT EN+13~, EN+14~, EN+23, Q1+5, Q1A+5, Q2+6, Q3+6, Q3+13, Q4+7, 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+8*
IBCT EN+12~, Q1+10*, Q1+16, Q1+17, Q1+18, Q1+20, Q1+24*, Q1+30*, Q1+31*, Q1+32
IBDT1 EN+12~, Q3+7*, Q3+8, Q3+10, Q3+11
IBDT2 EN+12~, Q3+8*, Q3+10, Q3+11, Q3+14*
IBFORM EN+13~, Q2+7*
IBHOW EN+12~, Q1+6*, Q1+8, Q1+11, Q1+16, Q1+17, Q1+18, Q1+23, Q1+24, Q1+27
Q1+29, Q1+30, SELDSP~, SELDSP+3, SELDSP+5, SELDSP+6, SELDSP+7, SELDSP+10
IBLOC EN+12~, EN+25*, Q1+3, Q1+7, Q1+16, Q1+17, Q1+23, Q3Q3+2, Q3+4
Q3+9, Q3+11, Q4+3, 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+10*, Q1+12, Q1+22*, Q1+26, Q1+27, 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+23*, Q1+24
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+20, Q1A+33, SELDSP+7, SELDSP+8
X EN+12~, Q1+22, Q1A+4, Q1A+27, Q2+5, Q3+5, Q3+12, Q4+6, Q41+3, Q42+3
Q5+5, Q6+4, DEVSEL+1~
Y EN+12~, EN+25, Q1+6, Q1+22, Q1+23*, Q1+24, Q1A+7, Q1A+14, Q1A+28, Q1A+30
Q1A+32, Q1A+34, Q1A+35, Q2+7, Q3+7, Q3+14, Q4+8, Q41+5, Q42+5, Q5+7
Q6+6, DEVSEL+1~, DEVSEL+7
Y(0 Q1+23
Z EN+12~, Q1+28*, Q1+29*, Q1+30*, Q1+31, SELDSP+2~, SELDSP+6*, SELDSP+7, SELDSP+8, SELDSP+10
Z0 EN+12~, Q1+31*, SELDSP+6*
Z1 EN+12~, Q1+31*
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