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

Package: Integrated Billing

Routine: IBCECSA2


Information

IBCECSA2 ;ALB/CXW - IB CLAIMS STATUS AWAITING RESOLUTION SCREEN ;28-JUL-1999

Source Information

Source file <IBCECSA2.m>

Call Graph

Call Graph

Call Graph Total: 16

Package Total Call Graph
VA FileMan 6 ^DIC  FILE^DICN  (,WP)^DIE  ^DIK  $$EXTERNAL^DILFD  ^DIR  
Integrated Billing 5 SETL1^IBCECSA1  UPDEDI^IBCEM  $$PRINTUPD^IBCEU0  $$GETSPEC^IBEFUNC  $$EXPAND^IBTRE  
List Manager 3 EN^VALM  ($$SETSTR,FULL,PAUSE)^VALM1  CLEAN^VALM10  
Kernel 2 ($$FMTE,$$NOW)^XLFDT  DISP^XQORM1  

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 8 IBCECSA4  IBCEM  IBCEM CSA COMMENTS  IBCEM CSA MSG  IBCEM CSA REVIEW STATUS  IBCEMCA1  IBCEMCA3  IBCEU0  

Entry Points

Name Comments DBIA/ICR reference
EN ; -- claims status awaiting resolution detail
HDR ; -- header code
; IBA - EOB ien from summary selection
INIT ; -- init variables and list array
SCR
INITQ
HELP ; help code
EXIT ; exit code
SET(X,CNT) ;
UPDTX(IBDA,IBST) ; Update transmit bill record
; IBDA = ien of entry in 364
; IBST = status to stuff
STATUS ; Edit rev stat
NOTECHG(IBDA,IBAUTO,IBNTEXT,IBUSER) ; Enter who/when review stat change was entered
; IBDA = ien of entry in file 361
; IBAUTO = flag to say auto-review was used (1=used, 0=not used)
; IBNTEXT = array containing the lines of text to store if not using the
; default text IBNTEXT = # of lines
; IBUSER = flag which says to also stuff the .02 reviewed by field
STATUSQ ;
COM ; Enter/Edit Review Comments
; IBA - EOB ien
COMQ
ADDCOM(IBDA,DUZ,IBCOM,ADD) ; Add review comment to file 361
; 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
^DIC COM+23
FILE^DICN NOTECHG+10, ADDCOM+17
^DIE UPDTX+4, STATUS+11, STATUS+24, STATUS+30, ADDCOM+20
WP^DIE NOTECHG+17
^DIK KILLREV+4
$$EXTERNAL^DILFD SCR+26, NOTECHG+16
^DIR STATUS+42, STATUS+45, COM+17, COM+27
SETL1^IBCECSA1 SCR+5
UPDEDI^IBCEM STATUS+48
$$PRINTUPD^IBCEU0 STATUS+34
$$GETSPEC^IBEFUNC ADDCOM+16
$$EXPAND^IBTRE HDR+5
EN^VALM EN+1
$$SETSTR^VALM1 SCR+26, SCR+28
FULL^VALM1 STATUS+3, COM+3
PAUSE^VALM1 STATUSQ+1, COM+8, COM+31
CLEAN^VALM10 EXIT+2
$$FMTE^XLFDT SCR+14, ADDCOM+14
$$NOW^XLFDT NOTECHG+8, 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 OTHER ACTION final status was selected, you must enter a",!," comment explaining the OTHER 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: !,"NO FURTHER ACTION WILL BE ALLOWED REGARDING THIS ELECTRONIC MESSAGE"
  • Line Location: STATUS+33
Function Call: WRITE
  • Prompt: !," SINCE THIS CLAIM WAS PRINTED AT THE CLEARINGHOUSE"
  • Line Location: STATUS+35
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+42
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+42
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+45
Function Call: WRITE
  • Prompt: !
  • Line Location: STATUS+45
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+4
Function Call: WRITE
  • Prompt: !,*7,"Sorry, another user currently editing this entry."
  • Line Location: COM+7
Function Call: WRITE
  • Prompt: !
  • Line Location: COM+18
Function Call: WRITE
  • Prompt: !,"New Review Date: "_$$FMTE^XLFDT(X,"2Z")
  • Line Location: ADDCOM+14
Routine Call
  • DIC
  • Line Location:
    • COM+23
Routine Call
  • DIE
  • Line Location:
    • UPDTX+4
    • STATUS+11
    • STATUS+24
    • STATUS+30
    • ADDCOM+20
Routine Call
  • DIE
  • Line Location:
    • NOTECHG+17
