Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All
Print Page as PDF
Global: ^BARTRPT

Package: IHS Accounts Receivable

Global: ^BARTRPT


Information

FileMan FileNo FileMan Filename Package
90055.8 A/R REPORT TEMPORARY DEFINITION IHS Accounts Receivable

Description

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Mental Health Social Services 1 MHSS REPORT SORT(#9002013.3)[.07, #90055.81102(.01)]    

Fields, Total: 13

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:  90055.8^B
    1)= S ^BARTRPT("B",$E(X,1,30),DA)=""
    2)= K ^BARTRPT("B",$E(X,1,30),DA)
.02 PERMANENT 0;2 SET
  • '1' FOR YES;
  • '0' FOR NO;

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

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>30!($L(X)<3) X
  • LAST EDITED:  JUL 28, 1994
  • HELP-PROMPT:  Answer must be 3-30 characters in length.
  • CROSS-REFERENCE:  90055.8^C
    1)= S ^BARTRPT("C",$E(X,1,30),DA)=""
    2)= K ^BARTRPT("C",$E(X,1,30),DA)
.04 SEPARATE PAGE 0;4 SET
  • '1' FOR YES;
  • '0' FOR NO;

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

  • LAST EDITED:  JUL 28, 1994
.06 PATIENT/VISIT 0;6 SET
  • 'P' FOR PATIENT;
  • 'V' FOR VISIT;

  • LAST EDITED:  JUL 28, 1994
.07 SORT ITEM 0;7 POINTER TO MHSS REPORT SORT FILE (#9002013.3) MHSS REPORT SORT(#9002013.3)

  • LAST EDITED:  JUL 28, 1994
  • CROSS-REFERENCE:  ^^TRIGGER^90055.8^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^BARTRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90055.8,.07,1,1,1.1) X ^DD(90055.8,.07,1,1,1.4)
    1.1)= S X=DIV S I(0,0)=$S($D(D0):D0,1:""),D0=DIV S:'$D(^AMHSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^AMHSORT(D0,0)):^(0),1:"") S X=$P(Y(101),U,1) S D0=I(0,0)
    1.4)= S DIH=$S($D(^BARTRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90055.8,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(^BARTRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(90055.8,.07,1,1,2.1) X ^DD(90055.8,.07,1,1,2.4)
    2.1)= S X=DIV X ^DD(90055.8,.07,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^BARTRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=90055.8,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(^BARTRPT(D0,0)):^(0),1:""),D0=$P(Y(1),U,7) S:'$D(^AMHSORT(+D0,0)) D0=-1 S Y(101)=$S($D(^AMHSORT(D0,0)):^(0),1:"")
    CREATE VALUE)= #.07:#.01
    DELETE VALUE)= #.07:#.01
    FIELD)= #.08
.08 SORT TEXT 0;8 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>60!($L(X)<3) X
  • LAST EDITED:  JUL 28, 1994
  • HELP-PROMPT:  Answer must be 3-60 characters in length.
  • NOTES:  TRIGGERED by the SORT ITEM field of the A/R REPORT TEMPORARY DEFINITION File
.09 PACKAGE 0;9 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>4!($L(X)<2) X
  • LAST EDITED:  JUL 28, 1994
  • HELP-PROMPT:  Answer must be 2-4 characters in length.
.11 DATE RANGE NECESSARY 0;11 SET
  • '1' FOR YES;

  • LAST EDITED:  JUL 28, 1994
.12 FILENAME FOR FLAT FILE 0;12 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>20!($L(X)<2) X
  • LAST EDITED:  JAN 05, 1995
  • HELP-PROMPT:  Answer must be 2-20 characters in length.
1101 SCREEN ITEMS 11;0 Multiple #90055.81101 90055.81101
1102 PRINT ITEMS 12;0 POINTER Multiple #90055.81102 90055.81102
Info |  Desc |  Pointer To FileMan Files |  Fields |  Found Entries |  All