Select the objects that you wish to see in the downloaded PDF
Info Desc Directly Accessed By Routines Accessed By FileMan Db Calls Fields External References Global Variables Directly Accessed Naked Globals Local Variables
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.
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=DIV 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 ^DICR:$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 ^DICR:$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.
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.