source: WorldVistAEHR/trunk/r/INPATIENT_MEDICATIONS-PSJ-PSIV-PSG--PSGW/PSIVHLP.m@ 1042

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

initial load of WorldVistAEHR

File size: 4.1 KB
RevLine 
[613]1PSIVHLP ;BIR/PR-HELP TEXT ;26 JUL 94 / 9:57 AM
2 ;;5.0; INPATIENT MEDICATIONS ;;16 DEC 97
3 W ! F PSIVHLP=0:1 S PSIVHLP1=$P($T(@HELP+PSIVHLP),";",3) Q:PSIVHLP1="" W !,PSIVHLP1
4 W ! K HELP,PSIVHLP1,PSIVHLP Q
5 ;
6ACTHLP ; Display action line help.
7 W !,"You may take the following action on this order:",!!
8 N X F X="DC","E","H","L","O","R","S" I DIR(0)[(X_":") W $P($T(@X),";",3),!
9 Q
10VIEW ;;Enter the #(s) of the orders, that you wish to view, separated by commas.
11 ;;ex. '1,2,5' or '1'
12 ;;
13OK ;;Enter 'Y' if the order has been correctly entered or 'N' to edit the
14 ;;order. To DELETE the order enter an '^'.
15 ;;*** NOTE: If the order has been incorrectly entered, a 'Y' cannot be entered.
16 ;;
17NEWORD ;;Enter a 'Y' to enter a new order for this patient or 'N' to select
18 ;;another patient name.
19 ;;
20CHSE ;;Choose the #(s) of the order(s) that you wish to view (ex. '1' or '1,2,5'),
21 ;;or enter 'A' to view Allergies/Adverse Reactions.
22 ;;
23DC ;;== DC == Discontinue order.
24O ;;== O == Put order on 'On Call' status or remove order from 'On Call' status.
25E ;;== E == Edit the order.
26R ;;== R == Renew the order, or Reinstate if the order was auto-discontinued.
27H ;;== H == Put order on Hold or remove order from Hold status.
28S ;;== S == Show (view) the order. Brings the order back to the screen.
29L ;;== L == Look at the activity log 'AND' label log.
30A ;;== A == View Allergies and/or Adverse Drug Reactions.
31 ;;
32ACTLOG ;;Enter 'Y' to view the activity log or 'N' <RETURN> if you do
33 ;;not want to see the activity log.
34 ;;
35SUSL ;;Enter the # of labels you wish to suspend for this order.
36 ;;You may only suspend 10 labels at a time.
37 ;;
38SUSC ;;Choose the #(s) of the order(s) that you with to suspend.
39 ;;(Ex. '1' or '1,2,3')
40 ;;
41ASKMAN ;;Enter the #(s) of the manufacturing time(s) that you wish to
42 ;;run. If you want to run the manufacturing times for #1 and #2
43 ;;enter '1,2'.
44 ;;
45 ;;NOTE --> If you pick two of the same manufacturing types (Two
46 ;; Adm. or Two PB's) the first will be ignored and the
47 ;; second one entered will be run !!!
48 ;;
49UWL ;;Enter a date, without time, that corresponds to the date that
50 ;;the ward list was run. Example: If you ran a ward list for
51 ;;today and you want to edit that ward list ... Enter 'T' or
52 ;;<RETURN>.
53 ;;
54MLL ;;Enter a date, without time, that corresponds to the date that
55 ;;the ward list was run. Example: If you ran a ward list for
56 ;;today and you want to print the Manufacturing List for that ward
57 ;;list enter 'T' or <RETURN>.
58 ;;
59LBL1 ;;Enter a date, without time, that corresponds to the date that
60 ;;the ward list was run. Example: If you ran a ward list for
61 ;;today and you want to run the schedule labels from that ward
62 ;;list or manufacturing list ... Enter a 'T' or <RETURN>.
63 ;;
64PURGE ;;Enter a date that you wish to stop the purge. For example,
65 ;;if you want to purge IV orders that are at least 40 days old ...
66 ;;enter 'T-40'.
67 ;;
68ANSWER ;; P - Print specified # of labels now
69 ;; S - Suspend specified # of labels for IV ROOM to print on demand.
70 ;; (ONLY available if site parameter is enabled for suspense)
71 ;; B or ^ - Bypass any more action
72 ;;
73 ;;Enter one of the actions above. You may perform more than one action
74 ;;but they must be done, one at a time. As each action is taken that
75 ;;operates on labels, the total labels will be reduced by that amount.
76 ;;
77 ;; i.e. 8 labels needed - Suspend 3 then 5 are available to print
78 ;;
79 ;; NOTE: Valid actions are displayed in parenthesis after 'Action' prompt.
80 ;;
81PRORPT ;; If you want a view of each order on the profile enter a 'Y'.
82 ;; If you just want a listing of the patient's profile without a view
83 ;; of each order enter a 'N'.
84 ;;
85RNL ;; You will enter the beginning date and ending date of the renewal list.
86 ;; Ex. If you want to know what orders will expire from noon today to
87 ;; noon tomorrow ... enter 'T@1200' as the beginning date and
88 ;; 'T+1@1200' as the ending date.
89 ;;
90ALGN ;; Answer yes if the label alignment is OK. Enter no if you wish to
91 ;; re-align the labels again.
92 ;;
93 ;;
94REDT ;;Enter a # between -10 and 10. If returns/destroyed were entered
95 ;;in error, a '-' preceding the # will remove the returns/destroyed
96 ;;for you.
Note: See TracBrowser for help on using the repository browser.