Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 195.9001

Package: Record Tracking

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

Sub-Field: 195.9001


Information

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

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
Info |  Details