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 |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: IBJTPE

Package: Integrated Billing

Routine: IBJTPE


Information

IBJTPE ;ALB/TJB - TP ERA/835 PRINT EEOB INFORMATIN SCREEN ;20-MAY-2015

Source Information

Source file <IBJTPE.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for IBJT 835 EEOB PRINT
HDR ; -- header code
INIT ; -- init variables and list array
; Array IBEBERA (From IBJTEP) contains the the EEOBs for this KBILL
IN1 ;
IN2 ;
; EPBILL is from IBJTEP and will be cleaned up there
IND
INITQ ;
HELP ; -- help code
EXIT ; -- exit code
EXPND ; -- expand code
EOBALL ; Entry point to print all ERAs and all EOBs
EOBOUT ; Entry for either queued or screen print of EEOB
EBO ; Display the EOB DATA for IBEIEN
SET(DATA,NEW) ;
RHDR(IBSCR,IBDT,IBPG) ;Prints EOB detail report heading
; IBSCR - IEN of the ERA; IBDT - Report Date; IBPG - page #, passed by reference.
NEWPG(IBPG,IBNEW,IBSL,IBSCR) ; Check for new page needed, output header
; IBPG = Page number passwd by referece
; IBNEW = 1 to force new page
; IBSL = page length passed by reference
; Function returns 1 if user chooses to stop output
ASK(IBSTOP) ; User if you want to quit or continue
HDRP(Z,X,Z1) ; Print Header (Z=String, X=1 (line feed) X=0 (no LF), Z1 (page number right justified)

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,"No ERA Information for Bill: "_EPBILL
  • Line Location: IN1+3
Function Call: WRITE
  • Prompt: !!,"ERA: "_Y_" not a valid selection. Please try again...",!
  • Line Location: IN1+13
Function Call: WRITE
  • Prompt: !!,$S($D(ZTSK):"Your task number "_ZTSK_" has been queued.",1:"Unable to queue this job.")
  • Line Location: IND+5
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: DATA,!
  • Line Location: SET+2
Function Call: WRITE
  • Prompt: @IOF,*13
  • Line Location: RHDR+4
Function Call: WRITE
  • Prompt: !,$TR($J("",IOM)," ","="),!
  • Line Location: RHDR+10
Function Call: WRITE
  • Prompt: @IOF
  • Line Location: NEWPG+8
Function Call: WRITE
  • Prompt: !
  • Line Location: ASK+4
Function Call: WRITE
  • Prompt: !
  • Line Location: HDRP+1
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z)\2),Z
  • Line Location: HDRP+2
Function Call: WRITE
  • Prompt: ?(IOM-$L(Z1)),Z1
  • Condition for execution: $G(Z1)]""
  • Line Location: HDRP+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^RCY(344.4 - [#344.4] GETS^DIQ
^RC(345 - [#345] FIND1^DIC,  GET1^DIQ
^RC(346 - [#346] FIND1^DIC,  GET1^DIQ
^IBM(361.1 - [#361.1] GET1^DIQ,  GETS^DIQ
^DGCR(399 - [#399] GETS^DIQ
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call