STANDARD DATA DICTIONARY #359.2 -- FORM SPECS FILE 3/24/25 PAGE 1
STORED IN ^IBD(359.2, *** NO DATA STORED YET *** SITE: WWW.BMIRWIN.COM UCI: VISTA,VISTA (VERSION 3.0)
DATA NAME GLOBAL DATA
ELEMENT TITLE LOCATION TYPE
-----------------------------------------------------------------------------------------------------------------------------------
This file contains the description of the form used by the scanning software. The description, for example, must contain the
locations of all the fields to be read.
DD ACCESS: @
RD ACCESS: @
WR ACCESS: @
DEL ACCESS: @
LAYGO ACCESS: @
AUDIT ACCESS: @
IDENTIFIED BY: DATE CREATED (#.02), FORM NAME (#.03)
CROSS
REFERENCED BY: NUMBER(B)
359.2,.01 NUMBER 0;1 NUMBER (Required)
INPUT TRANSFORM: K:+X'=X!(X>999999999)!(X<1)!(X?.E1"."1N.N) X
LAST EDITED: OCT 03, 1995
HELP-PROMPT: This the form ID number. Type a Number between 1 and 999999999, 0 Decimal Digits
CROSS-REFERENCE: 359.2^B
1)= S ^IBD(359.2,"B",$E(X,1,30),DA)=""
2)= K ^IBD(359.2,"B",$E(X,1,30),DA)
CROSS-REFERENCE: ^^TRIGGER^359.2^.02
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,
2)="" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DI
V S X=DT X ^DD(359.2,.01,1,2,1.4)
1.4)= S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=359.2,DIG=.02 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= #.02=""
CREATE VALUE)= S X=DT
DELETE VALUE)= NO EFFECT
FIELD)= #.02
This triggers the date created into the DATE CREATED field. The date created is used by the purge
utilities.
CROSS-REFERENCE: ^^TRIGGER^359.2^.03
1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(0)=X S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,
3)="" I X S X=DIV S Y(1)=$S($D(^IBD(359.2,D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(
359.2,.01,1,3,1.1) X ^DD(359.2,.01,1,3,1.4)
1.1)= S X=DIV S X=$P($G(^IBE(357,+$O(^IBE(357,"ADEF",+DA,0)),0)),"^")
1.4)= S DIH=$S($D(^IBD(359.2,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=359.2,DIG=.03 D ^DI
CR:$O(^DD(DIH,DIG,1,0))>0
2)= Q
CREATE CONDITION)= #.03=""
CREATE VALUE)= S X=$P($G(^IBE(357,+$O(^IBE(357,"ADEF",+DA,0)),0)),"^")
DELETE VALUE)= NO EFFECT
FIELD)= #.03
This triggers the name of the form into this file.
359.2,.02 DATE CREATED 0;2 DATE
INPUT TRANSFORM: S %DT="EX" D ^%DT S X=Y K:Y<1 X
LAST EDITED: OCT 03, 1995
DESCRIPTION:
This is the date that this entry was created. This is triggered by the creation of a new entry.
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the NUMBER field of the FORM SPECS File
359.2,.03 FORM NAME 0;3 FREE TEXT
INPUT TRANSFORM: K:$L(X)>30!($L(X)<1) X
LAST EDITED: OCT 03, 1995
HELP-PROMPT: Answer must be 1-30 characters in length.
DESCRIPTION: This is the name of the form that this form specification is for. This is triggered on creation of
the entry
WRITE AUTHORITY: ^
NOTES: TRIGGERED by the NUMBER field of the FORM SPECS File
359.2,10 FORM SPEC DESCRIPTION 10;0 WORD-PROCESSING #359.21 (NOWRAP)
LAST EDITED: JUN 13, 1995
DESCRIPTION: This is the form spec as created by the routines IBDFBKS* and stored in this file. The form spec
description is then retrieved to the AICS workstation thru standard broker calls.
INPUT TEMPLATE(S):
PRINT TEMPLATE(S):
SORT TEMPLATE(S):
FORM(S)/BLOCK(S):