12 lines
434 B
Mathematica
12 lines
434 B
Mathematica
|
PSXCPRE ;BIR/WPB - Pre-init routine for PSX*1*3 [ 02/29/96 12:15 PM ]
|
||
|
|
;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**3**;10 May 95
|
||
|
|
HOST G:$G(^XMB("NETNAME"))'["CMOP-" MED
|
||
|
|
F XX="^DD(54,","^DIC(54," S DIU=XX,DIU(0)="DS" D EN^DIU2 K DIU,DIU(0)
|
||
|
|
S DIK="^DD(50,",DA=8,DA(1)=50 D ^DIK K DA,DIK
|
||
|
|
K XX
|
||
|
|
Q
|
||
|
|
MED Q:$G(^XMB("NETNAME"))["CMOP-"
|
||
|
|
S DIK="^DD(50,",DA=8,DA(1)=50 D ^DIK K DA,DIK
|
||
|
|
S DIK="^DD(52.5,",DA=3,DA(1)=52.5 D ^DIK K DA,DIK
|
||
|
|
Q
|