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 |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BMCRTMP

Package: Referred Care Information System

Global: ^BMCRTMP


Information

FileMan FileNo FileMan Filename Package
90001.82 RCIS REPORT LISTER TEMP FILE Referred Care Information System

Description

Directly Accessed By Routines, Total: 24

Package Total Routines
Referred Care Information System 24 BMCFREQ    BMCFREQ1    BMCFREQP    BMCFY1    BMCFYP    BMCRL    BMCRL0    BMCRL01
BMCRL1    BMCRL3    BMCRL4    BMCRLD    BMCRLP    BMCRLP1    BMCRLS    BMCRLU
BMCSEL    BMCTEN    BMCTEN1    SCREEN ITEMS    ^BMCRTMP    BMCTENP    ITEM VALUE    PRINT ITEMS

Accessed By FileMan Db Calls, Total: 5

Package Total Routines
Referred Care Information System 5 BMCRL    BMCRL01    BMCRL3    BMCRL4    BMCRLD    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.13]    
Referred Care Information System 1 RCIS REPORT LISTER ITEMS(#90001.81)[.07, #90001.83101(.01), #90001.83102(.01)]

Fields, Total: 14

Field # Name Loc Type Details
.01 $J_$H 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3)!'(X'?1P.E) X
  • LAST EDITED:  SEP 28, 1993
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • CROSS-REFERENCE:  90001.82^B
    1)= S ^BMCRTMP("B",$E(X,1,30),DA)=""
    2)= K ^BMCRTMP("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:  90001.82^C
    1)= S ^BMCRTMP("C",$E(X,1,30),DA)=""
    2)= K ^BMCRTMP("C",$E(X,1,30),DA)
.04 SEPARATE PAGE 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

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

  • LAST EDITED:  MAY 31, 1994
.06 REFERRAL/PATIENT 0;6 SET
  • 'P' FOR PATIENT;
  • 'R' FOR REFERRAL;

  • LAST EDITED:  JUL 03, 1995
.07 SORT ITEM 0;7 POINTER TO RCIS REPORT LISTER ITEMS FILE (#90001.81) RCIS REPORT LISTER ITEMS(#90001.81)

  • LAST EDITED:  MAY 27, 1997
  • CROSS-REFERENCE:  ^^TRIGGER^90001.82^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCRTMP(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90001.82,.07,1,1,1.1) X ^DD(90001.82,.07,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^BMCTSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^BMCTSORT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BMCRTMP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90001.82,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BMCRTMP(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90001.82,.07,1,1,2.1) X ^DD(90001.82,.07,1,1,2.4)
    2.1)= S X=DIV X ^DD(90001.82,.07,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^BMCRTMP(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90001.82,DIG=.08 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    59.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BMCRTMP(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^BMCTSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^BMCTSORT(D0,0)):^(0),1:"")
    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 RCIS REPORT LISTER TEMP FILE 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.
.13 USER CREATED 0;13 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • LAST EDITED:  NOV 06, 1996
.14 TYPE OF REFERRAL 0;14 SET
  • 'P' FOR PRIMARY;
  • 'S' FOR SECONDARY;
  • 'B' FOR BOTH;

  • LAST EDITED:  JUN 14, 2005
  • HELP-PROMPT:  Enter referrals for report, ie Primary, Secondary or Both
1 CUSTOM TITLE 1;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<1) X
  • LAST EDITED:  DEC 10, 2003
  • HELP-PROMPT:  Answer must be 1-60 characters in length.
1101 SCREEN ITEMS 11;0 POINTER Multiple #90001.83101 90001.83101
1102 PRINT ITEMS 12;0 POINTER Multiple #90001.83102 90001.83102

External References

Name Field # of Occurrence
^DICR .07(XREF 1n1.4), .07(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BMCRTMP - [#90001.82] .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n59.2)
^BMCRTMP("B" .01(XREF 1S), .01(XREF 1K)
^BMCRTMP("C" .03(XREF 1S), .03(XREF 1K)
^BMCTSORT - [#90001.81] .07(XREF 1n1.1), .07(XREF 1n59.2)
^DD( .07(XREF 1n1.4), .07(XREF 1n2.4)
^DD(90001.82 .07(XREF 1S), .07(XREF 1K), .07(XREF 1n2.1)

Naked Globals

Name Field # of Occurrence
^(0 .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4), .07(XREF 1n59.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> D0 .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1K), .07(XREF 1n2.1), .07(XREF 1n59.2)
>> DA .01(XREF 1S), .01(XREF 1K), .03(XREF 1S), .03(XREF 1K), .07(XREF 1S), .07(XREF 1K)
>> DIG .07(XREF 1n1.4), .07(XREF 1n2.4)
>> DIH .07(XREF 1n1.4), .07(XREF 1n2.4)
>> DIU .07(XREF 1S), .07(XREF 1K)
DIV .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.1), .07(XREF 1n2.4)
DIV(0 .07(XREF 1S), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.4)
>> I(0 .07(XREF 1n1.1), .07(XREF 1n2.1), .07(XREF 1n59.2)
U .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K), .07(XREF 1n2.1), .07(XREF 1n2.4), .07(XREF 1n59.2)
X .01+1!, .01(XREF 1S), .01(XREF 1K), .03+1!, .03(XREF 1S), .03(XREF 1K), .07(XREF 1S), .07(XREF 1n1.1), .07(XREF 1n1.4), .07(XREF 1K)
, .07(XREF 1n2.1), .07(XREF 1n2.4), .08+1!, .09+1!, 1+1!
Y .07(XREF 1S), .07(XREF 1K)
Y(1 .07(XREF 1S), .07(XREF 1K), .07(XREF 1n59.2)
Y(101 .07(XREF 1n1.1), .07(XREF 1n2.1), .07(XREF 1n59.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All