PRCAMDA1 ;ALB/TAZ - PRCA MDA WORKLIST SCREEN ;18-APR-2011
Source file <PRCAMDA1.m>
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ; -- main entry point for MDA Worklist
|
|
| HDR | ; -- header code
|
|
| INIT | ; -- init variables and list array
|
|
| INITQ | ;
|
|
| BLD | ; -- Build the Arrays
|
|
| BLDQ | ;
|
|
| HELP | ; -- help code
|
|
| EXIT | ; -- exit code
|
|
| DIV(PRCASDV) | ; Get Division
|
|
| DIVX | ;
|
|
| DTR(PRCASDT,PRCAEDT) | ;date range
|
|
| DTRX | ;
|
|
| SORT(PRCASORT) | ;
|
|
| SORTX | ;
|
|
| SET(X,CNT,PRCAIEN) | ;set up list manager screen array
|
|
| EXP | ; -- expand code to show additional details of the EOB record
|
| Name | Field # of Occurrence |
|---|---|
| ^%DT | DTR+4, DTR+9 |
| ^DIC | DIV+6 |
| $$GET1^DIQ | BLD+6, BLD+7, BLD+18, BLD+19, BLD+20, BLD+27, BLD+28, BLD+29, BLD+30, BLD+31 , BLD+32 |
| ^DIR | SORT+6 |
| EN^VALM | EN+3 |
| $$SETFLD^VALM1 | BLD+23, BLD+24, BLD+26, BLD+27, BLD+28, BLD+29, BLD+30, BLD+31, BLD+32 |
| $$SETSTR^VALM1 | BLD+25 |
| CLEAN^VALM10 | EXIT+2 |
| $$FMTE^XLFDT | BLD+28, BLD+29, BLD+32 |
| DISP^XQORM1 | HELP+1 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^DGCR(399 - [#399] | GET1^DIQ |
| ^DG(40.8 - [#40.8] | Classic Fileman Calls |
| ^PRCA(436.1 - [#436.1] | GET1^DIQ |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^DG(40.8 - [#40.8] | BLD+14 |
| ^PRCA(436.1 - [#436.1] | BLD+4 |
| ^TMP("PRCAMDA" | INIT+2!, EXIT+1!, SET+2*, SET+3*, SET+4* |
| ^TMP($J | INIT+2!, BLD+2!, BLD+8, BLD+9*, BLD+13, BLD+16, EXIT+1!, DIV+2!, DIV+10* |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| %DT | DTR+1~, DTR+2*, DTR+7* |
| %DT("A" | DTR+3*, DTR+8* |
| %DT("B" | DTR+3*, DTR+8* |
| CNT | SET~, SET+3, SET+4 |
| DIC | INIT+1~, DIV+1~, DIV+5*, DIV+7! |
| DIC("A" | DIV+5* |
| DIC(0 | DIV+5* |
| DIR | INIT+1~, SORT+1~ |
| DIR("A" | SORT+4* |
| DIR("B" | SORT+5* |
| DIR(0 | SORT+3* |
| DIROUT | INIT+1~, SORT+1~ |
| DIRUT | INIT+1~, SORT+1~ |
| DTOUT | INIT+1~, DIV+9, DTR+1~, DTR+5, DTR+10, SORT+1~, SORT+7 |
| DUOUT | INIT+1~, DIV+9, DTR+1~, DTR+5, DTR+10, SORT+1~, SORT+7 |
| LINEVAR | BLD+17~, BLD+21*, BLD+23*, BLD+24*, BLD+25*, BLD+26*, BLD+27*, BLD+28*, BLD+29*, BLD+30* , BLD+31*, BLD+32*, BLD+33 |
| LN | INIT+1~, BLD+12*, BLD+14, BLD+22*, BLD+23, BLD+33 |
| PRCA1ST | DIV+1~, DIV+3*, DIV+5, DIV+8, DIV+10* |
| PRCABN | BLD+17~, BLD+18*, BLD+24 |
| PRCADIV | INIT+1~, BLD+7*, BLD+8, BLD+9, BLD+12*, BLD+13*, BLD+14, BLD+16 |
| PRCAEDT | EN+1~, INIT+8, BLD+6, DTR~, DTR+11* |
| PRCAFN | BLD+17~, BLD+19* |
| PRCAIEN | BLD+3*, BLD+4*, BLD+6, BLD+7, BLD+9, BLD+15*, BLD+16*, BLD+18, BLD+19, BLD+20 , BLD+27, BLD+28, BLD+29, BLD+30, BLD+31, BLD+32, BLD+33, SET~, SET+4 |
| PRCAOK | BLD+5~ |
| PRCAPN | BLD+17~, BLD+18*, BLD+19*, BLD+26 |
| PRCAQUIT | EN+1~, INIT+3*, INIT+6, INIT+9, INIT+12, DIV+4, DIV+9*, DTR+5*, DTR+10*, SORT+7* |
| PRCARDT | BLD+5~, BLD+6* |
| PRCARS | BLD+17~, BLD+20*, BLD+25 |
| PRCASDT | EN+1~, INIT+8, BLD+6, DTR~, DTR+6* |
| PRCASDV | EN+1~, INIT+5, BLD+8, DIV~, DIV+8* |
| PRCASORT | EN+1~, INIT+11, BLD+4, SORT~, SORT+8* |
| U | BLD+14, SET+4 |
| VALMBCK | EN+2~, EXP+1* |
| VALMCNT | EN+2~, BLD+12*, SET+1*, SET+2, SET+3, SET+4 |
| VALMHDR | EN+2~ |
| VALMHDR(1 | HDR+1* |
| VALMHDR(2 | HDR+2* |
| VALMQUIT | EN+2~, INIT+6*, INIT+9*, INIT+12* |
| X | INIT+1~, HELP+1*, DTR+1~, SORT+1~, SET~, SET+2 |
| Y | INIT+1~, DIV+1~, DIV+4, DIV+8, DIV+10, DTR+1~, DTR+5, DTR+6, DTR+10, DTR+11 , SORT+1~, SORT+7, SORT+8 |