Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All
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>

Call Graph

Call Graph

Call Graph Total: 9

Package Total Call Graph
VA FileMan 6 ^DIC  EN1^DIP  $$GET1^DIQ  ^DIR  ^DIWP  ^DIWW  
Kernel 2 HOME^%ZIS  (,$$S)^%ZTLOAD  
Engineering 1 DEV^ENLIB  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 28

Package Total Caller Graph
Engineering 28 ENCMR  ENCMR HD  ENCMRC  ENEQ EQUIP. LIST  ENEQ REPLACEMENT  ENEQ WARRANTY  ENEQ-INVENTORY  ENEQINV1  
ENEQINV2  ENEQINV3  ENEQINV4  ENEQINV5  ENEQINV6  ENEQINV7  ENEXP  ENEXP HD  
ENEXPC  ENFSA1  ENGSADDITIONAL  ENGSCONTRACT  ENGSGENERAL  ENGSPERSONNEL  ENIT ASSIGNMENT INQ  ENPLP001  
ENPLP003  ENPLP005  ENPLP006  ENPLP008  

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(

External References

Name Field # of Occurrence
HOME^%ZIS CMR1+33
^%ZTLOAD CMR1+33
$$S^%ZTLOAD CMR2+33
^DIC CMR+5
EN1^DIP DTYP+1, LOC+1, SRV+1, SHOP+2, STUS+1, CMR2+32
$$GET1^DIQ CMR1A+4, CMR2+23, CMR2+24, CMR2+25, CMR2+26, CMR2A+6
^DIR CMR1+17, CMR1+19, CMR1+24, CMR2A+8
^DIWP CMRNOMP+8
^DIWW CMRNOMP+9
DEV^ENLIB CMR1+26

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
Routine Call
  • %ZIS
  • Line Location:
    • CMR1+33
Routine Call
  • DIC
  • Line Location:
    • CMR+5
Routine Call
  • DIR
  • Line Location:
    • CMR1+17
    • CMR1+19
    • CMR1+24
    • CMR2A+8

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

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DIBT("B" LOC+1, CMR2+2
^DIC(6910 - [#6910] CMR+2
^DIPT("B" COM+2, CMR2+4, CMR2+5, CMR2+6, CMR2+13, CMR2+14, CMR2+15
^ENCSN(6917 - [#6917] CMRNOMP+2, CMRNOMP+5, CMRNOMP+6, CMRNOMP+8
^ENG("VERSION" HDR
^ENG(6910.2 - [#6910.2] COM+2
^ENG(6914 - [#6914] CMRNOM+2, CMRNOM+3, CMRNOM+4, CMRCMP+5, CMRCMP+7, CMRCMP+8, CMRCMP+10, CMRTOT+10, CMRTOT+11, CMRTOT+12
^ENG(6914.1 - [#6914.1] CMR+6, CMR2+22, CMR2A+1, CMR2A+2, CMR2A+3
^UTILITY($J CMRNOMP+4!

Label References

Name Line Occurrences
CMR1 CMR1+5
CMR2 CMR2A+9
CMR2A CMR1A+3, CMR2A+5
CMRNOMP CMRNOM+2, CMRNOM+4
COM DTYP+1, LOC+1, SRV+1, SHOP+2, STUS+1
OUT DTYP+1, LOC+1, SRV+1, SHOP+2, STUS+1, CMR+3, CMR+5, CMR1+2, CMR1+7, CMR1+24
CMR1+26, CMR1+27, CMR2+33, CMR2A+4, CMR2A+8

Naked Globals

Name Field # of Occurrence
^( CMRNOMP+8
^("INVENTORY TEMPLATE" COM+2
^(0 CMRNOMP+8

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BY DTYP+1*, LOC+1*, SRV+1*, SHOP+2*, STUS+1*, CMR2+2*
>> D0 CMRNOM+1, CMRNOM+2, CMRNOM+3, CMRNOM+4, CMRCMP+1, CMRCMP+5, CMRTOT+8, CMRTOT+10, CMRTOT+11, CMRTOT+12
>> DA CMR1+18*
>> DHD CMR2+6*, CMR2+15*
>> DHIT CMR2+7*, CMR2+16*
DIC COM*, CMR+4*, CMR+5!, CMR2+1*
DIC("A" CMR+4*
DIC(0 CMR+4*
>> DIOEND COM+1*, CMR2+8*, CMR2+17*
DIR CMR1+17!, CMR1+19!, CMR1+24!, CMR2A+8!
DIR("?" CMR1+11*, CMR1+12*, CMR1+13*, CMR1+14*, CMR1+15*, CMR1+16*
DIR("A" CMR1+9*, CMR1+22*, CMR2A+8*
DIR("B" CMR1+10*, CMR1+23*, CMR2A+8*
DIR(0 CMR1+8*, CMR1+18*, CMR1+22*, CMR2A+8*
>> DIRUT CMR1+7, CMR1+17, CMR1+19, CMR1+24
>> DIS(0 CMR2+10*, CMR2+19*
DIWF CMRNOMP+3~, CMRNOMP+4*
DIWL CMRNOMP+3~, CMRNOMP+4*
DIWR CMRNOMP+3~, CMRNOMP+4*
DTIME CMR1+2
EN OUT!
EN("CMR" CMR+6*, CMR1+18, CMR1A+2*, CMR1A+3, CMR1A+4*, CMR1A+5*, CMR2+21, CMR2+22*, CMR2+23*, CMR2+24*
CMR2+25*, CMR2+26*, CMR2+27*, CMR2+28*, CMR2+29*, CMR2+30*, CMR2+31*, CMR2A+1, CMR2A+3*, CMR2A+4
CMR2A+5, CMR2A+6*, CMR2A+7*, CMR2A+8
EN("COM" CMR1+24*, CMR2+4, CMR2+13
EN("FR" CMR+6*, CMR1+3, CMR1+4, CMR1+5, CMR1+7, CMR1A+2
EN("I" CMR2A+2*, CMR2A+3, CMR2A+6
EN("IOP" CMR1A+1*, CMR2+2, CMR2A+8
EN("STA" CMR1+7*, CMR1+20*, CMR1A+3, CMR2A+5
EN("TO" CMR1+1!, CMR1+3*, CMR1+4*, CMR1+5, CMR1+7, CMR2A+4
EN("X" CMR2A+1*, CMR2A+2
ENCSN CMR2+32!, CMRNOM+2*, CMRNOM+3, CMRNOM+4*, CMRNOMP+1, CMRNOMP+2, CMRNOMP+5, CMRNOMP+6, CMRNOMP+8
ENDA CMRCMP+2~, CMRCMP+4*, CMRCMP+5*, CMRCMP+6, CMRCMP+7, CMRCMP+8, CMRCMP+10
ENFUND CMRTOT+9~, CMRTOT+14*, CMRTOT+15*, CMRTOT+18*, CMRTOT+20, CMRTOT+21, CMRTOT+22
ENI CMRNOMP+3~, CMRNOMP+7*, CMRNOMP+8*
>> ENNXEXP CMR2+3, CMR2+12
ENSGL CMRTOT+9~, CMRTOT+14*, CMRTOT+15*, CMRTOT+19*, CMRTOT+20, CMRTOT+21, CMRTOT+22
ENSN CMRTOT+9~, CMRTOT+13*, CMRTOT+16*, CMRTOT+17*, CMRTOT+20, CMRTOT+21, CMRTOT+22
ENSND OUT!, CMR+2*, CMR+3, CMR1+14, CMR1A+5, CMR2+27, CMR2A+7, CMRTOT+16
ENT CMR2+32!
ENT( CMRTOT+20*, CMRTOT+21*, CMRTOT+22*
ENVAL CMRCMP+2~, CMRCMP+8*, CMRCMP+9, CMRCMP+10*, CMRCMP+11
ENY CMRTOT+9~
ENY(2 CMRTOT+10*, CMRTOT+21, CMRTOT+22
ENY(8 CMRTOT+11*, CMRTOT+14, CMRTOT+15
ENY(9 CMRTOT+12*, CMRTOT+13, CMRTOT+14
>> FLDS COM+2*, COM+3*, CMR2+4*, CMR2+5*, CMR2+13*, CMR2+14*
>> FR CMR2+21*
>> I COM+2*
>> IO("Q" CMR1+27
IOF HDR
IOM CMRNOMP+4
ION CMR1A+1, CMR2A+8
>> IOP CMR2+2*
IOST CMR2A+8
>> L COM*, CMR2+1*
>> POP CMR1+26
>> TO CMR2+21*
U COM+2, CMR+2, CMR+6, CMR1+2, CMR2A+3, CMRNOM+2, CMRNOM+3, CMRNOM+4, CMRNOMP+5, CMRNOMP+6
CMRCMP+7, CMRCMP+8, CMRCMP+10, CMRTOT+13, CMRTOT+14, CMRTOT+15, CMRTOT+20, CMRTOT+21, CMRTOT+22
X CMR1+2*, CMR1+3, CMR1+4, CMRNOMP+3~, CMRNOMP+8*
>> Y CMR+5, CMR+6, CMR1+17, CMR1+20, CMR1+24, CMR2A+8
>> ZTDESC CMR1+28*
>> ZTQUEUED CMR2+33
>> ZTRTN CMR1+28*
>> ZTSAVE("EN(""CMR"",0)" CMR1+32*
>> ZTSAVE("EN(""COM"")" CMR1+31*
>> ZTSAVE("EN(""FR"")" CMR1+30*
>> ZTSAVE("EN(""STA"")" CMR1+31*
>> ZTSAVE("EN(""TO"")" CMR1+30*
>> ZTSAVE("ENNXEXP" CMR1+29*
>> ZTSAVE("ENSND" CMR1+32*
ZTSK CMR1+33!
>> ZTSTOP CMR2+33*
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Naked Globals |  Local Variables  | All