ORQ10 ; slc/dcm - Test this utility
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
TEST ;Test utility
N DIC,Y,GP,ORLIST,ORVP,ORL,X1,X2,X,FLAG,O2
S (X1,X2,O2)=""
;W !,"Order # (optional): " R X:DTIME S O2=X I $L(X),'$D(^OR(100,X,0)) S O2="" W " Invalid order #" G TEST
I O2,$D(^OR(100,O2,0)) S ORVP=$P(^(0),"^",2)
I 'O2 K ^TMP("OR",$J) D ^ORUDPA
I $O(Y(0)) S ORVP=+Y($O(Y(0)))_";DPT("
Q:'$G(ORVP)
LP S DIC=100.98,DIC(0)="AEQM" D ^DIC S GP=$S(+Y>0:+Y,1:"") G:'GP TEST
CON W !!,"1 => All",?24,"6 => New",?45," 11 => Unsigned"
W !,"2 => Active/Current",?24,"7 => Pending",?46,"12 => Flagged"
W !,"3 => Discontinued",?24,"8 => Activity",?46,"13 => Verb/Phone"
W !,"4 => Completed/Expired",?24,"9 => Expanded",?46,"14 => Verb/Phone Unsign"
W !,"5 => Expiring",?23,"10 => Notifications"
W !!,"Select CONTEXT: 1// " R X:DTIME Q:'$T!(X["^") S:X="" X=1
I X'?1N.N!(X>14)!(X<1) W !,"Enter a number from 1 to 14 that matches the context list" G CON
S FLAG=X D
. S %DT="AETS",%DT("A")="Select Start Date: " D ^%DT S X1=$S(Y>0:Y,1:"") I Y<0,X["^" Q
. S %DT="AETS",%DT("A")="Select End Date: " D ^%DT S X2=$S(Y>0:Y,1:"") I Y<0,X["^" Q
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"
R !?8,"Enter choice: 1// ",X:DTIME S:X="" X=1 Q:X["^"
S X3=$S(X=1:0,X=2:2,X=3:3,X=4:1,1:0)
W !!,"For: "_$P(^DPT(+ORVP,0),"^"),?35," "_$P(Y,"^",2),?55,"Context #"_FLAG
D EN^ORQ1(ORVP,GP,FLAG,"",X1,X2,X3)
W !?5,"<"_$S($G(^TMP("ORR",$J,ORLIST,"TOT")):^("TOT"),1:0)_" Orders found>"
I $G(^TMP("ORR",$J,ORLIST,"TOT")) W !,"Do you want to see the list of Orders" S %=1 D YN^DICN D
. I %=1 W ! S IFN=0 F S IFN=$O(^TMP("ORR",$J,ORLIST,IFN)) Q:IFN<1 W !,^(IFN)
K ^TMP("ORR",$J,ORLIST)
D READ^ORUTL G LP
Q
;
STATUS(NUM) ; -- Returns name of status by number
I NUM=1 Q "All"
I NUM=2 Q "Current"
I NUM=3 Q "Discontinued"
I NUM=4 Q "Completed/Expired"
I NUM=5 Q "Expiring"
I NUM=6 Q "New"
I NUM=7 Q "Pending"
I NUM=8 Q "Activity"
I NUM=9 Q "Expanded"
I NUM=10 Q "Notifications"
I NUM=11 Q "Unsigned"
I NUM=12 Q "Flagged"
I NUM=13 Q "Verbal/Phoned"
I NUM=14 Q "Verbal/Phoned Unsigned"
Q ""
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORQ10 2246 printed Dec 13, 2024@02:33:04 Page 2
ORQ10 ; slc/dcm - Test this utility
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
TEST ;Test utility
+1 NEW DIC,Y,GP,ORLIST,ORVP,ORL,X1,X2,X,FLAG,O2
+2 SET (X1,X2,O2)=""
+3 ;W !,"Order # (optional): " R X:DTIME S O2=X I $L(X),'$D(^OR(100,X,0)) S O2="" W " Invalid order #" G TEST
+4 IF O2
IF $DATA(^OR(100,O2,0))
SET ORVP=$PIECE(^(0),"^",2)
+5 IF 'O2
KILL ^TMP("OR",$JOB)
DO ^ORUDPA
+6 IF $ORDER(Y(0))
SET ORVP=+Y($ORDER(Y(0)))_";DPT("
+7 if '$GET(ORVP)
QUIT
LP SET DIC=100.98
SET DIC(0)="AEQM"
DO ^DIC
SET GP=$SELECT(+Y>0:+Y,1:"")
if 'GP
GOTO TEST
CON WRITE !!,"1 => All",?24,"6 => New",?45," 11 => Unsigned"
+1 WRITE !,"2 => Active/Current",?24,"7 => Pending",?46,"12 => Flagged"
+2 WRITE !,"3 => Discontinued",?24,"8 => Activity",?46,"13 => Verb/Phone"
+3 WRITE !,"4 => Completed/Expired",?24,"9 => Expanded",?46,"14 => Verb/Phone Unsign"
+4 WRITE !,"5 => Expiring",?23,"10 => Notifications"
+5 WRITE !!,"Select CONTEXT: 1// "
READ X:DTIME
if '$TEST!(X["^")
QUIT
if X=""
SET X=1
+6 IF X'?1N.N!(X>14)!(X<1)
WRITE !,"Enter a number from 1 to 14 that matches the context list"
GOTO CON
+7 SET FLAG=X
Begin DoDot:1
+8 SET %DT="AETS"
SET %DT("A")="Select Start Date: "
DO ^%DT
SET X1=$SELECT(Y>0:Y,1:"")
IF Y<0
IF X["^"
QUIT
+9 SET %DT="AETS"
SET %DT("A")="Select End Date: "
DO ^%DT
SET X2=$SELECT(Y>0:Y,1:"")
IF Y<0
IF X["^"
QUIT
End DoDot:1
+10 WRITE !,"What do you want stored: 1. Just the order #",!,?26,"2. Order # & text",!?26,"3. Order # & Reason for action",!?26,"4. Detailed Display fields"
+11 READ !?8,"Enter choice: 1// ",X:DTIME
if X=""
SET X=1
if X["^"
QUIT
+12 SET X3=$SELECT(X=1:0,X=2:2,X=3:3,X=4:1,1:0)
+13 WRITE !!,"For: "_$PIECE(^DPT(+ORVP,0),"^"),?35," "_$PIECE(Y,"^",2),?55,"Context #"_FLAG
+14 DO EN^ORQ1(ORVP,GP,FLAG,"",X1,X2,X3)
+15 WRITE !?5,"<"_$SELECT($GET(^TMP("ORR",$JOB,ORLIST,"TOT")):^("TOT"),1:0)_" Orders found>"
+16 IF $GET(^TMP("ORR",$JOB,ORLIST,"TOT"))
WRITE !,"Do you want to see the list of Orders"
SET %=1
DO YN^DICN
Begin DoDot:1
+17 IF %=1
WRITE !
SET IFN=0
FOR
SET IFN=$ORDER(^TMP("ORR",$JOB,ORLIST,IFN))
if IFN<1
QUIT
WRITE !,^(IFN)
End DoDot:1
+18 KILL ^TMP("ORR",$JOB,ORLIST)
+19 DO READ^ORUTL
GOTO LP
+20 QUIT
+21 ;
STATUS(NUM) ; -- Returns name of status by number
+1 IF NUM=1
QUIT "All"
+2 IF NUM=2
QUIT "Current"
+3 IF NUM=3
QUIT "Discontinued"
+4 IF NUM=4
QUIT "Completed/Expired"
+5 IF NUM=5
QUIT "Expiring"
+6 IF NUM=6
QUIT "New"
+7 IF NUM=7
QUIT "Pending"
+8 IF NUM=8
QUIT "Activity"
+9 IF NUM=9
QUIT "Expanded"
+10 IF NUM=10
QUIT "Notifications"
+11 IF NUM=11
QUIT "Unsigned"
+12 IF NUM=12
QUIT "Flagged"
+13 IF NUM=13
QUIT "Verbal/Phoned"
+14 IF NUM=14
QUIT "Verbal/Phoned Unsigned"
+15 QUIT ""
