SD290P.m

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 ---SD290P   405     printed  Mar 13, 2025@21:49:33                                                                                                                                                                                                       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