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

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

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
Info |  Source |  Entry Points |  Interaction Calls