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 |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All
Print Page as PDF
Global: ^IBE(358.93

Package: Automated Information Collection System

Global: ^IBE(358.93


Information

FileMan FileNo FileMan Filename Package
358.93 IMP/EXP MULTIPLE CHOICE FIELD Automated Information Collection System

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
Automated Information Collection System 3 ^IBE(358.93    CHOICE    ^IBE(359.94    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Automated Information Collection System 3 IMP/EXP AICS DATA QUALIFIERS(#358.98)[#358.931(.09)]    IMP/EXP ENCOUNTER FORM BLOCK(#358.1)[.08]    IMP/EXP PACKAGE INTERFACE(#358.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 division the setup is for.
  • CROSS-REFERENCE:  358.93^B
    1)= S ^IBE(358.93,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(358.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.
.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 shuld the label begin in?
  • 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?
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 TYPE OF DATA 0;6 POINTER TO IMP/EXP PACKAGE INTERFACE FILE (#358.6)
************************REQUIRED FIELD************************
IMP/EXP PACKAGE INTERFACE(#358.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$D(^(9))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 27, 1995
  • HELP-PROMPT:  What type of data will be entered to the field?
  • DESCRIPTION:  
    Points to the package interface file. That is where information about the data and how to map it to DHCP is stored.
  • SCREEN:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1,$D(^(9))"
  • EXPLANATION:  Allows only available interfaces for passing data to DHCP.
  • 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}.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 BLOCK 0;8 POINTER TO IMP/EXP ENCOUNTER FORM BLOCK FILE (#358.1)
************************REQUIRED FIELD************************
IMP/EXP ENCOUNTER FORM BLOCK(#358.1)

  • LAST EDITED:  JUL 20, 1994
  • HELP-PROMPT:  What block should this input field appear in?
  • CROSS-REFERENCE:  358.93^C
    1)= S ^IBE(358.93,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(358.93,"C",$E(X,1,30),DA)
    Used to find all the input 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 makee?
1 CHOICE 1;0 Multiple #358.931 358.931

  • LAST EDITED:  JUL 21, 1994
  • DESCRIPTION:  
    The reports that should print.

External References

Name Field # of Occurrence
^DIC .06+1
$$UPPER^VALM1 .07+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(358.93 - [#358.93] .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .08(XREF 1S), .08(XREF 1K)
DIC .06+1!*
DIC("S" .06+1*, .06SCR+1*
>> DIE .06+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1*!, .04+1*!, .06+1*!, .07+1*!, .08(XREF 1S), .08(XREF 1K)
>> Y .03OT+1*, .04OT+1*, .06+1
>> Y(0 .03OT+1*, .04OT+1*
Info |  Desc |  Directly Accessed By Routines |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables  | All