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.042

Package: Integrated Billing

Global: ^IBE(365.042


Information

FileMan FileNo FileMan Filename Package
365.042 X12 271 MILITARY SERVICE RANK Integrated Billing

Description

Pointed To By FileMan Files, Total: 2

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

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_MILITARY_SERVICE_RANK.
  • CROSS-REFERENCE:  365.042^B
    1)= S ^IBE(365.042,"B",$E(X,1,30),DA)=""
    2)= K ^IBE(365.042,"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_MILITARY_SERVICE_RANK.
  • CROSS-REFERENCE:  ^^TRIGGER^365.042^.04
    1)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.042,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.042,.02,1,1,1.4)
    1.4)= S DIH=$G(^IBE(365.042,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.042,DIG=.04 D ^DICR
    2)= K DIV S DIV=X,D0=DA,DIV(0)=D0 S Y(1)=$S($D(^IBE(365.042,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.042,.02,1,1,2.4)
    2.4)= S DIH=$G(^IBE(365.042,DIV(0),0)),DIV=X S $P(^(0),U,4)=DIV,DIH=365.042,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 SERVICE RANK File
.05 FSC CONTROLLED 0;5 SET (BOOLEAN Data Type)
  • This field identifies whether or not this file is controlled by FSC.

  • LAST EDITED:  FEB 14, 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: 39

CODE: A1    CODE: A2    CODE: A3    CODE: B1    CODE: B2    CODE: C1    CODE: C2    CODE: C3    
CODE: C4    CODE: C5    CODE: C6    CODE: C7    CODE: C8    CODE: C9    CODE: E1    CODE: F1    
CODE: F2    CODE: F3    CODE: F4    CODE: G1    CODE: G4    CODE: L1    CODE: L2    CODE: L3    
CODE: L4    CODE: L5    CODE: L6    CODE: M1    CODE: M2    CODE: M3    CODE: M4    CODE: M5    
CODE: M6    CODE: P1    CODE: P2    CODE: P3    CODE: P4    CODE: P5    CODE: R1    
Info |  Desc |  Pointed To By FileMan Files |  Fields |  Found Entries