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

Package: Integrated Billing

Routine: IBCEM4


Information

IBCEM4 ;ALB/TMP - IB ELECTRONIC MESSAGE SCREEN TEXT MAINT ;19-APR-2001

Source Information

Source file <IBCEM4.m>

Entry Points

Name Comments DBIA/ICR reference
EN ; entry point for maintenance
HDR ; Header code
INIT ; Build list of text entries
EXIT ; -- Clean up list
SET(Z,Z0) ; Set data into display global
EDIT ; Add/edit message text
CKREVU(IBTEXT,IBNR,IBSKIP,IBREV) ; Check IBTEXT contains 'no review
; needed' text
; IBNR = returned if passed by reference - 'no review needed' text found
; IBSKIP = 1 if no check needed for 'always review'
; IBREV = returned if passed by reference and 'review always needed'
; text found
REPORT ; Produce a report of messages filed without review by user-selected
; date range for date received and sort by either bill# or message text
R1
R2
ENRPT ; Queued job entrypoint
ENSTOP
RHDR(IBSB,IBSTOP) ; Report header
; IBSB'="" if sub header should print
RHDRQ
STOP(IBSTOP,IBREQ) ; Check for job being stopped

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+5
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: !
  • Line Location: EDIT+9
Function Call: WRITE
  • Prompt: " ",$G(Y(0))
  • Line Location: R1+2
Function Call: WRITE
  • Prompt: !
  • Line Location: R2+2
Function Call: WRITE
  • Prompt: " ",$G(Y(0))
  • Line Location: R2+3
Function Call: WRITE
  • Prompt: !
  • Line Location: R2+6
Function Call: WRITE
  • Prompt: !!,IBSB,!
  • Line Location: ENRPT+21
Function Call: WRITE
  • Prompt: !,"*********** REPORT STOPPED BEFORE IT COMPLETED!!! ***********"
  • Line Location: ENRPT+23
Function Call: WRITE
  • Prompt: !,$E($$BN1^PRCAFN(+IB0)_$J("",10),1,10)," ",$E($P($G(^DPT(+$P(IB00,U,2),0)),U)_$J("",25),1,25)_" "_$E($$FMTE^XLFDT($P(IB00,U,3),"2D")_$J("",8),1,8)_" "_$E($$FMTE^XLFDT($P(IB0,U,2),"2D")_$J("",8),1,8)_" "
  • Line Location: ENRPT+26
Function Call: WRITE
  • Prompt: $E($P($G(^DIC(36,+$$POLICY^IBCEF(+IB0,1,$P(IB0,U,7)),0)),U),1,20)
  • Line Location: ENRPT+27
Function Call: WRITE
  • Prompt: !,?5,$E(Z0,Z1,Z1+74)
  • Line Location: ENRPT+33
Function Call: WRITE
  • Prompt: !,"NO RECORDS MATCHING SEARCH CRITERIA WERE FOUND",!
  • Line Location: ENRPT+35
Function Call: WRITE
  • Prompt: !,@IOF
  • Line Location: RHDR+5
Function Call: WRITE
  • Prompt: !,?22,"MESSAGES FILED WITHOUT REVIEW REPORT",?65,"PAGE: ",IBPAGE
  • Line Location: RHDR+6
Function Call: WRITE
  • Prompt: !,?(80-$L(Z)\2),Z
  • Line Location: RHDR+7
Function Call: WRITE
  • Prompt: !,?(80-$L(Z)\2),Z,!
  • Line Location: RHDR+8
Function Call: WRITE
  • Prompt: !,$J("",40),"EVENT DATE"
  • Line Location: RHDR+9
Function Call: WRITE
  • Prompt: !,"BILL # PATIENT NAME"_$J("",15)_" DATE RECEIVED INSURANCE CO",!
  • Line Location: RHDR+10
Function Call: WRITE
  • Prompt: Z
  • Line Location: RHDR+11
Function Call: WRITE
  • Prompt: !,IBSB,!
  • Line Location: RHDR+13

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(361.3 - [#361.3] Classic Fileman Calls
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call