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