source: WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD290P.m

Last change on this file was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR
File size: 395 bytes
Line 
1SD290P ;bpiofo/swo - 290 post init; OCT 20 2003
2 ;;5.3;Scheduling;**290**;AUG 13, 1993
3 N SDIEN
4 S SDIEN=$O(^HL(771,"B","SD-SITE-PAIT",""))
5 I SDIEN="" D Q
6 . D BMES^XPDUTL(" Unable to update FACILITY NAME field of file 771")
7 . D BMES^XPDUTL(" Edit entry SD-SITE-PAIT manually")
8 S $P(^HL(771,SDIEN,0),"^",3)=$P($$SITE^VASITE(),"^",3)
9 D BMES^XPDUTL(" HL7 Parameters Updated Successfully")
10 Q
Note: See TracBrowser for help on using the repository browser.