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

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

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

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
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call