Sub-Field: 195.9001

Parent File	Name	Number	Package
BORROWERS/FILE AREAS(#195.9)	RECORDS NEEDED BY LOCATION	195.9001	Record Tracking

Details

Field # Name Loc Type Details

Field #	Name	Loc	Type	Details
.01	RECORD TYPE NEEDED	0;1	POINTER TO RECORD TYPES FILE (#195.2)	RECORD TYPES(#195.2) INPUT TRANSFORM: `S DIC("S")="I $P(^(0),U,14)=""y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X` LAST EDITED: `FEB 03, 1987` SCREEN: `S DIC("S")="I $P(^(0),U,14)=""y"""` EXPLANATION: `Allows only 'requestable' record type.` CROSS-REFERENCE: `^^TRIGGER^195.9001^3` `1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.9001,.01,1,1,1.1) X ^DD(195.9001,.01,1,1,1.4)` `1.1)= S X=DIV X ^DD(195.9001,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)` `1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9001,DIG=3 D ^DICR` `:$N(^DD(DIH,DIG,1,0))>0` `2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.9001,.01,1,1,2.4)` `2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9001,DIG=3 D ^DICR` `:$N(^DD(DIH,DIG,1,0))>0` `49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3)` `CREATE VALUE)= INTERNAL(#.01:#3)` `DELETE VALUE)= @` `FIELD)= APPLICATION`
2	VOLUMES REQUIRED	0;2	SET	**********************REQUIRED FIELD********************** 'a' FOR ALL; 'l' FOR LAST; 'n' FOR NONE; LAST EDITED: `SEP 29, 1986`
3	APPLICATION	0;3	POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)	RECORD TRACKING APPLICATION(#195.1) LAST EDITED: `SEP 29, 1986` `WRITE AUTHORITY:^` NOTES: `TRIGGERED by the RECORD TYPE NEEDED field of the RECORDS NEEDED BY LOCATION sub-field of the BORROWERS/FILE AREAS File`

.01

RECORD TYPE NEEDED

0;1

POINTER TO RECORD TYPES FILE (#195.2)

RECORD TYPES(#195.2)

INPUT TRANSFORM: S DIC("S")="I $P(^(0),U,14)=""y""" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
LAST EDITED: FEB 03, 1987
SCREEN: S DIC("S")="I $P(^(0),U,14)=""y"""
EXPLANATION: Allows only 'requestable' record type.
CROSS-REFERENCE: ^^TRIGGER^195.9001^3
1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.9001,.01,1,1,1.1) X ^DD(195.9001,.01,1,1,1.4)
1.1)= S X=DIV X ^DD(195.9001,.01,1,1,49.2) S X=X S X=X S D0=I(0,0) S D1=I(1,0)
1.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9001,DIG=3 D ^DICR
:$N(^DD(DIH,DIG,1,0))>0
2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^RTV(195.9,D0,"RECS",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.9001,.01,1,1,2.4)
2.4)= S DIH=$S($D(^RTV(195.9,DIV(0),"RECS",DIV(1),0)):^(0),1:""),DIV=X X "F %=0:0 Q:$L($P(DIH,U,2,99)) S DIH=DIH_U" S %=$P(DIH,U,4,999),DIU=$P(DIH,U,3),^(0)=$P(DIH,U,1,2)_U_DIV_$S(%]"":U_%,1:""),DIH=195.9001,DIG=3 D ^DICR
:$N(^DD(DIH,DIG,1,0))>0
49.2)= S I(1,0)=$S($D(D1):D1,1:""),I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^DIC(195.2,+D0,0)) D0=-1 S Y(101)=$S($D(^DIC(195.2,D0,0)):^(0),1:"") S X=$P(Y(101),U,3)
CREATE VALUE)= INTERNAL(#.01:#3)
DELETE VALUE)= @
FIELD)= APPLICATION

VOLUMES REQUIRED

0;2

SET

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

'a' FOR ALL;
'l' FOR LAST;
'n' FOR NONE;

LAST EDITED: SEP 29, 1986

APPLICATION

0;3

POINTER TO RECORD TRACKING APPLICATION FILE (#195.1)

RECORD TRACKING APPLICATION(#195.1)

LAST EDITED: SEP 29, 1986
WRITE AUTHORITY:^
NOTES: TRIGGERED by the RECORD TYPE NEEDED field of the RECORDS NEEDED BY LOCATION sub-field of the BORROWERS/FILE AREAS File

Customize PDF page

Package: Record Tracking

BORROWERS/FILE AREAS(#195.9)-->195.9001

Sub-Field: 195.9001

Information

Details