| GENERAL DESCRIPTION |
Set ^DD for NPI fields in files #200 and #4:
; Set un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIME subfile
(#200.042) I $P(^DD(200.042,.02,0),"^",2)'["I" D . S
$P(^DD(200.042,.02,0),"^",2)=$P(^DD(200.042,.02,0),"^",2)_"I" ; Set
un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIEM subfile (#4.042) I
$P(^DD(4.042,.02,0),"^",2)'["I" D . S
$P(^DD(4.042,.02,0),"^",2)=$P(^DD(4.042,.02,0),"^",2)_"I" ; Set DEL-LAYGO for
NPI field (#41.99) in INSTITUTION file (#4) S
^DD(4,41.99,"DEL",11,0)="D:'$D(XUMF) EN^DDIOL(""Entries must be inactivated
via the Master File Server(MFS)."","""",""!?5,$C(7)"") I $D(XUMF
|
