| 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
|
