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 |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^IBE(357.93

Package: Automated Information Collection System

Global: ^IBE(357.93


Information

FileMan FileNo FileMan Filename Package
357.93 MULTIPLE CHOICE FIELD Automated Information Collection System

Description

Directly Accessed By Routines, Total: 11

Package Total Routines
Automated Information Collection System 11 IBD3KPT    IBDF10A    IBDF10C    IBDF2A1    IBDF2G    IBDF9B2    IBDFCMP1    IBDFRPC
IBDFRPC1    IBDXI93    IBDXI931    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Automated Information Collection System 5 IBD3KPT    IBDF2G    IBDF9B2    IBDXI93    IBDXI931    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Automated Information Collection System 3 AICS DATA QUALIFIERS(#357.98)[#357.931(.09)]    ENCOUNTER FORM BLOCK(#357.1)[.08]    PACKAGE INTERFACE(#357.6)[.06]    

Fields, Total: 9

Field # Name Loc Type Details
.01 NAME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  MAY 18, 1993
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    The name given to the field.
  • CROSS-REFERENCE:  357.93^B
    1)= S ^IBE(357.93,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(357.93,"B",$E(X,1,30),DA)
.02 QUESTION OR EXPLANATION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  You may enter text, such as a question, to appear as part of the input field.
  • DESCRIPTION:  
    Text that precedes the list of choices.
.03 STARTING COLUMN FOR TEXT 0;3 NUMBER

  • INPUT TRANSFORM:  S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S Y=+Y+1
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  What block column should the label begin in?
  • DESCRIPTION:  
    The starting column for the text located in the .03 field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 STARTING ROW FOR TEXT 0;4 NUMBER

  • INPUT TRANSFORM:  S:+X=X X=X-1 K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S Y=+Y+1
  • LAST EDITED:  JUL 21, 1994
  • HELP-PROMPT:  What block row should the label start in?
  • DESCRIPTION:  
    The row for the text in the .03 field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 TYPE OF DATA 0;6 POINTER TO PACKAGE INTERFACE FILE (#357.6)
************************REQUIRED FIELD************************
PACKAGE INTERFACE(#357.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""M""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  AUG 29, 1995
  • HELP-PROMPT:  What type of data will be entered to the field?
  • DESCRIPTION:  
    Points to the package interface used to input the data.
  • SCREEN:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""M"""
  • EXPLANATION:  Allows only available input interfaces that are defined as allowable for multiple choices form objects.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.07 TEXT APPEARANCE 0;7 FREE TEXT

  • INPUT TRANSFORM:  S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBR"'[$E(X,1))!("UBR"'[$E(X,2))!("UBR"'[$E(X,3)) X
  • LAST EDITED:  AUG 16, 1994
  • HELP-PROMPT:  B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}.
  • DESCRIPTION:  
    The display appearance of the text in the .03 field can be selected via this field.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 BLOCK 0;8 POINTER TO ENCOUNTER FORM BLOCK FILE (#357.1)
************************REQUIRED FIELD************************
ENCOUNTER FORM BLOCK(#357.1)

  • LAST EDITED:  JUL 20, 1994
  • HELP-PROMPT:  What block should this input field appear in?
  • CROSS-REFERENCE:  357.93^C
    1)= S ^IBE(357.93,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(357.93,"C",$E(X,1,30),DA)
    Used to find all the multiple choice fields appearing in a block.
.09 SELECTION RULE 0;9 SET
  • '0' FOR ANY NUMBER;
  • '1' FOR EXACTLY ONE;
  • '2' FOR AT MOST ONE (0 or 1);
  • '3' FOR AT LEAST ONE (1 or more);

  • LAST EDITED:  DEC 09, 1994
  • HELP-PROMPT:  Which rule applies to the choices the user can make?
  • DESCRIPTION:  
    A selection rule for the multiple choice question can be specified.
1 CHOICE 1;0 Multiple #357.931 357.931

  • LAST EDITED:  JUL 21, 1994
  • DESCRIPTION:  
    The list of choices that make up the multiple choice field.
  • IDENTIFIED BY:  
    "WRITE":    N IBDWLAB,IBDWQLFR S IBDWLAB="LABEL="_$P(^(0),U,5),IBDWQLFR="" S:$P(^(0),U,9) IBDWQLFR=$P($G(^IBD(357.98,$P(^(0),U,9),0)),U) D EN^DDIOL(IBDWLAB_"     "_IBDWQLFR,"","?0")

Found Entries, Total: 2

NAME: CLASSIFICATIONS    NAME: NO CLASSIFICATIONS    
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All