Routine: ENEQRPI

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:

Package Component Superscript legend

action

extended action

^Ea

event driver

^Ed

subscriber

^Su

protocol

limited protocol

^LP

run routine

^RR

broker

edit

server

^Se

screenman

^SM

inquire

Caller Graph Total: 29

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
Kernel	1	^DIC(19

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*

Customize PDF page

Package: Engineering

Routine: ENEQRPI

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 29

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: