| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.NV RX
- HELP MESSAGE: Enter the herbal/OTC/non-VA medication you wish to order for this patient.
- SCREEN: I $$ACTIVE^ORDD43(Y)
- POST-SELECTION ACTION: Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPSH("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^ORCDPSH
- ITEM: OR GTX ORDERABLE ITEM
- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPSH(OROI),NFI^ORCDPSH(OROI)
- ORDER TEXT SEQUENCE: 1
- FORMAT: @1350
- DISPLAY TEXT: Herbal/OTC/Non-VA Medication:
- REQUIRED: YES
-
- SEQUENCE: 4
- HELP MESSAGE: Enter the date the patient began using this herbal/OTC/Non-VA medication.
- ITEM: OR GTX START DATE/TIME
- REQUIRED: NO
- ASK ON ACTION: RCW
-
- 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: @
- REQUIRED: NO
- 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
- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE)
- 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: NO
- 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: 11
- ITEM: OR GTX STATEMENTS
- REQUIRED: NO
-
- 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 S MAX=1
-
- SEQUENCE: 2.3
- PARENT: OR GTX INSTRUCTIONS
- HELP MESSAGE: Enter the length of time over which this Non-VA Medication is being taken
- 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
- DISPLAY TEXT: How Long:
- ASK ON ACTION: C
-
- SEQUENCE: 2.8
- PARENT: OR GTX INSTRUCTIONS
- ASK ON CONDITION: I 0
- ITEM: OR GTX SCHEDULE TYPE
- 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:
-
- 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^ORCDPSH
- ENTRY ACTION: D ROUTES^ORCDPSH
- ITEM: OR GTX ROUTE
- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
- FORMAT: 1~3
- REQUIRED: NO
- 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^ORCDPSH
- 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: NO
- 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:
- REQUIRED: NO
- 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
- REQUIRED: NO
|
