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 |  Naked Globals |  Local Variables  | All
Print Page as PDF
Routine: IBCECOB4

Package: Integrated Billing

Routine: IBCECOB4


Information

IBCECOB4 ;ALB/CXW - IB EM MANAGEMENT - REVIEW STATUS SCREEN ;16-MAY-2000

Source Information

Source file <IBCECOB4.m>

Call Graph

Call Graph

Call Graph Total: 15

Package Total Call Graph
Integrated Billing 5 UPDEDI^IBCEM  $$GETSPEC^IBEFUNC  $$TYPE^IBJTLA1  $$DAT1^IBOUTL  $$EXPAND^IBTRE  
VA FileMan 4 FILE^DICN  (,WP)^DIE  ^DIK  ^DIR  
List Manager 3 EN^VALM  ($$SETFLD,$$SETSTR,FULL,PAUSE)^VALM1  CLEAN^VALM10  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  DISP^XQORM1  
Accounts Receivable 1 $$BN1^PRCAFN  

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

Package Total Caller Graph
Integrated Billing 1 IBCEM COB REVIEW STATUS  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- main entry point for claims status awaiting resolution detail
HDR ; -- header code
INIT ; -- init variables and list array
SCR
INITQ
HELP ; -- help code
EXIT ; -- exit code
SET(X) ;
STATUS ; Edit review status
STATUSQ ;
ADDCOM(IBDA,DUZ,IBCOM,ADD) ; Add review comment to file 361.1
; IBDA = array containing the DA references for the file add -
; pass by reference
; DUZ = ien of the user
; ADD = flag when set to 1 says the review date exists,
; just allow comment entry
; Returns IBDA = the entry # of the comment
; and IBCOM array referencing any comments added by the user
KILLREV(IBDA) ; Deletes a review date if no comments entered

External References

Name Field # of Occurrence
FILE^DICN STATUS+43, ADDCOM+17
^DIE STATUS+11, STATUS+24, STATUS+30, ADDCOM+20
WP^DIE STATUS+46
^DIK KILLREV+4
^DIR STATUS+35
UPDEDI^IBCEM STATUS+37
$$GETSPEC^IBEFUNC STATUS+42, ADDCOM+16
$$TYPE^IBJTLA1 SCR+12
$$DAT1^IBOUTL SCR+8
$$EXPAND^IBTRE SCR+15, STATUS+45
$$BN1^PRCAFN SCR+7
EN^VALM EN+2
$$SETFLD^VALM1 SCR+7, SCR+8, SCR+9, SCR+10, SCR+12
$$SETSTR^VALM1 SCR+15, SCR+17, SCR+19
FULL^VALM1 STATUS+3
PAUSE^VALM1 STATUSQ+1
CLEAN^VALM10 EXIT+2
$$FMTE^XLFDT ADDCOM+14
$$NOW^XLFDT STATUS+41, ADDCOM+13
DISP^XQORM1 HELP+1

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!
  • Line Location: HELP+1
Function Call: WRITE
  • Prompt: !,"Sorry, another user currently editing this entry (#"_IBDA_")."
  • Line Location: STATUS+10
Function Call: WRITE
  • Prompt: !,"Since FILED - NO ACTION final status was selected, you must enter a",!," comment explaining the FILED - NO ACTION"
  • Line Location: STATUS+20
Function Call: WRITE
  • Prompt: !,"The review status was not changed because no comment was entered",!
  • Line Location: STATUS+24
Function Call: WRITE
  • Prompt: !,"The review status was not changed because no final status was selected"
  • Line Location: STATUS+29
Function Call: WRITE
  • Prompt: !,"New Review Date: "_$$FMTE^XLFDT(X,2)
  • Line Location: ADDCOM+14
Routine Call
  • DIE
  • Line Location:
    • STATUS+11
    • STATUS+24
    • STATUS+30
    • ADDCOM+20
Routine Call
  • DIE
  • Line Location:
    • STATUS+46
Routine Call
  • DIR
  • Line Location:
    • STATUS+35
