Sub-Field: 365.191

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

Details

Field # Name Loc Type 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)`

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

Customize PDF page

Package: Integrated Billing

INTERFACILITY INSURANCE UPDATE(#365.19)-->365.191

Sub-Field: 365.191

Information

Details