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

Package: Integrated Billing

Global: ^IBT(356.94


Information

FileMan FileNo FileMan Filename Package
356.94 INPATIENT PROVIDERS Integrated Billing

Description

Directly Accessed By Routines, Total: 8

Package Total Routines
Integrated Billing 4 ^IBT(356.94    IBTODD    IBTRE5    IBTRE6    
Utilization Management Rollup 3 IBQL356    IBQLD3    IBQLR3    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBTRE5    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
Kernel 1 NEW PERSON(#200)[.03]    
Registration 1 PATIENT MOVEMENT(#405)[.02]    

Fields, Total: 4

Field # Name Loc Type Details
.01 DATE OF CHANGE 0;1 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:'$$DTCHK^IBTRE5($G(DA),$G(X)) X
  • LAST EDITED:  FEB 22, 1994
  • HELP-PROMPT:  Enter the date the is provider assumes responsibility for the patient. It can not be before the admission date or after the discharge date or if not discharged, more than 7 days into the future.
  • DESCRIPTION:  This is the first day that this provider is responsible for care for the patient. Enter the date that the provider assumes responsibility. For claims tracking purposes the provider will be resonsible for the care from
    this date (inclusive) until another provider assumes responsibility for the same level.
    The date must not be before the admission date or after the discharge date. If a current inpatient, it can not be more than 7 days into the future.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  356.94^B
    1)= S ^IBT(356.94,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356.94,"B",$E(X,1,30),DA)
.02 ADMISSION MOVEMENT 0;2 POINTER TO PATIENT MOVEMENT FILE (#405)
************************REQUIRED FIELD************************
PATIENT MOVEMENT(#405)

  • INPUT TRANSFORM:  S DIC("S")="I $P(^(0),U,2)=1" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 22, 1994
  • DESCRIPTION:  
    This is the admission movement that the provider is responsible for.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Must be an admission movement.
  • CROSS-REFERENCE:  356.94^C
    1)= S ^IBT(356.94,"C",$E(X,1,30),DA)=""
    2)= K ^IBT(356.94,"C",$E(X,1,30),DA)
    Regular cross reference of all inpatient provider entries by the admission movement.
  • CROSS-REFERENCE:  356.94^ADG^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,3)) ^IBT(356.94,"ADG",X,+$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.94,"ADG",X,+$P(^IBT(356.94,DA,0),U,3),DA)
    Cross reference of all admitting provider entries by admission movement, by provider.
  • CROSS-REFERENCE:  356.94^ADGPM^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,3) ^IBT(356.94,"ADGPM",X,+$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.94,"ADGPM",X,+$P(^IBT(356.94,DA,0),U,3),DA)
    Cross reference of all inpatient provider entries by patient movement, by provider.
  • CROSS-REFERENCE:  356.94^ATP^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,4) ^IBT(356.94,"ATP",X,+$P(^(0),U,4),DA)=""
    2)= K ^IBT(356.94,"ATP",X,+$P(^IBT(356.94,DA,0),U,4),DA)
    Cross reference of all inpatient provider entries by admission movement by type of provider.
.03 PROVIDER 0;3 POINTER TO NEW PERSON FILE (#200) NEW PERSON(#200)

  • INPUT TRANSFORM:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1),+Y))" D ^DIC K DIC S DIC=DIE,X=+Y K:Y<0 X
  • LAST EDITED:  FEB 22, 1994
  • DESCRIPTION:  
    Enter the name of the provider who is responsible for care of this patient.
  • SCREEN:  S DIC("S")="I $D(^VA(200,""AK.PROVIDER"",$P(^(0),U,1),+Y))"
  • EXPLANATION:  Must be a provder.
  • CROSS-REFERENCE:  356.94^D
    1)= S ^IBT(356.94,"D",$E(X,1,30),DA)=""
    2)= K ^IBT(356.94,"D",$E(X,1,30),DA)
    Regular cross-reference of all inpatient provider entries by provider.
  • CROSS-REFERENCE:  356.94^ADG1^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,4)=3&($P(^(0),U,2)) ^IBT(356.94,"ADG",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.94,"ADG",+$P(^IBT(356.94,DA,0),U,2),X,DA)
    Cross reference of all admitting provider entries by admission movement, by provider.
  • CROSS-REFERENCE:  356.94^ADGPM1^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,"ADGPM",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.94,"ADGPM",+$P(^IBT(356.94,DA,0),U,2),X,DA)
    Cross reference of all inpatient provider entries by patient movement, by provider.
