| 1 | PSO254EN ;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
|
|---|
