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
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HSD290P 405 printed Oct 16, 2024@18:45:14 Page 2
SD290P ;bpiofo/swo - 290 post init; OCT 20 2003
+1 ;;5.3;Scheduling;**290**;AUG 13, 1993
+2 NEW SDIEN
+3 SET SDIEN=$ORDER(^HL(771,"B","SD-SITE-PAIT",""))
+4 IF SDIEN=""
Begin DoDot:1
+5 DO BMES^XPDUTL(" Unable to update FACILITY NAME field of file 771")
+6 DO BMES^XPDUTL(" Edit entry SD-SITE-PAIT manually")
End DoDot:1
QUIT
+7 SET $PIECE(^HL(771,SDIEN,0),"^",3)=$PIECE($$SITE^VASITE(),"^",3)
+8 DO BMES^XPDUTL(" HL7 Parameters Updated Successfully")
+9 QUIT
