| 1 | PSO227PO ;BIR/SJA-Patch 227 Post Install routine ;11/25/05
|
|---|
| 2 | ;;7.0;OUTPATIENT PHARMACY;**227**;DEC 1997
|
|---|
| 3 | ;
|
|---|
| 4 | ; Reference to ^ORD(101 is supported by DBIA #872
|
|---|
| 5 | ; External reference to file 870 is supported by DBIA #1496
|
|---|
| 6 | ;
|
|---|
| 7 | N CNT,PSOA,PSODT,PSONODE,PSORESN,PSOPRTCL,PSOPRT,SDPRTCL
|
|---|
| 8 | ;Set AUTOSTART to Disabled for PSOTPBAAC Logical Link
|
|---|
| 9 | N DIE,DR,DIC,DA,X,Y
|
|---|
| 10 | K DIC S DIC(0)="X",DIC=870,X="PSOTPBAAC" D ^DIC K DIC
|
|---|
| 11 | I +Y>0 K DIE S DA=+Y,DIE=870,DR="4.5////"_0 D ^DIE K DA,DR,DIE
|
|---|
| 12 | ;
|
|---|
| 13 | D RESCH^XUTMOPT("PSO TPB HL7 EXTRACT","@","","@")
|
|---|
| 14 | OUT D BMES^XPDUTL("...Placing TPB menu options out of order...")
|
|---|
| 15 | ;Disable TPB menu options
|
|---|
| 16 | S PSORESN="PLACED OUT OF ORDER BY PSO*7*227"
|
|---|
| 17 | D OUT^XPDMENU("PSO TPB HL7 EXTRACT",PSORESN)
|
|---|
| 18 | D OUT^XPDMENU("PSO TPB INSTITUTION LETTERS",PSORESN)
|
|---|
| 19 | D OUT^XPDMENU("PSO TPB LETTERS PRINTED REPORT",PSORESN)
|
|---|
| 20 | D OUT^XPDMENU("PSO TPB PATIENT ENTER/EDIT",PSORESN)
|
|---|
| 21 | D OUT^XPDMENU("PSO TPB PATIENT REPORT",PSORESN)
|
|---|
| 22 | D OUT^XPDMENU("PSO TPB PATIENT RX REPORT",PSORESN)
|
|---|
| 23 | D OUT^XPDMENU("PSO TPB PRINT LETTERS",PSORESN)
|
|---|
| 24 | D OUT^XPDMENU("PSO TPB RX ENTRY",PSORESN)
|
|---|
| 25 | ;
|
|---|
| 26 | IACT D BMES^XPDUTL("...Inactivating all active TPB patients...")
|
|---|
| 27 | D NOW^%DTC S PSODT=$P(%,".")
|
|---|
| 28 | S (PSOA,CNT)=0 F S PSOA=$O(^PS(52.91,PSOA)) Q:'PSOA S PSONODE=$G(^(PSOA,0)) I '$P(PSONODE,"^",3)!($P(PSONODE,"^",3)>PSODT) D
|
|---|
| 29 | .S DA=PSOA,DIE="^PS(52.91,",DR="2///"_PSODT_";3///10" D ^DIE K DIE,DA,DR
|
|---|
| 30 | .S CNT=CNT+1 W:'(CNT#10) "."
|
|---|
| 31 | ;
|
|---|
| 32 | PRTCL ;Unsubscribe the Pharmacy PSO TPB SD SUB protocol from the Scheduling protocol SDAM APPOINTMENT EVENTS
|
|---|
| 33 | S SDPRTCL=$O(^ORD(101,"B","SDAM APPOINTMENT EVENTS",0))
|
|---|
| 34 | S PSOPRTCL=$O(^ORD(101,"B","PSO TPB SD SUB",0))
|
|---|
| 35 | I 'SDPRTCL!'PSOPRTCL Q
|
|---|
| 36 | S PSOPRT=$O(^ORD(101,SDPRTCL,10,"B",PSOPRTCL,0)) I 'PSOPRT Q
|
|---|
| 37 | K DA,DIK S DA=PSOPRT,DA(1)=SDPRTCL,DIK="^ORD(101,"_DA(1)_",10," D ^DIK K DA,DIK
|
|---|
| 38 | Q
|
|---|
