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 |  All
Print Page as PDF
Global: ^AMHTRPT

Package: Mental Health Social Services

Global: ^AMHTRPT


Information

FileMan FileNo FileMan Filename Package
9002013.8 MHSS REPORT TEMPORARY DEFINITION Mental Health Social Services

Description

Directly Accessed By Routines, Total: 19

Package Total Routines
Mental Health Social Services 19 AMHRL    AMHRL0    AMHRL01    AMHRL1    AMHRL3    AMHRL4    AMHRLD    AMHRLP
AMHRLP1    AMHRLS    AMHRLU    AMHRLU2    AMHRPSU2    AMHRPT    AMHRPT0    AMHRPT1
AMHRPT4    AMHRPTCP    AMHRPTP    

Accessed By FileMan Db Calls, Total: 8

Package Total Routines
Mental Health Social Services 8 AMHRL    AMHRL0    AMHRL01    AMHRL3    AMHRL4    AMHRLD    AMHRPSU2    AMHRPT

Pointer To FileMan Files, Total: 1

Package Total FileMan Files
Mental Health Social Services 1 MHSS REPORT SORT(#9002013.3)[.07, #9002013.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:  9002013.8^B
    1)= S ^AMHTRPT("B",$E(X,1,30),DA)=""
    2)= K ^AMHTRPT("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:  9002013.8^C
    1)= S ^AMHTRPT("C",$E(X,1,30),DA)=""
    2)= K ^AMHTRPT("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/SUICIDE 0;6 SET
  • 'P' FOR PATIENT;
  • 'V' FOR VISIT;
  • 'S' FOR SUICIDE;

  • LAST EDITED:  SEP 09, 2002
.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^9002013.8^.08
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^AMHTRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002013.8,.07,1,1,1.1) X ^DD(9002013.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(^AMHTRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002013.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(^AMHTRPT(D0,0)):^(0),1:"") S X=$P(Y(1),U,8),X=X S DIU=X K Y X ^DD(9002013.8,.07,1,1,2.1) X ^DD(9002013.8,.07,1,1,2.4)
    2.1)= S X=DIV X ^DD(9002013.8,.07,1,1,59.2) S X=$P(Y(101),U,1) S D0=I(0,0)
    2.4)= S DIH=$S($D(^AMHTRPT(DIV(0),0)):^(0),1:""),DIV=X S $P(^(0),U,8)=DIV,DIH=9002013.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(^AMHTRPT(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 MHSS 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 #9002013.81101 9002013.81101
1102 PRINT ITEMS 12;0 POINTER Multiple #9002013.81102 9002013.81102
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All