Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields
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

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.
Info |  Desc |  Accessed By FileMan Db Calls |  Pointer To FileMan Files |  Fields