source: WorldVistAEHR/trunk/r/CMOP-PSX/PSXCPOST.m@ 1582

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

initial load of WorldVistAEHR

File size: 607 bytes
Line 
1PSXCPOST ;BIR/WPB - Post-init routine for PSX*1*3 [ 03/07/96 11:02 AM ]
2 ;;1.0;CONSOLIDATED MAIL OUTPATIENT PHARMACY;**3**;10 May 95
3HOST G:$G(^XMB("NETNAME"))'["CMOP-" MED
4 F ZZ=52.5,550,550.1 S DIU=ZZ,DIU(0)="D" D EN^DIU2 K DIU,DIU(0)
5 K ZZ
6 D DRG^PSXUTL
7 Q
8MED Q:$G(^XMB("NETNAME"))["CMOP-"
9 S XX=0 F S XX=$O(^PS(52.5,"AG",XX)) Q:XX'>0 S ZZ=0 F S ZZ=$O(^PS(52.5,"AG",XX,ZZ)) Q:ZZ'>0 D
10 .I '$D(^PS(52.5,ZZ,0)) K ^PS(52.5,"AG",XX,ZZ) Q
11 .I $P(^PS(52.5,ZZ,0),"^",7)'="Q"&($P(^PS(52.5,ZZ,0),"^",7)'="P") K ^PS(52.5,"AG",XX,ZZ)
12 I $D(^PS(52.5,"AR")) K ^PS(52.5,"AR")
13 K XX,DIK,DIK(1),ZZ
14 D DRG^PSXUTL
15 Q
Note: See TracBrowser for help on using the repository browser.