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 | All

Print Page as PDF

Global: ^ACGPARA

Package: Contracts and Grants

Global: ^ACGPARA

Information

FileMan FileNo	FileMan Filename	Package
9002335	CIS SITE PARAMETERS	Contracts and Grants

Description

DD to set up site parameters for CIS.

Directly Accessed By Routines, Total: 9

Accessed By FileMan Db Calls, Total: 4

Pointer To FileMan Files, Total: 1

Fields, Total: 7

Field #	Name	Loc	Type	Details
.01	CONTRACTING OFFICE	0;1	POINTER TO CIS PROCUREMENT OFFICE FILE (#9002334)	**********************REQUIRED FIELD********************** CIS PROCUREMENT OFFICE(#9002334) INPUT TRANSFORM: `S DINUM=X` LAST EDITED: `JUN 24, 1997` NOTES: `XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER` CROSS-REFERENCE: `9002335^B` 1)= S ^ACGPARA("B",$E(X,1,30),DA)="" 2)= K ^ACGPARA("B",$E(X,1,30),DA) CROSS-REFERENCE: `^^TRIGGER^9002335^.02` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002335,.01,1,2,1.1) X ^DD(9002335,.01,1,2,1.4) 1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^ACGPO(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGPO(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) 1.4)= S DIH=$S($D(^ACGPARA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002335,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(9002335,.01,1,2,2.1) X ^DD(9002335,.01,1,2,2.4) 2.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^ACGPARA(D0,0)):^(0),1:""),D0=$P(Y(1),U,1) S:'$D(^ACGPO(+D0,0)) D0=-1 S Y(101)=$S($D(^ACGPO(D0,0)):^(0),1:"") S X=$P(Y(101),U,2) S D0=I(0,0) 2.4)= S DIH=$S($D(^ACGPARA(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,3)=DIV,DIH=9002335,DIG=.02 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 CREATE VALUE)= #.01:#.02 DELETE VALUE)= #.01:#.02 FIELD)= CODE
.02	CODE	0;3	FREE TEXT	INPUT TRANSFORM: `K:$L(X)>3!($L(X)<3) X` HELP-PROMPT: `Answer must be 3 characters in length.` NOTES: `TRIGGERED by the CONTRACTING OFFICE field of the CIS SITE PARAMETERS File`
.03	IMPORT COMPLETED	0;5	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `APR 08, 1991`
1	SYSTEM CONFIGURATION	0;2	SET	'1' FOR IHS ALTOS/UNIX; '2' FOR PC/DOS;
2	SEQUENCE NUMBER	0;4	NUMBER	INPUT TRANSFORM: `K:+X'=X!(X>999999)!(X<0)!(X?.E1"."1N.N) X` LAST EDITED: `MAR 21, 1991` HELP-PROMPT: `Type a Number between 0 and 999999, 0 Decimal Digits`
3	EXPORT COMPLETED SUCCESSFULLY	0;6	SET	'1' FOR YES; '2' FOR NO; LAST EDITED: `APR 26, 1991`
4	DATE EXPORT COMPLETED	0;7	DATE	INPUT TRANSFORM: `S %DT="EX" D ^%DT S X=Y K:Y<1 X` LAST EDITED: `APR 26, 1991`

Info | Desc | Directly Accessed By Routines | Accessed By FileMan Db Calls | Pointer To FileMan Files | Fields | Found Entries | All