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 |  All
Print Page as PDF
Global: ^MCAR(697.3

Package: Medicine

Global: ^MCAR(697.3


Information

FileMan FileNo FileMan Filename Package
697.3 MEDICINE SCREEN (USER) Medicine

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Medicine 11 MCARD    MCARDML    MCARDNJ    MCARDNJ1    MCARDNJ2    MCARDNK    MCARDNQ    MCARDPL
MCPOS01D    MCPRGEN    MCRH3    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
Medicine 3 MCARD    MCARDPL    MCPRGEN    

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:  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(^MCAR(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.
.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 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.
.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
.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.
.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
.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
  • 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 #697.31 697.31

  • DESCRIPTION:  
    This field defines the elements that make up the screen.
  • IDENTIFIED BY:  ENTRY NUM(#.11)[R]
.08 DESCRIPTION 0;7 FREE TEXT
************************REQUIRED FIELD************************

  • 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)
.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.
.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.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Fields |  All