Last change
on this file since 794 was 628, checked in by George Lilly, 15 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.