|
Last change
on this file since 738 was 613, checked in by George Lilly, 15 years ago |
|
initial load of WorldVistAEHR
|
|
File size:
694 bytes
|
| Line | |
|---|
| 1 | ORLPURG ; slc/dcm - Purge Patient Lists ;8/13/90 12:27
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | EN ;Purge lists for terminated users
|
|---|
| 4 | S ORPERS=0 F I=0:0 S ORPERS=$O(^OR(100.21,"C",ORPERS)) Q:ORPERS="" D 3
|
|---|
| 5 | K ORPERS,ORLST,DA,DIK
|
|---|
| 6 | Q
|
|---|
| 7 | 3 Q:'$D(^VA(200,ORPERS)) Q:'$P(^(ORPERS,0),"^",11) Q:$P($P(^(0),"^",11),".")'<DT
|
|---|
| 8 | S ORLST=0 F I=0:0 S ORLST=$O(^OR(100.21,"C",ORPERS,ORLST)) Q:ORLST="" D 4
|
|---|
| 9 | Q
|
|---|
| 10 | 4 S DA(1)=ORLST,DA=ORPERS,DIE="^OR(100.21,"_DA(1)_",1,",DR=".01///@;1///@" D ^DIE
|
|---|
| 11 | I '$O(^OR(100.21,ORLST,1,0)) K DA S DA=ORLST,DIK="^OR(100.21," D ^DIK
|
|---|
| 12 | K DA S DIE="^VA(200,",DA=ORPERS,DR="100.14///@;100.15///@;100.16///@;100.17///@;100.18///@;100.19///@;100.21///@;100.22///@" D ^DIE
|
|---|
| 13 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
