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(357

Package: Automated Information Collection System

Global: ^IBE(357


Information

FileMan FileNo FileMan Filename Package
357 ENCOUNTER FORM Automated Information Collection System

Description

Directly Accessed By Routines, Total: 54

Package Total Routines
Automated Information Collection System 50 IBD3KPT    IBDE4    IBDECLN1    IBDF12    IBDF14A    IBDF15A    IBDF18    IBDF18C
IBDF19    IBDF1B3    IBDF1C    IBDF2F1    IBDF5B    IBDF6    IBDF6A    IBDF6C
IBDFC    IBDFC2    IBDFC3    IBDFCMP    IBDFCMP1    IBDFDE    IBDFDE5    IBDFDE6
IBDFDE7    IBDFDE9    IBDFFV1    IBDFFV3    IBDFM1    IBDFQSL1    IBDFRPC    IBDFRPC3
IBDFU1C    IBDFU2C    IBDFU5    IBDFU7    ^IBE(357    IBDFDEA    IBDFU10    IBDFUTL1
IBDFUTL2    IBDX01    IBDX02    IBDX03    IBDX04    IBDY336    IBDY338    ^IBE(357.1
^IBE(357.2    IBDX16    
Integrated Billing 4 IB20PT2    IBXF01    IBXF02    PAGE INFORMATION    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Automated Information Collection System 7 IBD3KPT    IBDE1    IBDF6A    IBDFC3    IBDFDE6    IBDFU2C    IBDFUTL    
Integrated Billing 1 IB20PT2    

Pointed To By FileMan Files, Total: 6

Package Total FileMan Files
Automated Information Collection System 6 ENCOUNTER FORM PARAMETERS(#357.09)[.04]    FORM DEFINITION(#357.95)[.21]    CONVERTED FORMS(#359)[.01.02]    AICS ERROR AND WARNING LOG(#359.3)[.09]    ENCOUNTER FORM BLOCK(#357.1)[.02]    PRINT MANAGER CLINIC SETUP(#409.95)[.02.03.04.05.06.07.08.09]    

Fields, Total: 17

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

  • INPUT TRANSFORM:  S X=$$UP^XLFSTR(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  SEP 25, 1995
  • 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 '$G(IBDEVICE("LISTMAN")) 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:  357^B
    1)= S ^IBE(357,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(357,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  357^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. The option IBDF RECOMPILE ALL FORMS can be used to recompiled all forms.
  • CROSS-REFERENCE:  357^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.  The option IBDF RECOMPILE ALL FORMS can be used to recompiled all forms.
  • CROSS-REFERENCE:  357^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. The option IBDF RECOMPILE ALL FORMS can be used to recompiled all forms.
  • CROSS-REFERENCE:  357^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. The option IBDF RECOMPILE ALL FORMS can be used to recompiled all forms.
  • CROSS-REFERENCE:  357^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. The option IBDF RECOMPILE ALL FORMS can be used to recompiled all forms.
.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.
    SIMPLEX - refers to a form that will print on one side of the paper.  DUPLEX  - refers to a form that will print on both sides of the paper.
    .SHORT-EDGE BINDING - prints from top to bottom on the front page and
    prints from bottom to top on the back page.
    .LONG-EDGE BINDING  - prints from top to bottom on the front page and
    prints from top to bottom on the back page.
.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:  357^D
    1)= S ^IBE(357,"D",$E(X,1,30),DA)=""
    2)= K ^IBE(357,"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:  OCT 03, 1995
  • HELP-PROMPT:  Enter YES if the form is compiled, NO otherwise.
  • 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:  APR 21, 1995
  • HELP-PROMPT:  ICR is 'intelligent character recognition', used to automatically read hand print. Answer YES only if your scanning software has ICR and you want to use it for this form.
  • DESCRIPTION:  If this field is set to 'YES', the computer will attempt to read hand- written print; for example, ICD diagnostic codes hand-written in an 'Other Diagnosis' encounter form block.
.07 TOOLKIT 0;7 SET
************************REQUIRED FIELD************************
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 06, 1995
  • HELP-PROMPT:  Is this form part of the toolkit?
  • 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:  357^C
    1)= S ^IBE(357,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(357,"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 each page 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.
    This field is to indicate the total number of pages for the entire form.
.12 SCANNABLE? 0;12 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  APR 21, 1995
  • HELP-PROMPT:  Answer YES if it is planned that this form may at some time in the future be used with scanning.
  • DESCRIPTION:  CREATING SCANNABLE FORMS
    Each form created for scanning should contain at a minimum the following data elements:
    1) Primary provider.  2) At least 1 procedure, usually the Evaluation and Management (EM) code.  3) Reason for visit (diagnosis).
    These steps must be taken during form design for each form type that is to be scanned:
    1) The form field SCANNABLE? should be set to YES.  2) The form field USE ICR? (prompted as 'Should ICR be used to auto-
    matically read hand print on this form?') should be set to YES. It is
    anticipated that the scanning software will include intelligent recog-
    nition software (ICR) for reading hand print in future package releases.  3) A form can be designed with scannable and non-scannable pages. Each page
    to be scanned should have the SCANNABLE? field set to YES. For each page
    selected in the PAGE INFORMATION multiple, the SCANNABLE? field is auto-
    matically set to YES.  4) Selection lists should use bubbles as marking areas. The selection rule
    should be appropriate to the type of data. The selection rule will be
    enforced by the scanning software. For example, if a diagnosis list has
    the selection rule AT LEAST ONE, the form will be flagged as invalid if
    no diagnosis is selected. Also, the proper data qualifier, if one
    applies, should be entered. An example illustrating the use of data
    qualifiers is a selection list for diagnosis codes where there is a sub
    column for selecting the primary diagnosis and another sub column for
    selecting secondary diagnoses. At the bottom of the selection list an
    area can be created to contain 'other' codes not found on the list.  5) All hand print to be scanned must use hand print fields, except for the
    'other' feature of selection lists.  6) The PACKAGE INTERFACE file (357.6) contains the complete list of data
    that is currently scannable.
    There are several forms that are included with AICS v2.1 that are scan- nable. There are also a number of tool kit blocks included that were designed to be scannable. The best approach to creating the forms needed by your
    facility is to first develop a few basic forms, without clinic specific coding, suited to your site's needs. Those forms can then be placed in your tool kit and used as the basis for developing the rest of your forms.
    ---------------------------------------------------------------------------
    If ANY page of the form is to be scanned into DHCP, enter YES.
    .Individual pages of the form to be scanned are selected later
    at the PAGE INFORMATION prompt.
    If NONE of the form pages are to be scanned into DHCP, enter NO.
