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 |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All
Print Page as PDF
Global: ^BCHRPROB

Package: IHS RPMS CHR System

Global: ^BCHRPROB


Information

FileMan FileNo FileMan Filename Package
90002.01 CHR POV IHS RPMS CHR System

Description

Directly Accessed By Routines, Total: 33

Package Total Routines
IHS RPMS CHR System 31 BCH10P6    BCH10P9    BCHADRS    BCHDHS    BCHEXC1    BCHEXD    BCHEXD2    BCHEXD21
BCHEXRE    BCHRC11    BCHRC2    BCHRC51    BCHRC6    BCHRC9    BCHRCH1    BCHRP1
BCHRP21    BCHRP31    BCHRPTST    BCHRU11    BCHUADD    BCHUADD1    BCHUARL    BCHUEDT
BCHUFPP    BCHULKUP    BCHUTIL    ^BCHRPROB    BCHVDO    CANNED NARRATIVES    COUNT MULT    
Health Summary Components 1 BHSBCH    
Local Area Programs 1 AZAXDPM1    

Accessed By FileMan Db Calls, Total: 11

Package Total Routines
IHS RPMS CHR System 9 BCHADRS    BCHEGP1    BCHEGR    BCHENV    BCHHL7F    BCHUADD    BCHUEDT    BCHUTIL
BCHUTIL4    
IHS Support HL7 Interfaces 2 BHLBCH1    BHLBCH2    

Pointer To FileMan Files, Total: 6

Package Total FileMan Files
IHS RPMS CHR System 4 CHR RECORD(#90002)[.03]    CHR CANNED NARRATIVES(#90002.59)[.08, #90002.0181(.02)]    CHR HEALTH PROBLEM CODES(#90002.53)[.01]    CHR SERVICE CODES(#90002.54)[.04]    
IHS Patient 1 PATIENT(#9000001)[.02]    
Utility Tables 1 PROVIDER NARRATIVE(#9999999.27)[.06, 9101]    

Fields, Total: 13

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),$$PR^BCHUTIL(Y)" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  NOV 06, 2011
  • SCREEN:  S DIC("S")="I '$P(^(0),U,6),$$PR^BCHUTIL(Y)"
  • EXPLANATION:  MUST NOT BE AN INACTIVE CODE
  • CROSS-REFERENCE:  90002.01^B
    1)= S ^BCHRPROB("B",$E(X,1,30),DA)=""
    2)= K ^BCHRPROB("B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  90002.01^AY9^MUMPS
    1)= S:$D(BCHLOOK) DIC("DR")=""
    2)= Q
    Sets DIC("DR") to prevent the asking of identifiers when file shifting.
.02 PATIENT 0;2 POINTER TO PATIENT FILE (#9000001) PATIENT(#9000001)

  • LAST EDITED:  SEP 15, 1994
  • CROSS-REFERENCE:  90002.01^AC
    1)= S ^BCHRPROB("AC",$E(X,1,30),DA)=""
    2)= K ^BCHRPROB("AC",$E(X,1,30),DA)
.03 CHR RECORD 0;3 POINTER TO CHR RECORD FILE (#90002)
************************REQUIRED FIELD************************
CHR RECORD(#90002)

  • LAST EDITED:  SEP 15, 1994
  • CROSS-REFERENCE:  90002.01^AD
    1)= S ^BCHRPROB("AD",$E(X,1,30),DA)=""
    2)= K ^BCHRPROB("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.01,.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.01,.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.01,.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.01,.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(^BCHRPROB(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
.07 SUBSTANCE RELATED 0;7 SET
  • 'Y' FOR YES;
  • 'N' FOR NO;

  • LAST EDITED:  OCT 25, 1994
  • HELP-PROMPT:  Enter Y or N from the form. Blank is acceptable.
.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.0181 90002.0181
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.0192 90002.0192

External References

Name Field # of Occurrence
^DIC .01+1, .04+1, .08+1
^DICR .05(XREF 1n1.4), .05(XREF 1n2.4)

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^BCHR - [#90002] .05(XREF 1n1.4), .05(XREF 1n2.4), .05(XREF 1n89.2)
^BCHRPROB - [#90002.01] .05(XREF 1n89.2)
^BCHRPROB("AC" .02(XREF 1S), .02(XREF 1K)
^BCHRPROB("AD" .03(XREF 1S), .03(XREF 1K)
^BCHRPROB("B" .01(XREF 1S), .01(XREF 1K)
^DD( .05(XREF 1n1.4), .05(XREF 1n2.4)
^DD(90002.01 .05(XREF 1S), .05(XREF 1K)

Naked Globals

Name Field # of Occurrence
^(0 .05(XREF 1n1.4), .05(XREF 1n2.4), .05(XREF 1n89.2)

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
>> BCHCOUNT .09+1
>> BCHLOOK .01(XREF 2S)
>> D0 .05(XREF 1S), .05(XREF 1K), .05(XREF 1n89.2)
>> DA .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .05(XREF 1S), .05(XREF 1K)
DIC .01+1!*, .04+1!*, .08+1!*
DIC("DR" .01(XREF 2S)
DIC("S" .01+1*, .01SCR+1*, .04+1*, .04SCR+1*, .08+1*, .08SCR+1*
>> DIE .01+1, .04+1, .08+1
>> DIG .05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIH .05(XREF 1n1.4), .05(XREF 1n2.4)
>> DIU .05(XREF 1S), .05(XREF 1K)
DIV .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.4)
DIV(0 .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.4), .05(XREF 1n89.2)
>> I(0 .05(XREF 1S), .05(XREF 1K), .05(XREF 1n89.2)
U .05(XREF 1S), .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.4), .05(XREF 1n89.2)
X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .03(XREF 1S), .03(XREF 1K), .04+1*!, .05+1!, .05(XREF 1S)
, .05(XREF 1n1.4), .05(XREF 1K), .05(XREF 1n2.4), .08+1*!, .09+1!, 1101+1!
Y .01+1, .04+1, .05(XREF 1S), .05(XREF 1K), .08+1
Y(1 .05(XREF 1n89.2)
Y(101 .05(XREF 1S), .05(XREF 1K), .05(XREF 1n89.2)
Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  Found Entries |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables |  All