PSOCLPOS ;BHAM ISC/SAB pre init for clozapine patch pso*6*102 ; 05/29/96
;;6.0;OUTPATIENT PHARMACY;**102**;APRIL 1993
;deletes queued clozapine options that transmit data to hines data base
;PSOL TRANSMIT DATA Transmit Clozapine Dispensing Data
;PSOL TRANSMIT DEMOGRAPHICS Transmit Clozapine Patient Demographics
W ! F OPTN="PSOL TRANSMIT DATA","PSOL TRANSMIT DEMOGRAPHICS" S OPT=$O(^DIC(19,"B",OPTN,0)) I OPT D
.S DA=$O(^DIC(19.2,"B",OPT,0)),DIK="^DIC(19.2," I DA D
..D ^DIK W !,"Dequeuing "_$P(^DIC(19,OPT,0),"^")_" option.",!
K OPT,OPT,DA
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPSOCLPOS 581 printed Dec 13, 2024@02:25:28 Page 2
PSOCLPOS ;BHAM ISC/SAB pre init for clozapine patch pso*6*102 ; 05/29/96
+1 ;;6.0;OUTPATIENT PHARMACY;**102**;APRIL 1993
+2 ;deletes queued clozapine options that transmit data to hines data base
+3 ;PSOL TRANSMIT DATA Transmit Clozapine Dispensing Data
+4 ;PSOL TRANSMIT DEMOGRAPHICS Transmit Clozapine Patient Demographics
+5 WRITE !
FOR OPTN="PSOL TRANSMIT DATA","PSOL TRANSMIT DEMOGRAPHICS"
SET OPT=$ORDER(^DIC(19,"B",OPTN,0))
IF OPT
Begin DoDot:1
+6 SET DA=$ORDER(^DIC(19.2,"B",OPT,0))
SET DIK="^DIC(19.2,"
IF DA
Begin DoDot:2
+7 DO ^DIK
WRITE !,"Dequeuing "_$PIECE(^DIC(19,OPT,0),"^")_" option.",!
End DoDot:2
End DoDot:1
+8 KILL OPT,OPT,DA
+9 QUIT
