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 |  Pointed To By FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BCHTACTL

Package: IHS RPMS CHR System

Global: ^BCHTACTL


Information

FileMan FileNo FileMan Filename Package
90002.56 CHR ACTIVITY LOCATIONS IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 16

Package Total Routines
IHS RPMS CHR System 15 BCHABCH    BCHDHS    BCHEXD2    BCHEXD21    BCHGDEL    BCHRC11    BCHRP1    BCHRP21
BCHRP31    BCHRPTST    BCHUADD1    BCHUARL    BCHUFPP    BCHULKUP    BCHVDO    
Health Summary Components 1 BHSBCH    

Pointed To By FileMan Files, Total: 3

Package Total FileMan Files
IHS RPMS CHR System 3 CHR GROUP FORM TEMP FILE(#90002.97)[.06]    BCH GROUP DEFINITION(#90002.67)[.05]    CHR RECORD(#90002)[.06]    

Fields, Total: 5

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

  • INPUT TRANSFORM:  K:$L(X)>30!(X?.N)!($L(X)<3)!'(X'?1P.E) X
  • HELP-PROMPT:  NAME MUST BE 3-30 CHARACTERS, NOT NUMERIC OR STARTING WITH PUNCTUATION
  • DELETE TEST:  .01,0)= I 1
  • CROSS-REFERENCE:  90002.56^B
    1)= S ^BCHTACTL("B",$E(X,1,30),DA)=""
    2)= K ^BCHTACTL("B",$E(X,1,30),DA)
.02 CODE 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:X[""""!($A(X)=45) X I $D(X) K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  SEP 13, 1994
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • CROSS-REFERENCE:  90002.56^C
    1)= S ^BCHTACTL("C",$E(X,1,30),DA)=""
    2)= K ^BCHTACTL("C",$E(X,1,30),DA)
.03 PCC SERVICE CATEGORY 0;3 SET
  • 'A' FOR AMBULATORY;
  • 'H' FOR HOSPITALIZATION;
  • 'I' FOR IN-HOSPITAL;
  • 'T' FOR TELECOMMUNICATIONS;

  • LAST EDITED:  SEP 13, 1994
.04 CLINIC CODE FOR PCC 0;4 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>2!($L(X)<2) X
  • LAST EDITED:  SEP 21, 1994
  • HELP-PROMPT:  Answer must be 2 characters in length.
.05 MNEMONIC (CHRIS II) 0;5 FREE TEXT

  • INPUT TRANSFORM:  K:X["""" X I $D(X) K:$L(X)>2!($L(X)<1) X
  • LAST EDITED:  JAN 11, 1995
  • HELP-PROMPT:  Answer must be 1-2 characters in length.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  90002.56^D
    1)= S ^BCHTACTL("D",$E(X,1,30),DA)=""
    2)= K ^BCHTACTL("D",$E(X,1,30),DA)

Found Entries, Total: 7

NAME: CHR OFFICE    NAME: COMMUNITY    NAME: HOME    NAME: HOSPITAL/CLINIC    NAME: NONE    NAME: RADIO/TELEPHONE    NAME: SCHOOL    

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHTACTL("B" .01(XREF 1S), .01(XREF 1K)
^BCHTACTL("C" .02(XREF 1S), .02(XREF 1K)
^BCHTACTL("D" .05(XREF 1S), .05(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 ID.02+1

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .05(XREF 1S), .05(XREF 1K)
U ID.02+1
X .01+1!, .01(XREF 1S), .01(XREF 1K), .02+1!, .02(XREF 1S), .02(XREF 1K), .04+1!, .05+1!, .05(XREF 1S), .05(XREF 1K)
Info |  Desc |  Directly Accessed By Routines |  Pointed To By FileMan Files |  Fields |  Found Entries |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All