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

Package: Engineering

Routine: ENEQRPI


Information

ENEQRPI ;(WCIOFO)/DH,SAB-Equipment Inventory Listings ;10/12/1999

Source Information

Source file <ENEQRPI.m>

Entry Points

Name Comments DBIA/ICR reference
HDR
OUT
COM
DTYP ;List by EQUIPMENT CATEGORY
LOC ;List by LOCATION
SRV ;List by SERVICE POINTER
SHOP ;List by RESPONSIBLE SHOP
STUS ;List by USE STATUS
CMR ;Official CMR listing
; input- (optional) $D(ENNXEXP) true when Non-Expendable Expensed rpt
CMR1 ; ask go to
CMR1A ; queued entry point
CMR2 ; cmr loop
CMR2A ; determine next CMR in loop (use B1 x-ref for acsii collating sequence)
CMRNOM ; Print CSN Nomenclature on CMR (called from ENCMR print template)
CMRNOMP ; prints nomenclature when CSN changes
CMRCMP ; List components of equipment on CMR (called by DHIT)
CMRTOT ; Maintain totals for CMR (called by DHIT)
; add value to totals
; input
; D0 - ien of equipment entry
; ENSND - default station number (from 6910)
; optional ENT(station,fund,sgl)=count^lease cost^asset value
; output
; ENT(

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: @IOF,!!,"INVENTORY LISTING",!,"Version ",^ENG("VERSION"),!
  • Line Location: HDR+0
Function Call: WRITE
  • Prompt: !!,"Important note: SHOP NAME(S) MUST BE ENTERED IN RESPONSE TO THE 'START WITH'",!,"AND 'GO TO' PROMPTS. NUMBERS WILL NOT BE UNDERSTOOD BY THE SORT LOGIC."
  • Line Location: SHOP+1
Function Call: WRITE
  • Prompt: !!,*7,"The Eng Init Parameters File must contain a STATION NUMBER. Can't proceed."
  • Line Location: CMR+3
Function Call: READ
  • Formatting: !
  • Prompt: "Go TO: "
  • Variable: X
  • Timeout: DTIME
  • Line Location: CMR1+2
Function Call: WRITE
  • Prompt: " "_EN("TO")
  • Line Location: CMR1+3
Function Call: WRITE
  • Prompt: $C(7),!!,"Please enter a CMR that does not preceed "_EN("FR")_"."
  • Line Location: CMR1+5
Function Call: WRITE
  • Prompt: !!,"CATEGORY STOCK NUMBER: ",$P(^ENCSN(6917,ENCSN,0),U)
  • Line Location: CMRNOMP+5
Function Call: WRITE
  • Prompt: " (",$P(^ENCSN(6917,ENCSN,0),U,3),")"
  • Line Location: CMRNOMP+6
Function Call: WRITE
  • Prompt: ?9,"COMPONENT ENTRY #: ",ENDA
  • Line Location: CMRCMP+6
Function Call: WRITE
  • Prompt: ?40,$E($P($G(^ENG(6914,ENDA,0)),U,2),1,20)
  • Line Location: CMRCMP+7
Function Call: WRITE
  • Prompt: ?61,$J("$"_$FN(ENVAL,"",2),12)
  • Line Location: CMRCMP+9
Function Call: WRITE
  • Prompt: !
  • Line Location: CMRCMP+9
Function Call: WRITE
  • Prompt: ?61,$J("$"_$FN(ENVAL,"",2),12)," LEASE"
  • Line Location: CMRCMP+11
Function Call: WRITE
  • Prompt: !
  • Line Location: CMRCMP+12

FileMan Files Accessed Via FileMan Db Call

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