Global: ^AZCR(1400204

FileMan FileNo	FileMan Filename	Package
1400204	FINANCE CR VENDOR	Uncategorized

Package	Total	FileMan Files
Uncategorized	1	SERVICE UNIT FY-92 COMMITMENT REGISTER(#1440069)[#1440069.03(.02)]

Fields, Total: 2

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	NAME	0;1	FREE TEXT	**********************REQUIRED FIELD********************** INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X` LAST EDITED: `SEP 24, 1991` HELP-PROMPT: `ENTER 3-35 CHARACTERS - EXAMPLE: JIFFY PRINT - EXAMPLE: DICK,TONI` UNEDITABLE CROSS-REFERENCE: `1400204^B` 1)= S ^AZCR(1400204,"B",$E(X,1,30),DA)="" 2)= K ^AZCR(1400204,"B",$E(X,1,30),DA) CROSS-REFERENCE: `1400204^C^KWIC` 1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AZCR(1400204,"C",I,DA)="" 2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AZCR(1400204,"C",I,DA) THIS ALLOWS FOR NON-DUPLICATION OF VENDOR NAMES CROSS-REFERENCE: `^^TRIGGER^1400204^1` 1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZCR(1400204,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0) X ^DD(1400204,.01,1,3,1.4) 1.4)= S DIH=$S($D(^AZCR(1400204,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=1400204,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0 2)= Q CREATE VALUE)= NUMBER DELETE VALUE)= NO EFFECT FIELD)= INTERNAL RECORD NUMBER
1	INTERNAL RECORD NUMBER	0;2	FREE TEXT	INPUT TRANSFORM: `K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X` LAST EDITED: `SEP 24, 1991` HELP-PROMPT: `Answer must be 1-10 characters in length.` NOTES: `TRIGGERED by the NAME field of the FINANCE CR VENDOR File` CROSS-REFERENCE: `1400204^D` 1)= S ^AZCR(1400204,"D",$E(X,1,30),DA)="" 2)= K ^AZCR(1400204,"D",$E(X,1,30),DA)

.01

NAME

0;1

FREE TEXT

************************REQUIRED FIELD************************

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>35!($L(X)<3)!'(X'?1P.E) X
LAST EDITED: SEP 24, 1991
HELP-PROMPT: ENTER 3-35 CHARACTERS - EXAMPLE: JIFFY PRINT - EXAMPLE: DICK,TONI
```
UNEDITABLE
```

CROSS-REFERENCE: 1400204^B

1)= S ^AZCR(1400204,"B",$E(X,1,30),DA)=""

2)= K ^AZCR(1400204,"B",$E(X,1,30),DA)

CROSS-REFERENCE: 1400204^C^KWIC

1)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2,^DD("KWIC")'[I S ^AZCR(1400204,"C",I,DA)=""

2)= S %1=1 F %=1:1:$L(X)+1 S I=$E(X,%) I "(,.?! '-/&:;)"[I S I=$E($E(X,%1,%-1),1,30),%1=%+1 I $L(I)>2 K ^AZCR(1400204,"C",I,DA)

THIS ALLOWS FOR NON-DUPLICATION OF VENDOR NAMES

CROSS-REFERENCE: ^^TRIGGER^1400204^1

1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AZCR(1400204,D0,0)):^(0),1:"") S X=$P(Y(1),U,2),X=X S DIU=X K Y S X=DIV S X=$S('$D(D0):"",D0<0:"",1:D0) X ^DD(1400204,.01,1,3,1.4)

1.4)= S DIH=$S($D(^AZCR(1400204,DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,2)=DIV,DIH=1400204,DIG=1 D ^DICR:$N(^DD(DIH,DIG,1,0))>0

2)= Q

CREATE VALUE)= NUMBER

DELETE VALUE)= NO EFFECT

FIELD)= INTERNAL RECORD NUMBER

INTERNAL RECORD NUMBER

0;2

FREE TEXT

INPUT TRANSFORM: K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>10!($L(X)<1) X
LAST EDITED: SEP 24, 1991
HELP-PROMPT: Answer must be 1-10 characters in length.
NOTES: TRIGGERED by the NAME field of the FINANCE CR VENDOR File

CROSS-REFERENCE: 1400204^D

1)= S ^AZCR(1400204,"D",$E(X,1,30),DA)=""

2)= K ^AZCR(1400204,"D",$E(X,1,30),DA)

Customize PDF page

Package: Uncategorized

Global: ^AZCR(1400204

Information

Description

Pointed To By FileMan Files, Total: 1

Fields, Total: 2