source: FOIAVistA/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSOLABI.m@ 1742

Last change on this file since 1742 was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.8 KB
Line 
1PSOLABI ;BHAM ISC/JMB ; ADD PSO LAB MONITOR OPTION ; 5/6/94
2 ;;6.0;OUTPATIENT PHARMACY;**100,118**;APRIL 1993
3CHK 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
8OPTION 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!"
13MENU 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!"
20EX K DA,THERE,X,Y Q
Note: See TracBrowser for help on using the repository browser.