Routine: ENEQ1

Package	Total	Call Graph
Engineering	7	(BULL,EQMAS)^ENEQ3 XNPMSE^ENEQPMP DINV^ENEQPMP3 ^ENFAACQ EN^ENJ ZIS^ENUTL IIWO^ENWONEW3
VA FileMan	4	FILE^DICN ^DIE $$GET1^DIQ ^DIR
Kernel	1	$$UP^XLFSTR

Package	Total	Caller Graph
Engineering	3	ENEQ3 ENIN-ENTER-MULTI ENINVNEW

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

External References

Name	Field # of Occurrence
FILE^DICN	ENR+14
^DIE	ADDEQ+19, ADDEQ+25
$$GET1^DIQ	ASKSER+21, ASKSER+22, ASKSER+23
^DIR	EQAD+10, EQMAD+9, EQMAD+14, EQMAD+26, ASKEDM+7, ASKSER+9, ASKSER+25, ADDEQ+14, ADDEQ+30, ADDEQ+40 , ADDEQ+52
BULL^ENEQ3	ADDEQ+55
EQMAS^ENEQ3	EQMAD+28
XNPMSE^ENEQPMP	ADDEQ+34
DINV^ENEQPMP3	ADDEQ+33
^ENFAACQ	ADDEQ+53
EN^ENJ	ADDEQ+23
ZIS^ENUTL	EQAD+2, EQMAD+2
IIWO^ENWONEW3	ADDEQ+41
$$UP^XLFSTR	ASKSER+13

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
Routine Call	DIE Line Location: ADDEQ+19 ADDEQ+25
Routine Call	DIR Line Location: EQAD+10 EQMAD+9 EQMAD+14 EQMAD+26 ASKEDM+7 ASKSER+9 ASKSER+25 ADDEQ+14 ADDEQ+30 ADDEQ+40 ADDEQ+52

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^ENG(6914 - [#6914]	Classic Fileman Calls, GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIE("B"	ASKEDM+8
^ENG(6910.2 - [#6910.2]	ADDEQ+36, ADDEQ+37, ADDEQ+39
^ENG(6914 - [#6914]	ASKSER+15, ADDEQ+16, ADDEQ+33, ADDEQ+47, ADDEQ+57, ENR+7, ENR+10, ENR+11, ENR+16
^XUSEC("ENEDPM"	ADDEQ+27
^XUSEC("ENFACS"	ADDEQ+47

Label References

Name	Line Occurrences
ADDEQ	EQAD+12, EQMAD+18
ASKEDM	EQAD+3, EQMAD+11
ASKSER	EQAD+11, EQMAD+16
ENR	ADDEQ+14
EQADX	EQAD+3
EQMAD	EQMAD+16
EQMADX	EQMAD+9, EQMAD+11, EQMAD+14, EQMAD+16, EQMAD+18

Naked Globals

Name	Field # of Occurrence
^(8	ADDEQ+47

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
DA	EQADX+1!, EQMADX+1!, ASKSER+5~, ADDEQ+19, ADDEQ+22, ADDEQ+25, ADDEQ+32, ADDEQ+33, ADDEQ+55, ENR+4 , ENR+13, ENR+15
DD	ENR+6~, ENR+14!
DIC	EQADX+1!, EQMADX+1!, ENR+6~, ENR+13*
DIC(0	ENR+13*
DIE	EQADX+1!, EQMADX+1!, ADDEQ+19, ADDEQ+25, ADDEQ+32*
DIK	EQADX+1!, EQMADX+1!
DINUM	ENR+6~, ENR+13*
DIR	EQAD+10!, EQADX+1!, EQMAD+9!, EQMAD+14!, EQMAD+26!, EQMADX+1!, ASKEDM+7!, ASKSER+9!, ASKSER+25!, ADDEQ+14! , ADDEQ+30!, ADDEQ+40!, ADDEQ+52!
DIR("?"	EQAD+9, EQMAD+6, EQMAD+7, EQMAD+8, EQMAD+25, ASKEDM+6
DIR("A"	EQAD+7, EQMAD+4, EQMAD+24, ASKEDM+5, ASKSER+24, ADDEQ+29, ADDEQ+38, ADDEQ+50
DIR("B"	EQAD+8, EQMAD+5, EQMAD+24, ASKEDM+5, ASKSER+25, ADDEQ+28, ADDEQ+39, ADDEQ+51
DIR(0	EQAD+7, EQMAD+4, EQMAD+14, EQMAD+24, ASKEDM+5, ASKSER+9, ASKSER+24, ADDEQ+14, ADDEQ+28, ADDEQ+38 , ADDEQ+50*
DIROUT	EQADX+1!, EQMADX+1!
DIRUT	EQADX+1!, EQMAD+14, EQMADX+1!, ASKEDM+7, ASKSER+25
DJD0	ADDEQ+24!
DJDIS	ADDEQ+24!
DJDN	ADDEQ+22*, ADDEQ+24!
DJLG	ADDEQ+24!
DJSC	ADDEQ+22*, ADDEQ+24!
DJSW2	ADDEQ+24!
DO	ENR+6~, ENR+14!
DR	EQADX+1!, EQMADX+1!, ADDEQ+19, ADDEQ+25
DTOUT	EQADX+1!, EQMADX+1!, ASKSER+9
DUOUT	EQADX+1!, EQMADX+1!, ASKSER+9
DUZ	ADDEQ+27, ADDEQ+47
END	EQAD+1, EQAD+3, EQAD+5, EQAD+10, EQAD+11, EQADX+2!, EQMAD+1, EQMAD+11, EQMAD+16, EQMAD+22 , EQMAD+26, EQMADX+2!, ASKEDM+7, ASKSER+9, ASKSER+25*
ENDA	EQADX+2!, EQMADX+2!, ADDEQ+22, ADDEQ+32, ADDEQ+42, ADDEQ+45!
ENDAOLD	EQMAD+27*, EQMAD+28, EQMAD+29!
ENDR	EQADX+2!, EQMADX+2!, ASKEDM+8*, ADDEQ+25
>> ENEQ("DA"	ADDEQ+53*!
ENERR	ADDEQ+14!, ENR+4!, ENR+8, ENR+15
ENI	ASKSER+5~, ASKSER+15, ASKSER+20, ASKSER+21, ASKSER+22, ASKSER+23, ADDEQ+36*, ADDEQ+37, ADDEQ+39
ENION	ADDEQ+43, ADDEQ+45!
ENMA	EQMAD+1*, EQMADX+2!, ADDEQ+40, ADDEQ+41, ADDEQ+49, ADDEQ+52
ENMA("FAP"	ADDEQ+52*
ENMA("IIWO"	ADDEQ+40, ADDEQ+42, ADDEQ+43, ADDEQ+44
ENMATCH	ASKSER+5~, ASKSER+17
ENMATCH(	ASKSER+15*, ASKSER+20
ENNXL	EQADX+2!, EQMAD+18, EQMAD+27, EQMAD+28, EQMADX+2!, ADDEQ+14, ADDEQ+16, ADDEQ+17, ADDEQ+19, ADDEQ+22 , ADDEQ+25, ADDEQ+32, ADDEQ+41, ADDEQ+47, ADDEQ+53, ADDEQ+55, ADDEQ+57, ENR+4, ENR+10, ENR+11 , ENR+13, ENR+15*
ENQDT	ADDEQ+44, ADDEQ+45!
ENSCRN	EQADX+2!, EQMADX+2!, ASKEDM+7*, ASKEDM+8, ADDEQ+21, ADDEQ+25
ENSERIAL	EQAD+11, EQMAD+16, ASKSER+7, ASKSER+10, ASKSER+11, ASKSER+13, ASKSER+25!, ADDEQ+19
ENX	ASKSER+5~, ASKSER+13, ASKSER+14, ASKSER+15
ENXP	ADDEQ+31~, ADDEQ+32*
IOF	EQAD+6, EQAD+10, EQMAD+3, EQMAD+20
IOINHI	EQAD+2~, EQMAD+2~
IOINLOW	EQAD+2~, EQMAD+2~, ADDEQ+23
U	ADDEQ+37, ADDEQ+39, ADDEQ+47
X	EQADX+1!, EQMADX+1!, ADDEQ+33, ENR+6~, ENR+13*
Y	EQAD+10, EQADX+1!, EQMAD+9, EQMAD+26, EQMADX+1!, ASKEDM+7, ASKSER+10, ASKSER+25, ADDEQ+30, ADDEQ+40 , ADDEQ+41, ADDEQ+52, ADDEQ+53, ENR+6~, ENR+15
>> ZTQUEUED	ENR+5

Customize PDF page

Package: Engineering

Routine: ENEQ1

Information

Source Information

Call Graph

Call Graph Total: 12

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 3

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: