Name	Value
NAME	CLINIC OR PAT FLUID OE
ITEMS	SEQUENCE: 2 INDEX: S.IVB RX HELP MESSAGE: Enter a base solution for this order. SCREEN: I $$ACTIVE^ORDD43(Y) POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y D CHANGED^ORCDPSIV("B") XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR) ENTRY ACTION: S:FIRST MULT=0 S REQD=$S($G(ORIVTYPE)="I":0,1:1) ITEM: OR GTX ORDERABLE ITEM EXIT ACTION: D INACTIVE^ORCDPSIV("B") ORDER TEXT SEQUENCE: 2 START NEW LINE: YES DISPLAY TEXT: Solution: REQUIRED: YES MULTIPLE VALUED: YES TITLE: Solutions: ASK ON ACTION: C SEQUENCE: 2.1 PARENT: OR GTX ORDERABLE ITEM HELP MESSAGE: Enter the volume to be administered, as the number of milliliters. ASK ON CONDITION: I $G(ORDIALOG(PROMPT,"LIST"))>1 XECUTABLE HELP: D LIST^ORCD DEFAULT: S Y=$O(ORDIALOG(PROMPT,"LIST",""),-1) K:'Y Y D:$G(ORDIALOG(PROMPT,"LIST"))>1 LIST^ORCD ENTRY ACTION: D VOLUME^ORCDPSIV ITEM: OR GTX VOLUME TRAILING TEXT: ml DISPLAY TEXT: Volume (in ml): REQUIRED: YES ASK ON ACTION: C SEQUENCE: 8 INDEX: S.PSJ HELP MESSAGE: Enter the urgency of this order. DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9 ITEM: OR GTX URGENCY ORDER TEXT SEQUENCE: 7 OMIT TEXT: ROUTINE DISPLAY TEXT: Priority: ASK ON ACTION: C SEQUENCE: 6 HELP MESSAGE: Enter a standard schedule for administering this medication. ASK ON CONDITION: I $G(ORIVTYPE)="I" ;intermittent only POST-SELECTION ACTION: D CKSCH^ORCDPSIV XECUTABLE HELP: N DIC,D,X S DIC="^PS(51.1,",DIC(0)="EQS",D="APPSJ",X="??" D MIX^PSSDI(51.1,"PSJ",.DIC,D,.X) ITEM: OR GTX SCHEDULE EXIT ACTION: S OROTSCH=$$ISONETIM^ORCDPSIV($G(ORDIALOG(PROMPT,INST))) ASK ON ACTION: C SEQUENCE: 7 INPUT TRANSFORM: D IVPSI^ORCDPSIV ASK ON CONDITION: I +$G(OROTSCH)=0 D IVPSI1^ORCDPSIV XECUTABLE HELP: D IVDURH^ORCDPSIV ITEM: OR GTX DURATION DISPLAY TEXT: Limitation: ASK ON ACTION: C SEQUENCE: 1 HELP MESSAGE: Enter the infusion type for this order. POST-SELECTION ACTION: I $L($G(ORESET)),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV("T") ITEM: OR GTX IV TYPE EXIT ACTION: S ORIVTYPE=$G(ORDIALOG(PROMPT,INST)) REQUIRED: YES ASK ON ACTION: C SEQUENCE: 4 HELP MESSAGE: Enter the route of administration for this infusion. SCREEN: I $$IVRTESCR^ORCDPSIV(Y) XECUTABLE HELP: D LVROUTES^ORCDPSIV ENTRY ACTION: D IVRTEENT^ORCDPSIV ITEM: OR GTX ROUTE ORDER TEXT SEQUENCE: 3 FORMAT: 1~3 REQUIRED: YES ASK ON ACTION: C SEQUENCE: 6.5 ASK ON CONDITION: I 0 ;from Schedule ITEM: OR GTX ADMIN TIMES FORMAT: @ SEQUENCE: 10 ASK ON CONDITION: I 0 ;set via Entry Action ENTRY ACTION: D NOW^ORCDPS3 ITEM: OR GTX NOW ORDER TEXT SEQUENCE: 15 LEADING TEXT: First Dose START NEW LINE: YES SEQUENCE: 3.3 INPUT TRANSFORM: D ADDFRQI^ORCDPSIV PARENT: OR GTX ADDITIVE HELP MESSAGE: Enter the solution bag number the additive should be added to. ASK ON CONDITION: I $G(ORIVTYPE)="C" ;continuous only XECUTABLE HELP: D ADDFRQC^ORCDPSIV DEFAULT: S Y=$$ADDFRD^ORCDPSIV(.ORDIALOG,INST,PROMPT) ENTRY ACTION: D ADDFRQC^ORCDPSIV ITEM: OR GTX ADDITIVE FREQUENCY OMIT TEXT: All Bags 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: YES SEQUENCE: 3 INDEX: S.IVA RX HELP MESSAGE: Enter an additive for these IV solutions. ASK ON CONDITION: I '($$PREMIX^ORCDPSIV&FIRST) SCREEN: I $$ACTIVE^ORDD43(Y) POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV("A") XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR) ITEM: OR GTX ADDITIVE EXIT ACTION: D INACTIVE^ORCDPSIV("A") ORDER TEXT SEQUENCE: 1 TRAILING TEXT: in START NEW LINE: YES DISPLAY TEXT: Additive: MULTIPLE VALUED: YES TITLE: Additives: ASK ON ACTION: C SEQUENCE: 3.1 PARENT: OR GTX ADDITIVE HELP MESSAGE: Enter the strength of this additive, as a number. ENTRY ACTION: D UNITS^ORCDPSIV ITEM: OR GTX STRENGTH PSIV REQUIRED: YES ASK ON ACTION: C SEQUENCE: 5 INPUT TRANSFORM: D INF^ORCDPSIV HELP MESSAGE: Enter the rate at which the IV is to be administered, as the number of ml/hr or Text@Number of Labels per day. ENTRY ACTION: D ENRATE^ORCDPSIV ITEM: OR GTX INFUSION RATE EXIT ACTION: S (ORLEAD,ORTRAIL)="" S:$G(ORIVTYPE)="I" ORLEAD="Infuse over",ORTRAIL="minutes" ORDER TEXT SEQUENCE: 4 LEADING TEXT: @ORLEAD TRAILING TEXT: @ORTRAIL DISPLAY TEXT: Infusion Rate: REQUIRED: YES ASK ON ACTION: C SEQUENCE: 9 HELP MESSAGE: Enter any additional comments or instructions for this order. ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)="Z") ITEM: OR GTX WORD PROCESSING 1 ORDER TEXT SEQUENCE: 8 START NEW LINE: YES DISPLAY TEXT: Provider Comments: ASK ON ACTION: C SEQUENCE: 3.2 PARENT: OR GTX ADDITIVE HELP MESSAGE: Enter the units of measurement for this additive. ASK ON CONDITION: I '$D(ORDIALOG(PROMPT,INST)) XECUTABLE HELP: D SETLIST^ORCD ITEM: OR GTX UNITS ASK ON ACTION: C
DISPLAY TEXT	Clinic Infusions
ENTRY ACTION	D PROVIDER^ORCDPSIV
QUICK SETUP	D:$G(ORNP) PROVIDER^ORCDPSIV
TYPE	dialog
EXIT ACTION	S:$G(ORXNP) ORNP=ORXNP K PSJNOPC,ORXNP,ORIVTYPE,ORLEAD,ORTRAIL,OROTSCH
DISPLAY GROUP	CLINIC INFUSIONS
LISTBOX TEXT	Clinic Infusions
WINDOW FORM ID	1555
SIGNATURE REQUIRED	ORES
PACKAGE	INPATIENT MEDICATIONS
VERIFY ORDER	YES
ASK FOR ANOTHER ORDER	YES-DON'T ASK
TIMESTAMP	2024-09-03 10:47:29

CLINIC OR PAT FLUID OE (15993) ORDER DIALOG (101.41)