PSOCLPOS.m

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 ---PSOCLPOS   581     printed  Apr 09, 2024@21:33:20                                                                                                                                                                                                     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