source: WorldVistAEHR/trunk/r/OUTPATIENT_PHARMACY-PSO-APSP-HUIP/PSO254EN.m@ 1520

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

initial load of WorldVistAEHR

File size: 1.9 KB
Line 
1PSO254EN ;BHAM-ISC/MFR - ENVIRONMENT CHECK ROUTINE FOR PATCH PSO*7*254 ;10/03/06
2 ;;7.0;OUTPATIENT PHARMACY;**254**;DEC 1997;Build 19
3 ;Reference to $$PROD^XPROD supported by IA 4440
4 ;Reference to NEW PERSON file (#200) supported by IA 224
5 ;Reference to BMES^XPDUTL supported by IA 10141
6 ;
7 Q:'$G(XPDENV) S XPDABORT=0
8 ;
9 I $$PROD^XUPROD(),'$$FIND1^DIC(4,,"B","LEAVENWORTH PHARMACY") D Q
10 . S XPDQUIT=1 D BMES^XPDUTL("THE POST-INSTALL FOR XU*8*416 HAS NOT COMPLETED AND/OR RUN. TRY AGAIN LATER!")
11 ;
12 W !
13 W !," The post-install routine included with this patch will send out a"
14 W !," Mailman message with the list of Pharmacy Divisions in your site"
15 W !," along with their related National Provider Identifier (NPI)"
16 W !," Institution, which is being automatically assigned by this patch."
17 W !," "
18 W !," It will also indicate if there were problems in the automatic"
19 W !," assignment, which will have to be followed-up by an Outpatient"
20 W !," Pharmacy user as outlined in the patch description."
21 W !," "
22 W !," So, please enter the Outpatient Pharmacy user(s) (e.g., Pharmacy"
23 W !," ADPAC or designee) who should receive this message (at least 1 user"
24 W !," is required). The user entered should be the person responsible for"
25 W !," the maintenance of the PSO Site Parameters. The message will also"
26 W !," be sent to the user installing the patch."
27 W !
28 ;
29 N ARRAY,DIC,DTOUT,DUOUT,QT,Y,X,I,USR
30 S DIC=200,DIC(0)="QEZAM",DIC("A")="PHARMACY USER: "
31 F D ^DIC Q:X="" D Q:$G(QT)
32 . I $D(DTOUT)!$D(DUOUT) K ARRAY S QT=1 Q
33 . W " ",$P(Y,"^",2),$S($D(ARRAY(+Y)):" (already selected)",1:"")
34 . W ! S ARRAY(+Y)="",DIC("A")="ANOTHER ONE: "
35 ;
36 I '$D(ARRAY) D S XPDABORT=2 Q
37 . D BMES^XPDUTL("AT LEAST ONE PHARMACY USER MUST BE ENTERED FOR THIS PATCH TO BE INSTALLED!")
38 ;
39 S @XPDGREF@("PSO254USR0")=DUZ
40 S USR="" F I=1:1 S USR=$O(ARRAY(USR)) Q:USR="" S @XPDGREF@("PSO254USR"_I)=USR
41 ;
42 Q
Note: See TracBrowser for help on using the repository browser.