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 |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All
Print Page as PDF
Global: ^IBE(358

Package: Automated Information Collection System

Global: ^IBE(358


Information

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

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
Automated Information Collection System 7 ^IBE(358    IBD3KPT    IBDE    IBDE1    IBDE3    IBDE4    PAGE INFORMATION    
Integrated Billing 2 PAGE INFORMATION    REPORT    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Automated Information Collection System 1 IBDE1    

Pointed To By FileMan Files, Total: 1

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

Fields, Total: 18

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUN 06, 1994
  • HELP-PROMPT:  The form name must be 3-30 uppercase characters in length.
  • DESCRIPTION:  
    The name of the encounter form.
  • DELETE TEST:  1,0)= I 1 W "...Encounter Forms can only be deleted through the",!," DELETE UNUSED FORM action in the Encounter Form Utilities!"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  358^B
    1)= S ^IBE(358,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(358,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  358^AT^MUMPS
    1)= Q
    2)= Q
    This cross-reference will be used to store the text of the compiled form. The format will be ..."AT",form ien,row #)=text line. The index will be created by the 'compile' action of the encounter form utilities - it is
    optional.
  • CROSS-REFERENCE:  358^AC^MUMPS
    1)= Q
    2)= Q
    This cross-reference will be used to store the special controls needed (bold on, bold off, etc.) to print the compiled form. The format will be ..."AC",form ien,row #,column # )=controls. The index will be created by the
    'compile' action of the encounter form utilities - it is optional.
  • CROSS-REFERENCE:  358^AU^MUMPS
    1)= Q
    2)= Q
    This cross-reference will be used to store the underlining of the compiled form. The format will be ...,"AU",form ien,row #)=underlining . The index will be created by the 'compile' action of the encounter form utilities -
    it is optional.
  • CROSS-REFERENCE:  358^AG^MUMPS
    1)= Q
    2)= Q
    This cross-reference will be used to store strings of graphics characters (TLC,TRC, etc.) needed for the compiled form. The format will be ..."AG",form ien,row #,column # )=graphics string . The index will be created by
    the 'compile' action of the encounter form utilities - it is optional.
  • CROSS-REFERENCE:  358^AB^MUMPS
    1)= Q
    2)= Q
    This cross-reference will be used to store the boxes needed for the compiled forms. The format will be ..."AB",form ien,row #,column #, Block ien)= box width^box height. The index will be created by the 'compile' action of
    the encounter form utilities.
.02 SIMPLEX/DUPLEX 0;2 SET
  • '0' FOR SIMPLEX;
  • '1' FOR DUPLEX,LONG-EDGE BINDING;
  • '2' FOR DUPLEX,SHORT-EDGE BINDING;

  • LAST EDITED:  JUN 28, 1994
  • HELP-PROMPT:  SIMPLEX means one-sided, DUPLEX means two-sided. SHORT-EDGE BINDING is for attaching forms by the top, LONG-EDGE BINDING is for attaching forms along the side.
  • DESCRIPTION:  
    Allows forms to be printed either one-sided or two-sided.
.03 BRIEF DESCRIPTION 0;3 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  MAR 09, 1994
  • HELP-PROMPT:  Enter a brief description of the intended use of the form or its contents.
  • DESCRIPTION:  
    A brief description of the contents of the form and its intended use. This description will be displayed to the user.
.04 TYPE OF USE 0;4 SET
************************REQUIRED FIELD************************
  • '0' FOR RESERVED FOR UTILITY;
  • '1' FOR OUTPATIENT ENCOUNTER FORM;

  • LAST EDITED:  AUG 25, 1993
  • HELP-PROMPT:  How will the form be used?
  • DESCRIPTION:  This field will be used to categorize forms by type of use. It is possible that the form generator that is part of the Encounter Form Utilities may be used to create forms other than encounter forms. The utilities use a
    couple of forms (WORKCOPY, TOOL KIT), TYPE OF USE is RESERVED FOR UTILITY, that are not real forms.
  • TECHNICAL DESCR:  
  • SCREEN:  S DIC("S")="I Y'=0"
  • EXPLANATION:  Does not allow users to choose RESERVED FOR UTILITY
  • CROSS-REFERENCE:  358^D
    1)= S ^IBE(358,"D",$E(X,1,30),DA)=""
    2)= K ^IBE(358,"D",$E(X,1,30),DA)
    Used to find forms of a particular type.
