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: ^BCHRGAS

Package: IHS RPMS CHR System

Global: ^BCHRGAS


Information

FileMan FileNo FileMan Filename Package
90002.98 CHR GROUP ASSESSMENTS IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS RPMS CHR System 3 BCHEGP    BCHEGP1    BCHUTIL    

Accessed By FileMan Db Calls, Total: 2

Package Total Routines
IHS RPMS CHR System 2 BCHEGP    BCHUTIL    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IHS RPMS CHR System 4 CHR GROUP FORM TEMP FILE(#90002.97)[.02.03]    CHR CANNED NARRATIVES(#90002.59)[.08#90002.9881(.02)]    CHR HEALTH PROBLEM CODES(#90002.53)[.01]    CHR SERVICE CODES(#90002.54)[.04]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.069101]    

Fields, Total: 12

Field # Name Loc Type Details
.01 PROBLEM CODE 0;1 POINTER TO CHR HEALTH PROBLEM CODES FILE (#90002.53)
************************REQUIRED FIELD************************
CHR HEALTH PROBLEM CODES(#90002.53)

  • INPUT TRANSFORM:  S DIC("S")="I '$P(^(0),U,6)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  JUL 28, 2005
  • SCREEN:  S DIC("S")="I '$P(^(0),U,6)"
  • EXPLANATION:  MUST NOT BE AN INACTIVE CODE
  • CROSS-REFERENCE:  90002.98^B
    1)= S ^BCHRGAS("B",$E(X,1,30),DA)=""
    2)= K ^BCHRGAS("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90002.98^AY9^MUMPS
    1)= S:$D(BCHLOOK) DIC("DR")=""
    2)= Q
    Sets DIC("DR") to prevent the asking of identifiers when file shifting.
.02 GROUP FORM 0;2 POINTER TO CHR GROUP FORM TEMP FILE FILE (#90002.97) CHR GROUP FORM TEMP FILE(#90002.97)

  • LAST EDITED:  NOV 04, 2011
  • CROSS-REFERENCE:  90002.98^AC
    1)= S ^BCHRGAS("AC",$E(X,1,30),DA)=""
    2)= K ^BCHRGAS("AC",$E(X,1,30),DA)
.03 GROUP FORM 0;3 POINTER TO CHR GROUP FORM TEMP FILE FILE (#90002.97)
************************REQUIRED FIELD************************
CHR GROUP FORM TEMP FILE(#90002.97)

  • LAST EDITED:  NOV 04, 2011
  • CROSS-REFERENCE:  90002.98^AD
    1)= S ^BCHRGAS("AD",$E(X,1,30),DA)=""
    2)= K ^BCHRGAS("AD",$E(X,1,30),DA)
.04 SERVICE CODE 0;4 POINTER TO CHR SERVICE CODES FILE (#90002.54)
************************REQUIRED FIELD************************
CHR SERVICE CODES(#90002.54)

  • INPUT TRANSFORM:  S DIC("S")="I $$SC^BCHUTIL(Y)" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  OCT 27, 2011
  • SCREEN:  S DIC("S")="I $$SC^BCHUTIL(Y)"
  • EXPLANATION:  If this is a patient encounter, must be a patient related service code.
.05 SERVICE MINUTES 0;5 NUMBER
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:+X'=X!(X>9999)!(X<0)!(X?.E1"."1N.N) X
  • LAST EDITED:  NOV 16, 2011
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
.06 NARRATIVE 0;6 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27)
************************REQUIRED FIELD************************
PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  MAR 22, 2011
.08 CANNED NARRATIVE 0;8 POINTER TO CHR CANNED NARRATIVES FILE (#90002.59) CHR CANNED NARRATIVES(#90002.59)

  • INPUT TRANSFORM:  S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  MAR 15, 2011
  • SCREEN:  S DIC("S")="I $$SETDICS^BCHUTIL($G(BCHPROB),$G(BCHSERV))"
  • EXPLANATION:  MUST BE APPROPRIATE.
.09 CNNCOUNT 0;9 NUMBER

  • INPUT TRANSFORM:  K:+X'=X!(X>$S($G(BCHCOUNT):BCHCOUNT,1:99))!(X<1)!(X?.E1"."1N.N) X
  • LAST EDITED:  MAR 15, 2011
  • HELP-PROMPT:  Type a Number between 1 and 99, 0 Decimal Digits
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
1101 ADDITIONAL NARRATIVE 11;1 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>80!($L(X)<1) X
  • LAST EDITED:  OCT 25, 2011
  • HELP-PROMPT:  Answer must be 1-80 characters in length.
8101 CANNED NARRATIVES 81;0 Multiple #90002.9881 90002.9881
9101 NARRATIVE TEMP 91;1 POINTER TO PROVIDER NARRATIVE FILE (#9999999.27) PROVIDER NARRATIVE(#9999999.27)

  • LAST EDITED:  MAR 22, 2011
9201 COUNT MULT 92;0 Multiple #90002.9892 90002.9892
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All