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 |