PXRMG2E1 ;SLC/JVS -GEC #2 Extract initial arrays ;7/14/05 08:10
Source file <PXRMG2E1.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
GEC | ;Get ien for GEC Date Sources
|
|
RANG(BDT,EDT,VDT,SDT,CHK) | ;Dates are in date range
|
|
FIN(DATE,DFN) | ;Check to see if finished
|
|
E(ARY,FIN,BDT,EDT,CHK,DFNONLY,TPAT) | ;EXTRACT GEC REFERRALS
|
|
WORK | ;
|
|
PAT | ||
KILL | ;Kill out unwanted Arrays
|
|
ARAYS | ;Set the Arrays for different reports
|
FileNo | Call Tags |
---|---|
^DPT - [#2] | GETS^DIQ |