Routine: IBCECSA2

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

Package	Total	Caller Graph
Integrated Billing	8	IBCECSA4 IBCEM IBCEM CSA COMMENTS IBCEM CSA MSG IBCEM CSA REVIEW STATUS IBCEMCA1 IBCEMCA3 IBCEU0
Kernel	1	^ORD(101

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

Customize PDF page

Package: Integrated Billing

Routine: IBCECSA2

Information

Source Information

Call Graph

Call Graph Total: 16

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 9

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: