source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAPM4.m

Last change on this file was 628, checked in by George Lilly, 15 years ago

initial load of FOIAVistA 6/30/08 version

File size: 1.0 KB
Line 
1RAPM4 ;HOIFO/TH-Radiology Performance Monitors/Indicator; ;8/05/05 14:06
2 ;;5.0;Radiology/Nuclear Medicine;**63**;Mar 16, 1998
3CKMONTH ; 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
12HQASK ;
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.