Sub-Field: 4001.19

This is a pointer to the Universal Interface file, which are messages

1)= S ^DIZ(4001.1,DA(1),19,"B",$E(X,1,30),DA)=""

2)= K ^DIZ(4001.1,DA(1),19,"B",$E(X,1,30),DA)

1)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Y S Y(1)=$G(^DIZ(4001.1,D0,19,D1,0)) S X=$P(Y(1),U,2),X=X S DIU=X K Y X ^DD(4001.19,.01,1,2,1.1) X ^DD(4001.19,.01,1,2,1.4)

1.1)= S X=DIV N Y S I(1,0)=$G(D1),I(0,0)=$G(D0),D0=DIV S:'$D(^INTHU(+D0,0)) D0=-1 S Y(101)=$G(^INTHU(D0,0)) S X=$P(Y(101),U,5) S D0=I(0,0) S D1=I(1,0)

1.4)= S DIH=$G(^DIZ(4001.1,DIV(0),19,DIV(1),0)),DIV=X I $D(^(0)) S DIU=$P(DIH,U,2),$P(^(0),U,2)=DIV,DIH=4001.19,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))

2)= K DIV S DIV=X,D0=DA(1),DIV(0)=D0,D1=DA,DIV(1)=D1 N Y S Y(1)=$G(^DIZ(4001.1,D0,19,D1,0)) S X=$P(Y(1),U,2),X=X S DIU=X K Y S X="" X ^DD(4001.19,.01,1,2,2.4)

2.4)= S DIH=$G(^DIZ(4001.1,DIV(0),19,DIV(1),0)),DIV=X I $D(^(0)) S DIU=$P(DIH,U,2),$P(^(0),U,2)=DIV,DIH=4001.19,DIG=.02 D ^DICR:$O(^DD(DIH,DIG,1,0))

CREATE VALUE)= .01:.05

DELETE VALUE)= @

FIELD)= MESSAGE ID

Enter the corresponding message ID from the UNIVERSAL INTERFACE FILE.