| 1 | PSOLABI ;BHAM ISC/JMB ; ADD PSO LAB MONITOR OPTION ; 5/6/94
|
|---|
| 2 | ;;6.0;OUTPATIENT PHARMACY;**100,118**;APRIL 1993
|
|---|
| 3 | 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
|
|---|
| 4 | W !!,"Installing PSO LAB MONITOR option and adding it to the PSO SUPERVISOR MENU.",!
|
|---|
| 5 | S DA=$O(^DIC(19,"B","PSO LAB MONITOR",0)) G:'DA OPTION
|
|---|
| 6 | W !,*7,*7,"The PSO LAB MONITOR option has already been installed." G MENU
|
|---|
| 7 | 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
|
|---|
| 8 | 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"
|
|---|
| 9 | K DD,DO D FILE^DICN K DIC
|
|---|
| 10 | 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"
|
|---|
| 11 | 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."
|
|---|
| 12 | W !,"Option installed!"
|
|---|
| 13 | MENU S DA(1)=$O(^DIC(19,"B","PSO SUPERVISOR",0))
|
|---|
| 14 | 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"
|
|---|
| 15 | I W !," the PSO SUPERVISOR menu then rerun this routine again." G EX
|
|---|
| 16 | S THERE=$O(^DIC(19,DA(1),10,"B",DA,0))
|
|---|
| 17 | I THERE W !,*7,*7,"The PSO LAB MONITOR option has already been added to the PSO SUPERVISOR menu.",!!,"Finished!",! G EX
|
|---|
| 18 | 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
|
|---|
| 19 | W !,"Option added to PSO SUPERVISOR menu!"
|
|---|
| 20 | EX K DA,THERE,X,Y Q
|
|---|
