Routine: APSP6MSG

APSP6MSG ;IHS/DSD/ENM - OUTPATIENT NEW MODS MSG ; [ 05/30/2001  11:03 AM ]

 ;;6.0;IHS PHARMACY MODIFICATIONS;**3**;01/02/01

MSG ;SETUP AND SEND EMAIL MSG

 W !,"Now I will send a mail message to all holders of the pharmacy 'PSORPH' KEY.",!

 D XMSET

 D TEXT

 D MSG1

 D ZAAP

XMSET ;SET MAIL VARIABLES

 K XMY S XMSUB="Outpatient Pharmacy Point of Sale Patch",XMDUZ="OUTPATIENT PHARMACY DEVELOPER"

 D RPH

MSG1 D ^XMD K APSPMSG

TEXT S APSPMSG(1,0)="To:   Outpatient Pharmacy (OP) Supervisors"

 S APSPMSG(2,0)=" "

 S APSPMSG(3,0)="      OUTPATIENT PHARMACY POINT OF SALE ENHANCEMENT PATCH "

 S APSPMSG(3.1,0)=" "

 S APSPMSG(3.2,0)=" "

 S APSPMSG(4,0)="The purpose of this message is to notify you that Outpatient Patch #3 has "

 S APSPMSG(5,0)="been released and installed in your computer.  Patch #3 includes the new "

 S APSPMSG(6,0)="Pharmacy Point of Sale enhancements and other modifications. This message was"

 S APSPMSG(7,0)="sent to Pharmacy Supervisors only (holding the PSORPH Security Key)."

 S APSPMSG(7.1,0)="Please forward this message to your staff."

 S APSPMSG(8,0)="------------------------------------------------------------------------------ "

 S APSPMSG(9,0)="About The Pharmacy Point of Sale Process......... "

 S APSPMSG(10,0)=" "

 S APSPMSG(11,0)="Enhancements have been added to the RPMS Outpatient Pharmacy Module that will"

 S APSPMSG(12,0)="pass Rx information, for billable patients, to POS software designed by"

 S APSPMSG(13,0)="a company called Full Circle."

 S APSPMSG(14,0)="The Full Circle Point of Sale (FCPOS) software formats the data and sends it to"

 S APSPMSG(15,0)="a clearing house company (usually Envoy) who routes the POS data to individual"

 S APSPMSG(16,0)="insurance companies for billing. Payment information is forwarded back"

 S APSPMSG(16.1,0)="to the Point of Sale software and depending on whether or not payment is"

 S APSPMSG(16.2,0)="promised, an entry is made into the IHS 3rd Party Billing and Accounts"

 S APSPMSG(17,0)="Receivable payment for posting."

 S APSPMSG(18,0)="------------------------------------------------------------------------------"

 S APSPMSG(19,0)="NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!"

 S APSPMSG(20,0)="                         ALL PHARMACY USERS !!"

 S APSPMSG(21,0)=" "

 S APSPMSG(22,0)="WHEN CONFIGURED, THE OUTPATIENT PHARMACY POINT OF SALES PROCESS IS TRIGGERED"

 S APSPMSG(23,0)="IMMEDIATELY AFTER EACH RX LABEL PRINTS!   RX LABELS MUST PRINT IN ORDER TO"

 S APSPMSG(24,0)="START THE POINT OF SALES PROCESS FOR EACH PRESCRIPTION !!!!"

 S APSPMSG(25,0)="----------------------------------------------------------------------------"

 S APSPMSG(26,0)=" "

 S APSPMSG(27,0)="Several new fields and parameters have been added to the outpatient system"

 S APSPMSG(28,0)="with most of the changes appearing in the 'New Rx' and 'Refill Rx Options. "

 S APSPMSG(29,0)="A description of these new fields and parameters are listed below for you"

 S APSPMSG(30,0)="to review."

 S APSPMSG(31,0)=" "

 S APSPMSG(32,0)="NEW FIELDS (New Rx,Renewal Rx & Refill Rx) "

 S APSPMSG(33,0)="------------------------------------------ "

 S APSPMSG(33.1,0)=" "

 S APSPMSG(34,0)="AWP UNIT OF DRUG - Shows AWP Unit Price of the drug gotten either from the "

 S APSPMSG(35,0)="appropriate field in the Drug File or put in on the fly thru the AWP Option"

 S APSPMSG(35.1,0)="when filling a RX. "

 S APSPMSG(35.2,0)=" "

 S APSPMSG(36,0)="NDC - Shows the default NDC from the Drug File and allows you to enter "

 S APSPMSG(37,0)="the current NDC if necessary triggering an update of the AWP UNIT OF DRUG."

 S APSPMSG(37.1,0)=" "

 S APSPMSG(38,0)="BILL STATUS - This new field is controlled by a new parameter described"

 S APSPMSG(39,0)="below. It will display a default of '1' for AUTO BILL or '0' for MANUAL BILL."

 S APSPMSG(40,0)="If the Bill Status is '1' auto bill causes the FCPOS software to bill"

 S APSPMSG(41,0)="in the background.  If the Bill Status is '0' manual bill causes the POS"

 S APSPMSG(42,0)="software to log the Rx in the FCPOS software but bill it only if the user goes"

 S APSPMSG(43,0)="to the FCPOS software and runs the Manual Bill Option."

 S APSPMSG(43.1,0)=" "

 S APSPMSG(44,0)="PAY STATUS - This field is stuffed from the FCPOS software initially when the"

 S APSPMSG(45,0)="Rx data is first passed to the FCPOS software stating what the POS software"

 S APSPMSG(46,0)="is doing with this RX. This field is in the Prescription File and is"

 S APSPMSG(46.1,0)="not normally seen in the filling of prescriptions."

 S APSPMSG(46.2,0)=" "

 S APSPMSG(47,0)="PAY STATUS (COMPUTED) - This is a computed field that will tell the POS status"

 S APSPMSG(48,0)="of this Rx currently with info from the FCPOS software. This field is"

 S APSPMSG(48.1,0)="in the Prescription File and isn't normally seen in the filling of Rx's."

 S APSPMSG(48.2,0)=" "

 S APSPMSG(49,0)="INSURER INFO - This field is parameter controlled. If it is set to yes,"

 S APSPMSG(50,0)="then the field 'Want to Add/Edit Insurer Information' will appear when"

 S APSPMSG(51,0)="filling a prescription. This field allows adding of additional insurer"

 S APSPMSG(51.1,0)="related information that may be needed to process successfully, a claim"

 S APSPMSG(51.2,0)="for billing purposes of a prescription."

 S APSPMSG(51.3,0)=" "

 S APSPMSG(52,0)="Note:  The above fields all have identical fields in the 'New', 'Renewal'"

 S APSPMSG(53,0)="and 'Refill' Rx Options."

 S APSPMSG(54,0)="----------------------------------------------------------------------------- "

 S APSPMSG(54.1,0)="NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!"

 S APSPMSG(54.2,0)=" "

 S APSPMSG(55,0)="NEW PARAMETERS - For the Point of Sale package to proerly interact"

 S APSPMSG(55.1,0)="                with the RPMS Pharmacy package, it is extremely"

 S APSPMSG(55.2,0)="                important that you review and set each of the"

 S APSPMSG(55.3,0)="                new IHS Pharmacy Site Parameters accordingly."

 S APSPMSG(55.4,0)=""

 S APSPMSG(55.5,0)="------------------------------------------------------"

 S APSPMSG(56,0)=" "

 S APSPMSG(57,0)="SHOW PATIENT STATUS - This parameter determines if the Rx being filled"

 S APSPMSG(58,0)="will display the 'PATIENT STATUS' (ie. Outpatient or Inpatient)."

 S APSPMSG(59,0)="A default 'Patient Status' will be shown if this parameter is not set."

 S APSPMSG(59.1,0)="Note: the patient status field can be jumped to even if the site"

 S APSPMSG(59.2,0)="parameter is turned 'off'."

 S APSPMSG(59.3,0)=" "

 S APSPMSG(60,0)="SHOW NDC AND AWP - This parameter determines if the Rx being filled will"

 S APSPMSG(61,0)="asks for the National Drug Code (NDC) and the Average Wholesale Price (AWP)"

 S APSPMSG(62,0)="fields. If this field is not set, the information will show a default of"

 S APSPMSG(63,0)="what is currently set for the drug in the Drug File."

 S APSPMSG(63.1,0)="Note: the NDC and AWP fields can be jumped to even if the site parameter"

 S APSPMSG(63.2,0)="is turned 'off'."

 S APSPMSG(63.3,0)=" "

 S APSPMSG(64,0)="SHOW RX BILL & INSURER FIELDS - This parameter determines if the RX"

 S APSPMSG(65,0)="being filled asks for the BILL STATUS field and the INSURER INFO field."

 S APSPMSG(66,0)="If this field is not set, the BILL STATUS will be stuffed with the RX BILL"

 S APSPMSG(67,0)="DEFAULT STATUS and the INSURER INFO field will not have anything in it."

 S APSPMSG(67.1,0)="Note: These fields can be jumped to even if the site parameter is turned off."

 S APSPMSG(67.2,0)=" "

 S APSPMSG(68,0)="RX BILL DEFAULT STATUS - This parameter is used to stuff the BILL STATUS field"

 S APSPMSG(69,0)="in the prescription. The RX BILL STATUS can be changed by the user"

 S APSPMSG(70,0)="at the time the prescription is filled."

 S APSPMSG(70.1,0)=""

 S APSPMSG(71,0)="SIGNATURE LABEL - This parameter is used to determine if a signature label"

 S APSPMSG(72,0)="should print with a fill/refill of a prescription, and if needed, for"

 S APSPMSG(73,0)="which type of insurers it is needed for.  (i.e. Medicaid, Medicare,"

 S APSPMSG(73.1,0)="Private, All Insurers..."

 S APSPMSG(73.2,0)=" "

 S APSPMSG(74,0)="PASS DATA TO POS - This parameter can be used to control the passing of data"

 S APSPMSG(75,0)="from pharmacy to the Full Circle Point of Sale Package. When set to 'NO' -"

 S APSPMSG(76,0)="pharmacy data will NOT pass to the Point of Sale Package. When set to"

 S APSPMSG(76.1,0)="'YES' - pharmacy data will pass to Point of Sale in the manner established"

 S APSPMSG(76.2,0)="in the 'Bill Status' parameter.  (***IMPORTANT NOTE: If Pharmacy Patch"

 S APSPMSG(76.3,0)="3 is installed with this parameter set to 'YES' and the Point of Sale"

 S APSPMSG(76.4,0)="software is installed on the same system without being configured,"

 S APSPMSG(76.5,0)="ERRORS will occur. To avoid such errors, set this parameter to 'NO' until the"

 S APSPMSG(76.6,0)="Point of Sale software has been configured and is ready to receive pharmacy"

 S APSPMSG(76.7,0)="data.)"

 S APSPMSG(76.8,0)=""

 S APSPMSG(77,0)="OTHER ENHANCEMENTS INCLUDED IN THIS PATCH"

 S APSPMSG(78,0)="-----------------------------------------"

 S APSPMSG(79,0)=""

 S APSPMSG(80,0)="- The Outpatient Pharmacy module will automatically reverse and resubmit a POS"

 S APSPMSG(81,0)="claim if the Bill Status parameter equals '1' for AUTO BILL and Rx is edited"

 S APSPMSG(82,0)="deleted or returned to stock."

 S APSPMSG(83,0)=" "

 S APSPMSG(84,0)="- Patient Medication Information (PMI) modifications have been added to the"

 S APSPMSG(85,0)="'Print Line' for new, refills and partial Rx's. The PMI database will soon be"

 S APSPMSG(86,0)="available for distribution."

 S APSPMSG(87,0)=""

 S APSPMSG(88,0)="- Patient allergy information can now be entered while in the 'New Rx' Option."

 S APSPMSG(89,0)="Example: NEW RX FOR TEST,GUY ?: (Y/N/P/R/A/G): Y// A for ALLERGIES/REACTIONS"

 S APSPMSG(89.1,0)=" "

 D ^APSP6M1 ;GET MORE TEXT

 S XMTEXT="APSPMSG(",%H=$H D YX^%DTC