Routine Call
  • DIR
  • Line Location:
    • STATUS+42
    • STATUS+45
    • COM+17
    • COM+27
Routine Call
  • VALM
  • Line Location:
    • EN+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^IBM(361 - [#361] Classic Fileman Calls,  EXTERNAL^DILFD
361.02 EXTERNAL^DILFD,  WP^DIE
^IBA(364 - [#364] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBM(361 - [#361] HDR+4, SCR+13, SCR+18, SCR+19, SCR+24, SCR+25, SCR+30, SCR+31, STATUS+7, STATUS+9
STATUS+19, STATUS+24, STATUS+25, STATUS+27, STATUS+31, STATUS+34, STATUS+48, STATUS+52, NOTECHG+16, COM+6
COM+10, COM+26, COM+29, ADDCOM+21
^TMP("DIERR" NOTECHG+17!
^TMP("IBCECSB" SCR+4
^TMP("IBCECSC" INIT+2!, EXIT+1!, SET+2*, SET+3*, SET+4*
^VA(200 - [#200] SCR+28

Label References

Name Line Occurrences
ADDCOM STATUS+18, STATUS+20, COM+20, COM+25, COM+28
COMQ COM+6, COM+30
HDR STATUS+51, COM+32
INIT STATUS+51, COM+32
KILLREV STATUS+23, COM+26, ADDCOM+21
NOTECHG STATUS+51
SET SCR+6, SCR+7, SCR+10, SCR+12, SCR+15, SCR+17, SCR+20, SCR+22, SCR+27, SCR+28
SCR+29, SCR+32, SCR+34
STATUSQ STATUS+6, STATUS+9, STATUS+28

Naked Globals

Name Field # of Occurrence
^( COM+10

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
ADD ADDCOM~, ADDCOM+11, ADDCOM+20
CNT SET~, SET+3, SET+4
DA UPDTX+3~, UPDTX+4*, STATUS+2~, STATUS+5*, STATUS+6, STATUS+7, STATUS+16~, STATUS+24*, STATUS+25, STATUS+27
STATUS+31, STATUS+34, STATUS+48, STATUS+52, NOTECHG+6~, COM+2~, ADDCOM+9~, ADDCOM+20*, KILLREV+1~, KILLREV+2*
DA(1 NOTECHG+7*, NOTECHG+12*, COM+5*, ADDCOM+13*, ADDCOM+20*, KILLREV+2*
DA(2 NOTECHG+12*, NOTECHG+16
DD STATUS+2~, NOTECHG+6~, NOTECHG+10!, COM+2~, COM+13~, ADDCOM+9~, ADDCOM+12!, ADDCOM+17!
DIC STATUS+2~, NOTECHG+6~, NOTECHG+7*, NOTECHG+10!, COM+2~, COM+13~, COM+23*!, ADDCOM+9~, ADDCOM+13*, ADDCOM+17!
DIC("A" COM+23*
DIC("DR" NOTECHG+9*, ADDCOM+15*
DIC("P" ADDCOM+16*
DIC("S" COM+23*
DIC(0 NOTECHG+7*, COM+23*, ADDCOM+16*
DIE UPDTX+3~, UPDTX+4*, STATUS+2~, STATUS+4*, STATUS+16~, STATUS+24*, STATUS+30*, ADDCOM+20*
DIK KILLREV+1~, KILLREV+2*
DIR STATUS+42!, STATUS+45!, COM+13~, COM+17!, COM+27!
DIR("?" STATUS+38*, STATUS+39*, STATUS+40*, STATUS+41*, COM+15*, COM+16*
DIR("A" STATUS+37*, STATUS+44*, STATUS+45*, COM+14*, COM+27*
DIR("B" STATUS+37*, STATUS+45*, COM+14*, COM+27*
DIR(0 STATUS+37*, STATUS+45*, COM+14*, COM+27*
DLAYGO STATUS+2~, NOTECHG+6~, NOTECHG+7*, NOTECHG+10!, COM+2~, COM+13~, ADDCOM+9~, ADDCOM+15*, ADDCOM+17!
DO STATUS+2~, NOTECHG+6~, NOTECHG+10!, COM+2~, COM+13~, ADDCOM+9~, ADDCOM+12!, ADDCOM+17!
DR UPDTX+3~, UPDTX+4*, STATUS+2~, STATUS+8*, STATUS+16~, STATUS+24*, STATUS+30*, ADDCOM+10*, ADDCOM+15
DUZ STATUS+18, STATUS+20, NOTECHG+9, NOTECHG+16, COM+10, COM+12, COM+20, COM+25, COM+28, ADDCOM~
, ADDCOM+10, ADDCOM+22, KILLREV+3
I INIT+1~, SCR+25*, SCR+28
IB0 COM+2~
>> IBA HDR+3, HDR+4, SCR+1*, SCR+2, SCR+4, SCR+13, STATUS+5, COM+5
IBAUTO NOTECHG~, NOTECHG+16
IBCNT INIT+1~, SCR*, SCR+6, SCR+7, SCR+10, SCR+12, SCR+15, SCR+17, SCR+20, SCR+22
SCR+27, SCR+28, SCR+29, SCR+32, SCR+34
IBCOM STATUS+18, STATUS+20, COM+2~, COM+20, COM+25, COM+28, ADDCOM~
IBCOM( COM+10*, COM+12, ADDCOM+22*, KILLREV+3!
IBDA UPDTX~, UPDTX+4, STATUS+2~, 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+51, NOTECHG~, NOTECHG+7, COM+2~, COM+19*
COM+20, COM+23*, COM+24, COM+25, COM+26, COM+28, COM+30, ADDCOM~, ADDCOM+18*, ADDCOM+19
, ADDCOM+20, ADDCOM+21, ADDCOM+22, KILLREV~, KILLREV+2, KILLREV+3
IBDA(1 STATUS+17*, STATUS+19, STATUS+24, COM+5*, COM+6, COM+10, COM+23, COM+26, COM+29, ADDCOM+13
, ADDCOM+20, ADDCOM+21, KILLREV+2
>> IBDAX( SCR+1
>> IBDAX(0 SCR+1
IBFACT STATUS+2~, STATUS+27*, STATUS+28, STATUS+32, STATUS+36*, STATUS+47*, STATUS+48
IBFINAL STATUS+2~, STATUS+7*, STATUS+13, STATUS+28
IBIEN NOTECHG+6~, NOTECHG+12*, NOTECHG+17
IBNEW STATUS+2~, STATUS+25*, STATUS+28, STATUS+31, STATUS+49, STATUS+50, COM+2~, COM+11*
IBNTEXT NOTECHG~, NOTECHG+13, NOTECHG+14
IBO STATUS+2~, STATUS+7*, STATUS+8, STATUS+24
IBOLD STATUS+2~, STATUS+7*, STATUS+30, STATUS+50
IBST HDR+2~, HDR+4*, HDR+5, UPDTX~, UPDTX+4
IBST0 HDR+2~, HDR+4*, HDR+6
IBTEXT NOTECHG+6~, NOTECHG+14*
IBTEXT(1 NOTECHG+16*
IBUSER NOTECHG~, NOTECHG+9
IBX INIT+1~, SCR+4*, SCR+5, SCR+9, SCR+11, STATUS+49*
IBZ INIT+1~, SCR+13*, SCR+18, SCR+19, SCR+24, SCR+25, SCR+30, SCR+31
IBZ0 INIT+1~, SCR+13*, SCR+14
Q STATUS+16~
U HDR+4, HDR+6, SCR+4, SCR+9, SCR+11, SCR+13, SCR+14, SCR+28, STATUS+5, STATUS+7
STATUS+19, STATUS+25, STATUS+27, STATUS+31, STATUS+34, STATUS+48, STATUS+49, NOTECHG+16, COM+5, COM+10
>> VALMBCK STATUS+53*, STATUSQ+2*, COMQ*
>> VALMCNT SCR*, SET+1*, SET+2, SET+3, SET+4
>> VALMHDR(1 HDR+7*
>> VALMHDR(2 HDR+5*, HDR+6*
X INIT+1~, SCR+3*, SCR+5, SCR+6, SCR+9*, SCR+10, SCR+11*, SCR+12, SCR+14*, SCR+15
SCR+18*, SCR+19, SCR+30*, SCR+31, HELP+1*, SET~, SET+2, UPDTX+3~, STATUS+16~, NOTECHG+6~
, NOTECHG+8*, COM+2~, COM+13~, ADDCOM+9~, ADDCOM+13*, ADDCOM+14
Y INIT+1~, SCR+19*, SCR+20, SCR+26*, SCR+27, SCR+28*, SCR+31*, SCR+32, UPDTX+3~, STATUS+16~
STATUS+43, STATUS+46, NOTECHG+6~, NOTECHG+11, NOTECHG+12, COM+2~, COM+13~, COM+19, COM+23, COM+27
, ADDCOM+9~, ADDCOM+18
Z INIT+1~, SCR+24*, SCR+25, SCR+30, SCR+31, STATUS+14~, STATUS+15*, STATUS+17, COM+10*
ZZ INIT+1~, SCR+24*, SCR+26
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