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 | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All

Print Page as PDF

Global: ^IBE(359.94

Package: Automated Information Collection System

Global: ^IBE(359.94

Information

FileMan FileNo	FileMan Filename	Package
359.94	HAND PRINT FIELD	Automated Information Collection System

Description

This file allows fields to be defined to print on forms for hand print.

Directly Accessed By Routines, Total: 10

Package	Total	Routines
Automated Information Collection System	10	^IBE(359.94 IBDF10A IBDF10C IBDF2A1 IBDF2H IBDF9B4 ^SDAUDIT IBDFCMP1 IBDFRPC IBDFRPC1

Accessed By FileMan Db Calls, Total: 3

Package	Total	Routines
Automated Information Collection System	3	IBDF2H IBDF9B4 IBDY337

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: `359.94^B` `1)= S ^IBE(359.94,"B",$E(X,1,30),DA)=""` `2)= K ^IBE(359.94,"B",$E(X,1,30),DA)`
.02	LABEL	0;2	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>150!($L(X)<1) X` LAST EDITED: `SEP 06, 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?` DESCRIPTION: `The column the label begins at.` 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?` DESCRIPTION: `The row the label begins at.` 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)!($TR(X,"BUR")'="") X` LAST EDITED: `OCT 24, 1996` 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.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER`
.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,$P(^(0),U,16)[""H""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `AUG 25, 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,$P(^(0),U,16)[""H"""` EXPLANATION: `Allows only available input interfaces defined as allowable for hand print 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?` DESCRIPTION: `The block the field belongs to.` CROSS-REFERENCE: `359.94^C` `1)= S ^IBE(359.94,"C",$E(X,1,30),DA)=""` `2)= K ^IBE(359.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(359.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(359.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`

Found Entries, Total: 14

NAME: CHECKOUT TIME	NAME: WEIGHT	NAME: BLOOD PRESSURE	NAME: CHECKOUT TIME	NAME: CHECKOUT TIME	NAME: WEIGHT	NAME: BLOOD PRESSURE	NAME: CHECKOUT TIME
NAME: WEIGHT	NAME: BLOOD PRESSURE	NAME: WEIGHT	NAME: BLOOD PRESSURE	NAME: CHECKOUT TIME	NAME: GAF SCORE HANDPRINT

External References

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

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^IBE(359.94 - [#359.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 | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | External References | Global Variables Directly Accessed | Local Variables | All