Name	Value
NAME	PSO OERR
ITEMS	SEQUENCE: 1 INDEX: S.O RX HELP MESSAGE: Enter the medication you wish to order for this patient. SCREEN: I '$G(^(.1))!($G(^(.1))>$$NOW^XLFDT) POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1("OI") XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR) ENTRY ACTION: D ENOI^ORCDPS1 ITEM: OR GTX ORDERABLE ITEM EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI) ORDER TEXT SEQUENCE: 1 FORMAT: @1350 DISPLAY TEXT: Medication: REQUIRED: YES SEQUENCE: 6 HELP MESSAGE: Enter the number of refills to allow for this order. ASK ON CONDITION: I ORCAT="O",$G(OREFILLS)>0 ENTRY ACTION: I ORCAT="O",'$G(OREFILLS) D MAXREFS^ORCDPS1 ITEM: OR GTX REFILLS ORDER TEXT SEQUENCE: 9 LEADING TEXT: Refills: DISPLAY TEXT: Refills: REQUIRED: YES ASK ON ACTION: RC SEQUENCE: 9 HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES. ASK ON CONDITION: I ORCAT="O",$G(ORCOPAY),$G(ORSC) XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB DEFAULT: I $G(ORTYPE)'="Z",ORCAT="O",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0) ENTRY ACTION: I ORCAT="O" S ORCOPAY=$$ASKSC^ORCDPS1 I ORCOPAY,$G(ORSC),'$D(ORDIALOG(PROMPT,INST)) N DFN S DFN=+ORVP D:$P(ORSC,U,2)'>50 DIS^DGRPDB S:$P(ORSC,U,2)>50 $P(ORDIALOG(PROMPT,0),U)="YA",EDITONLY=1 ; Req'd ITEM: OR GTX SERVICE CONNECTED DISPLAY TEXT: Is this medication for a SC condition? TITLE: SC: ASK ON ACTION: CW SEQUENCE: 2.3 PARENT: OR GTX INSTRUCTIONS HELP MESSAGE: Enter the length of time over which this dose is to be administered as '4 HOURS', '7 DAYS', '2 WEEKS', or '1 MONTH'. ASK ON CONDITION: I $$ASKDUR^ORCDPS3 POST-SELECTION ACTION: D DUR^ORCDPS3 DEFAULT: Q I $G(ORTYPE)'="Z",$G(ORCAT)="I",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_" DAYS" ITEM: OR GTX DURATION LEADING TEXT: FOR DISPLAY TEXT: How long: ASK ON ACTION: C SEQUENCE: 4 HELP MESSAGE: Enter the date this order should begin. ASK ON CONDITION: I $G(ORCAT)="O",$G(OREVENT) ;discharge orders only DEFAULT: Q I $G(ORTYPE)'="Z",ORCAT'="O" S Y=$P($G(ORSD),U) K:'$L(Y) Y ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,"LIST")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly ITEM: OR GTX START DATE/TIME DISPLAY TEXT: Start: ASK ON EDIT ONLY: YES ASK ON ACTION: C SEQUENCE: 3 ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order ITEM: OR GTX SIG ORDER TEXT SEQUENCE: 2 START NEW LINE: YES WORD-WRAP: WRAP SEQUENCE: 2.5 PARENT: OR GTX INSTRUCTIONS ASK ON CONDITION: I 0 ;created by Instructions DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y ITEM: OR GTX DOSE FORMAT: @ ASK ON ACTION: * SEQUENCE: 2.6 ASK ON CONDITION: I 0 ;created by Instructions ITEM: OR GTX DISPENSE DRUG ASK ON ACTION: * SEQUENCE: 5 HELP MESSAGE: Enter the number of days for which the patient needs this medication. ASK ON CONDITION: I $G(ORCAT)="O" POST-SELECTION ACTION: I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1("DS") ENTRY ACTION: I $G(ORCAT)="O" D DSUP^ORCDPS1 ITEM: OR GTX DAYS SUPPLY EXIT ACTION: S:$G(ORCAT)="O" ORDSUP=+$G(ORDIALOG(PROMPT,INST)) REQUIRED: YES ASK ON ACTION: C SEQUENCE: 1.5 ASK ON CONDITION: I 0 ;stuffed in via Instructions ITEM: OR GTX DRUG NAME SEQUENCE: 2.4 INPUT TRANSFORM: D INPCONJ^ORCDPS1 PARENT: OR GTX INSTRUCTIONS HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after. ASK ON CONDITION: I $G(ORCOMPLX) POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1("QUANTITY") ENTRY ACTION: D ENCONJ^ORCDPS1 ITEM: OR GTX AND/THEN EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST,'$G(ORJUMP) S MAX=1 ;stop prompting dose multiple ASK ON ACTION: C SEQUENCE: 2 HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units. POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1 XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,"LIST")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,"LIST")) ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,"LIST")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD ITEM: OR GTX INSTRUCTIONS EXIT ACTION: D EXDOSE^ORCDPS2 DISPLAY TEXT: Dose: REQUIRED: YES MULTIPLE VALUED: YES TITLE: Instructions: ASK ON ACTION: C SEQUENCE: 3.5 ASK ON CONDITION: I 0 ;text stuffed via Entry Action ENTRY ACTION: D PI^ORCDPS2 ITEM: OR GTX PATIENT INSTRUCTIONS ASK ON ACTION: C SEQUENCE: 4.5 ASK ON CONDITION: I 0 ;set via Entry Action ENTRY ACTION: D NOW^ORCDPS3 ITEM: OR GTX NOW ORDER TEXT SEQUENCE: 10 LEADING TEXT: First Dose START NEW LINE: YES SEQUENCE: 11 HELP MESSAGE: Do you want to mark this Order as 'Titration'? ASK ON CONDITION: I $$ASKTITR^ORCDPS3 ITEM: OR GTX TITRATION REQUIRED: YES ASK ON ACTION: C SEQUENCE: 8.5 INPUT TRANSFORM: D INDIT^ORCDPS3 HELP MESSAGE: You can choose a common indication from the list or free text an indication between 3-40 characters. This field is not required in a quick order. If left blank the provider will have to fill it during order entry. XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,"LIST")) DEFAULT: D DFIND^ORCDPS3 ENTRY ACTION: D IND^ORCDPS3 ITEM: OR GTX INDICATION EXIT ACTION: I $L(Y) W " "_Y ORDER TEXT SEQUENCE: 20 LEADING TEXT: Indication: START NEW LINE: YES DISPLAY TEXT: Indication: REQUIRED: NO SEQUENCE: 2.1 PARENT: OR GTX INSTRUCTIONS HELP MESSAGE: Enter the route of administration for this drug. SCREEN: I $P(^(0),U,4) XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,"LIST"))&(X="?"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,"LIST"))!(X'="?") DEFAULT: D DEFRTE^ORCDPS1 ENTRY ACTION: D ROUTES^ORCDPS1 ITEM: OR GTX ROUTE EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST)) FORMAT: 1~3 REQUIRED: YES ASK ON ACTION: C SEQUENCE: 2.2 PARENT: OR GTX INSTRUCTIONS HELP MESSAGE: Enter a standard schedule for administering this medication. POST-SELECTION ACTION: D CKSCH^ORCDPS1 XECUTABLE HELP: N DIC,D,DZ S DIC="^PS(51.1,",DIC(0)="EQS",D="APPSJ",DZ="??" D MIX^PSSDI(51.1,"PSJ",.DIC,D,.X) DEFAULT: S:$L($G(^TMP("PSJSCH",$J))) Y=^($J) ENTRY ACTION: I $G(ORTYPE)'="Z" S:ORCAT="I" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG)) ITEM: OR GTX SCHEDULE EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST)) REQUIRED: YES ASK ON ACTION: C SEQUENCE: 8 INPUT TRANSFORM: D PRI^ORCDPS3 INDEX: S.PSO HELP MESSAGE: Enter the urgency of this order. DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9 ENTRY ACTION: S ORDIALOG(PROMPT,"D")=$S(ORCAT="I":"S.PSJ",1:"S.PSO") ITEM: OR GTX URGENCY ORDER TEXT SEQUENCE: 6 OMIT TEXT: ROUTINE DISPLAY TEXT: Priority: REQUIRED: YES ASK ON ACTION: C SEQUENCE: 10 HELP MESSAGE: Enter any additional instructions for this order. ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)="Z") ITEM: OR GTX WORD PROCESSING 1 DISPLAY TEXT: Comments: ASK ON ACTION: C SEQUENCE: 1.1 PARENT: OR GTX ORDERABLE ITEM ASK ON CONDITION: I 0 ;stuffed in via Instructions ITEM: OR GTX STRENGTH FORMAT: @1350 SEQUENCE: 5.5 HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed. ASK ON CONDITION: I ORCAT="O" DEFAULT: I $G(ORCAT)="O",$G(ORTYPE)'="Z" S Y=$$QTY^ORCDPS1 K:Y'>0 Y ENTRY ACTION: I ORCAT="O" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,"A")="Quantity"_$S($L($G(ORQTYUNT)):" ("_ORQTYUNT_"): ",1:": ") ITEM: OR GTX QUANTITY ORDER TEXT SEQUENCE: 8 LEADING TEXT: Quantity: START NEW LINE: YES ASK ON ACTION: C SEQUENCE: 7 INPUT TRANSFORM: D PARKCK^ORCDPS3 HELP MESSAGE: Enter if the patient is to receive this medication by mail, at the window, or to be parked. ASK ON CONDITION: I ORCAT="O" XECUTABLE HELP: D SETLIST^ORCD DEFAULT: I ORCAT="O",$G(ORTYPE)'="Z" S Y=$S($G(OREVENT):"W",$D(^PSX(550,"C")):"M",1:"W") I $D(^TMP("ORECALL",$J,ORDIALOG,PROMPT,INST)) S Y=^(INST),EDITONLY=1 ITEM: OR GTX ROUTING DISPLAY TEXT: Pick Up: REQUIRED: YES ASK ON ACTION: RC
VALIDATION	D SC^ORCDPS3
DISPLAY TEXT	Outpatient Medications
ENTRY ACTION	D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1("O")
QUICK SETUP	D EN1^ORCDPS1
TYPE	dialog
EXIT ACTION	D EXIT^ORCDPS1
DISPLAY GROUP	OUTPATIENT MEDICATIONS
LISTBOX TEXT	Meds, Outpatient
WINDOW FORM ID	140
SIGNATURE REQUIRED	ORES
PACKAGE	OUTPATIENT PHARMACY
VERIFY ORDER	YES
ASK FOR ANOTHER ORDER	YES-DON'T ASK
TIMESTAMP	2024-09-03 10:47:29

PSO OERR (147) ORDER DIALOG (101.41)