| 1 | PSJIPRE ;BIR/CML3-PREINIT FOR INPATIENT ;20 MAR 97 / 9:41 AM
|
|---|
| 2 | ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
|
|---|
| 3 | ;
|
|---|
| 4 | ;
|
|---|
| 5 | ENSO ;Place all Inpatient options out of service.
|
|---|
| 6 | D MES^XPDUTL(" ")
|
|---|
| 7 | S PSJMESSG=" In order to prevent the corruption of existing data while running version 5.0" D MES^XPDUTL(PSJMESSG)
|
|---|
| 8 | S PSJMESSG=" install, all of the Inpatient Medications options will be placed" D MES^XPDUTL(PSJMESSG)
|
|---|
| 9 | S PSJMESSG=" OUT OF ORDER. They will be made available again once the version 5.0" D MES^XPDUTL(PSJMESSG)
|
|---|
| 10 | S PSJMESSG=" install is finished. ....working...." D MES^XPDUTL(PSJMESSG)
|
|---|
| 11 | ;
|
|---|
| 12 | S Q1="PSJ" F S Q1=$O(^DIC(19,"B",Q1)) Q:$E(Q1,1,3)'="PSJ" I $E(Q1,1,4)'="PSJ4" F Q2=0:0 S Q2=$O(^DIC(19,"B",Q1,Q2)) Q:'Q2 S DIE="^DIC(19,",DA=Q2,DR="2////UNAVAILABLE UNTIL INPATIENT CONVERSIONS COMPLETE..." D ^DIE
|
|---|
| 13 | S Q1="PSJ" F S Q1=$O(^ORD(101,"B",Q1)) Q:$E(Q1,1,3)'="PSJ" I Q1'="PSJ OR PAT ADT" F Q2=0:0 S Q2=$O(^ORD(101,"B",Q1,Q2)) Q:'Q2 S DIE="^ORD(101,",DA=Q2,DR="2////UNAVAILABLE UNTIL CONVERSIONS COMPLETE" D ^DIE
|
|---|
| 14 | K DA,DIE,DR,PSJMESSG,Q1,Q2,X,Y
|
|---|
| 15 | Q
|
|---|