.04 TYPE PROVIDER 0;4 SET
************************REQUIRED FIELD************************
  • '1' FOR ATTENDING;
  • '2' FOR PROVIDER;
  • '3' FOR ADMITTING;

  • LAST EDITED:  FEB 22, 1994
  • DESCRIPTION:  Enter whether this physician is an attending physician, admitting physician, or the daily care provider (or resident).
    It may be that the admitting physician is different from either the attending or provider. If the admission to acure care does not meet UR criteria, it is important to track the admitting physician.
    The attending physician is the physician responsible for the care of the patient, more than one physician may be the attending.
    The provider is the physician directly providing patient care. In affiliated hospitals this can be a resident or intern who is not necessarily responsible (the attending is responsible).
    Because UR reviews are done every day, it is important to be able to accurately track attendings and providers related to care that does not meet critea.
  • SCREEN:  S DIC("S")="I $$DICS^IBTRE5(Y)"
  • EXPLANATION:  Only one admitting physician allowed.
  • CROSS-REFERENCE:  356.94^ADG2^MUMPS
    1)= S:X=3&($P(^IBT(356.94,DA,0),U,2))&($P(^(0),U,3)) ^IBT(356.94,"ADG",+$P(^(0),U,2),+$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.94,"ADG",+$P(^IBT(356.94,DA,0),U,2),+$P(^(0),U,3),DA)
    Cross reference of all admitting provider entries by admission movement, by provider.
  • CROSS-REFERENCE:  356.94^ATP1^MUMPS
    1)= S:$P(^IBT(356.94,DA,0),U,2) ^IBT(356.94,"ATP",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.94,"ATP",+$P(^IBT(356.94,DA,0),U,2),X,DA)
    Cross reference of all inpatient provider entries by admission movement by type of provider.

ICR, Total: 1

ICR LINK Subscribing Package(s) Fields Referenced Description
ICR #1352
  • Utilization Management Rollup
  • PROVIDER (.03).
    Access: Direct Global Read & w/Fileman

    TYPE PROVIDER (.04).
    Access: Direct Global Read & w/Fileman

    The 'C' x-ref is used to retrieve patient providerinformation related to the PATIENT MOVEMENT of the patient.

    External References

    Name Field # of Occurrence
    ^%DT .01+1
    ^DIC .02+1, .03+1
    Y^DIQ ID.02+1, ID.03+1
    $$DTCHK^IBTRE5 .01+1

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^DD(200 ID.03+1
    ^DD(405 ID.02+1
    ^DGPM - [#405] ID.02+1, IDWRITE+1
    ^DPT - [#2] IDWRITE+1
    ^IBT(356.94 - [#356.94] .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K)
    .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
    ^VA(200 - [#200] ID.03+1

    Naked Globals

    Name Field # of Occurrence
    ^(0 ID.02+1, ID.03+1, IDWRITE+1, .02(XREF 2S), .02(XREF 3S), .02(XREF 4S), .03(XREF 2S), .03(XREF 3S), .04(XREF 1S), .04(XREF 1K)
    .04(XREF 2S)

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    >> %DT .01+1*
    %I ID.02+1*!, ID.03+1*!
    >> C ID.02+1*, ID.03+1*
    >> DA .01+1, .01(XREF 1S), .01(XREF 1K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S)
    .02(XREF 4K), .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S)
    .04(XREF 2K)
    DIC ID.02+1, ID.03+1, .02+1!*, .03+1!*
    DIC("S" .02+1*, .02SCR+1*, .03+1*, .03SCR+1*, .04SCR+1*
    >> DIE .02+1, .03+1
    U ID.02+1, ID.03+1, IDWRITE+1, .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K), .02(XREF 4S), .02(XREF 4K), .03(XREF 2S)
    .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S), .04(XREF 1K), .04(XREF 2S), .04(XREF 2K)
    X .01+1*!, .01(XREF 1S), .01(XREF 1K), .02+1*!, .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
    .02(XREF 4S), .02(XREF 4K), .03+1*!, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K), .03(XREF 3S), .03(XREF 3K), .04(XREF 1S)
    .04(XREF 2S), .04(XREF 2K)
    Y ID.02+1*, ID.03+1*, IDWRITE+1~*, .01+1, .02+1, .03+1
    Info |  Desc |  Directly Accessed By Routines |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields |  ICR |  External References |  Global Variables Directly Accessed |  Naked Globals |  Local Variables  | All