Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 697.31

Package: Medicine

MEDICINE SCREEN (USER)(#697.3)-->697.31

Sub-Field: 697.31


Information

Parent File Name Number Package
MEDICINE SCREEN (USER)(#697.3) ENTRY DEFINITIONS 697.31 Medicine

Details

Field # Name Loc Type Details
.01 LABEL 0;1 FREE TEXT

  • 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)
.02 START X-Y 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.03 FIELD LENGTH 0;3 NUMBER
************************REQUIRED FIELD************************

  • 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.
.04 END X-Y 0;4 FREE TEXT
************************REQUIRED FIELD************************

  • 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.
.05 ATTRIBUTE NR 0;5 NUMBER
************************REQUIRED FIELD************************

  • 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.
.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.
.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.
.11 ENTRY NUM 0;13 NUMBER
************************REQUIRED FIELD************************

  • 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.
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
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
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
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
Info |  Details