Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: ENIMPORT

Package: Engineering

Routine: ENIMPORT


Information

ENIMPORT ;BAH/MKN -Import Equipment Records from a tab-delimited file ; 12/19/2023@15:46:29

Source Information

Source file <ENIMPORT.m>

Entry Points

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

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !!,"*** You do not own the Security Key to access this utility ***",!!
  • Line Location: EN+11
Function Call: WRITE
  • Prompt: !!,"The log file for this run will be: ",!,ENXTMPNA,!,"Please make a note of this, you may need it for a rollback."
  • Line Location: EN+35
Function Call: WRITE
  • Prompt: !,"Last record in the EQUIPMENT INV. file is: ",$O(^ENG(6914,"@"),-1)
  • Line Location: EN+37
Function Call: WRITE
  • Prompt: !!,"Loading tab-delimited file into VistA log file from ",ENPATH,ENFILE,"..."
  • Line Location: EN+39
Function Call: WRITE
  • Prompt: !!!,"********* Unable to read file - please check file path and name **********",!!
  • Line Location: EN+41
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+43
Function Call: WRITE
  • Prompt: !
  • Line Location: EN+44
Function Call: WRITE
  • Prompt: !,"Log file for this run is: "_ENXTMP," ",$P(@ENNA@(0),U,3),!
  • Line Location: EN+45
Function Call: WRITE
  • Prompt: !,"Row # ",ENLI," Error while filing new Equipment Inventory record "_$G(ENERR)
  • Line Location: REENTER+55
Function Call: WRITE
  • Prompt: !!,"Row # ",ENLI," Error - another user is editing Entry # ",ENNXL
  • Line Location: REENTER+58
Function Call: WRITE
  • Prompt: !,"Row # ",ENLI," - error on filing - aborting run.",!
  • Line Location: REENTER+64
Function Call: WRITE
  • Prompt: !,"Row # ",ENLI," - error on filing - aborting run.",!
  • Line Location: REENTER+69
Function Call: WRITE
  • Prompt: !!,ENDASH,!,"Summary of error types:",!
  • Line Location: REENTER+75
Function Call: WRITE
  • Prompt: !,ENDASH,!
  • Line Location: REENTER+75
Function Call: WRITE
  • Prompt: !?5,ENT,". ",ENI,": ",ENERRL(ENI)
  • Line Location: REENTER+76
Function Call: WRITE
  • Prompt: !,"#ERROR RECORDS: ",ENBAD,!,"#GOOD RECORDS : ",ENGOOD," ",!,"Last record in the EQUIPMENT INV. file is: ",$O(^ENG(6914,"@"),-1)
  • Line Location: REENTER+77
Function Call: WRITE
  • Prompt: !!,"**** ERRORS FOUND **** - no updates made",!
  • Line Location: REENTER+79
Function Call: WRITE
  • Prompt: !!,ENRECSET," record",$S(ENRECSET>1:"s were",1:" was")," added to the EQUIPMENT INV file (#6914)"
  • Line Location: REENTER+81
Function Call: WRITE
  • Prompt: !!,"No records were added to the EQUIPMENT INV file (#6914)"
  • Line Location: REENTER+82
Function Call: WRITE
  • Prompt: !!,"End the LOGGING to your screen now then press Enter"
  • Line Location: ENDLOG+1
Function Call: WRITE
  • Prompt: !,ENGOOD_" good record",$S(ENGOOD>1:"s",1:"")," found.",!
  • Line Location: GOODRECS+1
Function Call: WRITE
  • Prompt: "but ",ENGOOD_" good record",$S(ENGOOD>1:"s",1:"")," found.",!
  • Line Location: GOODRECS+2
Function Call: WRITE
  • Prompt: !,ENN,". ",$P(ENX,U,3)
  • Line Location: ROLLBACK+11
Function Call: WRITE
  • Prompt: !!
  • Line Location: ROLLBACK+13
Function Call: WRITE
  • Prompt: !
  • Line Location: ROLLBACK+16
Function Call: WRITE
  • Prompt: !!,$P(ENX,U,3)
  • Line Location: ROLLBACK+18
Function Call: WRITE
  • Prompt: !
  • Line Location: ROLLBACK+20
Function Call: WRITE
  • Prompt: !
  • Line Location: ROLLBACK+21
Function Call: WRITE
  • Prompt: !,"IEN ",DA," ",ENX," removed"
  • Line Location: ROLLBACK+23
Function Call: WRITE
  • Prompt: !,"Err# "_ENERRCT_" Row: ",ENLI," Col: ",ENQUOT,ENCOL,ENQUOT," (",ENVNAME,") ",ENERRPRE," ",ENERR
  • Line Location: ERRMSG+1

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^ENG(6914 - [#6914] Classic Fileman Calls,  WP^DIE
Info |  Source |  Entry Points |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call