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

Package: IHS Release Of Information

ROI LISTING RECORD(#90264)-->90264.023

Sub-Field: 90264.023


Information

Parent File Name Number Package
ROI LISTING RECORD(#90264) RECEIVING PARTY 90264.023 IHS Release Of Information

Details

Field # Name Loc Type Details
.01 RECEIVING PARTY 0;1 POINTER TO ROI LISTING REC PARTY FILE (#90264.1)
************************REQUIRED FIELD************************
ROI LISTING REC PARTY(#90264.1)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^BRNTREQ(+Y,0),U,8)=""A""" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  JAN 18, 2008
  • SCREEN:  S DIC("S")="I $P(^BRNTREQ(+Y,0),U,8)=""A"""
  • EXPLANATION:  ACTIVE PARTIES ONLY
  • CROSS-REFERENCE:  90264.023^B
    1)= S ^BRNREC(DA(1),23,"B",$E(X,1,30),DA)=""
    2)= K ^BRNREC(DA(1),23,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  ^^TRIGGER^90264^2501
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,25)+1 X ^DD(90264.023,.01,1,2,1.4)
    1.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,25)=DIV,DIH=90264,DIG=2501 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,25),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,25)-1 X ^DD(90264.023,.01,1,2,2.4)
    2.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,25)=DIV,DIH=90264,DIG=2501 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,25)+1
    DELETE VALUE)= I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,25)-1
    FIELD)= DISCLOSURE OPEN COUNTER
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
.02 DISCLOSURE DATE 0;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  JAN 18, 2008
  • CROSS-REFERENCE:  ^^TRIGGER^90264^2502
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,26)+1 X ^DD(90264.023,.02,1,1,1.4)
    1.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,26)=DIV,DIH=90264,DIG=2502 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA S Y(1)=$S($D(^BRNREC(D0,0)):^(0),1:"") S X=$P(Y(1),U,26),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,26)-1 X ^DD(90264.023,.02,1,1,2.4)
    2.4)= S DIH=$G(^BRNREC(DIV(0),0)),DIV=X S $P(^(0),U,26)=DIV,DIH=90264,DIG=2502 D ^DICR
    CREATE VALUE)= I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,26)+1
    DELETE VALUE)= I '$D(DIU(0)) S X=$P(^BRNREC(D0,0),U,26)-1
    FIELD)= DATE DISCLOSED COUNTER
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
  • CROSS-REFERENCE:  ^^TRIGGER^90264.023^.05
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^BRNREC(D0,23,D1,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV I '$D(DIU(0)) S X=DUZ X ^DD(90264.023,.02,1,2,1.4)
    1.4)= S DIH=$G(^BRNREC(DIV(0),23,DIV(1),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=90264.023,DIG=.05 D ^DICR
    2)= Q
    CREATE VALUE)= I '$D(DIU(0)) S X=DUZ
    DELETE VALUE)= NO EFFECT
    FIELD)= USER DISSEMINATED
    IHS/OIT/LJF 01/18/2008 PATCH 1:  Recreated trigger to add conditional set so re-indexing the file will not fire trigger.
.03 RECORD DISSEMINATION 0;3 SET
  • 'H' FOR HAND DELIVER;
  • 'I' FOR IN PERSON;
  • 'MR' FOR MAIL REGULAR;
  • 'MC' FOR MAIL CERTIFIED;
  • 'F' FOR FAX;
  • 'O' FOR OTHER;
  • 'E' FOR ELECTRONIC;

  • LAST EDITED:  JUN 29, 2000
.04 NUMBER OF DAYS OLD COMPUTED

  • MUMPS CODE:  X ^DD(90264.023,.04,9.4) S X=$S(Y(90264.023,.04,2):Y(90264.023,.04,4),Y(90264.023,.04,5):X) S X=$J(X,0,0)
    9.2 = S Y(90264.023,.04,3)=$S($D(^BRNREC(D0,0)):^(0),1:""),Y(90264.023,.04,1)=$S($D(^BRNREC(D0,23,D1,0)):^(0),1:"") S X=$P(Y(90264.023,.04,1),U,2)'=""
    9.3 = X ^DD(90264.023,.04,9.2) S Y(90264.023,.04,2)=X S X=$P(Y(90264.023,.04,1),U,2),X1=X,X2=$P(Y(90264.023,.04,3),U,1),X="" D:X2 ^%DTC:X1 S X=X
    9.4 = X ^DD(90264.023,.04,9.3) S Y(90264.023,.04,4)=X S X=1,Y(90264.023,.04,5)=X,Y(90264.023,.04,6)=X,X=DT S X=X,X1=X,X2=$P(Y(90264.023,.04,3),U,1),X="" D:X2 ^%DTC:X1 S X=X
  • ALGORITHM:  $S(DISCLOSURE DATE'="":DISCLOSURE DATE-DATE REQUEST INITIATED,1:TODAY-DATE REQUEST INITIATED) (ALWAYS 0 DECIMAL DIGITS)
.05 USER DISSEMINATED 0;4 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  JUL 21, 2000
  • NOTES:  TRIGGERED by the DISCLOSURE DATE field of the RECEIVING PARTY sub-field of the ROI LISTING RECORD File
.06 NUMBER OF PAGES 0;5 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>1000)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  JAN 03, 2003
  • HELP-PROMPT:  Type a Number between 0 and 1000, 0 Decimal Digits
.07 COST PER PAGE 0;6 NUMBER

  • INPUT TRANSFORM:  S:X["$" X=$P(X,"$",2) K:X'?.N.1".".2N!(X>1000)!(X<0) X
  • LAST EDITED:  JAN 03, 2003
  • HELP-PROMPT:  Type a Dollar Amount between 0 and 1000, 2 Decimal Digits
.08 TOTAL COST COMPUTED

  • MUMPS CODE:  S Y(90264.023,.08,1)=$S($D(^BRNREC(D0,23,D1,0)):^(0),1:"") S X=$P(Y(90264.023,.08,1),U,5)*$P(Y(90264.023,.08,1),U,6) S X=$J(X,0,2)
  • ALGORITHM:  NUMBER OF PAGES*COST PER PAGE (ALWAYS 2 DECIMAL DIGITS)
Info |  Details |  All