Last change
on this file since 1078 was 613, checked in by George Lilly, 15 years ago |
initial load of WorldVistAEHR
|
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.