| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.UD 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
- DISPLAY TEXT: Text:
-
- 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: 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: 2.7
- PARENT: OR GTX INSTRUCTIONS
- ASK ON CONDITION: I 0 ;from Schedule
- ITEM: OR GTX ADMIN TIMES
- FORMAT: @
- ASK ON ACTION: *
-
- SEQUENCE: 2.8
- PARENT: OR GTX INSTRUCTIONS
- ASK ON CONDITION: I 0 ;from Schedule
- ITEM: OR GTX SCHEDULE TYPE
- FORMAT: @
- ASK ON ACTION: *
-
- 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: 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,X S DIC="^PS(51.1,",DIC(0)="EQS",D="APPSJ",X="??" 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
- 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 DONE
- 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
|
