| 1 | GMRVORC0 ;HIRMFO/RM,MD-CANCEL AND PURGE ACTIONS FOR AN ORDER ;4/15/95
|
|---|
| 2 | ;;4.0;Vitals/Measurements;**6**;Apr 25, 1997
|
|---|
| 3 | EN1 ; ENTRY FROM ORDER CANCEL ACTIONS
|
|---|
| 4 | I +ORSTS=2 W !,$C(7),?3,"Completed orders cannot be discontinued" Q
|
|---|
| 5 | D NOW^%DTC S ORETURN("ORSTOP")=%,ORETURN("ORSTS")=1,ORETURN("OREVENT")="" D RETURN^ORX K %,%H
|
|---|
| 6 | Q
|
|---|
| 7 | EN2 ; ENTRY FROM ORDER PURGE ACTIONS
|
|---|
| 8 | S DA=ORIFN,DIK="^GMR(120.55," D ^DIK
|
|---|
| 9 | Q
|
|---|
| 10 | ADS ;
|
|---|
| 11 | S GMRVDF=$P(GMRVAS,"^"),ORTX=$S($D(GMRVORD(2)):$P(GMRVORD(2),U,5),1:"")
|
|---|
| 12 | RA W !,"Schedule:"_$S(GMRVDF="":"",1:" "_GMRVDF_"//")_" " R X:DTIME S:'$T X="^"
|
|---|
| 13 | I X="",GMRVDF'="" S X=GMRVDF
|
|---|
| 14 | I X="" W !?4,$C(7),"This response is required." G RA
|
|---|
| 15 | I "^^"[X S GMROUT=1 S:X="^^" DIROUT=1 Q
|
|---|
| 16 | S X=$$UP^XLFSTR(X)
|
|---|
| 17 | S PSJPP="GMRV",PSJX=X D ENSV^PSJEEU I '$D(PSJX) W !?4,$C(7),"INVALID SCHEDULE" G RA
|
|---|
| 18 | I $G(PSJX)?1"?".E G RA
|
|---|
| 19 | S X=PSJX G ADSL
|
|---|
| 20 | YNNS W !?4,"You have selected a non-standard schedule. Are you sure that ",!?4,"'",PSJX,"' is the schedule that you want" S %=1 D YN^DICN W:'% !?7,$C(7),"ANSWER YES OR NO" G YNNS:'%,RA:%=2 I %=-1 S GMROUT=1 S:%Y="^^" DIROUT=1 Q
|
|---|
| 21 | ADSL S:$P(GMRVAS,"^")'=PSJX ORTX=$P(ORTX," - ")_" - "_PSJX S GMRVAS=PSJX_"^"_PSJAT_"^"_PSJM K PSJPP,PSJX,PSJAT,PSJM,PSJTS,PSJY
|
|---|
| 22 | Q
|
|---|
