source: WorldVistAEHR/trunk/r/CMOP-PSX/PSXRHLP.m@ 1006

Last change on this file since 1006 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 3.9 KB
Line 
1PSXRHLP ;BIR/WPB-Help Messages for the Remote Sites ;14 Dec 2001
2 ;;2.0;CMOP;**28**;11 Apr 97
3 ; Reference to ^PS(52.5, supported by DBIA #1978
4MSG1 ;help message, allows the user to return to the main menu or exit
5 ;the routine
6 W @IOF
7 W !!,"1 & 2",!," - Initiate CMOP Transmission will gather data for the selected date range and"
8 W !,"transmit to the CMOP. The sender receives a ""Transmission Confirmation"" message"
9 W !,"via Mailman when the data transmission is completed."
10 W !!,"3 & 4",!," - Print CMOP Labels from Suspense will gather data for the selected date range"
11 W !,"and print the labels. NO DATA will TRANSMIT to the CMOP. Drugs or items for"
12 W !,"all labels printed should be filled locally."
13 W !!,"5 - Standard Print from Suspense will print all labels for Rx's NOT 'Queued to"
14 W !,"Send' for the selected date range. All usual outpatient prompts will be displayed."
15 Q
16MSG2 ;help message, allows the user to return to the main menu or exit
17 ;the routine
18 W @IOF
19 W !!,"1 - Reset and Transmit to CMOP will reset entries which have 'printed but not"
20 W !,"transmitted for the selected date range and automatically transmit data"
21 W !,"to the CMOP. "
22 W !!,"2 - Reset and Print CMOP Labels will reset entries which have 'printed but not"
23 W !,"transmitted' for the selected date range and print labels. There will be"
24 W !,"NO DATA TRANSMITTED to the CMOP. The Rx's for the labels printed must be"
25 W !,"filled locally."
26 W !!,"3 - Standard Reset and Print Again will reset and print all outpatient labels not"
27 W !,"'Queued to Send' and usual outpatient prompts will be displayed."
28 Q
29DATAERR ;list of errrors that can occur while checking the rx prior to transmit
30 ;;Quantity
31 ;;Prescribing Physician
32 ;;Days supply
33 ;;Drug id
34 ;;SIG
35 ;;Patient status
36 ;;Fill date
37 ;;Clerk
38 ;;Patient Address
39 ;;Original batch ^not on file.^is currently processing.^is closed.^is already on hold.
40DERR ;list of errors for tranmission
41 ;;State
42 ;;Site
43 ;;Name
44 ;;Street Address
45 ;;City
46 ;;Zip Code
47 ;;Area Code
48 ;;Phone Number
49 ;;Refillable Instructions
50 ;;Nonrefillable Instructions
51 Q
52DEACT W !!,?7,"**************************************************************"
53 I '$D(^PS(52.5,"AQ")) S AZ=1 G D1
54 I $D(^PS(52.5,"AQ")) W !,?7,"WARNING: There are Rx's currently suspended for CMOP."
55 W !!,?7,"If you inactivate CMOP processing:"
56 W !,?7,"1) These Rx's will not transmit to the CMOP, but will remain"
57 W !,?7," in the RX SUSPENSE file. These Rx's cannot be accessed by"
58 W !,?7," Outpatient Pharmacy options. Ideally, these Rx's should"
59 W !,?7," be transmitted or printed before inactivation takes place."
60 W !,?7," If CMOP processing is activated, these prescriptions can"
61 W !,?7," be transmitted."
62D1 W !,?7,$S($G(AZ)'>0:"2) ",$G(AZ)=1:"1) ",1:"")_"Before inactivating, please have all pharmacy users sign"
63 W !,?7," off until inactivation is complete. CMOP Rx's input by"
64 W !,?7," users who do not sign off the system will be suspended for"
65 W !,?7," CMOP transmission."_$S($G(AZ)'>0:" (See #1)",1:"")
66 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."
67 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."
68 W !,?7,"***************************************************************",!
69 K AZ
70 Q
71OPSUS ;EP OP SUSPENSE MESSAGE
72 W !!,?7,"***************************************************************",!
73 W !,?7,PSXNEW
74 W !!,?7,"Prescriptions "
75 W $S(PSXNEWI=1:"will be processed into",1:"are in")," CMOP suspense and"
76 W !,?7,"held until either:"
77 W !!,?14,"1. CMOP transmissions are activated."
78 W !,?14,"2. Outpatient menues are used to pull prescriptions from"
79 W !,?14,"CMOP suspense.",!
80 W !,?7,"***************************************************************",!
81 Q
Note: See TracBrowser for help on using the repository browser.