.05 COMPILED? 0;5 SET
  • '0' FOR NO;
  • '1' FOR YES;
  • 'F' FOR COMPILATION FAILED;

  • LAST EDITED:  JUL 14, 1994
  • HELP-PROMPT:  Enter yes if a compiled copy of the form should be created and stored.
  • DESCRIPTION:  
    This indicates whether a compiled version of the form exists. The compiled version is much faster to print.
.06 USE ICR? 0;6 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  JUL 17, 1995
  • HELP-PROMPT:  Enter YES if you want to use ICR to read had print.
.07 TOOL KIT 0;7 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  DEC 20, 1993
  • HELP-PROMPT:  Is this form part of the tool kit?
  • DESCRIPTION:  
    This field, if set to YES, means that the form can not be deleted and can not be added to a clinic setup.
  • CROSS-REFERENCE:  358^C
    1)= S ^IBE(358,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(358,"C",$E(X,1,30),DA)
    Used to find all of the tool kit forms.
.09 RIGHT MARGIN 0;9 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>200)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUL 11, 1994
  • DESCRIPTION:  
    The number of characters wide the form is.
  • EXECUTABLE HELP:  W !,"How many columns (characters) wide should the form be?"
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.1 PAGE LENGTH 0;10 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>300)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  APR 20, 1993
  • HELP-PROMPT:  How many lines should the form have?
  • DESCRIPTION:  
    This is the number of usable lines on the page.
.11 NUMBER OF PAGES 0;11 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 02, 1993
  • HELP-PROMPT:  How many pages should the encounter form have?
  • DESCRIPTION:  
    The encounter form may have multiple pages.
.12 SCANNABLE? 0;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAY 20, 1994
  • HELP-PROMPT:  Answer YES if the form will be scanned to accomplish data entry, NO otherwise.
.13 FORM TYPE ID 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  JUN 09, 1994
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
.14 PAPER SIZE 0;14 SET
  • '1' FOR LETTER (8 1/2 x 11);

  • LAST EDITED:  JUN 14, 1994
  • HELP-PROMPT:  What size paper should be used?
.15 ORIENTATION 0;15 SET
  • 'p' FOR PORTRAIT;

  • LAST EDITED:  JUN 14, 1994
  • HELP-PROMPT:  How should the form be oriented?
.16 TEXT SIZE 0;16 SET
************************REQUIRED FIELD************************
  • '1' FOR 132 COLUMNS x 80 LINES;
  • '2' FOR 96 COLUMNS x 72 LINES;
  • '3' FOR 80 COLUMNS x 60 LINES;

  • LAST EDITED:  JUL 11, 1994
  • HELP-PROMPT:  This choice will determine the size of the print and how much text will fit on the form.
.17 VERSION 0;17 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>99)!(X<0)!(X?.E1"."2N.N) X
  • LAST EDITED:  OCT 24, 1995
  • HELP-PROMPT:  Type a Number between 0 and 99, 1 Decimal Digit
  • DESCRIPTION:  
    This is the version of AICS that created this form. This is used to prevent trying to import incompatible form formats. This is implemented in version 2.1. Null entries can be assumed to be version 2.0.
1 EXPORT NOTES 1;0 WORD-PROCESSING #358.01

  • DESCRIPTION:  Used to describe the form to other sites. The form can not be displayed until after it is imported. Maybe if they knew more about it they wouldn't want to import it! They will be able to read the EXPORT NOTES before
    importing it.
2 PAGE INFORMATION 2;0 Multiple #358.02 358.02

External References

Name Field # of Occurrence
$$UP^XLFSTR .01+1, .01+1

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 ID.03+1, ID.03+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K), .07(XREF 1S), .07(XREF 1K), .01(XREF 1S), .01(XREF 1K), .04(XREF 1S), .04(XREF 1K)
.07(XREF 1S), .07(XREF 1K)
>> DIC("S" .04SCR+1*, .04SCR+1*
U ID.03+1, ID.03+1
X .01+1!*, .01(XREF 1S), .01(XREF 1K), .03+1!, .04(XREF 1S), .04(XREF 1K), .07(XREF 1S), .07(XREF 1K), .09+1!, .1+1!
, .11+1!, .13+1!, .17+1!, .01+1!*, .01(XREF 1S), .01(XREF 1K), .03+1!, .04(XREF 1S), .04(XREF 1K), .07(XREF 1S)
.07(XREF 1K), .09+1!, .1+1!, .11+1!, .13+1!, .17+1!
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointed To By FileMan Files |  Fields |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All