- PSXRHLP ;BIR/WPB-Help Messages for the Remote Sites ;14 Dec 2001
- ;;2.0;CMOP;**28**;11 Apr 97
- ; Reference to ^PS(52.5, supported by DBIA #1978
- MSG1 ;help message, allows the user to return to the main menu or exit
- ;the routine
- W @IOF
- W !!,"1 & 2",!," - Initiate CMOP Transmission will gather data for the selected date range and"
- W !,"transmit to the CMOP. The sender receives a ""Transmission Confirmation"" message"
- W !,"via Mailman when the data transmission is completed."
- W !!,"3 & 4",!," - Print CMOP Labels from Suspense will gather data for the selected date range"
- W !,"and print the labels. NO DATA will TRANSMIT to the CMOP. Drugs or items for"
- W !,"all labels printed should be filled locally."
- W !!,"5 - Standard Print from Suspense will print all labels for Rx's NOT 'Queued to"
- W !,"Send' for the selected date range. All usual outpatient prompts will be displayed."
- Q
- MSG2 ;help message, allows the user to return to the main menu or exit
- ;the routine
- W @IOF
- W !!,"1 - Reset and Transmit to CMOP will reset entries which have 'printed but not"
- W !,"transmitted for the selected date range and automatically transmit data"
- W !,"to the CMOP. "
- W !!,"2 - Reset and Print CMOP Labels will reset entries which have 'printed but not"
- W !,"transmitted' for the selected date range and print labels. There will be"
- W !,"NO DATA TRANSMITTED to the CMOP. The Rx's for the labels printed must be"
- W !,"filled locally."
- W !!,"3 - Standard Reset and Print Again will reset and print all outpatient labels not"
- W !,"'Queued to Send' and usual outpatient prompts will be displayed."
- Q
- DATAERR ;list of errrors that can occur while checking the rx prior to transmit
- ;;Quantity
- ;;Prescribing Physician
- ;;Days supply
- ;;Drug id
- ;;SIG
- ;;Patient status
- ;;Fill date
- ;;Clerk
- ;;Patient Address
- ;;Original batch ^not on file.^is currently processing.^is closed.^is already on hold.
- DERR ;list of errors for tranmission
- ;;State
- ;;Site
- ;;Name
- ;;Street Address
- ;;City
- ;;Zip Code
- ;;Area Code
- ;;Phone Number
- ;;Refillable Instructions
- ;;Nonrefillable Instructions
- Q
- DEACT W !!,?7,"**************************************************************"
- I '$D(^PS(52.5,"AQ")) S AZ=1 G D1
- I $D(^PS(52.5,"AQ")) W !,?7,"WARNING: There are Rx's currently suspended for CMOP."
- W !!,?7,"If you inactivate CMOP processing:"
- W !,?7,"1) These Rx's will not transmit to the CMOP, but will remain"
- W !,?7," in the RX SUSPENSE file. These Rx's cannot be accessed by"
- W !,?7," Outpatient Pharmacy options. Ideally, these Rx's should"
- W !,?7," be transmitted or printed before inactivation takes place."
- W !,?7," If CMOP processing is activated, these prescriptions can"
- W !,?7," be transmitted."
- D1 W !,?7,$S($G(AZ)'>0:"2) ",$G(AZ)=1:"1) ",1:"")_"Before inactivating, please have all pharmacy users sign"
- W !,?7," off until inactivation is complete. CMOP Rx's input by"
- W !,?7," users who do not sign off the system will be suspended for"
- W !,?7," CMOP transmission."_$S($G(AZ)'>0:" (See #1)",1:"")
- I $G(AZ)=1 W " These Rx's can not be accessed by",!,?7," Outpatient Pharmacy options. If CMOP processing is",!,?7," activated these prescriptions can be transmitted."
- I $D(^PSX(550,"AT")) W !,?7,$S($G(AZ)'>0:"3) ",$G(AZ)=1:"2) ",1:"")_"Your current auto transmission schedule will be",!,?7," cancelled on inactivation."
- W !,?7,"***************************************************************",!
- K AZ
- Q
- OPSUS ;EP OP SUSPENSE MESSAGE
- W !!,?7,"***************************************************************",!
- W !,?7,PSXNEW
- W !!,?7,"Prescriptions "
- W $S(PSXNEWI=1:"will be processed into",1:"are in")," CMOP suspense and"
- W !,?7,"held until either:"
- W !!,?14,"1. CMOP transmissions are activated."
- W !,?14,"2. Outpatient menues are used to pull prescriptions from"
- W !,?14,"CMOP suspense.",!
- W !,?7,"***************************************************************",!
- Q
- PSXRHLP ;BIR/WPB-Help Messages for the Remote Sites ;14 Dec 2001
- +1 ;;2.0;CMOP;**28**;11 Apr 97
- +2 ; Reference to ^PS(52.5, supported by DBIA #1978
- MSG1 ;help message, allows the user to return to the main menu or exit
- +1 ;the routine
- +2 WRITE @IOF
- +3 WRITE !!,"1 & 2",!," - Initiate CMOP Transmission will gather data for the selected date range and"
- +4 WRITE !,"transmit to the CMOP. The sender receives a ""Transmission Confirmation"" message"
- +5 WRITE !,"via Mailman when the data transmission is completed."
- +6 WRITE !!,"3 & 4",!," - Print CMOP Labels from Suspense will gather data for the selected date range"
- +7 WRITE !,"and print the labels. NO DATA will TRANSMIT to the CMOP. Drugs or items for"
- +8 WRITE !,"all labels printed should be filled locally."
- +9 WRITE !!,"5 - Standard Print from Suspense will print all labels for Rx's NOT 'Queued to"
- +10 WRITE !,"Send' for the selected date range. All usual outpatient prompts will be displayed."
- +11 QUIT
- MSG2 ;help message, allows the user to return to the main menu or exit
- +1 ;the routine
- +2 WRITE @IOF
- +3 WRITE !!,"1 - Reset and Transmit to CMOP will reset entries which have 'printed but not"
- +4 WRITE !,"transmitted for the selected date range and automatically transmit data"
- +5 WRITE !,"to the CMOP. "
- +6 WRITE !!,"2 - Reset and Print CMOP Labels will reset entries which have 'printed but not"
- +7 WRITE !,"transmitted' for the selected date range and print labels. There will be"
- +8 WRITE !,"NO DATA TRANSMITTED to the CMOP. The Rx's for the labels printed must be"
- +9 WRITE !,"filled locally."
- +10 WRITE !!,"3 - Standard Reset and Print Again will reset and print all outpatient labels not"
- +11 WRITE !,"'Queued to Send' and usual outpatient prompts will be displayed."
- +12 QUIT
- DATAERR ;list of errrors that can occur while checking the rx prior to transmit
- +1 ;;Quantity
- +2 ;;Prescribing Physician
- +3 ;;Days supply
- +4 ;;Drug id
- +5 ;;SIG
- +6 ;;Patient status
- +7 ;;Fill date
- +8 ;;Clerk
- +9 ;;Patient Address
- +10 ;;Original batch ^not on file.^is currently processing.^is closed.^is already on hold.
- DERR ;list of errors for tranmission
- +1 ;;State
- +2 ;;Site
- +3 ;;Name
- +4 ;;Street Address
- +5 ;;City
- +6 ;;Zip Code
- +7 ;;Area Code
- +8 ;;Phone Number
- +9 ;;Refillable Instructions
- +10 ;;Nonrefillable Instructions
- +11 QUIT
- DEACT WRITE !!,?7,"**************************************************************"
- +1 IF '$DATA(^PS(52.5,"AQ"))
- SET AZ=1
- GOTO D1
- +2 IF $DATA(^PS(52.5,"AQ"))
- WRITE !,?7,"WARNING: There are Rx's currently suspended for CMOP."
- +3 WRITE !!,?7,"If you inactivate CMOP processing:"
- +4 WRITE !,?7,"1) These Rx's will not transmit to the CMOP, but will remain"
- +5 WRITE !,?7," in the RX SUSPENSE file. These Rx's cannot be accessed by"
- +6 WRITE !,?7," Outpatient Pharmacy options. Ideally, these Rx's should"
- +7 WRITE !,?7," be transmitted or printed before inactivation takes place."
- +8 WRITE !,?7," If CMOP processing is activated, these prescriptions can"
- +9 WRITE !,?7," be transmitted."
- D1 WRITE !,?7,$SELECT($GET(AZ)'>0:"2) ",$GET(AZ)=1:"1) ",1:"")_"Before inactivating, please have all pharmacy users sign"
- +1 WRITE !,?7," off until inactivation is complete. CMOP Rx's input by"
- +2 WRITE !,?7," users who do not sign off the system will be suspended for"
- +3 WRITE !,?7," CMOP transmission."_$SELECT($GET(AZ)'>0:" (See #1)",1:"")
- +4 IF $GET(AZ)=1
- WRITE " These Rx's can not be accessed by",!,?7," Outpatient Pharmacy options. If CMOP processing is",!,?7," activated these prescriptions can be transmitted."
- +5 IF $DATA(^PSX(550,"AT"))
- WRITE !,?7,$SELECT($GET(AZ)'>0:"3) ",$GET(AZ)=1:"2) ",1:"")_"Your current auto transmission schedule will be",!,?7," cancelled on inactivation."
- +6 WRITE !,?7,"***************************************************************",!
- +7 KILL AZ
- +8 QUIT
- OPSUS ;EP OP SUSPENSE MESSAGE
- +1 WRITE !!,?7,"***************************************************************",!
- +2 WRITE !,?7,PSXNEW
- +3 WRITE !!,?7,"Prescriptions "
- +4 WRITE $SELECT(PSXNEWI=1:"will be processed into",1:"are in")," CMOP suspense and"
- +5 WRITE !,?7,"held until either:"
- +6 WRITE !!,?14,"1. CMOP transmissions are activated."
- +7 WRITE !,?14,"2. Outpatient menues are used to pull prescriptions from"
- +8 WRITE !,?14,"CMOP suspense.",!
- +9 WRITE !,?7,"***************************************************************",!
- +10 QUIT
