|
Last change
on this file since 802 was 628, checked in by George Lilly, 15 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
607 bytes
|
| Line | |
|---|
| 1 | PSXCPOST ;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
|
|---|
| 3 | HOST 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
|
|---|
| 8 | MED 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.
