source: WorldVistAEHR/trunk/r/QUASAR-ACKQ/ACKQCD1.m@ 839

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

initial load of WorldVistAEHR

File size: 2.2 KB
Line 
1ACKQCD1 ;AUG/JLTP-CDR Report Interactive Help Text ; [ 04/26/96 10:28 ]
2 ;;3.0;QUASAR;;Feb 11, 2000
3 ;Per VHA Directive 10-93-142, this routine SHOULD NOT be modified.
4SAVE ;
5 N I,X W ! F I=3:1 S X=$P($T(SAVE+I),";;",2) Q:X="" W !,X
6 W ! Q
7 ;; Once each month you must run and save a CDR report for the month. It
8 ;; will be saved in the A&SP WORKLOAD file (#509850.7). If you wish to
9 ;; save the CDR you are about to run, answer YES. Otherwise answer NO.
10 ;;
11 ;; If you choose to save this CDR, it must be run for a single
12 ;; entire month. If you choose not to save, you can run the CDR for
13 ;; any date range you desire.
14 ;;
15DATES ;
16 N I,X W ! F I=3:1 S X=$P($T(DATES+I),";;",2) Q:X="" W !,X
17 W ! Q
18 ;; Since you have chosen not to save this CDR, you may run it for
19 ;; a single month or any other date range you desire. To run it for a
20 ;; single month enter M. For a date range of your choosing, enter D.
21 ;;
22MONTH ;
23 N I,X W ! F I=3:1 S X=$P($T(MONTH+I),";;",2) Q:X="" W !,X
24 W ! Q
25 ;; Choose the month and year for which you wish to run the CDR
26 ;; report. The month you choose must be in the past.
27 ;;
28STARTD ;
29 N I,X W ! F I=3:1 S X=$P($T(STARTD+I),";;",2) Q:X="" W !,X
30 W ! Q
31 ;; Enter the starting date for which you wish to run the CDR
32 ;; report. Starting and ending dates must be exact dates and must not
33 ;; be in the future. Starting and ending dates are inclusive.
34 ;;
35ENDD ;
36 N I,X W ! F I=3:1 S X=$P($T(ENDD+I),";;",2) Q:X="" W !,X
37 W ! Q
38 ;; Enter the ending date for which you wish to run the CDR report.
39 ;; Starting and ending dates must be exact dates and must not be in the
40 ;; future. Starting and ending dates are inclusive.
41 ;;
42TPH ;
43 N I,X W ! F I=3:1 S X=$P($T(TPH+I),";;",2) Q:X="" W !,X
44 W ! Q
45 ;; Enter the total number of hours for which you have paid your
46 ;; staff during the selected time period.
47 ;;
48FLAT ;
49 N I,X W ! F I=4:1 S X=$P($T(FLAT+I),";;",2) Q:X="" D W !,X
50 .F Q:X'["|?|" S X=$P(X,"|?|")_ACKCAT_$P(X,"|?|",2,99)
51 W ! Q
52 ;; If you answer YES, you will be asked only one time for a number
53 ;; of hours that were spent for |?|.
54 ;;
55 ;; The hours you enter will then be evenly divided among all of the
56 ;; |?| CDR accounts.
57 ;;
Note: See TracBrowser for help on using the repository browser.