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

Package: Integrated Billing

Global: ^IBT(356.91


Information

FileMan FileNo FileMan Filename Package
356.91 INPATIENT PROCEDURE Integrated Billing

Description

Directly Accessed By Routines, Total: 4

Package Total Routines
Integrated Billing 4 IBTRE4    IBTRE6    ^IBT(356.91    IBTRV2    

Accessed By FileMan Db Calls, Total: 1

Package Total Routines
Integrated Billing 1 IBTRE4    

Pointer To FileMan Files, Total: 2

Package Total FileMan Files
DRG Grouper 1 ICD OPERATION/PROCEDURE(#80.1)[.01]    
Registration 1 PATIENT MOVEMENT(#405)[.02]    

Fields, Total: 3

Field # Name Loc Type Details
.01 PROCEDURE 0;1 POINTER TO ICD OPERATION/PROCEDURE FILE (#80.1)
************************REQUIRED FIELD************************
ICD OPERATION/PROCEDURE(#80.1)

  • INPUT TRANSFORM:  S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))" D ^DIC K DIC S DIC=$G(DIE),X=+Y K:Y<0 X
  • LAST EDITED:  APR 21, 2003
  • DESCRIPTION:  
    This is the procedure for this patient.
  • SCREEN:  S DIC("S")="I $$ICD0ACT^IBACSV(+Y,$P($G(^IBT(356.91,+$G(DA),0)),U,3))"
  • EXPLANATION:  Only active operation/procedure codes may be selected.
  • CROSS-REFERENCE:  356.91^B
    1)= S ^IBT(356.91,"B",$E(X,1,30),DA)=""
    2)= K ^IBT(356.91,"B",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.91^ADGPM^MUMPS
    1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"ADGPM",+$P(^(0),U,2),X,DA)=""
    2)= K ^IBT(356.91,+$P(^IBT(356.91,DA,0),U,2),X,DA)
    Cross-reference of procedures by patient movement
.02 ADMISSION MOVEMENT 0;2 POINTER TO PATIENT MOVEMENT FILE (#405) 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:  SEP 01, 1993
  • DESCRIPTION:  
    This is the pointer to the admission movement that this is associated with.
  • SCREEN:  S DIC("S")="I $P(^(0),U,2)=1"
  • EXPLANATION:  Must be an admission movement
  • CROSS-REFERENCE:  356.91^C
    1)= S ^IBT(356.91,"C",$E(X,1,30),DA)=""
    2)= K ^IBT(356.91,"C",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.91^APP^MUMPS
    1)= S:$P(^IBT(356.91,DA,0),U,3) ^IBT(356.91,"APP",X,-$P(^(0),U,3),DA)=""
    2)= K ^IBT(356.91,"APP",X,-$P(^IBT(356.91,DA,0),U,3),DA)
    Cross reference of all procedures by tracking ID and procedure date.
  • CROSS-REFERENCE:  356.91^ADGPM1^MUMPS
    1)= S:+^IBT(356.91,DA,0) ^IBT(356.91,"ADGPM",X,+^(0),DA)=""
    2)= K ^IBT(356.91,"ADGPM",X,+^IBT(356.91,DA,0),DA)
    Cross-reference of all procedures by patient movement
.03 PROCEDURE DATE 0;3 DATE
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  S %DT="EX" D ^%DT S X=Y K:Y<1 X K:$G(X)+.9<+$G(^DGPM(+$P(^IBT(356.91,DA,0),U,2),0)) X
  • LAST EDITED:  SEP 02, 1993
  • HELP-PROMPT:  Dates must be during admission.
  • DESCRIPTION:  
    This is the date that the procedure was performed.
  • NOTES:  XXXX--CAN'T BE ALTERED EXCEPT BY PROGRAMMER
  • CROSS-REFERENCE:  356.91^D
    1)= S ^IBT(356.91,"D",$E(X,1,30),DA)=""
    2)= K ^IBT(356.91,"D",$E(X,1,30),DA)
  • CROSS-REFERENCE:  356.91^APP1^MUMPS
    1)= S:$P(^IBT(356.91,DA,0),U,2) ^IBT(356.91,"APP",$P(^(0),U,2),-X,DA)=""
    2)= K ^IBT(356.91,"APP",+$P(^IBT(356.91,DA,0),U,2),-X,DA)
    Cross reference of all procedures by tracking ID and procedure date.

External References

Name Field # of Occurrence
^%DT .03+1
^DIC .01+1, .02+1

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^DGPM - [#405] IDWRITE+1, .03+1
^DPT - [#2] IDWRITE+1
^IBT(356.91 - [#356.91] .01(XREF 1S), .01(XREF 1K), .01(XREF 2S), .01(XREF 2K), .02(XREF 1S), .02(XREF 1K), .02(XREF 2S), .02(XREF 2K), .02(XREF 3S), .02(XREF 3K)
, .03+1, .03(XREF 1S), .03(XREF 1K), .03(XREF 2S), .03(XREF 2K)

Naked Globals

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

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

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