|
Last change
on this file since 628 was 628, checked in by George Lilly, 14 years ago |
|
initial load of FOIAVistA 6/30/08 version
|
|
File size:
1.0 KB
|
| Line | |
|---|
| 1 | RAPM4 ;HOIFO/TH-Radiology Performance Monitors/Indicator; ;8/05/05 14:06
|
|---|
| 2 | ;;5.0;Radiology/Nuclear Medicine;**63**;Mar 16, 1998
|
|---|
| 3 | CKMONTH ; If requested an entire month's data, ask if output goes to OQP
|
|---|
| 4 | N RAM,RAMINT
|
|---|
| 5 | S RAM=$E(RABDATE,4,5)
|
|---|
| 6 | Q:RAM'=$E(RAEDATE,4,5) ;diff months
|
|---|
| 7 | ; find min total days for the requested month
|
|---|
| 8 | S RAMINT=31 S:RAM="02" RAMINT=28 I "04^06^09^11"[RAM S RAMINT=30
|
|---|
| 9 | S X1=RAEDATE,X2=RABDATE D ^%DTC
|
|---|
| 10 | I (X+1)'<RAMINT D HQASK
|
|---|
| 11 | Q
|
|---|
| 12 | HQASK ;
|
|---|
| 13 | N DIR
|
|---|
| 14 | S DIR("A",1)=" "
|
|---|
| 15 | S:'$D(RALASTM) DIR("A",2)=" You have requested an entire month's data."
|
|---|
| 16 | S DIR("A",3)=" Do you want to include the OQP Performance Management staff"
|
|---|
| 17 | S DIR("A")=" as a recipient of this output"
|
|---|
| 18 | S DIR(0)="Y",DIR("B")="NO"
|
|---|
| 19 | S DIR("?",1)=" Normally, the OQP Performance Management (Headquarters) only receive"
|
|---|
| 20 | S DIR("?",2)=" the automatic mid-month report. However, if they missed the report"
|
|---|
| 21 | S DIR("?",3)=" for the month specified above, and you want them to receive it,"
|
|---|
| 22 | S DIR("?")=" answer ""Y""."
|
|---|
| 23 | D ^DIR I Y S RAUTOM=1
|
|---|
| 24 | Q
|
|---|
Note:
See
TracBrowser
for help on using the repository browser.