RPH ;GET HOLDERS OF 'PSORPH' (PHARMACIST)

 ;S XMY("MOORE,EDGAR")="" Q  ;TEMPORARY, REMOVE AFTER TESTING

 S J=0

 F J=0:0 S J=$O(^XUSEC("PSORPH",J)) Q:'J  S APSPNAME=$P($G(^VA(200,J,0)),"^"),XMY(APSPNAME)=""

 ;F J=0:0 S J=$O(^XUSEC("PSOGLORES",J)) Q:'J  S APSPNAME=$P($G(^VA(200,J,0)),"^"),XMY(APSPNAME)="" ;IHS/OKCAO/POC 6/22/98 CHANGE SECURITY KEY

ZAAP ;KILL ALL VARIABLES ON EXIT

 K APSLNAME,APSP,APSPDG,APSPZ,XMDUZ,J,X,XMSUB,XMTEXT

APSP6MSG  ;IHS/DSD/ENM - OUTPATIENT NEW MODS MSG ; [ 05/30/2001  11:03 AM ]

 +1       ;;6.0;IHS PHARMACY MODIFICATIONS;**3**;01/02/01

MSG       ;SETUP AND SEND EMAIL MSG

 +1        WRITE !,"Now I will send a mail message to all holders of the pharmacy 'PSORPH' KEY.",!

 +2        DO XMSET

 +3        DO TEXT

 +4        DO MSG1

 +5        DO ZAAP

 +6        QUIT

