ENIMPORT ;BAH/MKN -Import Equipment Records from a tab-delimited file ; 12/19/2023@15:46:29
Source file <ENIMPORT.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 |
Package | Total | Caller Graph |
---|---|---|
Engineering | 1 | EN IMPORT NEW EQUIP. INV. RECS |
Kernel | 1 | ^DIC(19 |
Name | Comments | DBIA/ICR reference |
---|---|---|
EN | ;
|
|
REENTER | ;this entry point is for IMPORT after CHECKING for error free file
|
|
ENDLOG | ;
|
|
SETGOOD | ;
|
|
GOODRECS(ENWH) | ;
|
|
ENVFDA | ;Set entry into ENFDA array for this file and field
|
|
CHKPTR() | ;Check if the field is a good pointer to the file
|
|
ENVPTR | ;Data is a pointer to another file
|
|
GETCOL(ENI) | ;
|
|
ROLLBACK | ;
|
|
ASKUSER() | ;
|
|
ASKTYPE | ;
|
|
ASKFPATH | ;
|
|
ASKFNAME | ;
|
|
ASKNUMREC | ;
|
|
CHKSET() | ;Check if entry is valid for the set
|
|
ERRMSG(ENERRPRE,ENVNAME,ENERRTYP,ENERR) | ;Output error message
|
|
GETOVF(ENNA,ENN) | ;Consolidate line to include "OVF" (Overflows)
|
|
VALDA | ;
|
|
VALLCLID | ;
|
|
VALSN | ;
|
|
VALMAX | ;maximum value 9999999 cols L and M
|
|
VALPARNT | ;
|
|
UP(X) | ||
FLDEXP | ;The following lines are the ";" pieces in the list at label FLDS
|
|
FLDS | ;There are 37 columns in the input spreadsheet as follows:
|
|
A | ;MANUFACTURER;MANUFACTURER;6914;1;RP6912
|
|
B | ;SERIAL #;SERIAL #;6914;5;;;;VALSN
|
|
C | ;MODEL;MODEL;6914;4
|
|
D | ;CATEGORY STOCK NUMBER;CATEGORY STOCK NUMBER;6914;18;P6917
|
|
E | ;IGNORE;LIFE EXPECTANCY;6914;15;;AUTO;;;Triggered by CSN field COl D
|
|
F | ;MFGR. EQUIPMENT NAME;MFGR. EQUIPMENT NAME;6914;3
|
|
G | ;CMR;CMR;6914;19;P6914.1
|
|
H | ;EQUIPMENT CATEGORY;EQUIPMENT CATEGORY;6914;6;P6911
|
|
I | ;IGNORE;ADDITIONAL INFORMATION
|
|
J | ;PURCHASE ORDER #;PURCHASE ORDER #;6914;11
|
|
K | ;ACQUISITION METHOD;ACQUISITION METHOD;6914;20.1;;SET
|
|
L | ;IGNORE;VENDOR POINTER;6914;10;P440;AUTO;;;Triggered by Purchase Order # field Col J
|
|
M | ;LEASE COST;LEASE COST;6914;12.5;;;;VALMAX
|
|
N | ;TOTAL ASSET VALUE;TOTAL ASSET VALUE;6914;12;;;;VALMAX
|
|
O | ;ACQUISITION DATE;ACQUISITION DATE;6914;13;;DA;;VALDA
|
|
P | ;WARRANTY EXP. DATE;WARRANTY EXP. DATE;6914;14;;DA;;VALDA
|
|
Q | ;IGNORE;REPLACEMENT DATE;6914;16;;AUTO;;;Triggered by CSN field Col D
|
|
R | ;ACQUISITION SOURCE;ACQUISITION SOURCE;6914;13.5;P420.8
|
|
S | ;TYPE OF ENTRY;TYPE OF ENTRY;6914;7;;SET
|
|
T | ;USE STATUS;USE STATUS;6914;20;;SET
|
|
U | ;PARENT SYSTEM;PARENT SYSTEM;6914;2;P6914;;;VALPARNT
|
|
V | ;IGNORE;SERVICE POINTER;6914;21;P49;AUTO;;;;Triggered by CMR field Col G
|
|
W | ;IGNORE;Location of item;Col X on spreadsheet is used
|
|
X | ;LOCATION;LOCATION;6914;24;P6928;;;;
|
|
Y | ;LOCAL IDENTIFIER;LOCAL IDENTIFIER;6914;26;;;;VALLCLID
|
|
Z | ;STATION NUMBER;STATION NUMBER;6914;60;;;;;See OWNING STATION NUMBER on screen 1
|
|
AA | ;CONTROLLED ITEM?;CONTROLLED ITEM?;6914;33;;SET
|
|
AB | ;INVESTMENT CATEGORY;INVESTMENT CATEGORY;6914;34;;SET
|
|
AC | ;FUND;FUND;6914;62;P6914.6P
|
|
AD | ;FUND CONTROL POINT;FUND CONTROL POINT;6914;35;
|
|
AE | ;BUDGET OBJECT CODE;BUDGET OBJECT CODE;6914;61;P6914.4
|
|
AF | ;IGNORE;STANDARD GENERAL LEDGER;6914;38;P6914.3;AUTO;;;Triggered by BOC field
|
|
AG | ;ADMINSTRATIVE OFFICE;ADMINSTRATIVE OFFICE;6914;63;P6914.7;;10
|
|
AH | ;EQUITY ACCOUNT;EQUITY ACCOUNT;6914;64;;SET
|
|
AI | ;IGNORE;ASSET TAG #
|
|
AJ | ;IGNORE;MACHINE TYPE
|
|
AK | ;COMMENTS;COMMENTS;6914;40;;WP
|
Name | Field # of Occurrence |
---|---|
DD^%DT | EN+26 |
$$FTG^%ZISH | EN+40 |
FIND^DIC | CHKPTR+11, ENVPTR+4 |
$$GET1^DID | CHKPTR+4, CHKPTR+14, CHKSET+3, CHKSET+4 |
FIELD^DID | REENTER+15, ENVFDA+9 |
FILE^DID | CHKPTR+5 |
^DIE | REENTER+60 |
FILE^DIE | REENTER+63 |
WP^DIE | REENTER+68 |
^DIK | ROLLBACK+23 |
DT^DILF | ENVFDA+4, VALDA+3 |
^DIR | EN+36, EN+44, REENTER+55, ROLLBACK+3, ROLLBACK+13, ROLLBACK+16, ROLLBACK+18, ROLLBACK+21, ASKTYPE+2, ASKFPATH+3 , ASKFNAME+2, ASKNUMREC+3 |
ENR^ENEQ1 | REENTER+54 |
$$FMADD^XLFDT | EN+28, ROLLBACK+5 |
$$FMTE^XLFDT | EN+12, ROLLBACK+6 |
$$NOW^XLFDT | EN+15, EN+26 |
$$TRIM^XLFSTR | REENTER+10 |
OWNSKEY^XUSRB | EN+10 |
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 |
|
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 |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^ENG(6914 - [#6914] | Classic Fileman Calls, WP^DIE |
Name | Line Occurrences |
---|---|
$$ASKUSER | EN+17 |
$$CHKPTR | REENTER+34 |
$$CHKSET | REENTER+35 |
$$GETCOL | REENTER+14 |
$$GETOVF | EN+46, EN+54, REENTER+3 |
$$UP | EN+51, EN+54, REENTER+10, ENVFDA+7, CHKPTR+3, ENVPTR+2, CHKSET+2 |
@( | REENTER+24 |
ASKFNAME | ASKNUMREC+4 |
ASKFPATH | ASKFNAME+2 |
ASKTYPE | ASKFPATH+3 |
EN | EN+32, EN+44 |
ENDLOG | REENTER+78, REENTER+79, REENTER+83, ROLLBACK+24 |
ENVFDA | REENTER+43 |
ENVPTR | REENTER+44 |
ERRMSG | REENTER+23, REENTER+26, REENTER+32, REENTER+41, CHKPTR+10, CHKPTR+17, CHKSET+10 |
GOODRECS | REENTER+79 |
REENTER | REENTER+73 |
ROLLBACK | EN+19, ROLLBACK+21 |
SETGOOD | REENTER+48 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
%DT | EN+1~, EN+26* |
ANS | ASKUSER+1~, ASKTYPE+4*, ASKFPATH+1 |
DA | REENTER+60*, ROLLBACK+2~, ROLLBACK+23* |
DIE | EN+1~, REENTER+60* |
DIK | ROLLBACK+2~, ROLLBACK+22* |
DIR | REENTER+55!, ROLLBACK+3!, ROLLBACK+13!, ROLLBACK+16!, ASKUSER+1~, ASKFPATH+2!, ASKFNAME+1!, ASKNUMREC+3! |
DIR("A" | EN+36*, EN+43*, ROLLBACK+3*, ROLLBACK+13*, ROLLBACK+18*, ROLLBACK+20*, ASKFPATH+2*, ASKFNAME+1*, ASKNUMREC+3* |
DIR("B" | EN+36*, EN+43*, ROLLBACK+3*, ROLLBACK+13*, ROLLBACK+18*, ROLLBACK+20*, ASKTYPE+2* |
DIR(0 | EN+36*, EN+43*, REENTER+55*, ROLLBACK+3*, ROLLBACK+13*, ROLLBACK+16*, ROLLBACK+18*, ROLLBACK+20*, ASKTYPE+1*, ASKFPATH+2* , ASKFNAME+1*, ASKNUMREC+3* |
DR | EN+1~, REENTER+60* |
DROUT | ASKNUMREC+1! |
DT | EN+12, EN+28, ROLLBACK+4, ROLLBACK+5 |
DTOUT | EN+1~, EN+44, ROLLBACK+3, ROLLBACK+12, ROLLBACK+13, ROLLBACK+15, ROLLBACK+16, ROLLBACK+18, ROLLBACK+21, ASKTYPE+3 , ASKFPATH+3, ASKFNAME+2, ASKNUMREC+4 |
DUOUT | EN+44, ROLLBACK+3, ROLLBACK+12, ROLLBACK+13, ROLLBACK+15, ROLLBACK+16, ROLLBACK+18, ROLLBACK+21, ASKTYPE+3, ASKFPATH+3 , ASKFNAME+2, ASKNUMREC+1!, ASKNUMREC+4 |
DUZ | EN+10, EN+25 |
EN1 | GETCOL+1~, GETCOL+3*, GETCOL+4 |
EN2 | GETCOL+1~, GETCOL+3*, GETCOL+4 |
ENABORT | EN+1~, EN+7*, REENTER+1*, REENTER+2, REENTER+3*, REENTER+64*, REENTER+69* |
ENBAD | EN+1~, REENTER+1*, REENTER+49*, REENTER+73, REENTER+77 |
ENBADIND | EN+1~, REENTER+6*, REENTER+20*, REENTER+24*, REENTER+28*, REENTER+33, REENTER+34*, REENTER+35*, REENTER+42*, REENTER+48 , REENTER+49 |
ENCHKFI | EN+1~, EN+7*, EN+30*, REENTER+73*, REENTER+79 |
ENCOL | EN+1~, EN+51*, EN+52, REENTER+14*, ERRMSG+1 |
ENDA | ENVFDA+1~, ROLLBACK+2~, ROLLBACK+4*, ROLLBACK+5*, ROLLBACK+6 |
ENDASH | EN+1~, REENTER+72*, REENTER+75 |
ENDATA | EN+1~, REENTER+8*, REENTER+9, REENTER+10*, REENTER+19, REENTER+27, REENTER+37, REENTER+39, REENTER+45, ENVFDA+2 , ENVFDA+4, ENVFDA+7*, ENVFDA+8*, ENVFDA+12, CHKPTR+3*, CHKPTR+7, CHKPTR+9, CHKPTR+11, CHKPTR+15, ENVPTR+2* , ENVPTR+4, CHKSET+2*, CHKSET+5, CHKSET+7, VALDA+2, VALDA+3, VALDA+4, VALLCLID+3, VALSN+3, VALMAX+1 , VALMAX+2, VALPARNT+1, VALPARNT+2 |
ENDATI | EN+1~, EN+15*, EN+23, EN+24 |
ENDID | EN+1~, REENTER+15! |
ENDID("FIELD | LENGTH" , REENTER+16 |
ENDID("SPECIFIER" | REENTER+17 |
ENERR | EN+1~, REENTER+6!, REENTER+21*, REENTER+23, REENTER+25*, REENTER+26, REENTER+29*, REENTER+30*, REENTER+32, REENTER+39* , REENTER+40*, REENTER+41, REENTER+55!, REENTER+63!, REENTER+64, REENTER+68!, REENTER+69, CHKPTR+1~, CHKPTR+9*, CHKPTR+10 , CHKPTR+11!, CHKPTR+15*, CHKPTR+17, ENVPTR+1~, ENVPTR+4!, CHKSET+1~, CHKSET+5*, CHKSET+6, CHKSET+7*, CHKSET+8 , CHKSET+10, ERRMSG~, ERRMSG+1 |
ENERRCT | EN+2~, EN+46*, REENTER+23*, REENTER+25*, REENTER+32*, REENTER+41*, CHKPTR+10*, CHKPTR+17*, CHKSET+10*, ERRMSG+1 |
ENERRL | EN+2~, EN+47!, REENTER+75, REENTER+78, REENTER+79 |
ENERRL( | REENTER+76, ERRMSG+2* |
ENERRPRE | EN+2~, ERRMSG~, ERRMSG+1 |
ENERRTYP | REENTER+22*, REENTER+23, REENTER+25*, REENTER+26, REENTER+31*, REENTER+32, REENTER+38*, REENTER+41, CHKPTR+8*, CHKPTR+10 , CHKPTR+16*, CHKPTR+17, CHKSET+9*, CHKSET+10, ERRMSG~, ERRMSG+2 |
ENFDA | EN+2~, REENTER+6!, REENTER+52 |
ENFDA( | ENVFDA+2*, ENVFDA+5*, ENVFDA+12*, ENVPTR+6* |
ENFDA(6914 | REENTER+62*! |
ENFILE | EN+2~, EN+20*, EN+39, EN+40 |
ENFLD | EN+2~, REENTER+7*, REENTER+8, REENTER+11, REENTER+14 |
ENFLDLTH | EN+2~, REENTER+16*, REENTER+37, REENTER+40, CHKPTR+1~, CHKPTR+4*, CHKPTR+7 |
ENFLDNA | EN+2~, REENTER+11* |
ENFLDNAM | CHKSET+1~, CHKSET+4*, CHKSET+5 |
ENFLDS | EN+2~, EN+46* |
ENFN | ROLLBACK+2~, ROLLBACK+7*, ROLLBACK+8*, ROLLBACK+9, ROLLBACK+10, ROLLBACK+14*, ROLLBACK+17*, ROLLBACK+18, ROLLBACK+22*, ROLLBACK+23 |
ENFNAMES | EN+2~, EN+47! |
ENFNAMES( | EN+52*, REENTER+11 |
ENGOOD | EN+2~, REENTER+1*, REENTER+77, REENTER+79, SETGOOD+6*, GOODRECS+1, GOODRECS+2 |
ENHARD | EN+3~, REENTER+13*, ENVFDA+8 |
ENHD | EN+3~, EN+54*, REENTER+11 |
ENI | REENTER+76*, ENVFDA+1~, ENVFDA+11*, GETCOL~, GETCOL+2, GETCOL+3, ROLLBACK+2~, ROLLBACK+6*, CHKSET+1~, CHKSET+6* , GETOVF+1~, GETOVF+3* |
ENIEN | CHKPTR+1~, CHKPTR+2*, CHKPTR+12*, CHKPTR+13, CHKPTR+18 |
ENIENS | EN+3~ |
ENL | ROLLBACK+2~ |
ENL( | ROLLBACK+10*, ROLLBACK+17 |
ENL(1 | ROLLBACK+14 |
ENLI | EN+3~, EN+50*, REENTER+1*, REENTER+2*, REENTER+3, REENTER+5, REENTER+55, REENTER+58, REENTER+64, REENTER+69 , ERRMSG+1 |
ENMAXROW | EN+3~, EN+20*, EN+21*, REENTER+2, ASKNUMREC+5*, ASKNUMREC+6 |
ENN | ROLLBACK+2~, ROLLBACK+7*, ROLLBACK+10*, ROLLBACK+11, ROLLBACK+12, ROLLBACK+15, ROLLBACK+16, ROLLBACK+17, ROLLBACK+22*, ROLLBACK+23* , GETOVF~, GETOVF+2, GETOVF+3 |
ENNA | EN+3~, EN+23*, EN+28, EN+45, EN+46, EN+54, REENTER+2, REENTER+3, GETOVF~, GETOVF+2 , GETOVF+3 |
ENNXL | EN+3~, REENTER+55, REENTER+57, REENTER+58, REENTER+60, REENTER+62, REENTER+65, REENTER+68, REENTER+71 |
ENOUT | EN+3~, CHKPTR+1~, CHKPTR+5!, CHKPTR+11!, ENVPTR+1~, ENVPTR+4!, GETOVF+1~, GETOVF+2*, GETOVF+3*, GETOVF+4 |
ENOUT("DILIST" | CHKPTR+12, ENVPTR+5 |
ENOUT("NAME" | CHKPTR+6 |
ENOUT("POINTER" | ENVFDA+10 |
ENPARM | EN+3~, REENTER+11*, REENTER+12, REENTER+13 |
ENPATH | EN+3~, EN+20*, EN+39, EN+40, ASKFPATH+4*, ASKFPATH+5 |
ENQUOT | EN+3~, EN+7*, REENTER+10, CHKPTR+15, CHKSET+5, ERRMSG+1 |
ENR | VALDA+1~, VALDA+3, VALDA+4 |
ENRBNA | EN+3~, EN+24*, REENTER+65 |
ENRECSET | EN+3~, REENTER+1*, REENTER+65*, REENTER+81, REENTER+82 |
ENRES | EN+4~, REENTER+24*, REENTER+25, REENTER+34*, REENTER+35*, CHKPTR+17*, CHKSET+1~, CHKSET+2*, CHKSET+10*, CHKSET+11 , VALDA+2*, VALDA+4*, VALLCLID+1*, VALLCLID+3*, VALSN+1*, VALSN+3*, VALMAX+1*, VALMAX+2*, VALPARNT+1*, VALPARNT+2* |
ENROWS | EN+4~, REENTER+1*, REENTER+2, REENTER+4*, REENTER+5 |
ENRUNTYPE | EN+4~, EN+17*, EN+19, EN+20*, EN+29, EN+30*, EN+32, EN+34, EN+36*, EN+41* , REENTER+2, REENTER+5, REENTER+46, REENTER+50, REENTER+73*, REENTER+78, REENTER+79, REENTER+80, ASKTYPE+3*, ASKTYPE+5* , ASKFPATH+5*, ASKFNAME+3*, ASKNUMREC+3, ASKNUMREC+6*, ASKNUMREC+7 |
ENSERIAL | EN+4~, REENTER+60 |
ENSET | EN+4~, ENVFDA+10*, ENVFDA+11, CHKSET+1~, CHKSET+3*, CHKSET+6 |
ENT | EN+4~, REENTER+75*, REENTER+76* |
ENTFILE | ENVPTR+1~, ENVPTR+2*, ENVPTR+4 |
ENUSER | EN+4~, EN+25*, EN+27 |
ENVAL | EN+4~, REENTER+13*, REENTER+24 |
ENVFILE | EN+4~, REENTER+12*, REENTER+15, REENTER+29, ENVFDA+2, ENVFDA+5, ENVFDA+9, ENVFDA+12, ENVPTR+6, CHKSET+3 , CHKSET+4 |
ENVFILNA | REENTER+29, CHKPTR+1~, CHKPTR+6*, CHKPTR+9, CHKPTR+15 |
ENVFLD | EN+4~, REENTER+12*, REENTER+15, REENTER+29, REENTER+40, REENTER+45, ENVFDA+2, ENVFDA+5, ENVFDA+9, ENVFDA+12 , CHKPTR+14, ENVPTR+6, CHKSET+3, CHKSET+4, CHKSET+5 |
ENVFLDNA | REENTER+30, CHKPTR+1~, CHKPTR+14* |
ENVNAME | EN+4~, REENTER+12*, REENTER+23, REENTER+26, REENTER+32, REENTER+40, REENTER+41, CHKPTR+10, CHKPTR+17, CHKSET+10 , ERRMSG~, ERRMSG+1 |
ENVPFILE | CHKPTR+1~, CHKPTR+3*, CHKPTR+4, CHKPTR+5, CHKPTR+9, CHKPTR+11, CHKPTR+14, CHKPTR+15 |
ENVPTR | EN+5~, REENTER+13*, REENTER+33, REENTER+37, REENTER+43, CHKPTR+3, ENVPTR+2 |
ENVREQ | EN+5~ |
ENVSPEC | EN+5~, REENTER+17*, REENTER+27, REENTER+44 |
ENVTYPE | EN+5~, REENTER+13*, REENTER+18, REENTER+35, REENTER+37, REENTER+45, ENVFDA+2, ENVFDA+3, ENVFDA+6 |
ENWH | GOODRECS~, GOODRECS+1, GOODRECS+2 |
ENWP | EN+5~, REENTER+6! |
ENWP(6914 | REENTER+45*, REENTER+66, REENTER+67 |
ENWP1 | EN+5~, REENTER+67*, REENTER+68 |
ENX | EN+5~, EN+10, EN+12*, EN+13*, EN+14*, EN+15, EN+33*, EN+40*, EN+41, EN+50* , EN+51, EN+52, REENTER+3*, REENTER+7, REENTER+8, ENDLOG+1*, ENVFDA+1~, ENVFDA+11*, ENVFDA+12, ENVPTR+1~ , ENVPTR+5*, ENVPTR+6, ROLLBACK+2~, ROLLBACK+6*, ROLLBACK+7, ROLLBACK+9*, ROLLBACK+11, ROLLBACK+18*, ROLLBACK+23*, CHKSET+1~ , CHKSET+6*, CHKSET+7, GETOVF+1~, GETOVF+3* |
ENX(0 | EN+11 |
ENXTMP | EN+5~, EN+23*, EN+40, EN+45 |
ENXTMPNA | EN+4~, EN+27*, EN+28, EN+35 |
ENY | EN+5~, EN+51*, EN+52 |
ERR | CHKPTR+1~ |
ERR("DIERR" | CHKPTR+13 |
U | EN+19, EN+20, EN+25, EN+28, EN+45, REENTER+2, REENTER+73, REENTER+78, REENTER+79, REENTER+80 , ROLLBACK+11, ROLLBACK+18, ROLLBACK+23, ASKFPATH+5, ASKFNAME+3, ASKNUMREC+3, ASKNUMREC+6 |
X | EN+5~, ENVFDA+1~, ENVFDA+4*, ENVFDA+5, UP~ |
Y | EN+5~, EN+26*, EN+27, EN+33*, EN+36, EN+41*, EN+44, ROLLBACK+4, ROLLBACK+5, ROLLBACK+14 , ROLLBACK+19, ROLLBACK+21, ASKTYPE+4, ASKTYPE+5, ASKFPATH+4, ASKFNAME+3, ASKNUMREC+2*, ASKNUMREC+5 |
ZTQUEUED | EN+5~, REENTER+53* |
Name | Field # of Occurrence |
---|---|
$T(FLDS+ENLI | EN+50 |