STANDARD DATA DICTIONARY #697.3 -- MEDICINE SCREEN (USER) FILE 9/29/25 PAGE 1
STORED IN ^MCAR(697.3, (355 ENTRIES) SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 2.3)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the screen characteristics of the medicine screen to be displayed.
DD ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: DESCRIPTION (#.08)[R]
CROSS
REFERENCED BY: NAME(AC), NAME(B), DESCRIPTION(C)
697.3,.01 NAME 0;1 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>16!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: MAY 28, 1993
HELP-PROMPT: ANSWER MUST BE 3-16 CHARACTERS IN LENGTH
DESCRIPTION: This field contains the screen name associated with a display of entries. The name should start
with 'MC' (Medicine Namespace Characters.)
CROSS-REFERENCE: 697.3^B
1)= S ^MCAR(697.3,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(697.3,"B",$E(X,1,30),DA)
CROSS-REFERENCE: 697.3^AC^MUMPS
1)= Q
2)= S DJ3=$P(^MCAR(697.3,DA,0),U,3),DJ5=$P(^MCAR(697.3,DA,0),U,5) S:DJ3'="" DJ3=$O(^MCAR(697.3,"B",
DJ3,0)) S:DJ3 $P(^MCAR(697.3,DJ3,0),"^",5)="" S:DJ5'="" DJ5=$O(^MCAR(697.3,"B",DJ5,0)) S:DJ5 $P(^MC
AR(697.3,DJ5,0),"^",3)="" K DJ3,DJ5
This cross-reference acts upon deletion of the screen to (1) remove the rightlinked pointer from
the previous screen and (2) remove the previous pointer from the rightlinked screen.
697.3,.02 MAXLINE 0;2 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>15)!(X<15)!(X?.E1"."1N.N) X
HELP-PROMPT: Type a Number between 15 and 15
DESCRIPTION: This field contains the maximum length used by the screen display. It can not exceed 15 lines.
The system computes this field automatically.
697.3,.03 PREVIOUS 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^MCAR(697.3,"B",X)) S DIC(0)="L",DIC="^MCAR(697.3," D ^DIC
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
697.3,.04 SECURITY 0;4 FREE TEXT
INPUT TRANSFORM: K:$L(X)>10!($L(X)<1) X
LAST EDITED: MAR 29, 1989
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.
697.3,.05 RIGHTLINKED 0;5 FREE TEXT
INPUT TRANSFORM: K:$L(X)>16!($L(X)<1) X I $D(X),'$D(^MCAR(697.3,"B",X)) S DIC(0)="L",DIC="^MCAR(697.3," D ^DIC
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
697.3,.06 DD NUMBER 0;6 NUMBER (Required)
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
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 DJ
X=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
697.3,.07 ENTRY DEFINITIONS 1;0 Multiple #697.31
DESCRIPTION:
This field defines the elements that make up the screen.
IDENTIFIED BY: ENTRY NUM(#.11)[R]
697.31,.01 LABEL 0;1 FREE TEXT (Multiply asked)
INPUT TRANSFORM: K:$L(X)>30!($L(X)<3) X
HELP-PROMPT: Enter a 3 to 30 character label for this screen entry. This label will be displayed when the
screen is executed.
DESCRIPTION: This field identifies new elements to a screen (OPTION 1) select a valid field name or field
number. The field name that you select will be the label displayed on your screen. You may
change this label as desired.
To see a list of other commands you can enter at the label prompt type up-arrow C (^C).
CROSS-REFERENCE: 697.31^B
1)= S ^MCAR(697.3,DA(1),1,"B",$E(X,1,30),DA)=""
2)= K ^MCAR(697.3,DA(1),1,"B",$E(X,1,30),DA)
697.31,.02 START X-Y 0;2 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>11!($L(X)<3) X
HELP-PROMPT: ANSWER MUST BE 3-11 CHARACTERS IN LENGTH
DESCRIPTION: This field identifies the starting X-Y co-ordinates of the label (including the entry number).
The co-ordinates are in the format: DX=number,DY=number.
697.31,.03 FIELD LENGTH 0;3 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>200)!(X<3)!(X?.E1"."1N.N) X
LAST EDITED: JUL 10, 1996
HELP-PROMPT: Type a Number between 3 and 200, 0 Decimal Digits
DESCRIPTION:
This field identifies the length of your data.
697.31,.04 END X-Y 0;4 FREE TEXT (Required)
INPUT TRANSFORM: K:$L(X)>11!($L(X)<6) X
HELP-PROMPT: ANSWER MUST BE 6-11 CHARACTERS IN LENGTH
DESCRIPTION: This field identifies the ending X-Y co-ordinates of the label (Including Entry number, the
label, and any following punctuation.) The co-ordinates are in the format: DX=number,DY=number.
697.31,.05 ATTRIBUTE NR 0;5 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999)!(X<-1)!(X?.E1"."5N.N) X
LAST EDITED: OCT 20, 1987
HELP-PROMPT: Type a Number between -1 and 999999, 4 Decimal Digits
DESCRIPTION:
This field contains the file attribute number for the data.
697.31,.06 TYPE 0;6 FREE TEXT
INPUT TRANSFORM: K:$L(X)>20!($L(X)<1) X
LAST EDITED: MAR 09, 1992
HELP-PROMPT: Answer must be 1-20 characters in length.
DESCRIPTION: This field is similar to the descriptor in the Data Dictionary. It allows the screen management
system to decide whether the data is a set of codes, free text, pointer file, etc.
697.31,.07 RD(ONLY) 0;7 SET
'1' FOR YES;
'0' FOR NO;
HELP-PROMPT: Is this field for display only?
DESCRIPTION:
This field is used to indicate 'DISPLAY' only of data. This means no updating is allowed.
CROSS-REFERENCE: 697.31^AC^MUMPS
1)= I X=1&(^MCAR(697.3,DA(1),1,DA,0)'["(R)") S $P(^(0),U,4)=$P($P(^(0),U,4),"X=",1)_"X="_($P($P(^(0
),U,4),"X=",2)+3) X ^DD(697.31,.07,1,1,1.1) Q
1.1)= S DIV=$P(^MCAR(697.3,DA(1),1,DA,0),U,1),$P(^(0),U,1)=DIV_"(R)",^MCAR(697.3,DA(1),1,"B",DIV_"(
R)",DA)="" K ^MCAR(697.3,DA(1),1,"B",DIV,DA),DIV Q
1.2)= I ^MCAR(697.3,DA(1),1,DA,0)["(R)" S DIV2=$P(^(0),"(R)",1),DIV=$P(^(0),U,10)-3,DIV1=$P(^(0),U,
4),DIV1=$P(DIV1,"DX=",1)_"DX="_DIV X ^DD(697.31,.07,1,1,1.3)
1.3)= S ^MCAR(697.3,DA(1),1,DA,0)=DIV2_"^"_$P(^MCAR(697.3,DA(1),1,DA,0),"^",2,3)_"^"_DIV1_"^"_$P(^(
0),"^",5,9)_"^"_DIV_"^"_$P(^(0),"^",11,15) K DIV,DIV1,DIV2
2)= I ^MCAR(697.3,DA(1),1,DA,0)["(R)" S DIV=$P(^(0),U,1),$P(^(0),U,1)=$P(^(0),"(R)",1),$P(^(0),U,4)
=$P($P(^(0),U,4),"X=",1)_"X="_($P($P(^(0),U,4),"X=",2)-3) X ^DD(697.31,.07,1,1,2.1) Q
2.1)= S ^MCAR(697.3,DA(1),1,"B",$P(^MCAR(697.3,DA(1),1,DA,0),U,1),DA)="" K ^MCAR(697.3,DA(1),1,"B",
DIV,DA),DIV Q
This cross-reference controls the definition of cursor addresses for read-only fields.
697.31,.11 ENTRY NUM 0;13 NUMBER (Required)
INPUT TRANSFORM:K:+X'=X!(X>99.9)!(X<.1)!(X?.E1"."2N.N)!($D(^MCAR(697.3,DA(1),1,"A",X))) X
LAST EDITED: SEP 23, 1987
HELP-PROMPT: Type a Number between .1 and 99.9, no duplicates are allowed.
DESCRIPTION: This field identifies the entry number that shows on the screen for this data element. Numbers with
a decimal point are used for subtitles, that is no data is associated with them.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
CROSS-REFERENCE:697.31^A
1)= S ^MCAR(697.3,DA(1),1,"A",$E(X,1,30),DA)=""
2)= K ^MCAR(697.3,DA(1),1,"A",$E(X,1,30),DA)
This cross-reference allow the screen handler to get the Entry number.
697.31,1 POST ACTION CODE 1;E1,200 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)
DESCRIPTION: This field identifies standard MUMPS code that is executed after the entering/editing of data for
this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.31,2 PRE ACTION CODE 2;E1,200 FREE TEXT
INPUT TRANSFORM:K:$L(X)>200!($L(X)<1) X D ^DIM:$D(X)
HELP-PROMPT: ANSWER MUST BE 1-200 CHARACTERS IN LENGTH (MUMPS CODE ONLY)
DESCRIPTION: This field identifies standard MUMPS code that is executed prior to the entering or editing of data
for this entry.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.31,5 MULTIPLE SCREEN NAME 0;12 FREE TEXT
INPUT TRANSFORM:K:$L(X)>16!($L(X)<4) X ;I $D(X),'$D(^MCAR(697.3,DA(1),"B",X)) K X
LAST EDITED: OCT 04, 1990
HELP-PROMPT: This entry is automatically generated by the system.
DESCRIPTION: This field identifies the name of the subscreen to branch to for a multiple field. This subscreen
will be executed ONLY IF the subscreen has more than a .01 data point.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.31,6 DEFAULT VALUE 3;1 FREE TEXT
INPUT TRANSFORM:K:$L(X)>30!($L(X)<1)!($P(^MCAR(697.3,DA(1),DA,0),"^",5)=.01)!($P(^(0),"^",6)["C")!($P(^(0),"^",7))
X
HELP-PROMPT: ANSWER MUST BE 1-30 CHARACTERS IN LENGTH. Not applicable to .01, computed, or read only fields
DESCRIPTION: Enter a legitimate default value for this field. .01 Fields as well as computed or read only are
not allowed.
NOTES: XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
697.3,.08 DESCRIPTION 0;7 FREE TEXT (Required)
INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>64!($L(X)<2) X
LAST EDITED: DEC 30, 1993
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.
CROSS-REFERENCE: 697.3^C
1)= S ^MCAR(697.3,"C",$E(X,1,30),DA)=""
2)= K ^MCAR(697.3,"C",$E(X,1,30),DA)
697.3,.09 FILE LEVEL 0;8 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>9)!(X<0)!(X?.E1"."1N.N) X
LAST EDITED: SEP 23, 1987
HELP-PROMPT: Type a Number between 0 and 9, 0 Decimal Digits
DESCRIPTION: This field keeps track of the level of the screen display with respect to the hierarchy of the
file.
697.3,.1 HIGHEST NUMBER USED 0;9 NUMBER
INPUT TRANSFORM: K:+X'=X!(X>99)!(X<.1)!(X?.E1"."2N.N) X
LAST EDITED: SEP 23, 1987
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.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
MCFSFGM MAY 28, 1993 USER #0
SORT TEMPLATE(S):
MCARGENS MAY 22, 1997@11:01 USER #0 NAME EQUALS "MCFSGEN" Or NAME EQUALS "MCBSGEN"
This sort template is to export the screen changes for the Generalized
Procedure module.
FORM(S)/BLOCK(S):