IBCECOB4 ;ALB/CXW - IB EM MANAGEMENT - REVIEW STATUS SCREEN ;16-MAY-2000
Source file <IBCECOB4.m>
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
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^IBM(361.1 - [#361.1] | Classic Fileman Calls |
361.121 | WP^DIE |