.13 FORM TYPE ID 0;13 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  OCT 03, 1995
  • HELP-PROMPT:  Type a Number between 1 and 999999999, 0 Decimal Digits
  • DESCRIPTION:  This is the current form definition entry associated with this form. Each time the form is edited and printed or recompiled and printed a new form definition is created leaving the old definition for use with existing
    forms (its used in scanning).
  • CROSS-REFERENCE:  357^ADEF
    1)= S ^IBE(357,"ADEF",$E(X,1,30),DA)=""
    2)= K ^IBE(357,"ADEF",$E(X,1,30),DA)
    This cross reference can be used to find the current form definition in file 357.95 for this form.
.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 133 COLUMNS x 80 LINES;
  • '2' FOR 96 COLUMNS x 72 LINES;
  • '3' FOR 80 COLUMNS x 60 LINES;

  • LAST EDITED:  AUG 14, 1995
  • 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 the form.  This was implemented in version 2.1.  All forms with a null entry can be treated as version 2.0 forms.
2 PAGE INFORMATION 2;0 Multiple #357.02 357.02

  • DESCRIPTION:  Enter all pages that will have scannable data on them.
  • IDENTIFIED BY:  
    "WRITE":    N DIERR,IBDMSG D EN^DDIOL($$EXTERNAL^DILFD(357.02,.02,"",$P(^(0),U,2),"IBDMSG"),"","?0")

External References

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

Global Variables Directly Accessed

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

Naked Globals

Name Field # of Occurrence
^(0 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), .13(XREF 1S), .13(XREF 1K)
>> DIC("S" .04SCR+1*
>> IBDEVICE("LISTMAN" .01DEL1+1
U 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!, .13(XREF 1S), .13(XREF 1K), .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