source: FOIAVistA/tag/r/CMOP-PSX/PSXCPRE.m@ 1641

Last change on this file since 1641 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 434 bytes
Line 
1PSXCPRE ;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
3HOST 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
8MED 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.