Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All
Print Page as PDF
Global: ^BRNRPT

Package: IHS Release Of Information

Global: ^BRNRPT


Information

FileMan FileNo FileMan Filename Package
90264.8 ROI REPORTING UTILITY TEMP IHS Release Of Information

Description

Directly Accessed By Routines, Total: 10

Package Total Routines
IHS Release Of Information 10 BRNRU    BRNRU1    BRNRU11    BRNRU2    BRNRU21    BRNRU3    BRNRUP    BRNRUP1
BRNRUP3    BRNRUS    

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
IHS Release Of Information 5 BRNRU    BRNRU1    BRNRU2    BRNRU3    BRNRUP    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
IHS Release Of Information 1 ROI REPORTING UTILITY SORT(#90264.7)[.07, #90264.81101(.01), #90264.81102(.01)]
Kernel 1 NEW PERSON(#200)[.13]    

Fields, Total: 15

Field # Name Loc Type Details
.01 USER_DATE/TIME 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  OCT 19, 2007
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • CROSS-REFERENCE:  90264.8^B
    1)= S ^BRNRPT("B",$E(X,1,30),DA)=""
    2)= K ^BRNRPT("B",$E(X,1,30),DA)
.02 PERMANENT 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 31, 1994
.03 NAME OF REPORT 0;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  90264.8^C
    1)= S ^BRNRPT("C",$E(X,1,30),DA)=""
    2)= K ^BRNRPT("C",$E(X,1,30),DA)
.04 SEPARATE PAGE 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

  • LAST EDITED:  MAY 31, 1994
.05 REPORT TYPE 0;5 SET
  • 'T' FOR TOTALS ONLY;
  • 'S' FOR SUBTOTALS AND TOTALS;
  • 'D' FOR DETAILED REPORT;

  • LAST EDITED:  NOV 30, 2007
.07 SORT ITEM 0;7 POINTER TO ROI REPORTING UTILITY SORT FILE (#90264.7) ROI REPORTING UTILITY SORT(#90264.7)

  • LAST EDITED:  OCT 19, 2007
  • CROSS-REFERENCE:  ^^TRIGGER^90264.8^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BRNRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90264.8,.07,1,1,1.1) S DIH=$G(^BRNRPT(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90264.8,DIG=.08 D ^DICR
    1.1)= S X=DIV S I(0,0)=$G(D0),D0=DIV S:'D0!'$D(^BRNSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^BRNSORT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BRNRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90264.8,.07,1,1,2.1) S DIH=$G(^BRNRPT(DIV(0),0)),DIV=X S $P(^(0),U,8)=DIV,DIH=90264.8,DIG=.08 D ^DICR
    2.1)= S X=DIV S I(0,0)=$G(D0),Y(1)=$S($D(^BRNRPT(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'D0!'$D(^BRNSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^BRNSORT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    CREATE VALUE)= #.07:#.01
    DELETE VALUE)= #.07:#.01
    FIELD)= SORT TEXT
.08 SORT TEXT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  MAY 31, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • NOTES:  TRIGGERED by the SORT ITEM field of the ROI REPORTING UTILITY TEMP File
.09 PACKAGE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUL 11, 1994
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
.12 FLAT FILE NAME 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<1) X
  • LAST EDITED:  DEC 27, 1995
  • HELP-PROMPT:  Answer must be 1-20 characters in length.
.13 USER CREATED 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  AUG 13, 1996
1101 SCREEN ITEMS 11;0 POINTER Multiple #90264.81101 90264.81101
1102 PRINT ITEMS 12;0 POINTER Multiple #90264.81102 90264.81102
1301 BRNBD 13;1 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:X<1 X
  • LAST EDITED:  OCT 19, 2007
  • HELP-PROMPT:  (No range limit on date)
1302 BRNED 13;2 DATE

  • INPUT TRANSFORM:  S %DT="E" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  OCT 19, 2007
1303 CUSTOM TITLE 13;3 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>99!($L(X)<1) X
  • LAST EDITED:  NOV 30, 2007
  • HELP-PROMPT:  Answer must be 1-99 characters in length.
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  All