source:
WorldVistAEHR/trunk/r/SCHEDULING-SD-SC/SD290P.m
Last change on this file was 613, checked in by , 15 years ago | |
---|---|
File size: 395 bytes |
Rev | Line | |
---|---|---|
[613] | 1 | SD290P ;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.