PSOLABI.m

PSOLABI ;BHAM ISC/JMB ; ADD PSO LAB MONITOR OPTION ; 5/6/94

 ;;6.0;OUTPATIENT PHARMACY;**100,118**;APRIL 1993

CHK W @IOF I $G(^DD(52,0,"VR"))'="6.0" W !!,*7,"Version 6.0 must be installed before running this routine." G EX

 W !!,"Installing PSO LAB MONITOR option and adding it to the PSO SUPERVISOR MENU.",!

 S DA=$O(^DIC(19,"B","PSO LAB MONITOR",0)) G:'DA OPTION

 W !,*7,*7,"The PSO LAB MONITOR option has already been installed." G MENU

 W !,*7,*7,"*** Another 'PSO LAB MONITOR' option already exist on your system.",!,"    You must rename the existing option then rerun this routine before",!,"    the lab on action profile option can be installed." G EX

OPTION S DIC="^DIC(19,",DIC(0)="MZ",X="PSO LAB MONITOR",DIC("DR")="1///Mark/Unmark Lab Monitor Drugs;4///R;25///EDIT^PSOLAB;1.1///MARK/UNMARK LAB MONITOR DRUGS"

 K DD,DO D FILE^DICN K DIC

 S DA=+Y,^DIC(19,DA,1,0)="^^3^3^2931203^^^^",^DIC(19,DA,1,1,0)="This option selects a drug that will print the most recent lab value on"

 S ^DIC(19,DA,1,2,0)="the Action/Information Profile. The lab test, specimen type, and number",^DIC(19,DA,1,3,0)="of days back to search for lab data are entered."

 W !,"Option installed!"

MENU S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0))

 I 'DA(1) W !!,*7,*7,"*** The PSO LAB MONITOR option has not been added to the PSO SUPERVISOR menu",!,"    because the PSO SUPERVISOR menu does not exist on your system. Install"

 I  W !,"    the PSO SUPERVISOR menu then rerun this routine again." G EX

 S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))

 I THERE W !,*7,*7,"The PSO LAB MONITOR option has already been added to the PSO SUPERVISOR menu.",!!,"Finished!",! G EX

 S X=DA,DIC="^DIC(19,"_DA(1)_",10,",DIC(0)="MZ" S:'$D(^DIC(19,DA(1),10,0)) ^DIC(19,DA(1),10,0)="^19.01IP^^" K DD,DO D FILE^DICN K DIC

 W !,"Option added to PSO SUPERVISOR menu!"

EX K DA,THERE,X,Y Q

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---PSOLABI   1854     printed  Apr 09, 2024@21:27:27                                                                                                                                                                                                     Page 2

PSOLABI   ;BHAM ISC/JMB ; ADD PSO LAB MONITOR OPTION ; 5/6/94

 +1       ;;6.0;OUTPATIENT PHARMACY;**100,118**;APRIL 1993

CHK        WRITE @IOF

           IF $GET(^DD(52,0,"VR"))'="6.0"

               WRITE !!,*7,"Version 6.0 must be installed before running this routine."

               GOTO EX

 +1        WRITE !!,"Installing PSO LAB MONITOR option and adding it to the PSO SUPERVISOR MENU.",!

 +2        SET DA=$ORDER(^DIC(19,"B","PSO LAB MONITOR",0))

           if 'DA

               GOTO OPTION

 +3        WRITE !,*7,*7,"The PSO LAB MONITOR option has already been installed."

           GOTO MENU

 +4        WRITE !,*7,*7,"*** Another 'PSO LAB MONITOR' option already exist on your system.",!,"    You must rename the existing option then rerun this routine before",!,"    the lab on action profile option can be installed."

           GOTO EX

OPTION     SET DIC="^DIC(19,"

           SET DIC(0)="MZ"

           SET X="PSO LAB MONITOR"

           SET DIC("DR")="1///Mark/Unmark Lab Monitor Drugs;4///R;25///EDIT^PSOLAB;1.1///MARK/UNMARK LAB MONITOR DRUGS"

 +1        KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +2        SET DA=+Y

           SET ^DIC(19,DA,1,0)="^^3^3^2931203^^^^"

           SET ^DIC(19,DA,1,1,0)="This option selects a drug that will print the most recent lab value on"

 +3        SET ^DIC(19,DA,1,2,0)="the Action/Information Profile. The lab test, specimen type, and number"

           SET ^DIC(19,DA,1,3,0)="of days back to search for lab data are entered."

 +4        WRITE !,"Option installed!"

MENU       SET DA(1)=$ORDER(^DIC(19,"B","PSO SUPERVISOR",0))

 +1        IF 'DA(1)

               WRITE !!,*7,*7,"*** The PSO LAB MONITOR option has not been added to the PSO SUPERVISOR menu",!,"    because the PSO SUPERVISOR menu does not exist on your system. Install"

 +2       IF $TEST

               WRITE !,"    the PSO SUPERVISOR menu then rerun this routine again."

               GOTO EX

 +3        SET THERE=$ORDER(^DIC(19,DA(1),10,"B",DA,0))

 +4        IF THERE

               WRITE !,*7,*7,"The PSO LAB MONITOR option has already been added to the PSO SUPERVISOR menu.",!!,"Finished!",!

               GOTO EX

 +5        SET X=DA

           SET DIC="^DIC(19,"_DA(1)_",10,"

           SET DIC(0)="MZ"

           if '$DATA(^DIC(19,DA(1),10,0))

               SET ^DIC(19,DA(1),10,0)="^19.01IP^^"

           KILL DD,DO

           DO FILE^DICN

           KILL DIC

 +6        WRITE !,"Option added to PSO SUPERVISOR menu!"

EX         KILL DA,THERE,X,Y

           QUIT