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

Package: IHS RPMS CHR System

Global: ^BCHGRPDA


Information

FileMan FileNo FileMan Filename Package
90002.68 BCH GROUP ASSESSMENTS IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 3

Package Total Routines
IHS RPMS CHR System 3 BCHEGR    BCHEGR1    BCHUTIL4    

Accessed By FileMan Db Calls, Total: 3

Package Total Routines
IHS RPMS CHR System 3 BCHEGR    BCHEGR1    BCHUTIL4    

Pointer To FileMan Files, Total: 5

Package Total FileMan Files
IHS RPMS CHR System 4 BCH GROUP DEFINITION(#90002.67)[.03]    CHR CANNED NARRATIVES(#90002.59)[.08, #90002.6881(.02)]    CHR HEALTH PROBLEM CODES(#90002.53)[.01]    CHR SERVICE CODES(#90002.54)[.04]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.06, 9101]    

Fields, Total: 11

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.68^B
    1)= S ^BCHGRPDA("B",$E(X,1,30),DA)=""
    2)= K ^BCHGRPDA("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90002.68^AY9^MUMPS
    1)= S:$D(BCHLOOK) DIC("DR")=""
    2)= Q
    Sets DIC("DR") to prevent the asking of identifiers when file shifting.
.03 GROUP FORM 0;3 POINTER TO BCH GROUP DEFINITION FILE (#90002.67)
************************REQUIRED FIELD************************
BCH GROUP DEFINITION(#90002.67)

  • LAST EDITED:  NOV 16, 2011
  • CROSS-REFERENCE:  90002.68^AD
    1)= S ^BCHGRPDA("AD",$E(X,1,30),DA)=""
    2)= K ^BCHGRPDA("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:  JUN 26, 1997
  • HELP-PROMPT:  Type a Number between 0 and 9999, 0 Decimal Digits
  • CROSS-REFERENCE:  ^^TRIGGER^90002^.27
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(90002.68,.05,1,1,89.2) S X=$P(Y(101),U,27) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU+DIV X ^DD(90002.68,.05,1,1,1.4)
    1.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,27)=DIV,DIH=90002,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 X ^DD(90002.68,.05,1,1,89.2) S X=$P(Y(101),U,27) S D0=I(0,0) S DIU=X K Y S X=DIV S X=DIU-X X ^DD(90002.68,.05,1,1,2.4)
    2.4)= S DIH=$S($D(^BCHR(DIV(0),0)):^(0),1:""),DIV=X I $D(^(0)) S $P(^(0),U,27)=DIV,DIH=90002,DIG=.27 D ^DICR:$O(^DD(DIH,DIG,1,0))>0
    89.2)= S I(0,0)=$S($D(D0):D0,1:""),Y(1)=$S($D(^BCHGRPDA(D0,0)):^(0),1:""),D0=$P(Y(1),U,3) S:'$D(^BCHR(+D0,0)) D0=-1 S DIV(0)=D0 S Y(101)=$S($D(^BCHR(D0,0)):^(0),1:"")
    CREATE VALUE)= TOTAL SERVICE TIME+SERVICE MINUTES
    DELETE VALUE)= TOTAL SERVICE TIME-OLD SERVICE MINUTES
    FIELD)= #.03:#.27
.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.6881 90002.6881
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.6892 90002.6892
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  All