Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  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

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







    



Info | 
Desc | 
Pointer To FileMan Files | 
Fields | 
Found Entries | 
All