PRCAMDA2 ;ALB/TAZ - PRCA MDA MANAGEMENT WORKLIST SCREEN ;26-APR-2011
Source file <PRCAMDA2.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| TPJI | ;Third Party joint Inquiry - IA-???
 | 
|
| TPJIQ | ||
| CMNT | ; enter MDA comments - entry point from MDA Worklist screen
 ; we need to select an entry from the list and set PRCAFN  | 
|
| CMNTQ | ;
 | 
|
| SEL(PRCADA,ONE) | ; Select entry(s) from list
 ; PRCADA = array returned if selections made ; PRCADA(n)=ien of entry selected (file 436.1) ; ONE = if set to 1, only one selection can be made at a time  | 
|
| STATUS | ; change MDA review status
 | 
|
| STATUSX | ;
 | 
|
| STATUS1 | ; Entry point from comments section
 | 
|
| STATUS1X | ;
 | 
|
| MCOM(PRCABN,PRCALN) | 
 
  | 
|
| MCOM2(PRCAIMDA,PRCALN,PRCACTL) | ||
| MDACMTS | ; Check for MDA comments, Load for List Manager Screen IB*2.0*447 BI
 ; Input: VALMAR ; PRCALN ; Output: @VALMAR Array  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^VA(200 - [#200] | GET1^DIQ | 
| 436.12 | WP^DIE |