| 1 | RAORD7 ;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.
|
|---|
| 4 | DATE 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
|
|---|
