| 1 | ACKQCD1 ;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.
|
|---|
| 4 | SAVE ;
|
|---|
| 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 | ;;
|
|---|
| 15 | DATES ;
|
|---|
| 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 | ;;
|
|---|
| 22 | MONTH ;
|
|---|
| 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 | ;;
|
|---|
| 28 | STARTD ;
|
|---|
| 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 | ;;
|
|---|
| 35 | ENDD ;
|
|---|
| 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 | ;;
|
|---|
| 42 | TPH ;
|
|---|
| 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 | ;;
|
|---|
| 48 | FLAT ;
|
|---|
| 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 | ;;
|
|---|
