Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Details
Print Page as PDF
Sub-Field: 365.191

Package: Integrated Billing

INTERFACILITY INSURANCE UPDATE(#365.19)-->365.191

Sub-Field: 365.191


Information

Parent File Name Number Package
INTERFACILITY INSURANCE UPDATE(#365.19) DESTINATION VAMC 365.191 Integrated Billing

Details

Field # Name Loc Type Details
.01 DESTINATION VAMC 0;1 POINTER TO INSTITUTION FILE (#4) INSTITUTION(#4)

  • LAST EDITED:  FEB 24, 2021
  • HELP-PROMPT:  Enter the Institution receiving the policy.
  • DESCRIPTION:  
    This field indicates the VAMC that should receive the verified active policy.
  • CROSS-REFERENCE:  365.191^B
    1)= S ^IBCN(365.19,DA(1),1.1,"B",$E(X,1,30),DA)=""
    2)= K ^IBCN(365.19,DA(1),1.1,"B",$E(X,1,30),DA)
.02 SENT STATUS 0;2 SET
  • 'S' FOR SENT;
  • 'R' FOR READY TO SEND;

  • LAST EDITED:  SEP 17, 2021
  • HELP-PROMPT:  Enter the sending status of the entry.
  • DESCRIPTION:  
    This field indicates whether or not the verified active policy was successfully sent to the DESTINATION VAMC(#365.191,.01).
  • TECHNICAL DESCR:  
    This field is only used for those entries that were SENT to another VAMC.
  • CROSS-REFERENCE:  365.191^C
    1)= S ^IBCN(365.19,DA(1),1.1,"C",$E(X,1,30),DA)=""
    2)= K ^IBCN(365.19,DA(1),1.1,"C",$E(X,1,30),DA)
    This cross refence groups the entries by the SENT STATUS.
  • CROSS-REFERENCE:  ^^TRIGGER^365.191^.03
    1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^IBCN(365.19,D0,1.1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.191,.02,1,2,1.4)
    1.4)= S DIH=$G(^IBCN(365.19,DIV(0),1.1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.191,DIG=.03 D ^DICR
    2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 S Y(1)=$S($D(^IBCN(365.19,D0,1.1,D1,0)):^(0),1:"") S X=$P(Y(1),U,3),X=X S DIU=X K Y S X=DIV N %I,%H,% D NOW^%DTC S X=% X ^DD(365.191,.02,1,2,2.4)
    2.4)= S DIH=$G(^IBCN(365.19,DIV(0),1.1,DIV(1),0)),DIV=X S $P(^(0),U,3)=DIV,DIH=365.191,DIG=.03 D ^DICR
    3)= DO NOT DELETE
    CREATE VALUE)= NOW
    DELETE VALUE)= NOW
    FIELD)= SENT STATUS DATE/TIME
    NOREINDEX)= 1
    This trigger will set the SENT STATUS DATE/TIME (#.03) to the current date/time whenever any change/deletion is made to the SENT STATUS (#.02) field.
  • RECORD INDEXES:  SSR (#1711) (WHOLE FILE #365.19)
.03 SENT STATUS DATE/TIME 0;3 DATE

  • INPUT TRANSFORM:  S %DT="ESTXR" D ^%DT S X=Y K:Y<1 X
  • LAST EDITED:  FEB 10, 2021
  • HELP-PROMPT:  Enter the date and time that the entry was sent.
  • DESCRIPTION:  
    This field indicates the date/time of the current SENT STATUS (#365.191,.02).
  • TECHNICAL DESCR:  
    This field is only used for those entries that were SENT to another VAMC.
    WRITE AUTHORITY: ^
  • NOTES:  TRIGGERED by the SENT STATUS field of the DESTINATION VAMC sub-field of the INTERFACILITY INSURANCE UPDATE File
  • RECORD INDEXES:  SSR (#1711) (WHOLE FILE #365.19)
Info |  Details