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: ENEQ1

Package: Engineering

Routine: ENEQ1


Information

ENEQ1 ;WIRMFO/DH,SAB-Enter Equipment Records ;12.18.97

Source Information

Source file <ENEQ1.m>

Entry Points

Name Comments DBIA/ICR reference
EQAD ;New Inventory Entry Point
EQADX ;
EQMAD ;Multiple Inventory Entry Point
EQMADX ;
ASKEDM ; ask edit method (screen or template)
; out
; ENSCRN - flag: true when screen entry
; ENDR - input template when ENSCRN = 0
; END - true when timeout or '^'
ASKSER ; ask serial # and check file for duplicates
; out
; ENSERIAL - contains entered serial # or
; undefined if user did not reconfirm after a match
; END - true when timeout or '^'
ADDEQ ; add new equipment item
; in
; ENSERIAL (optional) contains serial #
; ENMA (optional) flag, true if multiple equipment entry
; out
; ENNXL - ien of new equipment record, 0 if unsuccessful
; also when $G(ENMA) true
; ENMA("FAP") - flag, true if FA Document generated
; ENMA("IIWO") - flag, true if Incom. Insp. W.O. generated
; also when $G(ENMA("IIWO")) true
; ENMA("IIWO","DA") - ien of created w.o.
; ENMA("IIWO","ION") - ION where w.o. printed
; ENMA("IIWO","QDT") - queued date/time if w.o. tasked
; create new record
ENR ; create entry with next available ien
; out
; DA,ENNXL - ien of new entry, 0 when unsuccessful
; ENERR - error message if unsuccessful

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EQAD+6
Function Call: WRITE
  • Prompt: @IOF,!!!
  • Line Location: EQMAD+3
Function Call: WRITE
  • Prompt: !!,"Proceed by entering the first item in full"
  • Line Location: EQMAD+13
Function Call: WRITE
  • Prompt: @IOF,!!!,"For each additional equipment entry enter:"
  • Line Location: EQMAD+20
Function Call: WRITE
  • Prompt: !," SERIAL #, LOCATION, VA PM NUMBER, and LOCAL IDENTIFIER (if any)."
  • Line Location: EQMAD+21
Function Call: WRITE
  • Prompt: !!
  • Line Location: EQMAD+23
Function Call: WRITE
  • Prompt: !!,"Please enter SERIAL # if available. Otherwise press <return>."
  • Line Location: ASKSER+8
Function Call: WRITE
  • Prompt: !,"List of existing equipment with a similar Serial #"
  • Line Location: ASKSER+18
Function Call: WRITE
  • Prompt: !,?2,"Entry #",?14,"Manufacturer"
  • Line Location: ASKSER+19
Function Call: WRITE
  • Prompt: !,?2,ENI,?14,$E($$GET1^DIQ(6914,ENI,1),1,60)
  • Line Location: ASKSER+21
Function Call: WRITE
  • Prompt: !,?4,"Mod: ",$$GET1^DIQ(6914,ENI,4)
  • Line Location: ASKSER+22
Function Call: WRITE
  • Prompt: ?40,"Ser #: ",$$GET1^DIQ(6914,ENI,5)
  • Line Location: ASKSER+23
Function Call: WRITE
  • Prompt: $C(7),!,ENERR
  • Line Location: ADDEQ+14
Function Call: WRITE
  • Prompt: !!,$C(7),"Another user is editing Entry # ",ENNXL,". Can't proceed."
  • Line Location: ADDEQ+17
Function Call: WRITE
  • Prompt: IOINLOW
  • Line Location: ADDEQ+23
Function Call: WRITE
  • Prompt: !!,"This Equipment Record is both NONEXPENDABLE and CAPITALIZED."
  • Line Location: ADDEQ+48
Function Call: WRITE
  • Prompt: !,"...Setting up new equipment record"
  • Line Location: ENR+5

FileMan Files Accessed Via FileMan Db Call

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