Name	Value
NAME	PSH OERR
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
DISPLAY TEXT	Non-VA Medications (Documentation)
ENTRY ACTION	D EN^ORCDPSH("H")
QUICK SETUP	D EN1^ORCDPSH
TYPE	dialog
EXIT ACTION	D EXIT^ORCDPSH
DISPLAY GROUP	NON-VA MEDICATIONS
LISTBOX TEXT	Meds, Non-VA (Documentation)
WINDOW FORM ID	145
SIGNATURE REQUIRED	NONE
PACKAGE	HERBAL/OTC/NON-VA MEDS
VERIFY ORDER	NO
ASK FOR ANOTHER ORDER	YES-DON'T ASK
TIMESTAMP	2024-09-03 10:47:29

PSH OERR (173) ORDER DIALOG (101.41)