ENPLS2 ;WISC/SAB - Select Items from List ;12/4/07 13:24
Source file <ENPLS2.m>
Package | Total | Call Graph |
---|---|---|
Engineering | 1 | ^ENPLS2 |
VA FileMan | 1 | ^DIR |
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 | ; entry point
; input global ; ^TMP($J,"SCR)=number of entries in list^screen title ; ^TMP($J,"SCR",0)=col 1 x pos;col 1 hdr^...^col n x pos;col n hdr ; ^TMP($J,"SCR",id)=col 1 value^col 2 value^...^col n value ; output ; optional ENACL( selected items |
|
BLD | ; build screen
|
|
ACT | ; prompt for selection
|
|
EXIT | ;
|
|
EN2(ENGNOFF) | ;Entry point to suppress Form Feed at end
|
|
SHD | ; Screen Header
|
|
PYLIST | ; Progam and Year list of project applications
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Field # of Occurrence |
---|---|
^( | PYLIST+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | ACT+4!, PYLIST+5!, PYLIST+11! |
DIR("?" | PYLIST+4*, PYLIST+8*, PYLIST+9* |
DIR("A" | ACT+2*, PYLIST+7* |
DIR("B" | PYLIST+10* |
DIR(0 | ACT+3*, PYLIST+3*, PYLIST+7* |
>> DIRUT | PYLIST+5, PYLIST+11 |
DT | PYLIST+10 |
>> DTOUT | ACT+4 |
>> DUOUT | ACT+4 |
DX | EXIT+2! |
DY | EXIT+2! |
ENACL | EN+10!, ACT+6!, PYLIST+1~ |
ENACL( | ACT+6*, PYLIST+23, PYLIST+24 |
ENC | PYLIST+1~, PYLIST+23*, PYLIST+25*, PYLIST+26 |
ENDA | PYLIST+1~, PYLIST+14*, PYLIST+15, PYLIST+16 |
ENF | EN+9~ |
ENF("C" | EN+20*, EN+21*, EN+22*, BLD+9, SHD+4, SHD+7 |
ENF("CM" | EN+17*, EN+19*, BLD+9, SHD+4, SHD+7 |
ENF("DASH" | EN+11*, SHD+7 |
ENF("HD" | EN+15*, SHD+2 |
ENF("IDM" | EN+14*, EN+23, BLD+3, ACT+2, ACT+3 |
ENF("S" | EN+24*, BLD+2, BLD+3, ACT+2, ACT+5*, SHD+2 |
ENF("SM" | EN+23*, ACT+2, ACT+5, SHD+2 |
>> ENFY | PYLIST+26 |
ENGNOFF | EXIT+1, EN2~ |
ENI | EN+9~, EN+18*, EN+20, EN+21, EN+22, BLD+9*, ACT+6*, SHD+4*, SHD+7*, PYLIST+1~ , PYLIST+18*, PYLIST+19, PYLIST+24*, PYLIST+25 |
ENID | EN+9~, BLD+6*, BLD+7, BLD+8 |
ENIDX | PYLIST+1~, PYLIST+13*, PYLIST+14 |
ENJ | PYLIST+1~, PYLIST+23*, PYLIST+24 |
ENK | PYLIST+1~, PYLIST+24* |
ENPN | PYLIST+1~, PYLIST+18* |
ENPR | PYLIST+1~, PYLIST+6*, PYLIST+15, PYLIST+19 |
ENS | EN+9~, BLD+1! |
ENS("IDL" | BLD+2*, BLD+6 |
ENS("IDM" | BLD+3*, BLD+6 |
>> ENTY | PYLIST+26 |
ENX | EN+9~, EN+13*, EN+14, EN+15, EN+17*, EN+18, BLD+7*, BLD+9 |
ENY | EN+9~, EN+18*, EN+20, EN+21, EN+22, PYLIST+1~, PYLIST+25* |
ENY0 | PYLIST+1~, PYLIST+15*, PYLIST+16 |
ENYR | PYLIST+1~, PYLIST+12*, PYLIST+14, PYLIST+19 |
IOF | EXIT+1, SHD+1 |
U | EN+14, EN+15, EN+18, BLD+9, PYLIST+15, PYLIST+16, PYLIST+19, PYLIST+25, PYLIST+26 |
>> X | ACT+5 |
>> Y | PYLIST+6, PYLIST+12 |
>> Y( | ACT+6 |