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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 14

Package Total Call Graph
Kernel 5 (,HOME)^%ZIS  ^%ZISC  (,$$S)^%ZTLOAD  ($$FMTE,$$NOW)^XLFDT  $$UP^XLFSTR  
VA FileMan 4 ^DIC  ^DIE  EN^DIQ  ^DIR  
List Manager 3 EN^VALM  ($$SETFLD,FULL)^VALM1  (CLEAN,CNTRL)^VALM10  
Accounts Receivable 1 $$BN1^PRCAFN  
Integrated Billing 1 $$POLICY^IBCEF  

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

Package Total Caller Graph
Integrated Billing 7 IBCE MESSAGE SCREEN TEXT  IBCE MESSAGE SCREEN TEXT EDIT  IBCE MESSAGE TEXT MAIN  IBCEM MESSAGES WITHOUT REVIEW  IBCEST  IBY283PO  IBY368PO  
Kernel 1 ^ORD(101  

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

External References

Name Field # of Occurrence
^%ZIS R2+8
HOME^%ZIS R2+9
^%ZISC ENSTOP
^%ZTLOAD R2+9
$$S^%ZTLOAD STOP+1
^DIC EDIT+5
^DIE EDIT+10, EDIT+12
EN^DIQ EDIT+9
^DIR R1, R2, R2+4, ENRPT+37, RHDR+4
$$POLICY^IBCEF ENRPT+27
$$BN1^PRCAFN ENRPT+26
EN^VALM EN+1
$$SETFLD^VALM1 SET+7
FULL^VALM1 EDIT+2
CLEAN^VALM10 EXIT+2
CNTRL^VALM10 SET+10
$$FMTE^XLFDT ENRPT+13, ENRPT+26, RHDR+8
$$NOW^XLFDT ENRPT+13
$$UP^XLFSTR CKREVU+8, CKREVU+9, CKREVU+10

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
Routine Call
  • %ZIS
  • Line Location:
    • R2+8
Routine Call
  • %ZIS
  • Line Location:
    • R2+9
Routine Call
  • DIC
  • Line Location:
    • EDIT+5
Routine Call
  • DIE
  • Line Location:
    • EDIT+10
    • EDIT+12
Routine Call
  • DIR
  • Line Location:
    • R1
    • R2
    • R2+4
    • ENRPT+37
    • RHDR+4
Routine Call
  • VALM
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBE(361.3 - [#361.3] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] ENRPT+11, ENRPT+24
^DIC(36 - [#36] ENRPT+27
^DPT - [#2] ENRPT+26
^IBE(361.3 - [#361.3] INIT+4, EDIT+11, EDIT+12, CKREVU+9, CKREVU+10
^IBM(361 - [#361] ENRPT+5, ENRPT+9, ENRPT+30, ENRPT+32
^TMP("IBCEMSGT" INIT+3!, EXIT+1!, SET+8*, SET+9*
^TMP($J ENRPT+3!, ENRPT+12*, ENRPT+15, ENRPT+22, ENRPT+24, ENSTOP+2!

Label References

Name Line Occurrences
$$CKREVU ENRPT+9
$$STOP ENRPT+6, ENRPT+23
ENSTOP ENRPT+34
INIT EDIT+13
R1 R2+2
R2 R2+6
RHDR ENRPT+18, ENRPT+20, ENRPT+25, ENRPT+29, ENRPT+33, ENRPT+35
RHDRQ RHDR+4
SET INIT+4, SET+6

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> %ZIS R2+8*
DA EDIT+1~, EDIT+9*, EDIT+10*, REPORT+2~
DIC EDIT+1~, EDIT+5*, EDIT+9*
DIC("DR" EDIT+5*
DIC(0 EDIT+5*
DIE EDIT+1~, EDIT+10*, EDIT+12*
DIR EDIT+1~, REPORT+2~, R1!, R2!, R2+4!, ENRPT+1~, ENRPT+37!, RHDR+2~, RHDR+4!
DIR("A" R1*, R2*, R2+4*
DIR("B" R2+4*
DIR(0 R1*, R2*, R2+4*, ENRPT+37*, RHDR+4*
DLAYGO EDIT+1~, EDIT+5*
DR EDIT+1~, EDIT+10*, EDIT+12*, REPORT+2~
DT R1, R2
>> DTOUT R1+1, R2+1, R2+5, RHDR+4
>> DUOUT R1+1, R2+1, R2+5, RHDR+4
DUZ EDIT+12
IB SET+1~, SET+2*, SET+5*, SET+10, ENRPT+1~, ENRPT+4*, ENRPT+5*, ENRPT+15*, ENRPT+16, ENRPT+22
, ENRPT+24
IB0 ENRPT+1~, ENRPT+5*, ENRPT+11, ENRPT+12, ENRPT+24*, ENRPT+26, ENRPT+27
IB00 ENRPT+1~, ENRPT+24*, ENRPT+26
IB1 ENRPT+1~, ENRPT+15*, ENRPT+18, ENRPT+19, ENRPT+22*, ENRPT+35
>> IBCNT INIT+2*, SET+2*, SET+9
IBDA ENRPT+1~, ENRPT+5*, ENRPT+9, ENRPT+12, ENRPT+22*, ENRPT+24, ENRPT+30, ENRPT+32
IBFR REPORT+2~, R1+2*, R2, ENRPT+4, RHDR+8
IBHDRDT ENRPT+1~, ENRPT+13*, RHDR+7
IBLINES ENRPT+1~, ENRPT+14*, ENRPT+20, ENRPT+21*, ENRPT+25, ENRPT+28*, ENRPT+29, ENRPT+33*, RHDR+12*, RHDR+13*
IBNR CKREVU~, CKREVU+10*
IBPAGE ENRPT+1~, ENRPT+14*, RHDR+3*, RHDR+4, RHDR+6
IBREQ STOP~, STOP+1!
IBREV CKREVU~, CKREVU+8*, CKREVU+9*, CKREVU+10
IBS1 ENRPT+1~, ENRPT+7*, ENRPT+9, ENRPT+10*, ENRPT+11*, ENRPT+12
IBSB ENRPT+1~, ENRPT+16*, ENRPT+17*, ENRPT+18, ENRPT+20, ENRPT+21, RHDR~, RHDR+13
IBSKIP CKREVU~, CKREVU+9
IBSORT REPORT+2~, R2+7*, ENRPT+8, ENRPT+11, ENRPT+16, ENRPT+19
IBSTOP EDIT+1~, EDIT+3*, EDIT+4, EDIT+7*, ENRPT+1~, ENRPT+14*, ENRPT+15, ENRPT+18, ENRPT+19, ENRPT+20
, ENRPT+22, ENRPT+25, ENRPT+29, ENRPT+30, ENRPT+33, ENRPT+34, RHDR~, RHDR+4*, STOP~, STOP+1*
, STOP+2
IBTEXT CKREVU~, CKREVU+8*, CKREVU+9, CKREVU+10
IBTO REPORT+2~, R2+3*, RHDR+8
IBUPD EDIT+1~, EDIT+3*, EDIT+8*, EDIT+11*, EDIT+12*, EDIT+13
IBY EDIT+1~, EDIT+6*, EDIT+7, EDIT+8, EDIT+9, EDIT+10, EDIT+11, EDIT+12
IO R2+10
IO("Q" R2+9!
IOF ENRPT+2, RHDR+5
>> IORVOFF SET+10
>> IORVON SET+10
IOSL ENRPT+20, ENRPT+25, ENRPT+29, ENRPT+33
IOST ENRPT+2, ENRPT+37, RHDR+4
>> POP R2+8
T CKREVU+7~
U EDIT+8, EDIT+12, ENRPT+5, ENRPT+11, ENRPT+26, ENRPT+27
>> VALMBCK EDIT+14*
>> VALMBG INIT+2*
>> VALMCNT INIT+2*, SET+8*, SET+9, SET+10
VALMHDR HDR+1!
X SET+1~, SET+2*, SET+7*, SET+8, EDIT+1~, REPORT+2~, ENRPT+1~, RHDR+2~
Y EDIT+1~, EDIT+6, CKREVU+7~, CKREVU+8*, CKREVU+10*, CKREVU+11, REPORT+2~, R1+2, R2+2, R2+3
, R2+6, R2+7, ENRPT+1~, RHDR+2~
Y(0 R1+2, R2+3
Z INIT+1~, INIT+4*, SET~, SET+5, SET+6, CKREVU+7~, CKREVU+8*, CKREVU+9*, CKREVU+10*, ENRPT+1~
, ENRPT+9*, ENRPT+30*, ENRPT+32, RHDR+2~, RHDR+7*, RHDR+8*, RHDR+11*
Z0 INIT+1~, INIT+4*, SET~, SET+3*, SET+4, SET+5*, SET+7, SET+10, CKREVU+7~, ENRPT+31~
, ENRPT+32*, ENRPT+33
Z1 ENRPT+31~, ENRPT+33*
ZTDESC REPORT+2~, R2+9*
>> ZTQUEUED ENRPT+6, ENRPT+23, ENSTOP, ENSTOP+1
ZTREQ REPORT+2~, ENRPT+6, ENRPT+23, ENSTOP+1*
ZTRTN REPORT+2~, R2+9*
ZTSAVE REPORT+2~
ZTSAVE("IB*" R2+9*
ZTSK R2+9!
>> ZTSTOP ENRPT+5, ENRPT+6, ENRPT+15, ENRPT+22, ENRPT+23, ENRPT+34, ENSTOP+1
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All