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.94

Package: Automated Information Collection System

Global: ^IBE(358.94


Information

FileMan FileNo FileMan Filename Package
358.94 IMP/EXP HAND PRINT FIELD Automated Information Collection System

Description

Directly Accessed By Routines, Total: 1

Package Total Routines
Automated Information Collection System 1 ^IBE(358.94    

Pointer To FileMan Files, Total: 3

Package Total FileMan Files
Automated Information Collection System 3 ENCOUNTER FORM BLOCK(#357.1)[.08]    PACKAGE INTERFACE(#357.6)[.06]    AICS DATA ELEMENTS(#359.1)[.1]    

Fields, Total: 8

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 name of the field.
  • CROSS-REFERENCE:  358.94^B
    1)= S ^IBE(358.94,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(358.94,"B",$E(X,1,30),DA)
.02 LABEL 0;2 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>150!($L(X)<1) X
  • LAST EDITED:  JUL 28, 1995
  • HELP-PROMPT:  What label should appear before the hand print field?
  • DESCRIPTION:  
    The text that labels the field on the form.
.03 STARTING COLUMN 0;3 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 28, 1995
  • HELP-PROMPT:  What block column should the field begin in?
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.04 STARTING ROW 0;4 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 28, 1995
  • HELP-PROMPT:  What block row should the field start in?
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.05 LABEL APPEARANCE 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>3!($L(X)<1) X
  • LAST EDITED:  JUL 25, 1995
  • HELP-PROMPT:  B=bold,U=underline,R=reverse You can enter any combination of {B,U,R}.
  • DESCRIPTION:  
    Allows the form designer to specify the appearance of the label.
.06 TYPE OF DATA 0;6 POINTER TO PACKAGE INTERFACE FILE (#357.6)
************************REQUIRED FIELD************************
PACKAGE INTERFACE(#357.6)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,6)=1,$P(^(0),U,9)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  SEP 14, 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"
  • EXPLANATION:  Allows only interfaces for passing values from user filled in fields.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
.08 BLOCK 0;8 POINTER TO ENCOUNTER FORM BLOCK FILE (#357.1)
************************REQUIRED FIELD************************
ENCOUNTER FORM BLOCK(#357.1)

  • LAST EDITED:  JUL 20, 1994
  • HELP-PROMPT:  What block should this input field appear in?
  • CROSS-REFERENCE:  358.94^C
    1)= S ^IBE(358.94,"C",$E(X,1,30),DA)=""
    2)= K ^IBE(358.94,"C",$E(X,1,30),DA)
    Used to find all the input fields appearing in a block.
.1 DHCP DATA ELEMENT 0;10 POINTER TO AICS DATA ELEMENTS FILE (#359.1)
************************REQUIRED FIELD************************
AICS DATA ELEMENTS(#359.1)

  • INPUT TRANSFORM:  S DIC("S")="I $$DTGOOD^IBDFU9($P($G(^IBE(358.94,DA,0)),""^"",6),Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 27, 1995
  • HELP-PROMPT:  What data will be printed in this field?
  • DESCRIPTION:  
    Specifies what data the hand print field is for.
  • SCREEN:  S DIC("S")="I $$DTGOOD^IBDFU9($P($G(^IBE(358.94,DA,0)),""^"",6),Y)"
  • EXPLANATION:  Allows only data elements defined as allowable for the Package Interface.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER

External References

Name Field # of Occurrence
^DIC .06+1, .1+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^IBE(358.94 - [#358.94] .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!*, .1+1!*
DIC("S" .06+1*, .06SCR+1*, .1+1*, .1SCR+1*
>> DIE .06+1, .1+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .03+1*!, .04+1*!, .05+1!, .06+1*!, .08(XREF 1S), .08(XREF 1K)
, .1+1*!
>> Y .03OT+1*, .04OT+1*, .06+1, .1+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