source: FOIAVistA/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORQ10.m@ 1535

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

initial load of FOIAVistA 6/30/08 version

File size: 2.1 KB
Line 
1ORQ10 ; slc/dcm - Test this utility
2 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
3TEST ;Test utility
4 N DIC,Y,GP,ORLIST,ORVP,ORL,X1,X2,X,FLAG,O2
5 S (X1,X2,O2)=""
6 ;W !,"Order # (optional): " R X:DTIME S O2=X I $L(X),'$D(^OR(100,X,0)) S O2="" W " Invalid order #" G TEST
7 I O2,$D(^OR(100,O2,0)) S ORVP=$P(^(0),"^",2)
8 I 'O2 K ^TMP("OR",$J) D ^ORUDPA
9 I $O(Y(0)) S ORVP=+Y($O(Y(0)))_";DPT("
10 Q:'$G(ORVP)
11LP S DIC=100.98,DIC(0)="AEQM" D ^DIC S GP=$S(+Y>0:+Y,1:"") G:'GP TEST
12CON W !!,"1 => All",?24,"6 => New",?45," 11 => Unsigned"
13 W !,"2 => Active/Current",?24,"7 => Pending",?46,"12 => Flagged"
14 W !,"3 => Discontinued",?24,"8 => Activity",?46,"13 => Verb/Phone"
15 W !,"4 => Completed/Expired",?24,"9 => Expanded",?46,"14 => Verb/Phone Unsign"
16 W !,"5 => Expiring",?23,"10 => Notifications"
17 W !!,"Select CONTEXT: 1// " R X:DTIME Q:'$T!(X["^") S:X="" X=1
18 I X'?1N.N!(X>14)!(X<1) W !,"Enter a number from 1 to 14 that matches the context list" G CON
19 S FLAG=X D
20 . S %DT="AETS",%DT("A")="Select Start Date: " D ^%DT S X1=$S(Y>0:Y,1:"") I Y<0,X["^" Q
21 . S %DT="AETS",%DT("A")="Select End Date: " D ^%DT S X2=$S(Y>0:Y,1:"") I Y<0,X["^" Q
22 W !,"What do you want stored: 1. Just the order #",!,?26,"2. Order # & text",!?26,"3. Order # & Reason for action",!?26,"4. Detailed Display fields"
23 R !?8,"Enter choice: 1// ",X:DTIME S:X="" X=1 Q:X["^"
24 S X3=$S(X=1:0,X=2:2,X=3:3,X=4:1,1:0)
25 W !!,"For: "_$P(^DPT(+ORVP,0),"^"),?35," "_$P(Y,"^",2),?55,"Context #"_FLAG
26 D EN^ORQ1(ORVP,GP,FLAG,"",X1,X2,X3)
27 W !?5,"<"_$S($G(^TMP("ORR",$J,ORLIST,"TOT")):^("TOT"),1:0)_" Orders found>"
28 I $G(^TMP("ORR",$J,ORLIST,"TOT")) W !,"Do you want to see the list of Orders" S %=1 D YN^DICN D
29 . I %=1 W ! S IFN=0 F S IFN=$O(^TMP("ORR",$J,ORLIST,IFN)) Q:IFN<1 W !,^(IFN)
30 K ^TMP("ORR",$J,ORLIST)
31 D READ^ORUTL G LP
32 Q
33 ;
34STATUS(NUM) ; -- Returns name of status by number
35 I NUM=1 Q "All"
36 I NUM=2 Q "Current"
37 I NUM=3 Q "Discontinued"
38 I NUM=4 Q "Completed/Expired"
39 I NUM=5 Q "Expiring"
40 I NUM=6 Q "New"
41 I NUM=7 Q "Pending"
42 I NUM=8 Q "Activity"
43 I NUM=9 Q "Expanded"
44 I NUM=10 Q "Notifications"
45 I NUM=11 Q "Unsigned"
46 I NUM=12 Q "Flagged"
47 I NUM=13 Q "Verbal/Phoned"
48 I NUM=14 Q "Verbal/Phoned Unsigned"
49 Q ""
Note: See TracBrowser for help on using the repository browser.