11 lines
395 B
Mathematica
11 lines
395 B
Mathematica
SD290P ;bpiofo/swo - 290 post init; OCT 20 2003
|
|
;;5.3;Scheduling;**290**;AUG 13, 1993
|
|
N SDIEN
|
|
S SDIEN=$O(^HL(771,"B","SD-SITE-PAIT",""))
|
|
I SDIEN="" D Q
|
|
. D BMES^XPDUTL(" Unable to update FACILITY NAME field of file 771")
|
|
. D BMES^XPDUTL(" Edit entry SD-SITE-PAIT manually")
|
|
S $P(^HL(771,SDIEN,0),"^",3)=$P($$SITE^VASITE(),"^",3)
|
|
D BMES^XPDUTL(" HL7 Parameters Updated Successfully")
|
|
Q
|