Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Desc |  Pointed To By FileMan Files |  Fields |  Found Entries
Print Page as PDF
Global: ^IBE(365.041

Package: Integrated Billing

Global: ^IBE(365.041


Information

FileMan FileNo FileMan Filename Package
365.041 X12 271 MILITARY GOVT SERVICE AFFILIATION Integrated Billing

Description

Pointed To By FileMan Files, Total: 2

Package Total FileMan Files
Integrated Billing 1 IIV RESPONSE(#365)[12.03]    
Registration 1 PATIENT(#2)[#2.312(12.03)]    

Fields, Total: 5

Field # Name Loc Type Details
.01 CODE 0;1 FREE TEXT
************************REQUIRED FIELD************************

  • INPUT TRANSFORM:  K:$L(X)>30!($L(X)<1) X
    MAXIMUM LENGTH: 30
  • LAST EDITED:  MAR 24, 2023
  • HELP-PROMPT:  Answer must be 1-30 characters in length.
  • DESCRIPTION:  
    This field is controlled by the Financial Service Center (FSC) and is associated with their table: X12_GOVT_SERVICE_AFFILIATION.
  • CROSS-REFERENCE:  365.041^B
    1)= S ^IBE(365.041,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(365.041,"B",$E(X,1,30),DA)
.02 DESCRIPTION 0;2 FREE TEXT

  • INPUT TRANSFORM:  K:$L(X)>90!($L(X)<1) X
    MAXIMUM LENGTH: 90
  • LAST EDITED:  MAR 14, 2023
  • HELP-PROMPT:  Answer must be 1-90 characters in length.
  • DESCRIPTION:  
    This field is controlled by the Financial Service Center (FSC) and is associated with their table: X12_GOVT_SERVICE_AFFILIATION.
  • CROSS-REFERENCE:  ^^TRIGGER^365.041^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.041,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.041,.02,1,1,1.4)
    1.4)= S DIH=$G(^IBE(365.041,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.041,DIG=.04 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.041,D0,0)):^(0),1:"") S X=$P(Y(1),U,4),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.041,.02,1,1,2.4)
    2.4)= S DIH=$G(^IBE(365.041,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.041,DIG=.04 D ^DICR
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= DATE LAST EDITED
    Update the 'DATE LAST EDITED' whenever the Description is changed.
.03 INACTIVE? 0;3 SET
  • '0' FOR NO;
  • '1' FOR YES;

  • LAST EDITED:  MAR 11, 2013
  • HELP-PROMPT:  Is the code inactive?
  • DESCRIPTION:  
    This field indicates whether or not the code is inactive and will be marked inactive if a code is determined to no longer be used by X12.
.04 DATE LAST EDITED 0;4 DATE

  • INPUT TRANSFORM:  S %DT="ESTR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  MAR 14, 2023
  • HELP-PROMPT:  Enter the date and time the DESCRIPTION was last edited.
  • DESCRIPTION:  
    The date and time that the DESCRIPTION for this entry was last edited.
  • NOTES:  TRIGGERED by the DESCRIPTION field of the X12 271 MILITARY GOVT SERVICE AFFILIATION File
.05 FSC CONTROLLED 0;5 SET (BOOLEAN Data Type)
  • This field identifies whether or not this file is controlled by FSC.

  • LAST EDITED:  MAR 08, 2023
  • HELP-PROMPT:  Enter 1 if FSC controlled or 0 if not.
  • DESCRIPTION:  
    This field identifies whether or not this file is controlled by FSC.

Found Entries, Total: 20

CODE: A    CODE: B    CODE: C    CODE: D    CODE: E    CODE: F    CODE: G    CODE: H    
CODE: I    CODE: J    CODE: K    CODE: L    CODE: M    CODE: N    CODE: O    CODE: Q    
CODE: R    CODE: S    CODE: U    CODE: W    
Info |  Desc |  Pointed To By FileMan Files |  Fields |  Found Entries