Last change
on this file since 780 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
File size:
434 bytes
|
Rev | Line | |
---|
[613] | 1 | PSXCPRE ;BIR/WPB - Pre-init routine for PSX*1*3 [ 02/29/96 12:15 PM ]
|
---|
| 2 | ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**3**;10 May 95
|
---|
| 3 | HOST G:$G(^XMB("NETNAME"))'["CMOP-" MED
|
---|
| 4 | F XX="^DD(54,","^DIC(54," S DIU=XX,DIU(0)="DS" D EN^DIU2 K DIU,DIU(0)
|
---|
| 5 | S DIK="^DD(50,",DA=8,DA(1)=50 D ^DIK K DA,DIK
|
---|
| 6 | K XX
|
---|
| 7 | Q
|
---|
| 8 | MED Q:$G(^XMB("NETNAME"))["CMOP-"
|
---|
| 9 | S DIK="^DD(50,",DA=8,DA(1)=50 D ^DIK K DA,DIK
|
---|
| 10 | S DIK="^DD(52.5,",DA=3,DA(1)=52.5 D ^DIK K DA,DIK
|
---|
| 11 | Q
|
---|
Note:
See
TracBrowser
for help on using the repository browser.