|
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:
571 bytes
|
| Line | |
|---|
| 1 | PSOCLPOS ;BHAM ISC/SAB pre init for clozapine patch pso*6*102 ; 05/29/96
|
|---|
| 2 | ;;6.0;OUTPATIENT PHARMACY;**102**;APRIL 1993
|
|---|
| 3 | ;deletes queued clozapine options that transmit data to hines data base
|
|---|
| 4 | ;PSOL TRANSMIT DATA Transmit Clozapine Dispensing Data
|
|---|
| 5 | ;PSOL TRANSMIT DEMOGRAPHICS Transmit Clozapine Patient Demographics
|
|---|
| 6 | W ! F OPTN="PSOL TRANSMIT DATA","PSOL TRANSMIT DEMOGRAPHICS" S OPT=$O(^DIC(19,"B",OPTN,0)) I OPT D
|
|---|
| 7 | .S DA=$O(^DIC(19.2,"B",OPT,0)),DIK="^DIC(19.2," I DA D
|
|---|
| 8 | ..D ^DIK W !,"Dequeuing "_$P(^DIC(19,OPT,0),"^")_" option.",!
|
|---|
| 9 | K OPT,OPT,DA
|
|---|
| 10 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
