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: 357.951

Package: Automated Information Collection System

FORM DEFINITION(#357.95)-->357.951

Sub-Field: 357.951


Information

Parent File Name Number Package
FORM DEFINITION(#357.95) BUBBLES 357.951 Automated Information Collection System

Details

Field # Name Loc Type Details
.01 BUBBLE ROW 0;1 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 03, 1996
  • HELP-PROMPT:  Type a Number between 0 and 999, 0 Decimal Digits
  • DESCRIPTION:  
    The row the bubble occurs on. Row 0 is at the top.
  • CROSS-REFERENCE:  357.951^B
    1)= S ^IBD(357.95,DA(1),1,"B",$E(X,1,30),DA)=""
    2)= K ^IBD(357.95,DA(1),1,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  357.95^AC^MUMPS
    1)= S:$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",2)]"" ^IBD(357.95,"AC",DA(1),X,$P(^IBD(357.95,DA(1),1,DA,0),"^",2),DA)=""
    2)= K:$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",2)]"" ^IBD(357.95,"AC",DA(1),X,$P(^IBD(357.95,DA(1),1,DA,0),"^",2),DA)
    This cross-reference indexes the bubbles by location. Set by the .01 and .02 fields.
.02 BUBBLE COLUMN 0;2 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 03, 1996
  • HELP-PROMPT:  Type a Number between 0 and 200, 0 Decimal Digits
  • DESCRIPTION:  
    The column the bubble occurs on. Columns begin at 0 on the left.
  • CROSS-REFERENCE:  357.95^AC1^MUMPS
    1)= S:X]"" ^IBD(357.95,"AC",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),"^"),X,DA)=""
    2)= K:X]"" ^IBD(357.95,"AC",DA(1),$P($G(^IBD(357.95,DA(1),1,DA,0)),"^"),X,DA)
    This cross-reference indexes the bubbles by location. Set by the .01 and .02 fields.
