| Name | Value |
|---|---|
| NUMBER | 4855 |
| IA # | 4855 |
| FILE NUMBER | 200 |
| DATE CREATED | 2006/05/09 |
| CUSTODIAL PACKAGE | KERNEL |
| USAGE | Private |
| TYPE | File |
| DBIC APPROVAL STATUS | APPROVED |
| NAME | NPI field for #200 |
| 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
|
| STATUS | Active |
| SUBSCRIBING PACKAGE | VA FILEMAN |