source: FOIAVistA/trunk/r/RADIOLOGY_NUCLEAR_MEDICINE-RA/RAORD7.m@ 794

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

initial load of FOIAVistA 6/30/08 version

File size: 2.2 KB
Line 
1RAORD7 ;HISC/CAH AISC/RMO-Log of Scheduled Requests by Procedure ;11/8/01 08:00
2 ;;5.0;Radiology/Nuclear Medicine;**15,31**;Mar 16, 1998
3 ;;This routine looks at orders in file 75.1 with field 23 (Scheduled date) within the date range selected. User also selects order statuses to include.
4DATE D SET^RAPSET1 I $D(XQUIT) K RAED,XQUIT Q
5 S %DT("A")="Starting Scheduled Date: ",%DT="EXA" W ! D ^%DT K %DT G Q^RAORD7A:Y<0 S RALDTE1=Y
6 S %DT("A")="Ending Scheduled Date: ",%DT="EXAT" W ! D ^%DT K %DT G Q^RAORD7A:Y<0 S RALDTE2=Y
7 I RALDTE2<RALDTE1 W !?5," ?? Starting date must be before ending date. Please try again.",! G DATE
8 I RALDTE2#1=0 S RALDTE2=RALDTE2+.2359
9 W !!,"Enter * to select all imaging locations that",!,"you are allowed here (enter ?? to view them.)"
10 D OMA^RAUTL13 G Q^RAORD7A:'$L($O(RALOC(0)))!($G(RAQUIT)=1)
11 S %DT="R",X="NOW" D ^%DT I Y>RALDTE1,Y'<RALDTE2 D
12 . K DIR S DIR(0)="Y",DIR("A")="Include only orders not registered (no-show's)",DIR("B")="NO",DIR("?")=" "
13 . S DIR("?",1)="If you have entered a date range in the past, and answer 'Yes' to this question,"
14 . S DIR("?",2)="the log will only include orders that have not yet reached an 'active' status.",DIR("?",3)="In other words, the orders that appear on the log are probably no-show's." W ! D ^DIR
15 . I Y=1 S RANOSHOW=1 ;User wants a no-show report
16 I $D(DTOUT)!($D(DUOUT)) G Q^RAORD7A
17 K DIR S DIR(0)="S^P:Procedure Name;D:Date/Time",DIR("A")="Sort by (P)rocedure Name or (D)ate/Time",DIR("B")="P" D ^DIR G:'$D(Y(0)) Q^RAORD7A S RASORT=Y(0) K DIR
18 F I=1,2,6 S RANO(I)=""
19 W !!!,"Scheduled requests to be included on this report are:",!
20 I $D(RANOSHOW) W !,"No-show's only."
21 W !,"Starting Schedule date: " W $$FMTE^XLFDT(RALDTE1,"P")
22 W !,"Ending Schedule date: " W $$FMTE^XLFDT(RALDTE2,"P")
23 W !,"Locations: " S I=0 F S I=$O(RALOC(I)) Q:I="" W I W:$X>(IOM-25) ! W ?($X+5)
24 W !!,"Sorted by: ",RASORT,!
25 K DIR S DIR(0)="Y",DIR("A")="SELECTION CRITERIA OK",DIR("B")="YES" W ! D ^DIR
26 I $D(DUOUT)!($D(DTOUT)) G Q^RAORD7A
27 I Y'=1 G DATE
28 ;
29 S:$D(RANOSHOW) ZTSAVE("RANOSHOW")=""
30 S ZTRTN="START^RAORD7A",ZTSAVE("RALDTE1")="",ZTSAVE("RALDTE2")="",ZTSAVE("RAST")="",ZTSAVE("RALOC(")="",ZTSAVE("RAORST(")="",ZTSAVE("RASORT")="" W ! D ZIS^RAUTL G Q^RAORD7A:RAPOP
31 G ^RAORD7A
Note: See TracBrowser for help on using the repository browser.