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!"
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 ---[H[J[2J[HPSOLABI 1854 printed Dec 13, 2024@02:30:19 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!"
+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
