Global: ^IBD(357.95

FileMan FileNo	FileMan Filename	Package
357.95	FORM DEFINITION	Automated Information Collection System

Package	Total	Routines
Automated Information Collection System	36	BUBBLES CLINICS USING THIS FORM HAND PRINT FIELDS IBD3KPT IBDF18C IBDF18D IBDF18E IBDF18E0 IBDF18E2 IBDF19 IBDFBKS IBDFC2 IBDFDE IBDFDE6 IBDFDEA IBDFESP IBDFFV3 IBDFM1 IBDFPRG1 IBDFRPC3 IBDX951 IBDX9510 IBDX9511 IBDX9512 IBDX952 IBDX953 IBDX954 IBDX955 IBDX956 IBDX957 IBDX958 PAGE INFORMATION ^IBD(357.95 ^SDAUDIT IBDX959 PANDAS HEADERS

Package	Total	Routines
Automated Information Collection System	2	IBDF18D IBDF19

Package	Total	FileMan Files
Automated Information Collection System	1	ENCOUNTER FORM TRACKING(#357.96)[.04]

Package	Total	FileMan Files
Automated Information Collection System	5	AICS DATA QUALIFIERS(#357.98)[#357.951(.1), #357.952(.1)] ENCOUNTER FORM(#357)[.21] SELECTION(#357.3)[#357.951(.14)] PACKAGE INTERFACE(#357.6)[#357.951(.03), #357.952(.04)] AICS DATA ELEMENTS(#359.1)[#357.952(.17)]
Lexicon Utility	1	EXPRESSIONS(#757.01)[#357.951(2.02)]
Scheduling	1	HOSPITAL LOCATION(#44)[#357.9501(.01)]

Fields, Total: 21

Field #	Name	Loc	Type	Details
.01	FORM TYPE ID	0;1	NUMBER	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K X` LAST EDITED: `DEC 18, 1995` HELP-PROMPT: `Can not be entered through FileMan!` DESCRIPTION: `This number should be unique for the encounter form type. It equals the ien. Editing the form results in a new FORM TYPE ID being assigned.` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `357.95^B` `1)= S ^IBD(357.95,"B",$E(X,1,30),DA)=""` `2)= K ^IBD(357.95,"B",$E(X,1,30),DA)`
.02	DATE MARKED FOR DELETION	0;2	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 04, 1995` HELP-PROMPT: `Enter the date the form was deleted or edited.` DESCRIPTION: `The date is when the form was deleted or edited. When the last printed form is accounted for the entry can be deleted.` CROSS-REFERENCE: `357.95^ADEL` `1)= S ^IBD(357.95,"ADEL",$E(X,1,30),DA)=""` `2)= K ^IBD(357.95,"ADEL",$E(X,1,30),DA)` `Regular cross reference of file. Used to find entries marked for deletion by purge utility`
.03	SOURCE	0;3	SET	**********************REQUIRED FIELD********************** '1' FOR AICS; '2' FOR PANDAS; '3' FOR TELEFORM; '4' FOR PEN; '99' FOR OTHER; LAST EDITED: `DEC 18, 1995` HELP-PROMPT: `What software will produce the form?` DESCRIPTION: `The software that produced the form.` CROSS-REFERENCE: `357.95^C` `1)= S ^IBD(357.95,"C",$E(X,1,30),DA)=""` `2)= K ^IBD(357.95,"C",$E(X,1,30),DA)` `Used to determine if the form type provided to Form Tracking was externally assigned.`
.09	RIGHT MARGIN	0;9	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>133)!(X<80)!(X?.E1"."1N.N) X` LAST EDITED: `SEP 19, 1995` HELP-PROMPT: `Type a Number between 80 and 133, 0 Decimal Digits` DESCRIPTION: `The width of the form in characters.` 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: `AUG 23, 1994` HELP-PROMPT: `Type a Number between 1 and 300, 0 Decimal Digits` DESCRIPTION: `The length of 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: `NOV 22, 1995` 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: `NOV 22, 1995` 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: `NOV 22, 1995` 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: `NOV 22, 1995` HELP-PROMPT: `What size paper should be used?`
.15	ORIENTATION	0;15	SET	'p' FOR PORTRAIT; LAST EDITED: `NOV 22, 1995` 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: `NOV 22, 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"."3N.N) X` LAST EDITED: `NOV 22, 1995` HELP-PROMPT: `Type a Number between 0 and 99, 2 Decimal Digits`
.2	DATE CREATED	0;20	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `DEC 18, 1995` DESCRIPTION: `This is the date that this entry was created. It is triggered when the entry is added.` `WRITE AUTHORITY: ^`
.21	FORM NAME	0;21	POINTER TO ENCOUNTER FORM FILE (#357)	ENCOUNTER FORM(#357) LAST EDITED: `DEC 18, 1995` DESCRIPTION: `This is the name of the form when this entry was created. It is triggered when the entry is created.` TECHNICAL DESCR: `This field is hard set when the entry is created. See routine IBDFM1.` `WRITE AUTHORITY: ^`
1	BUBBLES	1;0	Multiple #357.951	357.951 LAST EDITED: `OCT 20, 1994` DESCRIPTION: `The list of bubbles appearing on the form.` TECHNICAL DESCR: IDENTIFIED BY: `"WRITE": D EN^DDIOL(" COL = "_$P($G(^(0)),U,2)_" DISPLAY = "_$P($G(^(0)),U,8),"","?0")`
2	HAND PRINT FIELDS	2;0	Multiple #357.952	357.952
3	PAGE INFORMATION	3;0	Multiple #357.953	357.953 LAST EDITED: `MAR 06, 1995` DESCRIPTION: `A list of the pages of a form that requires documentation of specific features.`
10	CLINICS USING THIS FORM	10;0	POINTER Multiple #357.9501	357.9501 DESCRIPTION: `These are the clinics that use this form` TECHNICAL DESCR: `This field specifically added for PANDAS.`
11	PANDAS HEADERS	11;0	Multiple #357.9511	357.9511 DESCRIPTION: `A list of headers used by PANDAS.` TECHNICAL DESCR: `This field was requested by the PANDAS project.`
12.01	PANDAS TIMESTAMP	12;1	DATE	INPUT TRANSFORM: `S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `OCT 20, 1994` HELP-PROMPT: `When was the Pandas form last modified?` DESCRIPTION: `The date and time the PANDAS form was last modified.` TECHNICAL DESCR: `This field was requested by PANDAS.`
13	PANDAS FORMID	12;2	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 22, 1995` HELP-PROMPT: `Type a Number between 0 and 9999, 0 Decimal Digits` DESCRIPTION: `The form identifier used by PANDAS.` TECHNICAL DESCR: `This field was requested by PANDAS.` CROSS-REFERENCE: `357.95^D` `1)= S ^IBD(357.95,"D",$E(X,1,30),DA)=""` `2)= K ^IBD(357.95,"D",$E(X,1,30),DA)` `Cross-reference to determine Pandas FORM ID.`

Name	Field # of Occurrence
^%DT	.02+1, .2+1, 12.01+1
Y^DIQ	ID.21+1

Name	Line Occurrences (* Changed, ! Killed)
^DD(357	ID.21+1
^IBD(357.95 - [#357.95]	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), 13(XREF 1S), 13(XREF 1K)
^IBE(357 - [#357]	ID.21+1

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %DT	.02+1, .2+1, 12.01+1*
%I	ID.21+1*!
>> C	ID.21+1*
>> DA	.01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), 13(XREF 1S), 13(XREF 1K)
>> DIC	ID.03+1, ID.21+1
U	ID.2+1, ID.21+1
X	.01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .09+1!, .1+1! , .11+1!, .13+1!, .17+1!, .2+1!, 12.01+1*!, 13+1!, 13(XREF 1S), 13(XREF 1K)
>> Y	ID.21+1*, .02+1, .2+1, 12.01+1

Customize PDF page

Package: Automated Information Collection System

Global: ^IBD(357.95

Information

Description

Directly Accessed By Routines, Total: 36

Accessed By FileMan Db Calls, Total: 2

Pointed To By FileMan Files, Total: 1

Pointer To FileMan Files, Total: 7

Fields, Total: 21

External References

Global Variables Directly Accessed

Naked Globals

Local Variables

Legend: