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

Package: Automated Information Collection System

Global: ^IBE(358.1


Information

FileMan FileNo FileMan Filename Package
358.1 IMP/EXP ENCOUNTER FORM BLOCK Automated Information Collection System

Description

Directly Accessed By Routines, Total: 7

Package Total Routines
Automated Information Collection System 7 ^IBE(358.1    IBD3KPT    IBDE    IBDE3    IBDE4    IBDY336    IBDY338    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDE3    

Pointed To By FileMan Files, Total: 5

Package Total FileMan Files
Automated Information Collection System 5 IMP/EXP SELECTION LIST(#358.2)[.02]    IMP/EXP DATA FIELD(#358.5)[.02]    IMP/EXP FORM LINE(#358.7)[.06]    IMP/EXP TEXT AREA(#358.8)[.02]    IMP/EXP MULTIPLE CHOICE FIELD(#358.93)[.08]    

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Automated Information Collection System 1 IMP/EXP ENCOUNTER FORM(#358)[.02]    

Fields, Total: 12

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
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DESCRIPTION:  
    The name of the block.
  • DELETE TEST:  1,0)= I '$G(IBLISTPR) W "...Encounter Form Blocks can only be deleted through the Encounter Form Utilities!"
  • CROSS-REFERENCE:  358.1^B
    1)= S ^IBE(358.1,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(358.1,"B",$E(X,1,30),DA)
.02 FORM 0;2 POINTER TO IMP/EXP ENCOUNTER FORM FILE (#358)
************************REQUIRED FIELD************************
IMP/EXP ENCOUNTER FORM(#358)

  • LAST EDITED:  AUG 02, 1993
  • HELP-PROMPT:  What form should this block appear on?
  • DESCRIPTION:  
    The form the block appears on.
  • CROSS-REFERENCE:  358.1^C
    1)= S ^IBE(358.1,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(358.1,"C",$E(X,1,30),DA)
    Used to find all the blocks belonging to a particular form.
.04 BLOCK'S STARTING ROW 0;4 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S:+X=X X=X-1 K:+X'=X!(X>999)!(X<0)!(X?.E1"."1N.N) X
  • OUTPUT TRANSFORM:  S Y=(+Y)+1
  • LAST EDITED:  JUL 15, 1993
  • HELP-PROMPT:  What line should this block begin on?
  • DESCRIPTION:  
    The row  on the encounter form that the block starts on.
  • TECHNICAL DESCR:  The internal representation starts at 0, the external representation starts at 1. The difference is because for computing the form image it is convenient to work with displacements fromt the top left-hand corner. However,
    users do not want to work with row=0 or column=0.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 BLOCK'S STARTING COLUMN 0;5 NUMBER
************************REQUIRED FIELD************************

  • 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 15, 1993
  • HELP-PROMPT:  What column should this block begin on?
  • DESCRIPTION:  
    The column on the encounter form that the block starts on.
  • TECHNICAL DESCR:  The internal representation starts at 0, the external representation starts at 1. The difference is because for computing the form image it is convenient to work with displacements from the top left-hand corner. However,
    users do not want to work with row=0 or column=0.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.06 WIDTH IN CHARACTERS 0;6 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  How many characters wide should this block be?
  • DESCRIPTION:  
    The width of the block, measured in the number of characters across.
.07 HEIGHT IN LINES 0;7 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  How many lines high should this block be?
  • DESCRIPTION:  
    The height of the block, measured by the number of lines it takes up.
.1 OUTLINE TYPE 0;10 SET
************************REQUIRED FIELD************************
  • '1' FOR SOLID LINE;
  • '2' FOR INVISIBLE;

  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  Enter '1' if the block should have a box around it, '2' if not.
  • DESCRIPTION:  
    How the block is outlined on the form.
.11 BLOCK HEADER 0;11 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  What text should appear at the top of the block?
  • DESCRIPTION:  
    The text appearing at the top of the block.
.12 HEADER APPEARANCE 0;12 FREE TEXT

  • INPUT TRANSFORM:  S X=$$UPPER^VALM1(X) K:$L(X)>3!("UBC"'[$E(X,1))!("UBC"'[$E(X,2))!("UBC"'[$E(X,3)) X
  • LAST EDITED:  JUN 16, 1993
  • HELP-PROMPT:  B=bold, U=underline, C=center. You can enter any combination of {B,U,C}.
  • DESCRIPTION:  
    A description of the block's contents and use.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.13 BRIEF DESCRIPTION 0;13 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  APR 15, 1993
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
  • DESCRIPTION:  
    A brief description of the contents or use of the block.
.14 TOOL KIT ORDER 0;14 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999.99)!(X<0)!(X?.E1"."3N.N) X
  • LAST EDITED:  MAR 09, 1993
  • HELP-PROMPT:  Enter a numeric value >0 if this block is part of the tool kit. The number will determine its listed order.
  • DESCRIPTION:  
    A value greater than 0 means that the block belongs to the tool kit. The value also determines the order that the block will be listed to the screen that displays the tool kit blocks.
  • CROSS-REFERENCE:  358.1^D
    1)= S ^IBE(358.1,"D",$E(X,1,30),DA)=""
    2)= K ^IBE(358.1,"D",$E(X,1,30),DA)
    This index is used to locate all the 'tool box' blocs that can be used as templates to create a new block to be added to a form.
1 EXPORT NOTES 1;0 WORD-PROCESSING #358.11

  • DESCRIPTION:  
    Should be give other sites information that will enable them to decide whether or not they want to import the block. Only applies to tool kit blocks.

External References

Name Field # of Occurrence
$$UPPER^VALM1 .12+1

Global Variables Directly Accessed

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .14(XREF 1S), .14(XREF 1K)
>> IBLISTPR .01DEL1+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .04+1*!, .05+1*!, .06+1!, .07+1!, .11+1!
, .12+1*!, .13+1!, .14+1!, .14(XREF 1S), .14(XREF 1K)
>> Y .04OT+1*, .05OT+1*
>> Y(0 .04OT+1*, .05OT+1*
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Pointer To FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Local Variables |  All