XMSET     ;SET MAIL VARIABLES

 +1        KILL XMY

           SET XMSUB="Outpatient Pharmacy Point of Sale Patch"

           SET XMDUZ="OUTPATIENT PHARMACY DEVELOPER"

 +2        DO RPH

 +3        QUIT

MSG1       DO ^XMD

           KILL APSPMSG

 +1        QUIT

TEXT       SET APSPMSG(1,0)="To:   Outpatient Pharmacy (OP) Supervisors"

 +1        SET APSPMSG(2,0)=" "

 +2        SET APSPMSG(3,0)="      OUTPATIENT PHARMACY POINT OF SALE ENHANCEMENT PATCH "

 +3        SET APSPMSG(3.1,0)=" "

 +4        SET APSPMSG(3.2,0)=" "

 +5        SET APSPMSG(4,0)="The purpose of this message is to notify you that Outpatient Patch #3 has "

 +6        SET APSPMSG(5,0)="been released and installed in your computer.  Patch #3 includes the new "

 +7        SET APSPMSG(6,0)="Pharmacy Point of Sale enhancements and other modifications. This message was"

 +8        SET APSPMSG(7,0)="sent to Pharmacy Supervisors only (holding the PSORPH Security Key)."

 +9        SET APSPMSG(7.1,0)="Please forward this message to your staff."

 +10       SET APSPMSG(8,0)="------------------------------------------------------------------------------ "

 +11       SET APSPMSG(9,0)="About The Pharmacy Point of Sale Process......... "

 +12       SET APSPMSG(10,0)=" "

 +13       SET APSPMSG(11,0)="Enhancements have been added to the RPMS Outpatient Pharmacy Module that will"

 +14       SET APSPMSG(12,0)="pass Rx information, for billable patients, to POS software designed by"

 +15       SET APSPMSG(13,0)="a company called Full Circle."

 +16       SET APSPMSG(14,0)="The Full Circle Point of Sale (FCPOS) software formats the data and sends it to"

 +17       SET APSPMSG(15,0)="a clearing house company (usually Envoy) who routes the POS data to individual"

 +18       SET APSPMSG(16,0)="insurance companies for billing. Payment information is forwarded back"

 +19       SET APSPMSG(16.1,0)="to the Point of Sale software and depending on whether or not payment is"

 +20       SET APSPMSG(16.2,0)="promised, an entry is made into the IHS 3rd Party Billing and Accounts"

 +21       SET APSPMSG(17,0)="Receivable payment for posting."

 +22       SET APSPMSG(18,0)="------------------------------------------------------------------------------"

 +23       SET APSPMSG(19,0)="NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!"

 +24       SET APSPMSG(20,0)="                         ALL PHARMACY USERS !!"

 +25       SET APSPMSG(21,0)=" "

 +26       SET APSPMSG(22,0)="WHEN CONFIGURED, THE OUTPATIENT PHARMACY POINT OF SALES PROCESS IS TRIGGERED"

 +27       SET APSPMSG(23,0)="IMMEDIATELY AFTER EACH RX LABEL PRINTS!   RX LABELS MUST PRINT IN ORDER TO"

 +28       SET APSPMSG(24,0)="START THE POINT OF SALES PROCESS FOR EACH PRESCRIPTION !!!!"

 +29       SET APSPMSG(25,0)="----------------------------------------------------------------------------"

 +30       SET APSPMSG(26,0)=" "

 +31       SET APSPMSG(27,0)="Several new fields and parameters have been added to the outpatient system"

 +32       SET APSPMSG(28,0)="with most of the changes appearing in the 'New Rx' and 'Refill Rx Options. "

 +33       SET APSPMSG(29,0)="A description of these new fields and parameters are listed below for you"

 +34       SET APSPMSG(30,0)="to review."

 +35       SET APSPMSG(31,0)=" "

 +36       SET APSPMSG(32,0)="NEW FIELDS (New Rx,Renewal Rx & Refill Rx) "

 +37       SET APSPMSG(33,0)="------------------------------------------ "

 +38       SET APSPMSG(33.1,0)=" "

 +39       SET APSPMSG(34,0)="AWP UNIT OF DRUG - Shows AWP Unit Price of the drug gotten either from the "

 +40       SET APSPMSG(35,0)="appropriate field in the Drug File or put in on the fly thru the AWP Option"

 +41       SET APSPMSG(35.1,0)="when filling a RX. "

 +42       SET APSPMSG(35.2,0)=" "

 +43       SET APSPMSG(36,0)="NDC - Shows the default NDC from the Drug File and allows you to enter "

 +44       SET APSPMSG(37,0)="the current NDC if necessary triggering an update of the AWP UNIT OF DRUG."

 +45       SET APSPMSG(37.1,0)=" "

 +46       SET APSPMSG(38,0)="BILL STATUS - This new field is controlled by a new parameter described"

 +47       SET APSPMSG(39,0)="below. It will display a default of '1' for AUTO BILL or '0' for MANUAL BILL."

 +48       SET APSPMSG(40,0)="If the Bill Status is '1' auto bill causes the FCPOS software to bill"

 +49       SET APSPMSG(41,0)="in the background.  If the Bill Status is '0' manual bill causes the POS"

 +50       SET APSPMSG(42,0)="software to log the Rx in the FCPOS software but bill it only if the user goes"

 +51       SET APSPMSG(43,0)="to the FCPOS software and runs the Manual Bill Option."

 +52       SET APSPMSG(43.1,0)=" "

 +53       SET APSPMSG(44,0)="PAY STATUS - This field is stuffed from the FCPOS software initially when the"

 +54       SET APSPMSG(45,0)="Rx data is first passed to the FCPOS software stating what the POS software"

 +55       SET APSPMSG(46,0)="is doing with this RX. This field is in the Prescription File and is"

 +56       SET APSPMSG(46.1,0)="not normally seen in the filling of prescriptions."

 +57       SET APSPMSG(46.2,0)=" "

 +58       SET APSPMSG(47,0)="PAY STATUS (COMPUTED) - This is a computed field that will tell the POS status"

 +59       SET APSPMSG(48,0)="of this Rx currently with info from the FCPOS software. This field is"

 +60       SET APSPMSG(48.1,0)="in the Prescription File and isn't normally seen in the filling of Rx's."

 +61       SET APSPMSG(48.2,0)=" "

 +62       SET APSPMSG(49,0)="INSURER INFO - This field is parameter controlled. If it is set to yes,"

 +63       SET APSPMSG(50,0)="then the field 'Want to Add/Edit Insurer Information' will appear when"

 +64       SET APSPMSG(51,0)="filling a prescription. This field allows adding of additional insurer"

 +65       SET APSPMSG(51.1,0)="related information that may be needed to process successfully, a claim"

 +66       SET APSPMSG(51.2,0)="for billing purposes of a prescription."

 +67       SET APSPMSG(51.3,0)=" "

 +68       SET APSPMSG(52,0)="Note:  The above fields all have identical fields in the 'New', 'Renewal'"

 +69       SET APSPMSG(53,0)="and 'Refill' Rx Options."

 +70       SET APSPMSG(54,0)="----------------------------------------------------------------------------- "

 +71       SET APSPMSG(54.1,0)="NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!  NOTICE!"

 +72       SET APSPMSG(54.2,0)=" "

 +73       SET APSPMSG(55,0)="NEW PARAMETERS - For the Point of Sale package to proerly interact"

 +74       SET APSPMSG(55.1,0)="                with the RPMS Pharmacy package, it is extremely"

 +75       SET APSPMSG(55.2,0)="                important that you review and set each of the"

 +76       SET APSPMSG(55.3,0)="                new IHS Pharmacy Site Parameters accordingly."

 +77       SET APSPMSG(55.4,0)=""

 +78       SET APSPMSG(55.5,0)="------------------------------------------------------"

 +79       SET APSPMSG(56,0)=" "

 +80       SET APSPMSG(57,0)="SHOW PATIENT STATUS - This parameter determines if the Rx being filled"

 +81       SET APSPMSG(58,0)="will display the 'PATIENT STATUS' (ie. Outpatient or Inpatient)."

 +82       SET APSPMSG(59,0)="A default 'Patient Status' will be shown if this parameter is not set."

 +83       SET APSPMSG(59.1,0)="Note: the patient status field can be jumped to even if the site"

 +84       SET APSPMSG(59.2,0)="parameter is turned 'off'."

 +85       SET APSPMSG(59.3,0)=" "

 +86       SET APSPMSG(60,0)="SHOW NDC AND AWP - This parameter determines if the Rx being filled will"

 +87       SET APSPMSG(61,0)="asks for the National Drug Code (NDC) and the Average Wholesale Price (AWP)"

 +88       SET APSPMSG(62,0)="fields. If this field is not set, the information will show a default of"

 +89       SET APSPMSG(63,0)="what is currently set for the drug in the Drug File."

 +90       SET APSPMSG(63.1,0)="Note: the NDC and AWP fields can be jumped to even if the site parameter"

 +91       SET APSPMSG(63.2,0)="is turned 'off'."

 +92       SET APSPMSG(63.3,0)=" "

 +93       SET APSPMSG(64,0)="SHOW RX BILL & INSURER FIELDS - This parameter determines if the RX"

 +94       SET APSPMSG(65,0)="being filled asks for the BILL STATUS field and the INSURER INFO field."

 +95       SET APSPMSG(66,0)="If this field is not set, the BILL STATUS will be stuffed with the RX BILL"

 +96       SET APSPMSG(67,0)="DEFAULT STATUS and the INSURER INFO field will not have anything in it."

 +97       SET APSPMSG(67.1,0)="Note: These fields can be jumped to even if the site parameter is turned off."

 +98       SET APSPMSG(67.2,0)=" "

 +99       SET APSPMSG(68,0)="RX BILL DEFAULT STATUS - This parameter is used to stuff the BILL STATUS field"

 +100      SET APSPMSG(69,0)="in the prescription. The RX BILL STATUS can be changed by the user"

 +101      SET APSPMSG(70,0)="at the time the prescription is filled."

 +102      SET APSPMSG(70.1,0)=""

 +103      SET APSPMSG(71,0)="SIGNATURE LABEL - This parameter is used to determine if a signature label"

 +104      SET APSPMSG(72,0)="should print with a fill/refill of a prescription, and if needed, for"

 +105      SET APSPMSG(73,0)="which type of insurers it is needed for.  (i.e. Medicaid, Medicare,"

 +106      SET APSPMSG(73.1,0)="Private, All Insurers..."

 +107      SET APSPMSG(73.2,0)=" "

 +108      SET APSPMSG(74,0)="PASS DATA TO POS - This parameter can be used to control the passing of data"

 +109      SET APSPMSG(75,0)="from pharmacy to the Full Circle Point of Sale Package. When set to 'NO' -"

 +110      SET APSPMSG(76,0)="pharmacy data will NOT pass to the Point of Sale Package. When set to"

 +111      SET APSPMSG(76.1,0)="'YES' - pharmacy data will pass to Point of Sale in the manner established"

 +112      SET APSPMSG(76.2,0)="in the 'Bill Status' parameter.  (***IMPORTANT NOTE: If Pharmacy Patch"

 +113      SET APSPMSG(76.3,0)="3 is installed with this parameter set to 'YES' and the Point of Sale"

 +114      SET APSPMSG(76.4,0)="software is installed on the same system without being configured,"

 +115      SET APSPMSG(76.5,0)="ERRORS will occur. To avoid such errors, set this parameter to 'NO' until the"

 +116      SET APSPMSG(76.6,0)="Point of Sale software has been configured and is ready to receive pharmacy"

 +117      SET APSPMSG(76.7,0)="data.)"

 +118      SET APSPMSG(76.8,0)=""

 +119      SET APSPMSG(77,0)="OTHER ENHANCEMENTS INCLUDED IN THIS PATCH"

 +120      SET APSPMSG(78,0)="-----------------------------------------"

 +121      SET APSPMSG(79,0)=""

 +122      SET APSPMSG(80,0)="- The Outpatient Pharmacy module will automatically reverse and resubmit a POS"

 +123      SET APSPMSG(81,0)="claim if the Bill Status parameter equals '1' for AUTO BILL and Rx is edited"

 +124      SET APSPMSG(82,0)="deleted or returned to stock."

 +125      SET APSPMSG(83,0)=" "

 +126      SET APSPMSG(84,0)="- Patient Medication Information (PMI) modifications have been added to the"

 +127      SET APSPMSG(85,0)="'Print Line' for new, refills and partial Rx's. The PMI database will soon be"

 +128      SET APSPMSG(86,0)="available for distribution."

 +129      SET APSPMSG(87,0)=""

 +130      SET APSPMSG(88,0)="- Patient allergy information can now be entered while in the 'New Rx' Option."

 +131      SET APSPMSG(89,0)="Example: NEW RX FOR TEST,GUY ?: (Y/N/P/R/A/G): Y// A for ALLERGIES/REACTIONS"

 +132      SET APSPMSG(89.1,0)=" "

 +133     ;GET MORE TEXT

           DO ^APSP6M1

 +134      SET XMTEXT="APSPMSG("

           SET %H=$HOROLOG

           DO YX^%DTC

 +135      QUIT

RPH       ;GET HOLDERS OF 'PSORPH' (PHARMACIST)

 +1       ;S XMY("MOORE,EDGAR")="" Q  ;TEMPORARY, REMOVE AFTER TESTING

 +2        SET J=0

 +3        FOR J=0:0

               SET J=$ORDER(^XUSEC("PSORPH",J))

               IF 'J

                   QUIT

               SET APSPNAME=$PIECE($GET(^VA(200,J,0)),"^")

               SET XMY(APSPNAME)=""

 +4       ;F J=0:0 S J=$O(^XUSEC("PSOGLORES",J)) Q:'J  S APSPNAME=$P($G(^VA(200,J,0)),"^"),XMY(APSPNAME)="" ;IHS/OKCAO/POC 6/22/98 CHANGE SECURITY KEY

 +5        QUIT

ZAAP      ;KILL ALL VARIABLES ON EXIT

 +1        KILL APSLNAME,APSP,APSPDG,APSPZ,XMDUZ,J,X,XMSUB,XMTEXT

 +2        QUIT

APSP6MSG.m