|
Last change
on this file since 660 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
602 bytes
|
| Line | |
|---|
| 1 | PSDHLY ;BIR/LTL-HL7 inteface setup invoked by PSDHL7 for X3.28 ; 21 Feb 95
|
|---|
| 2 | ;;3.0; CONTROLLED SUBSTANCES ;;13 Feb 97
|
|---|
| 3 | X328 N DIE,DA,DR,PSD
|
|---|
| 4 | S DIE="^HLCS(869.2,",(DA,PSD(1))=$O(^HLCS(869.2,"B","PSD-NDES X3.28",0))
|
|---|
| 5 | D MES^XPDUTL(" Updating device for PSD-NDES X3.28 entry in file #869.2.")
|
|---|
| 6 | S DR="300.01////"_+$G(XPDQUES("POS3")) D ^DIE K DIE,DR,DA
|
|---|
| 7 | D MES^XPDUTL("Updating Clients with your X3.28 logical link:")
|
|---|
| 8 | S PSD="PSD",DIE="^ORD(101,"
|
|---|
| 9 | F S PSD=$O(^ORD(101,"B",PSD)) Q:PSD']""!($E(PSD,1,3)'="PSD") D:PSD["C"
|
|---|
| 10 | .S DR="770.7////"_PSD(1) D MES^XPDUTL(PSD)
|
|---|
| 11 | .S DA=$O(^ORD(101,"B",PSD,0)) D ^DIE
|
|---|
| 12 | END Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
