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.15

Package: Record Tracking

RECORD TRACKING APPLICATION(#195.1)-->195.15

Sub-Field: 195.15


Information

Parent File Name Number Package
RECORD TRACKING APPLICATION(#195.1) RAD FOLDERS NEEDED BY CLINICS 195.15 Record Tracking

Details

Field # Name Loc Type Details
.01 RADIOLOGY FOLDER 0;1 POINTER TO RECORD TYPES FILE (#195.2) RECORD TYPES(#195.2)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^DIC(195.4,1,""RAD"")),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 06, 1986
  • SCREEN:  S DIC("S")="I $D(^DIC(195.4,1,""RAD"")),+^(""RAD"")=+$P(^DIC(195.2,+Y,0),U,3)"
  • EXPLANATION:  Allows only radiology record types.
  • CROSS-REFERENCE:  ^^TRIGGER^195.15^3
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^DIC(195.1,D0,"RAD",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y X ^DD(195.15,.01,1,1,1.1) X ^DD(195.15,.01,1,1,1.4)
    1.1)= S X=DIV X ^DD(195.15,.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(^DIC(195.1,DIV(0),"RAD",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.15,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(^DIC(195.1,D0,"RAD",D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X="" X ^DD(195.15,.01,1,1,2.4)
    2.4)= S DIH=$S($D(^DIC(195.1,DIV(0),"RAD",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.15,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 NEEDED 0;2 SET
************************REQUIRED FIELD************************
  • 'a' FOR ALL;
  • 'l' FOR LAST;
  • 'n' FOR NONE;

  • LAST EDITED:  OCT 06, 1986
3 APPLICATION 0;3 POINTER TO RECORD TRACKING APPLICATION FILE (#195.1) RECORD TRACKING APPLICATION(#195.1)

  • INPUT TRANSFORM:  S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""RAD"")),D0=+^(""RAD"")" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  OCT 06, 1986
  • SCREEN:  S DIC("S")="I $D(D0),$D(^DIC(195.4,1,""RAD"")),D0=+^(""RAD"")"
  • EXPLANATION:  Allows only the radiology application.
    WRITE AUTHORITY:^
  • NOTES:  TRIGGERED by the RADIOLOGY FOLDER field of the RAD FOLDERS NEEDED BY CLINICS sub-field of the RECORD TRACKING APPLICATION File
Info |  Details