Home Package List Routine Alphabetical List Global Alphabetical List FileMan Files List FileMan Sub-Files List Package Component Lists Package-Namespace Mapping

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All

Print Page as PDF

Global: ^ENG(6910.9

Package: Engineering

Global: ^ENG(6910.9

Information

FileMan FileNo	FileMan Filename	Package
6910.9	ENG DJ SCREEN	Engineering

Description

File of screens used by Engineering Screen Handler.

Directly Accessed By Routines, Total: 22

Package	Total	Routines
Engineering	21	ENJ ENJDPL ENJINJ ENJINJ1 ENJINJ2 ENJINJ3 ENJINK ENJINQ ENJMUL ENNEWPK2 ENTRY DEFINITIONS ENX2IPR ENX3IPS ENX6IPR ENX7IPR ENXIP63 ENXOIPR ^OFM(7336.9 ENXPIPR ENXVIPR ^ENG(6910.9
Kernel	1	FILE

Accessed By FileMan Db Calls, Total: 7

Package	Total	Routines
Engineering	7	ENJ ENJDPL ENPAT14 ENX2IPR ENX6IPR ENX7IPR ENXIP63

Fields, Total: 10

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `ANSWER MUST BE 3-16 CHARACTERS IN LENGTH` DESCRIPTION: `This field contains the screen name associated with a display of entries. The screen should be namespaced.` CROSS-REFERENCE: `6910.9^B` `1)= S ^ENG(6910.9,"B",$E(X,1,30),DA)=""` `2)= K ^ENG(6910.9,"B",$E(X,1,30),DA)` CROSS-REFERENCE: `6910.9^AC^MUMPS` `1)= Q` `2)= Q` `Obsolete x-ref. No API available to delete it.`
.02	MAXLINE	0;2	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:+X'=X!(X>15)!(X<15)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 15 AND 15` DESCRIPTION: `This field specifies the number of lines usable for data entry. It cannot exceed 15 lines. The system computes this field automatically.`
.03	PREVIOUS	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^ENG(6910.9,"B",X)) S DIC(0)="L",DIC="^ENG(6910.9," D ^DIC` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `ANSWER MUST BE 1-16 CHARACTERS IN LENGTH` DESCRIPTION: `This field is only applicable to multiple page screens. This field points to the previous screen name. It is a free text pointer entered by the system automatically.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6910.9^AP^MUMPS` `1)= N ENDJP S:X]"" ENDJP=$O(^ENG(6910.9,"B",X,0)) S:$G(ENDJP) $P(^ENG(6910.9,ENDJP,0),U,5)=$P($G(^ENG(6910.9,DA,0)),U) Q` `2)= N ENDJP S:X]"" ENDJP=$O(^ENG(6910.9,"B",X,0)) S:$G(ENDJP) ENDJP("RL")=$P(^ENG(6910.9,ENDJP,0),U,5) S:$G(ENDJP("RL"))=$P($G(^ENG(6910.9,DA,0)),U) $P(^ENG(6910.9,ENDJP,0),U,5)="" Q` `Updates RIGHTLINKED field of 'previous' screen.`
.04	SECURITY	0;4	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>10!($L(X)<1) X` LAST EDITED: `APR 28, 1993` HELP-PROMPT: `Answer must be 1-10 characters in length.` DESCRIPTION: `This field is set automatically to the write (WR) security of the file selected by the user, at the time the file is created.`
.05	RIGHTLINKED	0;5	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^ENG(6910.9,"B",X)) S DIC(0)="L",DIC="^ENG(6910.9," D ^DIC` LAST EDITED: `OCT 29, 1996` HELP-PROMPT: `ANSWER MUST BE 1-16 CHARACTERS IN LENGTH` DESCRIPTION: `This field is only applicable to multiple page screens. This field contains the name of the screen to be executed next. It is a free text pointer entered by the system automatically.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `6910.9^AR^MUMPS` `1)= N ENDJR S:X]"" ENDJR=$O(^ENG(6910.9,"B",X,0)) S:$G(ENDJR) $P(^ENG(6910.9,ENDJR,0),U,3)=$P($G(^ENG(6910.9,DA,0)),U) Q` `2)= N ENDJR S:X]"" ENDJR=$O(^ENG(6910.9,"B",X,0)) S:$G(ENDJR) ENDJR("PR")=$P(^ENG(6910.9,ENDJR,0),U,3) S:$G(ENDJR("PR"))=$P($G(^ENG(6910.9,DA,0)),U) $P(^ENG(6910.9,ENDJR,0),U,3)="" Q` `Updates PREVIOUS field of 'rightlinked' screen.`
.06	DD NUMBER	0;6	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `S DIC="^DIC(",DIC(0)="ENQ",DIC("S")=$S(DUZ(0)'="@":"I 1 Q:'$D(^DIC(+Y,0,""WR"")) F DJX=1:1:$L(^(""WR"")) I DUZ(0)[$E(^(""WR""),DJX) Q",1:"I Y-1") D ^DIC S X=+Y K:Y'>0 X` LAST EDITED: `JAN 21, 1988` HELP-PROMPT: `TYPE A LEGAL DATA DEFINITION NUMBER BETWEEN 0 AND 99999999` DESCRIPTION: `The contents of this field should be a legal Data Definition (DD) number. It could be a first level .` EXECUTABLE HELP: `S ZD=D,X="?" S DIC="^DIC(",DIC(0)="ENQ",DIC("S")=$S(DUZ(0)'="@":"I 1 Q:'$D(^DIC(+Y,0,""WR"")) F DJX=1:1:$L(^(""WR"")) I DUZ(0)[$E(^(""WR""),DJX) Q",1:"I Y-1") D ^DIC S DIC=DIE,D=ZD K ZD,DIC("S")` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.07	ENTRY DEFINITIONS	1;0	Multiple #6910.97	6910.97 DESCRIPTION: `Definition of each line item on a data entry screen.`
.08	DESCRIPTION	0;7	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:$L(X)>64!($L(X)<2) X` HELP-PROMPT: `ANSWER MUST BE 2-64 CHARACTERS IN LENGTH` DESCRIPTION: `The data entered in this field will be displayed at the top of the screen display as a title with the current date.`
.09	FILE LEVEL	0;8	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X` HELP-PROMPT: `TYPE A WHOLE NUMBER BETWEEN 0 AND 9` DESCRIPTION: `This field keeps track of the level of the screen display with respect to the hierarchy of the file.`
.1	HIGHEST NUMBER USED	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>99)!(X<.1)!(X?.E1"."3N.N) X` HELP-PROMPT: `TYPE A NUMBER BETWEEN .1 AND 99` DESCRIPTION: `This field contains the highest number used in the screen display. It is used when continuing adding entries.`

External References

Name	Field # of Occurrence
^DIC	.03+1, .05+1, .06+1, .06(HELP )

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^ENG(6910.9 - [#6910.9]	.01(XREF 1S), .01(XREF 1K), .03+1, .03(XREF 1S), .03(XREF 1K), .05+1, .05(XREF 1S), .05(XREF 1K)

Naked Globals

Name	Field # of Occurrence
^(0	ID.06+1, ID.08+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> D	.06(HELP )
>> DA	.01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
>> DIC	.03+1, .05+1, .06+1*, .06(HELP )
>> DIC("S"	.06+1*, .06(HELP )
>> DIC(0	.03+1, .05+1, .06+1*, .06(HELP )
>> DIE	.06(HELP )
DUZ(0	.06+1, .06(HELP )
ENDJP	.03(XREF 1S), .03(XREF 1K)
ENDJP("RL"	.03(XREF 1K)
ENDJR	.05(XREF 1S), .05(XREF 1K)
ENDJR("PR"	.05(XREF 1K)
U	ID.06+1, ID.08+1, .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1!, .03(XREF 1S), .03(XREF 1K), .04+1!, .05+1!, .05(XREF 1S) , .05(XREF 1K), .06+1*!, .06(HELP ), .08+1!, .09+1!, .1+1!
>> Y	.06+1
ZD	.06(HELP )

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Fields | External References | Global Variables Directly Accessed | Naked Globals | Local Variables | All