.03 TYPE OF DATA 0;3 POINTER TO PACKAGE INTERFACE FILE (#357.6) PACKAGE INTERFACE(#357.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""P""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  APR 03, 1996
  • HELP-PROMPT:  What type of data does the bubble represent?
  • DESCRIPTION:  
    The type of data a bubble represents. Used to map the data to DHCP.
  • SCREEN:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$P(^(0),U,16)[""P"""
  • EXPLANATION:  The screen is only for PANDAS. It allows only certain input interfaces.
  • CROSS-REFERENCE:  357.95^AE^MUMPS
    1)= I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",4)]"" S ^IBD(357.95,"AE",DA(1),X,+$P(^IBD(357.95,DA(1),1,DA,0),"^",10),$P(^(0),"^",4),DA)=""
    2)= I X,$P($G(^IBD(357.95,DA(1),1,DA,0)),"^",4)]"" K ^IBD(357.95,"AE",DA(1),X,+$P(^IBD(357.95,DA(1),1,DA,0),"^",10),$P(^(0),"^",4),DA)
    Subscripts are
    , , ,,). Set by the .03 ,.04, and .1 fields.
.04 PRIMARY VALUE 0;4 FREE TEXT

  • INPUT TRANSFORM:  D FDCHOICE^IBDFU91($P(^IBD(357.95,D0,1,D1,0),U,3),.X)
  • OUTPUT TRANSFORM:  D OUTPUT^IBDFU91($P(^IBD(357.95,D0,1,D1,0),U,3),.Y)
  • LAST EDITED:  APR 03, 1996
  • HELP-PROMPT:  What value should be entered to the database?
  • DESCRIPTION:  
    The value to pass to the package interface.
  • EXECUTABLE HELP:  D HELP^IBDFU91($P(^IBD(357.95,DA(1),1,DA,0),U,3))
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  357.95^AE2^MUMPS
    1)= I $P($G(^IBD(357.95,DA(1),1,DA,0)),"^",3),X]"" S ^IBD(357.95,"AE",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),"^",3),+$P(^(0),"^",10),X,DA)=""
    2)= I $P($G(^IBD(357.95,DA(1),1,DA,0)),"^",3),X]"" K ^IBD(357.95,"AE",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),"^",3),+$P(^(0),"^",10),X,DA)
    Subscripts are , , ,,). Set by the .03 ,.04, and .1 fields.
.05 FIELD NAME 0;5 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  AUG 23, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • DESCRIPTION:  
    The name of the field that the bubble appears in.
.06 FIELD ID 0;6 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<2) X
  • LAST EDITED:  AUG 23, 1994
  • HELP-PROMPT:  Answer must be 2-10 characters in length.
  • DESCRIPTION:  
    A unique identifier for a group of one or more bubbles that is used to tie that group of bubbles together.
.07 SELECTION RULE 0;7 SET
************************REQUIRED FIELD************************
  • '0' FOR ANY NUMBER;
  • '1' FOR EXACTLY ONE;
  • '2' FOR AT MOST ONE;
  • '3' FOR AT LEAST ONE;

  • LAST EDITED:  AUG 24, 1994
  • DESCRIPTION:  
    A rule that specifies how many of the bubbles can be filled in for a group of bubbles identified by the same FIELD ID.
.08 DISPLAYED TEXT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 27, 1995
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    The text that appears on the form and is associated with the bubble.
.09 DISPLAYED HEADER 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>40!($L(X)<1) X
  • LAST EDITED:  OCT 19, 1994
  • HELP-PROMPT:  What group header does the selection appear under?
  • DESCRIPTION:  
    The header, if any, that is associated with the bubble.
.1 DATA QUALIFIER 0;10 POINTER TO AICS DATA QUALIFIERS FILE (#357.98) AICS DATA QUALIFIERS(#357.98)

  • INPUT TRANSFORM:  S DIC("S")="I $$DQGOOD^IBDFU9($P(^IBD(357.95,D0,1,D1,0),U,3),Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 12, 1995
  • HELP-PROMPT:  What data qualifier applies to this selection?
  • DESCRIPTION:  
    The data qualifier associated with the bubble.
  • SCREEN:  S DIC("S")="I $$DQGOOD^IBDFU9($P(^IBD(357.95,D0,1,D1,0),U,3),Y)"
  • EXPLANATION:  Allows only certain data qualifiers, dependent on the type of data.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  357.95^AE1^MUMPS
    1)= I $P(^IBD(357.95,DA(1),1,DA,0),"^",3),$P(^(0),"^",4)]"" S ^IBD(357.95,"AE",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),"^",3),+X,$P(^(0),"^",4),DA)=""
    2)= I $P(^IBD(357.95,DA(1),1,DA,0),"^",3),$P(^(0),"^",4)]"" K ^IBD(357.95,"AE",DA(1),$P(^IBD(357.95,DA(1),1,DA,0),"^",3),+X,$P(^(0),"^",4),DA)
    Subscripts are , ,+,,). Set by the .03, .04, and .01 fields.
.11 DYNAMIC? 0;11 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JAN 23, 1995
  • HELP-PROMPT:  Enter YES if the data associated with the bubble is stored in Form Tracking.
  • DESCRIPTION:  
    A field is dynamic if the data associated with the bubble is determined at print time as opposed to design time.
.12 ITEM NUMBER 0;12 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 24, 1995
  • HELP-PROMPT:  What number on the list is the entry where this bubble occurs?
  • DESCRIPTION:  
    The order on a list of bubbles that this bubble occurs in.
.13 QUANTITY 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 15, 1996
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • DESCRIPTION:  
    Data in the Quantity field indicates the number of occurrences that will be passed along to PCE for this entry if the bubbled is selected.
.14 SELECTION 0;14 POINTER TO SELECTION FILE (#357.3) SELECTION(#357.3)

  • LAST EDITED:  JUN 01, 1999
  • HELP-PROMPT:  Pointer to Selection File is to be set via AICS Form compilation.
  • DESCRIPTION:  
    Pointer to Selection File is to be set via AICS Form compilation.
1 SUBHEADER 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>250!($L(X)<1) X
  • LAST EDITED:  OCT 02, 1995
  • HELP-PROMPT:  Answer must be 1-250 characters in length.
  • DESCRIPTION:  
    The subheader will be appended to the narrative for passing to PCE.
2.01 ALTERNATIVE NARRATIVE 2;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<3) X
  • LAST EDITED:  SEP 06, 1996
  • HELP-PROMPT:  Answer must be 3-80 characters in length.
  • DESCRIPTION:  
    This stores the alternative narrative for the Diagnosis codes.
2.02 CLINICAL LEXICON 2;2 POINTER TO EXPRESSIONS FILE (#757.01) EXPRESSIONS(#757.01)

  • LAST EDITED:  SEP 06, 1996
  • DESCRIPTION:  
    This store the clinical lexicon for the diagnosis.
2.03 SECOND CODE 2;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 21, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Used to pass along an additional code when the first is bubble. Will always be passed as secondary.
2.04 THIRD CODE 2;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>10!($L(X)<1) X
  • LAST EDITED:  OCT 21, 1996
  • HELP-PROMPT:  Answer must be 1-10 characters in length.
  • DESCRIPTION:  
    Used to pass a 3rd code along to PCE when this one entry is selected. Always passes it along as secondary.
Info |  Details