Routine Call
  • VALM
  • Line Location:
    • EN+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361.1 - [#361.1] Classic Fileman Calls
361.121 WP^DIE

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGCR(399 - [#399] SCR+4
^DPT - [#2] SCR+4
^IBM(361.1 - [#361.1] HDR+3, SCR+14, SCR+18, SCR+19, STATUS+7, STATUS+9, STATUS+19, STATUS+24, STATUS+25, STATUS+27
, STATUS+31, STATUS+37, STATUS+45, STATUS+48, ADDCOM+21
^TMP("DIERR" STATUS+46!
^TMP("IBCECOC" INIT+2!, EXIT+1!, SET+2*, SET+3*, SET+4*
^VA(200 - [#200] SCR+17

Label References

Name Line Occurrences
ADDCOM STATUS+18, STATUS+20
HDR STATUS+47
INIT STATUS+47
KILLREV STATUS+23, ADDCOM+21
SET SCR+13, SCR+16, SCR+17, SCR+20, SCR+22
STATUSQ STATUS+6, STATUS+9, STATUS+28

Naked Globals

Name Field # of Occurrence
^( SCR+14

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD ADDCOM~, ADDCOM+11, ADDCOM+20
DA STATUS+2~, STATUS+5*, STATUS+6, STATUS+7, STATUS+16~, STATUS+24*, STATUS+25, STATUS+27, STATUS+31, STATUS+37
, STATUS+39~, STATUS+48, ADDCOM+9~, ADDCOM+20*, KILLREV+1~, KILLREV+2*
DA(1 STATUS+40*, STATUS+45*, ADDCOM+13*, ADDCOM+20*, KILLREV+2*
DA(2 STATUS+45*
DD STATUS+2~, STATUS+43!, ADDCOM+9~, ADDCOM+12!, ADDCOM+17!
DIC STATUS+2~, STATUS+40*, STATUS+43!, ADDCOM+9~, ADDCOM+13*, ADDCOM+17!
DIC("DR" ADDCOM+15*
DIC("P" STATUS+42*, ADDCOM+16*
DIC(0 STATUS+40*, ADDCOM+16*
DIE STATUS+2~, STATUS+4*, STATUS+16~, STATUS+24*, STATUS+30*, ADDCOM+20*
DIK KILLREV+1~, KILLREV+2*
DIR STATUS+33~
DIR("?" STATUS+34*
DIR("A" STATUS+35*
DIR("B" STATUS+35*
DIR(0 STATUS+35*
DLAYGO STATUS+2~, STATUS+40*, STATUS+43!, ADDCOM+9~, ADDCOM+15*, ADDCOM+17!
DO STATUS+2~, STATUS+43!, ADDCOM+9~, ADDCOM+12!, ADDCOM+17!
DR STATUS+2~, STATUS+8*, STATUS+16~, STATUS+24*, STATUS+30*, ADDCOM+10*, ADDCOM+15
DUZ STATUS+18, STATUS+20, STATUS+45, ADDCOM~, ADDCOM+10, ADDCOM+22, KILLREV+3
I INIT+1~, SCR+14*, SCR+15, SCR+17
>> IBCMT SCR+8, SCR+10, SCR+12
IBCOM STATUS+18, STATUS+20, ADDCOM~
IBCOM( ADDCOM+22*, KILLREV+3!
IBDA HDR+3, SCR+14, SCR+18, SCR+19, STATUS+5, STATUS+9, STATUS+10, STATUS+15, STATUS+16~, STATUS+17*
, STATUS+18, STATUS+19, STATUS+20, STATUS+21, STATUS+23, STATUS+24, STATUS+40, ADDCOM~, ADDCOM+18*, ADDCOM+19
, ADDCOM+20, ADDCOM+21, ADDCOM+22, KILLREV~, KILLREV+2, KILLREV+3
IBDA(1 STATUS+17*, STATUS+19, STATUS+24, ADDCOM+13, ADDCOM+20, ADDCOM+21, KILLREV+2
IBFACT STATUS+2~, STATUS+27*, STATUS+28, STATUS+32, STATUS+36*, STATUS+37
IBFINAL STATUS+2~, STATUS+7*, STATUS+13, STATUS+28
IBFST INIT+1~, SCR+18*, SCR+19, SCR+21*
IBIEN STATUS+39~, STATUS+45*, STATUS+46
>> IBIFN SCR+4, SCR+7
IBNEW STATUS+2~, STATUS+25*, STATUS+28, STATUS+31, STATUS+38
IBO STATUS+2~, STATUS+7*, STATUS+8, STATUS+24
IBOLD STATUS+2~, STATUS+7*, STATUS+30, STATUS+38
IBPAT INIT+1~, SCR+5*, SCR+9
IBST HDR+2~, HDR+3*, HDR+4
IBTEXT STATUS+39~
IBTEXT(1 STATUS+45*
IBZ INIT+1~
Q STATUS+16~
U HDR+3, SCR+4, SCR+5, SCR+8, SCR+10, SCR+12, SCR+17, STATUS+7, STATUS+19, STATUS+25
, STATUS+27, STATUS+31, STATUS+37, STATUS+45
>> VALMBCK STATUSQ+2*
>> VALMBG EN+1*
>> VALMCNT EN+1*, SCR*, SET+1*, SET+2, SET+3, SET+4
>> VALMHDR(2 HDR+4*
X INIT+1~, SCR+6*, SCR+7*, SCR+8*, SCR+9*, SCR+10*, SCR+12*, SCR+13, SCR+15*, SCR+16
, SCR+17*, SCR+19*, SCR+20, HELP+1*, SET~, SET+2, STATUS+16~, STATUS+33~, STATUS+41*, ADDCOM+9~
, ADDCOM+13*, ADDCOM+14
Y INIT+1~, SCR+18*, SCR+19, STATUS+16~, STATUS+33~, STATUS+36, STATUS+44, STATUS+45, ADDCOM+9~, ADDCOM+18
Z INIT+1~, SCR+4*, SCR+5, SCR+14*, SCR+18, SCR+19, STATUS+14~, STATUS+15*, STATUS+17
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 |  Naked Globals |  Local Variables  | All