| 1 | XU8P420 ;OAK_BP/BDT,JLI - NATIONAL PROVIDER IDENTIFIER 3/7/06 ;7/17/06 15:38
|
|---|
| 2 | ;;8.0;KERNEL;**420**; July 10, 1995;Build 20
|
|---|
| 3 | ;;
|
|---|
| 4 | PRE ; run pre-routine
|
|---|
| 5 | Q
|
|---|
| 6 | ;
|
|---|
| 7 | POST ; run post-routine
|
|---|
| 8 | D SLAYGO
|
|---|
| 9 | D SETOPT
|
|---|
| 10 | D SPRM
|
|---|
| 11 | D POSTINIT^XUSNPIED ; jli
|
|---|
| 12 | N I
|
|---|
| 13 | F I=0:0 S I=$O(^USC(8932.1,I)) Q:I'>0 I $$GET1^DIQ(8932.1,I_",",90002)="" D
|
|---|
| 14 | . N FDA S FDA(8932.1,I_",",90002)="I" D FILE^DIE("","FDA")
|
|---|
| 15 | . Q
|
|---|
| 16 | Q
|
|---|
| 17 | SLAYGO ;
|
|---|
| 18 | ; Set un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIME subfile (#200.042)
|
|---|
| 19 | I $P(^DD(200.042,.02,0),"^",2)'["I" D
|
|---|
| 20 | . S $P(^DD(200.042,.02,0),"^",2)=$P(^DD(200.042,.02,0),"^",2)_"I"
|
|---|
| 21 | ; Set un-editable for STATUS field (#.02) in EFFECTIVE DATE/TIEM subfile (#4.042)
|
|---|
| 22 | I $P(^DD(4.042,.02,0),"^",2)'["I" D
|
|---|
| 23 | . S $P(^DD(4.042,.02,0),"^",2)=$P(^DD(4.042,.02,0),"^",2)_"I"
|
|---|
| 24 | ; Set DEL-LAYGO for NPI field (#41.99) in INSTITUTION file (#4)
|
|---|
| 25 | 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)"
|
|---|
| 26 | Q
|
|---|
| 27 | ;
|
|---|
| 28 | SETOPT ;put options under XUCOMMAND and XU USER SIGN-ON menu
|
|---|
| 29 | Q
|
|---|
| 30 | ;
|
|---|
| 31 | SPRM ; Add new Kernel parameters on file
|
|---|
| 32 | N XUSPR,XUSPCK
|
|---|
| 33 | S XUSPCK=$O(^DIC(9.4,"B","KERNEL",0))
|
|---|
| 34 | I 'XUSPCK Q
|
|---|
| 35 | S XUSPCK=XUSPCK_";DIC(9.4,"
|
|---|
| 36 | F XUSPR="Individual_ID;VA(200,","Organization_ID;DIC(4,","Pharmacy_ID;PS(59," D
|
|---|
| 37 | . D PUT^XPAR(XUSPCK,"XUSNPI QUALIFIED IDENTIFIER",$P(XUSPR,";"),$P(XUSPR,";",2))
|
|---|
| 38 | ; delete Provider_ID if it is present
|
|---|
| 39 | D DEL^XPAR(XUSPCK,"XUSNPI QUALIFIED IDENTIFIER","Provider_ID")
|
|---|
| 40 | Q
|
|---|
