|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
434 bytes
|
| Line | |
|---|
| 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.
