| NAME |
PSJ PC IV AC/EDIT ACTION |
| ITEM TEXT |
IV ACCEPT EDIT ACTIONS |
| ITEM |
|
| PACKAGE |
INPATIENT MEDICATIONS |
| EXIT ACTION |
Q:('$G(ON55)!($G(ON55)["P")) N X S X=$G(^PS(55,DFN,"IV",+ON55,0)) I $P(X,U,2)="",($P(X,U,3)="") D DEL55^PSIVORE2 |
| HEADER |
D A^PSJ200(21,20),SHOW^VALM S XQORM("#")=+$O(^ORD(101,"B","PSJI LM EDIT",0))_"^1:"_$S($G(P("APPT")):16,1:14) S:XQORM("B")="Quit" XQORM("B")="Edit" |
| DESCRIPTION |
This menu offers the user a choice of accepting or editing an IV order that is currently being worked on.
|
| TYPE |
menu |
| CREATOR |
USER,EIGHTYNINE |
| TIMESTAMP |
2022-10-05 14:55:08 |
