{"aaData": [["RA OERR EXAM", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.XRAY;C.XRAY
\n- WINDOWS CONTROL: cboProcedure
\n- API NAME: 131
\n- API PARAMETER #1: S.RAD
\n- HELP MESSAGE: Enter the imaging procedure to be ordered for this patient.
\n- SPECIAL LOOKUP ROUTINE: LKP;ORCDRA
\n- SCREEN: I $$ACTIVE^ORDD43(Y),'(ORBROAD&($P($G(^(\"RA\")),U,2)=\"B\"))
\n- POST-SELECTION ACTION: D BROAD^ORCDRA(+Y)
\n- XECUTABLE HELP: N SCR,IDX S SCR=ORDIALOG(PROMPT,\"S\"),IDX=\"S.\"_$P(ORDG,U,4) D XHELP^ORDD43(IDX,SCR),LIST^ORCDRA:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D NEXTPROC^ORCDRA Q:$G(ORQUIT) I '$G(ORDIALOG(PROMPT,INST)) D COMMON^ORCDRA,LIST^ORCDRA:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)) D:OI ORDMSG^ORCD(OI)
\n- DISPLAY TEXT: Procedure:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the date/time this patient is scheduled for pre-op.
\n- ASK ON CONDITION: I $$SCHEDULD^ORCDRA1
\n- ITEM: OR GTX PRE-OP SCHEDULED DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: chkPregnant
\n- API PARAMETER #1: YN
\n- HELP MESSAGE: Answer if this patient is pregnant at this time, as precisely as known.
\n- WINDOWS CONDITION: I $G(ORSEX)=\"F\"
\n- WINDOWS DEFAULT: S Y=\"No\"
\n- ASK ON CONDITION: I $G(ORSEX)=\"F\",'FIRST!((ORAGE'<12)&(ORAGE'>55))
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: I $G(ORSEX)=\"F\",((ORAGE<12)!(ORAGE>55)) S Y=\"N\"
\n- ENTRY ACTION: I $G(ORSEX)=\"F\",$G(ORTYPE)'=\"Z\" S REQD=1
\n- ITEM: OR GTX PREGNANT
\n \n- \n
- SEQUENCE: 3
\n- WINDOWS CONTROL: memHistory
\n- HELP MESSAGE: Enter the clinical history of this patient, as it relates to this order.
\n- POST-SELECTION ACTION: ;N ROOT S ROOT=$TR(ORDIALOG(PROMPT,INST),\")\",\",\") I '$$VALIDWP^ORCDRA1(ROOT) K DONE W $C(7),!!,\"A valid clinical history is required!\" S:$$DONE^ORCDLG2 ORQUIT=1
\n- DEFAULT: I $D(^TMP(\"ORECALL\",$J,ORDIALOG)) M ^TMP(\"ORWORD\",$J,PROMPT,INST)=^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST) S Y=\"^TMP(\"\"ORWORD\"\",$J,\"_PROMPT_\",\"_INST_\")\"
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Clinical History:
\n- REQUIRED: NO
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: Enter YES if this patient is currently on some type of isolation procedures.
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$IP^ORMBLD:1,1:0)
\n- ITEM: OR GTX YES/NO
\n- DISPLAY TEXT: Is patient on isolation procedures?
\n- TITLE: Isolation Procedures:
\n \n- \n
- SEQUENCE: 4.1
\n- HELP MESSAGE: Enter the ordering location for this exam.
\n- ASK ON CONDITION: N X S X=$$VAL^ORCD(\"CATEGORY\") I \"IO\"[X,'$$MATCH^ORCDRA1(X)
\n- ITEM: OR GTX LOCATION
\n- DISPLAY TEXT: Ordering Location:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 12
\n- HELP MESSAGE: Enter the name of the approving imaging service physician; personnel must be classified as Interpreting Staff Physician.
\n- ASK ON CONDITION: N OI S OI=+$G(ORDIALOG($$PTR^ORCD(\"OR GTX ORDERABLE ITEM\"),1)) I OI,$P($G(^ORD(101.43,OI,0)),U,7)=2
\n- SCREEN: I $D(^VA(200,\"ARC\",\"S\",+Y)),'$P($G(^VA(200,+Y,\"RA\")),U,3)!($P($G(^(\"RA\")),U,3)>DT)
\n- ITEM: OR GTX PROVIDER
\n- DISPLAY TEXT: Approving Rad/Nuc Med Phys:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 13
\n- ASK ON CONDITION: I 0 ;populated from patient data
\n- ITEM: OR GTX VISITSTR
\n- REQUIRED: YES
\n- PROMPT: VISITSTR
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.5
\n- WINDOWS CONTROL: txtReason
\n- HELP MESSAGE: Enter the reason this study is being requested, up to 64 characters.
\n- POST-SELECTION ACTION: I $L($G(ORDIALOG(PROMPT,INST)))=0 K DONE W $C(7),11,\"A valid reason for study is required!\" S:$$DONE^ORCDLG2 ORQUIT=1
\n- DEFAULT: I $D(^TMP(\"ORECALL\",$J,ORDIALOG)),$$SITEVAL^ORWDXM1 S Y=^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST)
\n- ITEM: OR GTX STUDY REASON
\n- DISPLAY TEXT: Reason for Study:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: lstSelectMod
\n- API PARAMETER #1: MOD
\n- HELP MESSAGE: Select the procedure modifiers necessary to further define the procedure ordered.
\n- ASK ON CONDITION: I $D(^RAMIS(71.2,\"AB\",ORIMTYPE))
\n- POST-SELECTION ACTION: D CKPTYPE^ORCDRA1 Q:'$G(DONE) I $$DUP^ORCD(PROMPT,ORI) K DONE W $C(7),!,\"This procedure modifier has already been selected!\",!
\n- ITEM: OR GTX MODIFIERS
\n- DISPLAY TEXT: Procedure Modifier:
\n- REQUIRED: NO
\n- MULTIPLE VALUED: YES
\n- TITLE: Procedure Modifiers:
\n \n- \n
- SEQUENCE: 7
\n- WINDOWS CONTROL: calRequestDate
\n- HELP MESSAGE: Enter the date desired for this procedure to be performed.
\n- POST-SELECTION ACTION: D DATEDSRD^ORCDRA
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Date Desired:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 10
\n- INDEX: S.RA
\n- WINDOWS CONTROL: cboUrgency
\n- API PARAMETER #1: URG
\n- HELP MESSAGE: Enter the urgency for this request.
\n- WINDOWS DEFAULT: S Y=\"Routine\"
\n- SCREEN: I $$RADURG^ORWDRA32(Y)
\n- DEFAULT: S Y=9
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 3
\n- OMIT TEXT: ROUTINE
\n- ASK ON EDIT ONLY: YES
\n \n- \n
- SEQUENCE: 11
\n- WINDOWS CONTROL: cboSubmit
\n- API PARAMETER #1: SUB
\n- HELP MESSAGE: Enter the imaging location this request should be sent to.
\n- ASK ON CONDITION: I $$GET^XPAR(\"ALL^DIV.`\"_$G(ORDIV),\"RA SUBMIT PROMPT\",1,\"Q\"),+$G(ORDIALOG(PROMPT,\"LIST\"))>1
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S:+$G(ORDIALOG(PROMPT,\"LIST\"))=1 Y=+$G(ORDIALOG(PROMPT,\"LIST\",1))
\n- ENTRY ACTION: I $G(ORIMLOC) M ORDIALOG(PROMPT,\"LIST\")=ORIMLOC
\n- ITEM: OR GTX IMAGING LOCATION
\n- DISPLAY TEXT: Submit request to:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 8
\n- WINDOWS CONTROL: cboTransport
\n- API PARAMETER #1: TRANS
\n- HELP MESSAGE: Enter the transportation mode of the patient for this exam.
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S Y=$$MODE^ORCDRA1 K:'$L(Y) Y
\n- ITEM: OR GTX MODE OF TRANSPORT
\n- ASK ON EDIT ONLY: YES
\n \n- \n
- SEQUENCE: 4
\n- WINDOWS CONTROL: cboCategory
\n- API PARAMETER #1: CAT
\n- HELP MESSAGE: Enter the category of the patient for this exam.
\n- WINDOWS DEFAULT: S Y=$S($G(ORWARD):\"Inpatient\",1:\"Outpatient\")
\n- POST-SELECTION ACTION: I $D(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) D CHNGCAT^ORCDRA1
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$INPT^ORCD:\"I\",1:\"O\")
\n- ITEM: OR GTX CATEGORY
\n- ASK ON EDIT ONLY: YES
\n \n- \n
- SEQUENCE: 4.2
\n- API PARAMETER #1: SHARE
\n- HELP MESSAGE: Enter the contract or sharing agreement responsible for this exam.
\n- WINDOWS CONDITION: I \"CS\"[$$VAL^ORGGDRA(\"CATEGORY\")
\n- ASK ON CONDITION: N X S X=$$VAL^ORCD(\"CATEGORY\") I $L(X),\"CS\"[X
\n- ITEM: OR GTX CONTRACT/SHARING SOURCE
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4.3
\n- API PARAMETER #1: SOURCE
\n- HELP MESSAGE: Enter the name of the research project responsible for this exam.
\n- WINDOWS CONDITION: I $$VAL^ORGGDRA(\"CATEGORY\")=\"R\"
\n- ASK ON CONDITION: I $$VAL^ORCD(\"CATEGORY\")=\"R\"
\n- ITEM: OR GTX RESEARCH SOURCE
\n- REQUIRED: YES
\n \n
\n
\n", "", "", "", "", "", "Imaging\n", "", "", "", "D EN^ORCDRA\n", "D ENA^ORCDRA\n", "dialog\n", "D EX^ORCDRA\n", "IMAGING\n", "", "", "", "", "Imaging\n", "160\n", "", "", "", "ORES\n", "RADIOLOGY/NUCLEAR MEDICINE\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX CATEGORY", "", "set of codes\n", "I:INPATIENT;O:OUTPATIENT;C:CONTRACT;S:SHARING;E:EMPLOYEE;R:RESEARCH;\n", "CLASS\n", "", "", "Category:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN COLD PACKS", "", "", "", "", "", "", "Cold Packs\n", "\nThis orders cold packs.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN DRESSING CHANGE", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.NURS
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.NURS\",\"DRESSING CHANGE\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dressing site.
\n- ITEM: OR GTSKIN WOUND SITE
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: for
\n- DISPLAY TEXT: Site:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter how often this order should happen (i.e., Q4H)
\n- DEFAULT: S Y=\"TID\"
\n- ITEM: OR GTX FREQUENCY
\n- DISPLAY TEXT: Frequency:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Add'l Info:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter any additional instructions for this order, up to 80 characters.
\n- ITEM: OR GTX FREE TEXT 2
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "Dressing Change\n", "\nThis orders a dressing change (site, frequency, comment).\n
\n\n", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN SHEEPSKIN", "", "", "", "", "", "", "Sheepskin\n", "\nThis orders a sheepskin.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN SKIN AND WOUND ITEM", "", "", "", "", "", "", "Skin & Wound\n", "\nThis is a free text order for skin and wound care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN WARM PACKS", "", "", "", "", "", "", "Warm Packs\n", "\nThis orders warm packs.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN WARM SOAKS", "", "", "", "", "", "", "Warm Soaks\n", "\nThis orders warm soaks.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN WATER MATTRESS", "", "", "", "", "", "", "Water Mattress\n", "\nThis orders a water mattress.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE COLOSTOMY", "", "", "", "", "", "", "Colostomy\n", "\nThis orders colostomy care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE CONDOM CATHETER", "", "", "", "", "", "", "Condom Catheter\n", "\nThis orders condom catheter care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["Neurology Inpatient", "", "", "", "", "", "", "Neurology Text\n", "\nThis is an example of the general utilities which CPRS uses to create a\nquick order, regardless of what the package is that will use it.\n
\n\n", "", "", "", "", "dialog\n", "", "CONSULTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "YES\n", "NO\n", "2024-09-03 10:47:29\n"], ["GMRCR NEUROLOGY INPATIENT", "", "", "", "", "", "", "Neurology Inpatient\n", "\nThis is an example of the utility which is used to create any quick order\nin CPRS v1.0.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "CONSULTS\n", "", "", "", "", "", "", "", "", "", "", "CONSULT/REQUEST TRACKING\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["ORWDQ 7CA4BB3E", "", "", "", "", "", "", "Digoxin .125mg QAM\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "UNIT DOSE MEDICATIONS\n", "", "", "", "", "", "", "", "", "", "", "INPATIENT MEDICATIONS\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ BECFDE1B", "", "", "", "", "", "", "bleeding quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 780E87E8", "", "", "", "", "", "", "FBS quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "CHEMISTRY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 7EDC0167", "", "", "", "", "", "", "Rich's test Consults quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "CONSULTS\n", "", "", "", "", "", "", "", "", "", "", "CONSULT/REQUEST TRACKING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ BA74B515", "", "", "", "", "", "", "Rich's test Procedures quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "PROCEDURES\n", "", "", "", "", "", "", "", "", "", "", "CONSULT/REQUEST TRACKING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE DRAINS ITEM", "", "", "", "", "", "", "Drains\n", "\nThis is a free text order for drain or tube care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 06B86A4D", "", "", "", "", "", "", "Rich's Test Procedure quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "PROCEDURES\n", "", "", "", "", "", "", "", "", "", "", "CONSULT/REQUEST TRACKING\n", "", "", "2024-09-03 10:47:29\n"], ["NUTRITION", "", "", "", "", "", "", "NUTRITION CONSULT\n", "\nNutrition Consult\n
\n\n", "\n- \n
\n- \n
- ITEM ENTRY: 1
\n- DIALOG: OR GTX ORDERABLE ITEM
\n- INSTANCE: 1
\n \n- \n
- ITEM ENTRY: 2
\n- DIALOG: OR GTX WORD PROCESSING 1
\n- INSTANCE: 1
\n- TEXT:
\n [ ]food preferences by pt request [ ]nutrition assessment \nPresent Diagnosis: \nNutritionally relevant PMH/PSH: \nCurrent diet rx: \nCurrent albumin: Date: \nCurrent weight (kg): Date: \nH/O wt changes or problems with intake: \n \n **** Fill in this form before transmitting **** \n [ ]chewing/swallowing problems [ ]nutrient intake study (calories) \n [ ]recommended oral supplements [ ]recommended diet order \n [ ]malnutrition - diagnosis [ ]NPO/clear liquids > 5 days \n [ ]initiate tube feeding [ ]monitor tube feeding \n [ ]renal nutrition consult [ ]diet intruction \n [ ]see MD re:patient [ ]schedule to nutrition class \n [ ]10-1 referral [ ]outpatient nutrition education \n \n
\n \n \n
\n
\n", "", "", "", "quick order\n", "", "CONSULTS\n", "", "", "", "", "", "", "", "", "", "", "CONSULT/REQUEST TRACKING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 60C6E4E5", "", "", "", "", "", "", "ANOTHER TEST\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "GENERAL RADIOLOGY\n", "", "", "", "", "", "", "", "", "", "", "RADIOLOGY/NUCLEAR MEDICINE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ E87030CE", "", "", "", "", "", "", "TEST #3 (RV)\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "GENERAL RADIOLOGY\n", "", "", "", "", "", "", "", "", "", "", "RADIOLOGY/NUCLEAR MEDICINE\n", "", "", "2024-09-03 10:47:29\n"], ["PSJQ1 EPINEPHRINE", "", "", "", "", "", "", "EPINEPHRINE\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "UNIT DOSE MEDICATIONS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "INPATIENT MEDICATIONS\n", "NO\n", "NO\n", "2024-09-03 10:47:29\n"], ["OR GTX CONTRACT/SHARING SOURCE", "", "pointer\n", "34:EQ\n", "CONTRACT\n", "", "", "Contract/Sharing Source:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE HEMOVAC", "", "", "", "", "", "", "Hemovac\n", "\nThis orders hemovac care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["1300", "", "", "", "", "", "", "1300 CAL\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "DIET ORDERS\n", "", "", "", "", "", "", "", "", "", "", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["ORWDQ 34EB42EB", "", "", "", "", "", "", "test quick order\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 33F5B1DA", "", "", "", "", "", "", "test #2\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE ILEOSTOMY", "", "", "", "", "", "", "Ileostomy\n", "\nThis orders ileostomy care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ E851E36C", "", "", "", "", "", "", "TEST #3\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 9E0C32C2", "", "", "", "", "", "", "ANOTHER TEST\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 361F5AA2", "", "", "", "", "", "", "LAST TIME\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ FE49792B", "", "", "", "", "", "", "Diltiazem 30mg po hs\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "UNIT DOSE MEDICATIONS\n", "", "", "", "", "", "", "", "", "", "", "INPATIENT MEDICATIONS\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ 1472D1CA", "", "", "", "", "", "", "LYTES\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE INDWELLING URINARY CATH", "", "", "", "", "", "", "Indwelling Urinary\n", "\nThis orders Foley cath care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ BBC7C057", "", "", "", "", "", "", "Furosemide 40mg po hs\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "OUTPATIENT MEDICATIONS\n", "", "", "", "", "", "", "", "", "", "", "OUTPATIENT PHARMACY\n", "", "", "2024-09-03 10:47:29\n"], ["ORWDQ C3E34823", "", "", "", "", "", "", "Mg Today\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE JACKSON PRATT", "", "", "", "", "", "", "Jackson Pratt\n", "\nThis orders Jackson Pratt care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX REQUEST SERVICE", "", "pointer\n", "123.5:EQ\n", "SERVICE\n", "", "", "Service:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE NASOGASTRIC", "", "", "", "", "", "", "Nasogastric\n", "\nThis orders NG tube care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE PENROSE", "", "", "", "", "", "", "Penrose\n", "\nThis orders Penrose care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE RECTAL TUBE", "", "", "", "", "", "", "Rectal Tube\n", "\nThis orders Rectal tube care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE SUPRAPUBIC CATHETER", "", "", "", "", "", "", "Suprapubic Catheter\n", "\nThis orders suprapubic cath care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTUBE UROSTOMY", "", "", "", "", "", "", "Urostomy\n", "\nThis orders urostomy care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE ADMIT PATIENT", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: C
\n- HELP MESSAGE: Enter the movement you wish to order for this patient.
\n- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
\n- SCREEN: I $S($P(^(0),U,2)=\"A\":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)=\"A\":1,1:0)
\n- DEFAULT: S:$G(OREVT) Y=+OREVT
\n- ITEM: OR GTX EVENT
\n- EXIT ACTION: N X S X=$G(ORDIALOG(PROMPT,INST)) S:X OREVNT=+X
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: 8~8
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the treating specialty this patient is to be admitted to.
\n- SCREEN: I $$ACTIVE^DGACT(45.7,Y)
\n- XECUTABLE HELP: D XHELP^ORCDADT(PROMPT)
\n- DEFAULT: I $G(OREVNT) S Y=$$DEFTS^ORCDADT(OREVNT) K:Y<1 Y
\n- ENTRY ACTION: D ENTS^ORCDADT(OREVNT)
\n- ITEM: OR GTX TREATING SPECIALTY
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: Specialty:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the attending provider for this patient.
\n- ITEM: OR GTX PROVIDER
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: Attending:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Attending:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 5
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the primary provider for this patient.
\n- ITEM: OR GTX PROVIDER 1
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: Primary:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Primary:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Admit Patient\n", "\nThis allows admission of a patient as a generic order (does no interaction\nwith MAS).\n
\n\n", "", "", "", "", "dialog\n", "K OREVNT\n", "M.A.S.\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX RESEARCH SOURCE", "", "free text\n", "3:40\n", "RESEARCH\n", "", "", "Research Source:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE TREATING SPECIALTY", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: C
\n- HELP MESSAGE: Enter the movement you wish to order for this patient.
\n- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
\n- SCREEN: I $S($P(^(0),U,2)=\"T\":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)=\"T\":1,1:0)
\n- DEFAULT: S:$G(OREVT) Y=+OREVT
\n- ITEM: OR GTX EVENT
\n- EXIT ACTION: N X S X=$G(ORDIALOG(PROMPT,INST)) S:X OREVNT=+X
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: 8~8
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the treating specialty this patient is to be changed to.
\n- SCREEN: I $$ACTIVE^DGACT(45.7,Y)
\n- XECUTABLE HELP: D XHELP^ORCDADT(PROMPT)
\n- DEFAULT: I $G(OREVNT) S Y=$$DEFTS^ORCDADT(OREVNT) K:Y<1 Y
\n- ENTRY ACTION: D ENTS^ORCDADT(OREVNT)
\n- ITEM: OR GTX TREATING SPECIALTY
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: Specialty:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the attending provider for this patient.
\n- ITEM: OR GTX PROVIDER
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: Attending:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Attending:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 5
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the primary provider for this patient.
\n- ITEM: OR GTX PROVIDER 1
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: Primary:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Primary:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Change Treating Specialty\n", "\nThis allows the treating specialty to be changed as a generic order (does\nnot interact with MAS package).\n
\n\n", "", "", "", "", "dialog\n", "K OREVNT\n", "M.A.S.\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE DISCHARGE", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: C
\n- HELP MESSAGE: Enter the movement you wish to order for this patient.
\n- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
\n- SCREEN: I $S($P(^(0),U,2)=\"D\":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)=\"D\":1,1:0)
\n- DEFAULT: S:$G(OREVT) Y=+OREVT
\n- ITEM: OR GTX EVENT
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: 8~8
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the type of discharge for this patient.
\n- SCREEN: I $P(^(0),U,2)=3,$P(^(0),U,4) ;Type=Discharge, Active
\n- ITEM: OR GTX MOVEMENT TYPE
\n- DISPLAY TEXT: Discharge Type:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: Instructions:
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Discharge Patient\n", "\nThis allows a patient to be discharged, as a generic order (does not\ninteract with MAS).\n
\n\n", "", "", "", "", "dialog\n", "", "M.A.S.\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE TRANSFER", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: C
\n- HELP MESSAGE: Enter the movement you wish to order for this patient.
\n- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
\n- SCREEN: I $S($P(^(0),U,2)=\"T\":1,'$P(^(0),U,12):0,$P($G(^ORD(100.5,+$P(^(0),U,12),0)),U,2)=\"T\":1,1:0)
\n- DEFAULT: S:$G(OREVT) Y=+OREVT
\n- ITEM: OR GTX EVENT
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: 8~8
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Transfer Patient\n", "\nThis allows a patient to be transferred as a generic order (does not\ninteract with MAS).\n
\n\n", "", "", "", "", "dialog\n", "", "M.A.S.\n", "", "", "", "", "Transfer\n", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE PATIENT MOVEMENT", "\n- \n\n
\n", "", "", "", "", "", "Patient Movement Orders\n", "\nThis allows selection of a patient movement type as part of generic orders.\n
\n\n", "", "", "", "", "menu\n", "", "", "", "", "", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GWCOND CONDITION", "\n- \n
\n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the patient's condition (i.e. critical, serious, fair, etc.)
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Condition:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1
\n- INDEX: S.COND
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.COND\",\"CONDITION\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n \n
\n
\n", "", "", "", "", "", "Condition\n", "\nThis documents the patient's condition.\n
\n\n", "", "", "", "", "dialog\n", "", "CONDITION\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GWDIAG DIAGNOSIS", "\n- \n
\n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter a diagnosis for the patient, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Diagnosis:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1
\n- INDEX: S.DX
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.DX\",\"DIAGNOSIS\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n \n
\n
\n", "", "", "", "", "", "Diagnosis\n", "\nThis documents the patient's diagnosis.\n
\n\n", "", "", "", "", "dialog\n", "", "DIAGNOSIS\n", "", "", "", "", "Diagnosis\n", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX COLLECTION SAMPLE", "", "pointer\n", "62:EQM\n", "SAMPLE\n", "", "", "Collection Sample:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SPECIMEN", "", "pointer\n", "61:EQ\n", "SPECIMEN\n", "", "", "Specimen:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX INFUSION RATE", "", "free text\n", "1:30\n", "RATE\n", "", "", "Infusion Rate:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["PSJ OR PAT OE", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.UD RX
\n- HELP MESSAGE: Enter the medication you wish to order for this patient.
\n- SCREEN: I '$G(^(.1))!($G(^(.1))>$$NOW^XLFDT)
\n- POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPS1
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the number of refills to allow for this order.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(OREFILLS)>0
\n- ENTRY ACTION: I ORCAT=\"O\",'$G(OREFILLS) D MAXREFS^ORCDPS1
\n- ITEM: OR GTX REFILLS
\n- ORDER TEXT SEQUENCE: 9
\n- LEADING TEXT: Refills:
\n- DISPLAY TEXT: Refills:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORCOPAY),$G(ORSC)
\n- XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",ORCAT=\"O\",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
\n- 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
\n- ITEM: OR GTX SERVICE CONNECTED
\n- DISPLAY TEXT: Is this medication for a SC condition?
\n- TITLE: SC:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- 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'.
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- LEADING TEXT: FOR
\n- DISPLAY TEXT: How long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date this order should begin.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\",$G(OREVENT) ;discharge orders only
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",ORCAT'=\"O\" S Y=$P($G(ORSD),U) K:'$L(Y) Y
\n- ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Start:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n- DISPLAY TEXT: Text:
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the number of days for which the patient needs this medication.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\"
\n- POST-SELECTION ACTION: I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1(\"DS\")
\n- ENTRY ACTION: I $G(ORCAT)=\"O\" D DSUP^ORCDPS1
\n- ITEM: OR GTX DAYS SUPPLY
\n- EXIT ACTION: S:$G(ORCAT)=\"O\" ORDSUP=+$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST S MAX=1 ;stop prompting dose multiple
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4.5
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 10
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 2.7
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX ADMIN TIMES
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.8
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX SCHEDULE TYPE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPS1
\n- ENTRY ACTION: D ROUTES^ORCDPS1
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPS1
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\" S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSO
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ENTRY ACTION: S ORDIALOG(PROMPT,\"D\")=$S(ORCAT=\"I\":\"S.PSJ\",1:\"S.PSO\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 6
\n- OMIT TEXT: ROUTINE DONE
\n- DISPLAY TEXT: Priority:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n \n- \n
- SEQUENCE: 5.5
\n- HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- DEFAULT: I $G(ORCAT)=\"O\",$G(ORTYPE)'=\"Z\" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
\n- ENTRY ACTION: I ORCAT=\"O\" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,\"A\")=\"Quantity\"_$S($L($G(ORQTYUNT)):\" (\"_ORQTYUNT_\"): \",1:\": \")
\n- ITEM: OR GTX QUANTITY
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Quantity:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter if the patient is to receive this medication by mail, at the window, or in the clinic.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: I ORCAT=\"O\",$G(ORTYPE)'=\"Z\" S Y=$S($G(OREVENT):\"W\",$D(^PSX(550,\"C\")):\"M\",1:\"W\") I $D(^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST)) S Y=^(INST),EDITONLY=1
\n- ITEM: OR GTX ROUTING
\n- DISPLAY TEXT: Pick Up:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n
\n
\n", "", "", "", "D SC^ORCDPS3\n", "", "Inpatient Medications\n", "", "", "", "D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1(\"I\")\n", "D EN1^ORCDPS1\n", "dialog\n", "D EXIT^ORCDPS1\n", "UNIT DOSE MEDICATIONS\n", "", "", "", "", "Meds, Inpatient\n", "130\n", "", "", "", "ORES\n", "INPATIENT MEDICATIONS\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX PRE-OP SCHEDULED DATE/TIME", "", "date/time\n", "T::EFTX\n", "PREOP\n", "", "", "Pre-op Scheduled Date/Time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["PSJI OR PAT FLUID OE", "\n- \n
\n- \n
- SEQUENCE: 2
\n- INDEX: S.IVB RX
\n- HELP MESSAGE: Enter a base solution for this order.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y D CHANGED^ORCDPSIV(\"B\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: S:FIRST MULT=0 S REQD=$S($G(ORIVTYPE)=\"I\":0,1:1)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: D INACTIVE^ORCDPSIV(\"B\")
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Solution:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Solutions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- HELP MESSAGE: Enter the volume to be administered, as the number of milliliters.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S Y=$O(ORDIALOG(PROMPT,\"LIST\",\"\"),-1) K:'Y Y D:$G(ORDIALOG(PROMPT,\"LIST\"))>1 LIST^ORCD
\n- ENTRY ACTION: D VOLUME^ORCDPSIV
\n- ITEM: OR GTX VOLUME
\n- TRAILING TEXT: ml
\n- DISPLAY TEXT: Volume (in ml):
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSJ
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 7
\n- OMIT TEXT: ROUTINE
\n- DISPLAY TEXT: Priority:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- ASK ON CONDITION: I $G(ORIVTYPE)=\"I\" ;intermittent only
\n- POST-SELECTION ACTION: D CKSCH^ORCDPSIV
\n- 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)
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S OROTSCH=$$ISONETIM^ORCDPSIV($G(ORDIALOG(PROMPT,INST)))
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- INPUT TRANSFORM: D IVPSI^ORCDPSIV
\n- ASK ON CONDITION: I +$G(OROTSCH)=0 D IVPSI1^ORCDPSIV
\n- XECUTABLE HELP: D IVDURH^ORCDPSIV
\n- ITEM: OR GTX DURATION
\n- DISPLAY TEXT: Limitation:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1
\n- HELP MESSAGE: Enter the infusion type for this order.
\n- POST-SELECTION ACTION: I $L($G(ORESET)),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV(\"T\")
\n- ITEM: OR GTX IV TYPE
\n- EXIT ACTION: S ORIVTYPE=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the route of administration for this infusion.
\n- SCREEN: I $$IVRTESCR^ORCDPSIV(Y)
\n- XECUTABLE HELP: D LVROUTES^ORCDPSIV
\n- ENTRY ACTION: D IVRTEENT^ORCDPSIV
\n- ITEM: OR GTX ROUTE
\n- ORDER TEXT SEQUENCE: 3
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6.5
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX ADMIN TIMES
\n- FORMAT: @
\n \n- \n
- SEQUENCE: 10
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 15
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 3.3
\n- INPUT TRANSFORM: D ADDFRQI^ORCDPSIV
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the solution bag number the additive should be added to.
\n- ASK ON CONDITION: I $G(ORIVTYPE)=\"C\" ;continuous only
\n- XECUTABLE HELP: D ADDFRQC^ORCDPSIV
\n- DEFAULT: S Y=$$ADDFRD^ORCDPSIV(.ORDIALOG,INST,PROMPT)
\n- ENTRY ACTION: D ADDFRQC^ORCDPSIV
\n- ITEM: OR GTX ADDITIVE FREQUENCY
\n- OMIT TEXT: All Bags
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- INDEX: S.IVA RX
\n- HELP MESSAGE: Enter an additive for these IV solutions.
\n- ASK ON CONDITION: I '($$PREMIX^ORCDPSIV&FIRST)
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV(\"A\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ADDITIVE
\n- EXIT ACTION: D INACTIVE^ORCDPSIV(\"A\")
\n- ORDER TEXT SEQUENCE: 1
\n- TRAILING TEXT: in
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Additive:
\n- MULTIPLE VALUED: YES
\n- TITLE: Additives:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.1
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the strength of this additive, as a number.
\n- ENTRY ACTION: D UNITS^ORCDPSIV
\n- ITEM: OR GTX STRENGTH PSIV
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- INPUT TRANSFORM: D INF^ORCDPSIV
\n- 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.
\n- ENTRY ACTION: D ENRATE^ORCDPSIV
\n- ITEM: OR GTX INFUSION RATE
\n- EXIT ACTION: S (ORLEAD,ORTRAIL)=\"\" S:$G(ORIVTYPE)=\"I\" ORLEAD=\"Infuse over\",ORTRAIL=\"minutes\"
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: @ORLEAD
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Infusion Rate:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: Enter any additional comments or instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- ORDER TEXT SEQUENCE: 8
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Provider Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.2
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the units of measurement for this additive.
\n- ASK ON CONDITION: I '$D(ORDIALOG(PROMPT,INST))
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ITEM: OR GTX UNITS
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Infusion\n", "", "", "", "D PROVIDER^ORCDPSIV\n", "D:$G(ORNP) PROVIDER^ORCDPSIV\n", "dialog\n", "S:$G(ORXNP) ORNP=ORXNP K PSJNOPC,ORXNP,ORIVTYPE,ORLEAD,ORTRAIL,OROTSCH\n", "IV MEDICATIONS\n", "", "", "", "", "IV Fluids\n", "180\n", "", "", "", "ORES\n", "INPATIENT MEDICATIONS\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX ADDITIVE", "", "pointer\n", "101.43:EQS\n", "ORDERABLE\n", "", "", "Additive:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GMENU ACTIVITY ORDERS", "\n- \n\n
\n", "", "", "", "", "", "Activity Orders\n", "\nThis is the menu for patient activity orders.\n
\n\n", "", "", "", "", "menu\n", "", "", "", "40\n", "3\n", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GMENU ORDER SETS", "", "", "", "", "", "", "Order Sets\n", "\nThis menu contains the order sets created by the site.\n
\n\n", "", "", "", "", "menu\n", "", "", "", "", "", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GMENU PATIENT CARE ORDERS", "\n- \n\n
\n", "", "", "", "", "", "Patient Care Orders\n", "\nThis menu contains general orders to nursing.\n
\n\n", "", "", "", "", "menu\n", "", "", "", "26\n", "3\n", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GMENU OTHER ORDERS", "\n- \n
\n- \n
- SEQUENCE: 1.1
\n- ITEM: GMRCOR CONSULT
\n- MNEMONIC: 0
\n- DISPLAY TEXT: CONSULT...
\n \n- \n
- SEQUENCE: 1.2
\n- ITEM: GMRCOR REQUEST
\n- MNEMONIC: 30
\n- DISPLAY TEXT: PROCEDURE...
\n \n- \n
- SEQUENCE: 3.1
\n- ITEM: NUTRITION
\n- MNEMONIC: NU
\n- DISPLAY TEXT: Nutrition
\n \n- \n
- SEQUENCE: 2.1
\n- ITEM: NUTRITION
\n- MNEMONIC: FA
\n- DISPLAY TEXT: family ma
\n \n
\n
\n", "", "", "", "", "", "Other Orders\n", "\nThis menu contains other orders (consults & procedures).\n
\n\n", "", "", "", "", "menu\n", "", "", "", "26\n", "3\n", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DRUG NAME", "", "free text\n", "1:40\n", "NAME\n", "", "", "Dispense Drug:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PATIENT INSTRUCTIONS", "", "word processing\n", "", "PI\n", "", "", "Patient Instructions:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX NOW", "", "set of codes\n", "1:NOW;\n", "NOW\n", "", "", "First Dose:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX INSTRUCTIONS", "", "free text\n", "1:125\n", "INSTR\n", "", "", "Instructions:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ROUTE", "", "pointer\n", "51.2:EQM\n", "ROUTE\n", "", "", "Route:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DISPENSE DRUG", "", "pointer\n", "50:EQ\n", "DRUG\n", "", "", "Dispense Drug:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX START DATE", "", "free text date/time\n", "TODAY::EX\n", "START\n", "", "", "Start Date:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PREGNANT", "", "set of codes\n", "Y:YES;N:NO;U:UNKNOWN;\n", "PREGNANT\n", "", "", "Pregnant:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PLACE OF CONSULTATION", "", "set of codes\n", "B:Bedside;E:Emergency Room;C:Consultant's Choice;\n", "PLACE\n", "", "", "Place of Consultation:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREQUENCY", "", "free text\n", "1:80\n", "", "", "", "Frequency:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTPARM BPDIAS", "", "free text\n", "1:80\n", "", "", "", "BPdia:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTPARM BPSYS", "", "free text\n", "1:80\n", "", "", "", "BPsys:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTPARM PULSE", "", "free text\n", "1:80\n", "", "", "", "Pulse:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTPARM TEMPERATURE", "", "free text\n", "1:80\n", "", "", "", "Temperature:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTSKIN WOUND SITE", "", "free text\n", "1:80\n", "", "", "", "Wound Site:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["PSO OERR", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.O RX
\n- HELP MESSAGE: Enter the medication you wish to order for this patient.
\n- SCREEN: I '$G(^(.1))!($G(^(.1))>$$NOW^XLFDT)
\n- POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPS1
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the number of refills to allow for this order.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(OREFILLS)>0
\n- ENTRY ACTION: I ORCAT=\"O\",'$G(OREFILLS) D MAXREFS^ORCDPS1
\n- ITEM: OR GTX REFILLS
\n- ORDER TEXT SEQUENCE: 9
\n- LEADING TEXT: Refills:
\n- DISPLAY TEXT: Refills:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORCOPAY),$G(ORSC)
\n- XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",ORCAT=\"O\",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
\n- 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
\n- ITEM: OR GTX SERVICE CONNECTED
\n- DISPLAY TEXT: Is this medication for a SC condition?
\n- TITLE: SC:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- 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'.
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- LEADING TEXT: FOR
\n- DISPLAY TEXT: How long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date this order should begin.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\",$G(OREVENT) ;discharge orders only
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",ORCAT'=\"O\" S Y=$P($G(ORSD),U) K:'$L(Y) Y
\n- ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Start:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the number of days for which the patient needs this medication.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\"
\n- POST-SELECTION ACTION: I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1(\"DS\")
\n- ENTRY ACTION: I $G(ORCAT)=\"O\" D DSUP^ORCDPS1
\n- ITEM: OR GTX DAYS SUPPLY
\n- EXIT ACTION: S:$G(ORCAT)=\"O\" ORDSUP=+$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST,'$G(ORJUMP) S MAX=1 ;stop prompting dose multiple
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4.5
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 10
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 11
\n- HELP MESSAGE: Do you want to mark this Order as 'Titration'?
\n- ASK ON CONDITION: I $$ASKTITR^ORCDPS3
\n- ITEM: OR GTX TITRATION
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: NO
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPS1
\n- ENTRY ACTION: D ROUTES^ORCDPS1
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPS1
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\" S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INPUT TRANSFORM: D PRI^ORCDPS3
\n- INDEX: S.PSO
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ENTRY ACTION: S ORDIALOG(PROMPT,\"D\")=$S(ORCAT=\"I\":\"S.PSJ\",1:\"S.PSO\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 6
\n- OMIT TEXT: ROUTINE
\n- DISPLAY TEXT: Priority:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n \n- \n
- SEQUENCE: 5.5
\n- HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- DEFAULT: I $G(ORCAT)=\"O\",$G(ORTYPE)'=\"Z\" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
\n- ENTRY ACTION: I ORCAT=\"O\" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,\"A\")=\"Quantity\"_$S($L($G(ORQTYUNT)):\" (\"_ORQTYUNT_\"): \",1:\": \")
\n- ITEM: OR GTX QUANTITY
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Quantity:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- INPUT TRANSFORM: D PARKCK^ORCDPS3
\n- HELP MESSAGE: Enter if the patient is to receive this medication by mail, at the window, or to be parked.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: I ORCAT=\"O\",$G(ORTYPE)'=\"Z\" S Y=$S($G(OREVENT):\"W\",$D(^PSX(550,\"C\")):\"M\",1:\"W\") I $D(^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST)) S Y=^(INST),EDITONLY=1
\n- ITEM: OR GTX ROUTING
\n- DISPLAY TEXT: Pick Up:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n
\n
\n", "", "", "", "D SC^ORCDPS3\n", "", "Outpatient Medications\n", "", "", "", "D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1(\"O\")\n", "D EN1^ORCDPS1\n", "dialog\n", "D EXIT^ORCDPS1\n", "OUTPATIENT MEDICATIONS\n", "", "", "", "", "Meds, Outpatient\n", "140\n", "", "", "", "ORES\n", "OUTPATIENT PHARMACY\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX ROUTING", "", "set of codes\n", "W:WINDOW;M:MAIL;P:PARK;\n", "PICKUP\n", "", "", "Routing:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX QUANTITY", "", "numeric\n", "1:99999999.99:2\n", "QTY\n", "", "", "Quantity:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX WORD PROCESSING 1", "", "word processing\n", "", "COMMENT\n", "", "", "Comments:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX REFILLS", "", "numeric\n", "0:11\n", "REFILLS\n", "", "", "Refills:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SERVICE CONNECTED", "", "yes/no\n", "", "SC\n", "", "", "SC:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX STRENGTH PSIV", "", "numeric\n", ".00000001:999999.99999999:8\n", "STRENGTH\n", "", "", "Strength:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DURATION", "", "free text\n", "1:10\n", "DAYS\n", "", "", "Duration:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ALLERGY TYPE", "", "set of codes\n", "D:Drug;F:Food;O:Other;DF:Drug,Food;DO:Drug,Other;FO:Food,Other;\n", "TYPE\n", "", "", "Type of Reaction:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX REACTION", "", "pointer\n", "120.83:EQ\n", "REACTION\n", "", "", "Sign/Symptom:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX OBSERVED/HISTORICAL", "", "set of codes\n", "o:Observed;h:Historical;\n", "OBSERVED\n", "", "", "(O)bserved or (H)istorical:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX RESULTS", "", "free text\n", "1:240\n", "RESULTS\n", "", "", "Associated Lab Results:\n", "\nThis prompt holds the results of Lab tests relevant to the current order,\ncreated for use with VBECS, in the form:\n testID^result^flag^units^refrange^resultstatus(F or P)^colldate\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["VBEC BLOOD BANK", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.VBEC
\n- WINDOWS CONTROL: cboAvailTest of cboAvailComp
\n- HELP MESSAGE: Enter a blood component or diagnostic test for the patient from the Blood Bank.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: D PSAOI^ORCDVBEC
\n- XECUTABLE HELP: D XHELP^ORCDVBEC
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: D EXOI^ORCDVBEC
\n- DISPLAY TEXT: Component or Test:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Blood Components/Tests:
\n \n- \n
- SEQUENCE: 98
\n- ASK ON CONDITION: I 0 ;created by Component
\n- ITEM: OR GTX RESULTS
\n- MULTIPLE VALUED: YES
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: cboCollType
\n- HELP MESSAGE: Enter the method of collection for this sample.
\n- ASK ON CONDITION: I ORTEST
\n- POST-SELECTION ACTION: D CKTYPE^ORCDLR1
\n- XECUTABLE HELP: D HELPTYPE^ORCDLR1
\n- DEFAULT: I ORTEST S Y=$$COLLTYPE^ORCDLR1 K:'$L(Y) Y
\n- ENTRY ACTION: I ORTEST D ENTYPE^ORCDVBEC
\n- ITEM: OR GTX COLLECTION TYPE
\n- EXIT ACTION: S ORCOLLCT=$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 2
\n- FORMAT: 1~1
\n- DISPLAY TEXT: Collected By:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- INPUT TRANSFORM: I ORCOLLCT=\"LC\",X'?1.N,\"AMNEXT\"'[$$UP^XLFSTR(X),$L(X,\".\")'>1,$L(X,\"@\")'>1 S X=X_\"@\"_$S($$DATE^ORCDLR(X)=DT:$G(ORTIME(\"NEXT\")),1:$G(ORTIME(\"AM\")))
\n- WINDOWS CONTROL: calCollTime
\n- HELP MESSAGE: Enter the date/time the sample should be collected.
\n- ASK ON CONDITION: I ORTEST
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) N OK S OK=$S(ORCOLLCT=\"LC\":$$LABCOLL^ORCDLR1($P(Y,U)),ORCOLLCT=\"I\":$$IMMCOLL^ORCDLR1($P(Y,U)),1:$$CKDATE^ORCDLR1($P(Y,U))) I 'OK W $C(7),!,$P(OK,U,2) K DONE
\n- XECUTABLE HELP: D FTDHELP^ORCD D:ORCOLLCT=\"LC\" LISTCOLL^ORCDLR1,LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")) D:ORCOLLCT=\"I\" IMMTIMES^ORCDLR1
\n- DEFAULT: I ORTEST,$G(ORTYPE)'=\"Z\" S Y=$$DEFTIME^ORCDLR1 K:'$L(Y) Y
\n- ENTRY ACTION: I ORTEST D COLLTIME^ORCDLR1
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Collection Date/Time:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 1.3
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in from component
\n- ENTRY ACTION: D SPCSTS^ORCDVBEC
\n- ITEM: OR GTX SPECIMEN STATUS
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 99
\n- ASK ON CONDITION: I 0 ;created by Lab child order on release
\n- ITEM: OR GTX LAB ORDER
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 1.2
\n- PARENT: OR GTX ORDERABLE ITEM
\n- WINDOWS CONTROL: tQuantity
\n- HELP MESSAGE: Enter the number of units needed, from 1-99.
\n- ASK ON CONDITION: K:'$G(ORASK) ORDIALOG(PROMPT,INST) I $G(ORASK)
\n- POST-SELECTION ACTION: D PSAMT^ORCDVBEC
\n- ITEM: OR GTX AMOUNT
\n- TRAILING TEXT: unit(s)
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: calWanted
\n- HELP MESSAGE: Enter the date/time the unit(s) should be available.
\n- XECUTABLE HELP: D FTDHELP^ORCD
\n- ITEM: OR GTX DATE/TIME
\n- EXIT ACTION: D DTW^ORCDVBEC
\n- DISPLAY TEXT: Date/Time Wanted:
\n- REQUIRED: YES
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- WINDOWS CONTROL: cboModifiers
\n- HELP MESSAGE: Select a modifier, if needed.
\n- ASK ON CONDITION: K:'$G(ORASK) ORDIALOG(PROMPT,INST) I $G(ORASK)
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D MOD^ORCDVBEC
\n- ITEM: OR GTX RBC MODIFIERS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- WINDOWS CONTROL: tReason
\n- HELP MESSAGE: Select a reason why this component is needed, or enter one of your own.
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D REASON^ORCDVBEC
\n- ITEM: OR GTX REASON
\n- ORDER TEXT SEQUENCE: 7
\n- LEADING TEXT: Reason for Request:
\n- START NEW LINE: YES
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- INDEX: S.VBEC
\n- WINDOWS CONTROL: cboUrgency
\n- HELP MESSAGE: Enter the urgency of this request.
\n- ASK ON CONDITION: I $$ASKURG^ORCDVBEC
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D ENURG^ORCDVBEC
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 4
\n- OMIT TEXT: ROUTINE
\n- REQUIRED: YES
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 5
\n- WINDOWS CONTROL: cboSurgery
\n- HELP MESSAGE: Enter the name of the surgical procedure that this request is for.
\n- POST-SELECTION ACTION: D CKMSBOS^ORCDVBEC
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D ENSURG^ORCDVBEC
\n- ITEM: OR GTX TEXT
\n- ORDER TEXT SEQUENCE: 5
\n- LEADING TEXT: for
\n- DISPLAY TEXT: Surgery:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- WINDOWS CONTROL: chkConsent
\n- HELP MESSAGE: Enter YES if the patient has signed a consent form.
\n- ASK ON CONDITION: I 0 ;I ORCOMP
\n- ITEM: OR GTX YES/NO
\n- DISPLAY TEXT: Informed Consent signed on chart?
\n- REQUIRED: YES
\n- TITLE: Informed Consent:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 9
\n- WINDOWS CONTROL: txtDiagComment
\n- HELP MESSAGE: Enter any additional comments or instructions for this order.
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\",$P($G(^ORD(101.43,+$G(ORITM),0)),U)=\"OTHER\" S REQD=1
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 6
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "I $O(^OR(100,ORIFN,2,0)) S Y=$$LB^ORCDVBC1(ORIFN) K:'Y Y S:$G(Y) Y=\"LB #\"_Y\n", "Blood Products\n", "\nThis dialog creates an order for blood components to be made available\nby the VBECS system, as well as any supporting diagnostic tests.\n
\n\n", "", "", "D EN^ORCDVBEC\n", "D EN^ORCDVBEC\n", "dialog\n", "D EX^ORCDVBEC\n", "BLOOD PRODUCTS\n", "", "", "", "", "VBEC Blood Bank\n", "125\n", "", "", "", "ORES\n", "VBECS\n", "YES\n", "NO\n", "2024-09-03 10:47:29\n"], ["OR GTX SPECIMEN STATUS", "", "free text\n", "1:50\n", "SPECSTS\n", "", "", "Specimen Status:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX VISITSTR", "", "free text\n", "", "VISITSTR\n", "", "", "Visit String:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX REACTION DATE/TIME", "", "date/time\n", ":NOW:EPT\n", "REACTDT\n", "", "", "Reaction Date (Time optional):\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ADDITIVE FREQUENCY", "", "free text\n", "", "ADDFREQ\n", "", "", "Additive Frequency:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX STUDY REASON", "", "free text\n", "3:64\n", "REASON\n", "", "", "Reason for Study:\n", "\nThis prompts for a free text reason why this study is being ordered.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SEVERITY", "", "set of codes\n", "3:Severe;2:Moderate;1:Mild;\n", "SEVERITY\n", "", "", "Severity:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX IV TYPE", "", "set of codes\n", "C:Continuous;I:Intermittent;\n", "TYPE\n", "", "", "Type:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ADMIN TIMES", "", "free text\n", "2:119\n", "ADMIN\n", "", "", "Administration Times:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX CLINICALLY INDICATED DATE", "", "free text date/time\n", "TODAY::EX\n", "CLINICALLY\n", "", "", "Clinically indicated date:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRAOR ALLERGY ENTER/EDIT", "", "", "", "", "", "", "Allergy/Adverse Reaction\n", "", "", "", "N DFN,GMRAUSER,GMRAOUT S DFN=+$G(ORVP) D:DFN>0 EN2^GMRAPEM0\n", "", "action\n", "", "ALLERGIES\n", "", "", "", "", "Allergies\n", "1105\n", "", "", "", "NONE\n", "ADVERSE REACTION TRACKING\n", "", "", "2024-09-03 10:47:29\n"], ["PSJ OR CLINIC OE", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.UD RX
\n- HELP MESSAGE: Enter the medication you wish to order for this patient.
\n- SCREEN: I '$G(^(.1))!($G(^(.1))>$$NOW^XLFDT)
\n- POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPS1
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the number of refills to allow for this order.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(OREFILLS)>0
\n- ENTRY ACTION: I ORCAT=\"O\",'$G(OREFILLS) D MAXREFS^ORCDPS1
\n- ITEM: OR GTX REFILLS
\n- ORDER TEXT SEQUENCE: 9
\n- LEADING TEXT: Refills:
\n- DISPLAY TEXT: Refills:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORCOPAY),$G(ORSC)
\n- XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",ORCAT=\"O\",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
\n- 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
\n- ITEM: OR GTX SERVICE CONNECTED
\n- DISPLAY TEXT: Is this medication for a SC condition?
\n- TITLE: SC:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- 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'.
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- LEADING TEXT: FOR
\n- DISPLAY TEXT: How long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date this order should begin.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\",$G(OREVENT) ;discharge orders only
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",ORCAT'=\"O\" S Y=$P($G(ORSD),U) K:'$L(Y) Y
\n- ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Start:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n- DISPLAY TEXT: Text:
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST,'$G(ORJUMP) S MAX=1 ;stop prompting dose multiple
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4.5
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 10
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 2.7
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX ADMIN TIMES
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.8
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX SCHEDULE TYPE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPS1
\n- ENTRY ACTION: D ROUTES^ORCDPS1
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPS1
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\" S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSO
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ENTRY ACTION: S ORDIALOG(PROMPT,\"D\")=$S(ORCAT=\"I\":\"S.PSJ\",1:\"S.PSO\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 6
\n- OMIT TEXT: ROUTINE DONE
\n- DISPLAY TEXT: Priority:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n \n- \n
- SEQUENCE: 5.5
\n- HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- DEFAULT: I $G(ORCAT)=\"O\",$G(ORTYPE)'=\"Z\" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
\n- ENTRY ACTION: I ORCAT=\"O\" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,\"A\")=\"Quantity\"_$S($L($G(ORQTYUNT)):\" (\"_ORQTYUNT_\"): \",1:\": \")
\n- ITEM: OR GTX QUANTITY
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Quantity:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "D SC^ORCDPS3\n", "", "Clinic Medications\n", "", "", "", "D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1(\"I\")\n", "D EN1^ORCDPS1\n", "dialog\n", "D EXIT^ORCDPS1\n", "CLINIC MEDICATIONS\n", "", "", "", "", "Clinic Medications\n", "1444\n", "", "", "", "ORES\n", "INPATIENT MEDICATIONS\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["CLINIC OR PAT FLUID OE", "\n- \n
\n- \n
- SEQUENCE: 2
\n- INDEX: S.IVB RX
\n- HELP MESSAGE: Enter a base solution for this order.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y D CHANGED^ORCDPSIV(\"B\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: S:FIRST MULT=0 S REQD=$S($G(ORIVTYPE)=\"I\":0,1:1)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: D INACTIVE^ORCDPSIV(\"B\")
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Solution:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Solutions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- HELP MESSAGE: Enter the volume to be administered, as the number of milliliters.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S Y=$O(ORDIALOG(PROMPT,\"LIST\",\"\"),-1) K:'Y Y D:$G(ORDIALOG(PROMPT,\"LIST\"))>1 LIST^ORCD
\n- ENTRY ACTION: D VOLUME^ORCDPSIV
\n- ITEM: OR GTX VOLUME
\n- TRAILING TEXT: ml
\n- DISPLAY TEXT: Volume (in ml):
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSJ
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 7
\n- OMIT TEXT: ROUTINE
\n- DISPLAY TEXT: Priority:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- ASK ON CONDITION: I $G(ORIVTYPE)=\"I\" ;intermittent only
\n- POST-SELECTION ACTION: D CKSCH^ORCDPSIV
\n- 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)
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S OROTSCH=$$ISONETIM^ORCDPSIV($G(ORDIALOG(PROMPT,INST)))
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- INPUT TRANSFORM: D IVPSI^ORCDPSIV
\n- ASK ON CONDITION: I +$G(OROTSCH)=0 D IVPSI1^ORCDPSIV
\n- XECUTABLE HELP: D IVDURH^ORCDPSIV
\n- ITEM: OR GTX DURATION
\n- DISPLAY TEXT: Limitation:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1
\n- HELP MESSAGE: Enter the infusion type for this order.
\n- POST-SELECTION ACTION: I $L($G(ORESET)),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV(\"T\")
\n- ITEM: OR GTX IV TYPE
\n- EXIT ACTION: S ORIVTYPE=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the route of administration for this infusion.
\n- SCREEN: I $$IVRTESCR^ORCDPSIV(Y)
\n- XECUTABLE HELP: D LVROUTES^ORCDPSIV
\n- ENTRY ACTION: D IVRTEENT^ORCDPSIV
\n- ITEM: OR GTX ROUTE
\n- ORDER TEXT SEQUENCE: 3
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6.5
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX ADMIN TIMES
\n- FORMAT: @
\n \n- \n
- SEQUENCE: 10
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 15
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 3.3
\n- INPUT TRANSFORM: D ADDFRQI^ORCDPSIV
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the solution bag number the additive should be added to.
\n- ASK ON CONDITION: I $G(ORIVTYPE)=\"C\" ;continuous only
\n- XECUTABLE HELP: D ADDFRQC^ORCDPSIV
\n- DEFAULT: S Y=$$ADDFRD^ORCDPSIV(.ORDIALOG,INST,PROMPT)
\n- ENTRY ACTION: D ADDFRQC^ORCDPSIV
\n- ITEM: OR GTX ADDITIVE FREQUENCY
\n- OMIT TEXT: All Bags
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- INDEX: S.IVA RX
\n- HELP MESSAGE: Enter an additive for these IV solutions.
\n- ASK ON CONDITION: I '($$PREMIX^ORCDPSIV&FIRST)
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) D CHANGED^ORCDPSIV(\"A\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ADDITIVE
\n- EXIT ACTION: D INACTIVE^ORCDPSIV(\"A\")
\n- ORDER TEXT SEQUENCE: 1
\n- TRAILING TEXT: in
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Additive:
\n- MULTIPLE VALUED: YES
\n- TITLE: Additives:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.1
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the strength of this additive, as a number.
\n- ENTRY ACTION: D UNITS^ORCDPSIV
\n- ITEM: OR GTX STRENGTH PSIV
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- INPUT TRANSFORM: D INF^ORCDPSIV
\n- 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.
\n- ENTRY ACTION: D ENRATE^ORCDPSIV
\n- ITEM: OR GTX INFUSION RATE
\n- EXIT ACTION: S (ORLEAD,ORTRAIL)=\"\" S:$G(ORIVTYPE)=\"I\" ORLEAD=\"Infuse over\",ORTRAIL=\"minutes\"
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: @ORLEAD
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Infusion Rate:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: Enter any additional comments or instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- ORDER TEXT SEQUENCE: 8
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Provider Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.2
\n- PARENT: OR GTX ADDITIVE
\n- HELP MESSAGE: Enter the units of measurement for this additive.
\n- ASK ON CONDITION: I '$D(ORDIALOG(PROMPT,INST))
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ITEM: OR GTX UNITS
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Clinic Infusions\n", "", "", "", "D PROVIDER^ORCDPSIV\n", "D:$G(ORNP) PROVIDER^ORCDPSIV\n", "dialog\n", "S:$G(ORXNP) ORNP=ORXNP K PSJNOPC,ORXNP,ORIVTYPE,ORLEAD,ORTRAIL,OROTSCH\n", "CLINIC INFUSIONS\n", "", "", "", "", "Clinic Infusions\n", "1555\n", "", "", "", "ORES\n", "INPATIENT MEDICATIONS\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX TREATING SPECIALTY", "", "pointer\n", "45.7:EQ\n", "", "", "", "Treating Specialty:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX MOVEMENT TYPE", "", "pointer\n", "405.1:EQ\n", "", "", "", "Movement Type:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["LR OTHER LAB AP TESTS", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.AP
\n- WINDOWS CONTROL: lstSelectTest
\n- HELP MESSAGE: Enter a lab test to be ordered for this patient.
\n- SCREEN: I $$ACTIVE^ORDD43(Y),$$OK4CPRS^ORWLRAP1(Y,1)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y D CHANGED^ORCDLR(\"OI\") K ORTEST
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: K:FIRST ORTEST
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: D CKTYP^ORCDLR Q:$G(ORQUIT) D TEST^ORCDLR ;Setup test parameters
\n- DISPLAY TEXT: Anatomic Pathology Test:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 9
\n- WINDOWS CONTROL: txtDays
\n- HELP MESSAGE: Enter the number of days or X_number of times to execute this order.
\n- ASK ON CONDITION: I 0
\n- POST-SELECTION ACTION: N OK S OK=$$CKMAX^ORCDLR(Y) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
\n- ENTRY ACTION: D SHOWMAX^ORCDLR
\n- ITEM: OR GTX DURATION
\n- DISPLAY TEXT: How long:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 20
\n- ASK ON CONDITION: I 0 ; populated from patient data
\n- ITEM: OR GTX VISITSTR
\n- REQUIRED: YES
\n- PROMPT: VISITSTR
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 1.1
\n- HELP MESSAGE: Enter the surgeon or provider.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPSPH\")
\n- SCREEN: I $D(^XUSEC(\"PROVIDER\",+Y))
\n- ITEM: OR GTX SURGEON/PROVIDER
\n- DISPLAY TEXT: Surgeon/Provider:
\n \n- \n
- SEQUENCE: 1.2
\n- HELP MESSAGE: Enter who submitted this specimen.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPSSB\")
\n- ITEM: OR GTX SPECIMEN SUBMITTED BY
\n- DISPLAY TEXT: Specimen Submitted by:
\n \n- \n
- SEQUENCE: 12
\n- ITEM: OR GTX SPECIMEN DESCRIPTION
\n- DISPLAY TEXT: Specimen Description:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 13
\n- ASK ON CONDITION: I $$ASKPAGE^ORWLRAP2(\"CLINHX\")
\n- ITEM: OR GTX CLINICAL HISTORY
\n- DISPLAY TEXT: Clinical History:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 14
\n- ASK ON CONDITION: I $$ASKPAGE^ORWLRAP2(\"PREOPDX\")
\n- ITEM: OR GTX PRE OPERATIVE DIAGNOSIS
\n- DISPLAY TEXT: Pre Operative Diagnosis:
\n \n- \n
- SEQUENCE: 15
\n- ASK ON CONDITION: I $$ASKPAGE^ORWLRAP2(\"OPFIND\")
\n- ITEM: OR GTX OPERATIVE FINDINGS
\n- DISPLAY TEXT: Operative Findings:
\n \n- \n
- SEQUENCE: 16
\n- ASK ON CONDITION: I $$ASKPAGE^ORWLRAP2(\"POSTOPDX\")
\n- ITEM: OR GTX POST OPERATIVE FINDINGS
\n- DISPLAY TEXT: Post Operative Findings:
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: cboCollType
\n- HELP MESSAGE: Enter the method of collection for this sample.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPCTY\")
\n- POST-SELECTION ACTION: D CKTYPE^ORCDLR1
\n- XECUTABLE HELP: D HELPTYPE^ORCDLR1
\n- DEFAULT: I $$ASKPROMPT^ORWLRAP2(\"OPCTY\") S Y=$$COLLTYPE^ORCDLR1 K:'$L(Y) Y
\n- ITEM: OR GTX COLLECTION TYPE
\n- EXIT ACTION: S ORCOLLCT=$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 6
\n- FORMAT: 1~1
\n- DISPLAY TEXT: Collection Type:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- INPUT TRANSFORM: I ORCOLLCT=\"LC\",X'?1.N,\"AMNEXT\"'[$$UP^XLFSTR(X),$L(X,\".\")'>1,$L(X,\"@\")'>1 S X=X_\"@\"_$S($$DATE^ORCDLR(X)=DT:$G(ORTIME(\"NEXT\")),1:$G(ORTIME(\"AM\")))
\n- WINDOWS CONTROL: cboCollTime
\n- HELP MESSAGE: Enter the date/time the sample(s) should be collected.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPCDT\")
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) N OK S OK=$S(ORCOLLCT=\"LC\":$$LABCOLL^ORCDLR1($P(Y,U)),ORCOLLCT=\"I\":$$IMMCOLL^ORCDLR1($P(Y,U)),1:$$CKDATE^ORCDLR1($P(Y,U))) I 'OK W $C(7),!,$P(OK,U,2) K DONE
\n- XECUTABLE HELP: D FTDHELP^ORCD D:ORCOLLCT=\"LC\" LISTCOLL^ORCDLR1,LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")) D:ORCOLLCT=\"I\" IMMTIMES^ORCDLR1
\n- DEFAULT: I $G(ORTYPE)'=\"Z\" S Y=$$DEFTIME^ORCDLR1 K:'$L(Y) Y
\n- ENTRY ACTION: D COLLTIME^ORCDLR1 ;,LIST^ORCD:ORCOLLCT=\"LC\"&$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Collection Date/Time:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 8
\n- INDEX: APLR
\n- WINDOWS CONTROL: cboFrequency
\n- HELP MESSAGE: Enter an administration schedule for how often this test is to be done.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPHOF\")
\n- SCREEN: I \"CDO\"[$P(^(0),U,5)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) K ORDIALOG($$PTR^ORCD(\"OR GTX DURATION\"),ORI)
\n- XECUTABLE HELP: D XSCH^ORCDLR
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",$D(LRFSCH)!ORMAX S Y=$$LRD1^ORDDPAPI S:$D(LRFSCH)&Y EDITONLY=1 K:Y'>0 Y
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\",ORMAX'>0 K ORDIALOG(PROMPT,INST)
\n- ITEM: OR GTX ADMIN SCHEDULE
\n- EXIT ACTION: S ORSCH=+$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 8
\n- OMIT TEXT: ONE TIME
\n- DISPLAY TEXT: How often:
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: cboUrgency
\n- HELP MESSAGE: Enter the urgency of this test.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPURG\")
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: I $G(ORTYPE)'=\"Z\" S Y=+$G(ORTEST(\"Default Urgency\")) I 'Y S Y=$S($L($G(LRFURG)):LRFURG,1:$$DEFURG^LR7OR3) S:$G(LRFURG) EDITONLY=1
\n- ENTRY ACTION: D URGENCY^ORCDLR
\n- ITEM: OR GTX LAB URGENCY
\n- ORDER TEXT SEQUENCE: 4
\n- OMIT TEXT: ROUTINE
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- INDEX: B;D
\n- WINDOWS CONTROL: cboCollSamp
\n- HELP MESSAGE: Enter the sample to be collected for this test.
\n- ASK ON CONDITION: I $$ASKSAMP^ORCDLR
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y N PTR S PTR=$$PTR^ORCD(\"OR GTX SPECIMEN\") K ORDIALOG(PTR,1),ORDIALOG(PTR,\"LIST\")
\n- XECUTABLE HELP: D XHELP^ORCDLR(PROMPT)
\n- DEFAULT: S Y=$$SAMPLE^ORCDLR K:Y'>0 Y
\n- ENTRY ACTION: D ENSAMP^ORCDLR
\n- ITEM: OR GTX COLLECTION SAMPLE
\n- EXIT ACTION: N ORS S ORS=+$G(ORDIALOG(PROMPT,INST)) D SHOWCOMM^ORCDLR(ORS)
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 11
\n- INDEX: B
\n- WINDOWS CONTROL: cboSpecimen
\n- HELP MESSAGE: Enter the specimen on which this test is to be performed.
\n- ASK ON CONDITION: I '$$SPECIMEN^ORCDLR
\n- SCREEN: I $$ALLOWSPEC^ORWLRAP2(Y)
\n- DEFAULT: S Y=$$SPECIMEN^ORCDLR K:Y'>0 Y
\n- ITEM: OR GTX SPECIMEN
\n- ORDER TEXT SEQUENCE: 3
\n- FORMAT: =126
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 9.5
\n- WINDOWS CONTROL: txtComment
\n- HELP MESSAGE: Enter any additional comments or instructions for this test and specimen.
\n- ASK ON CONDITION: I $$ASKPROMPT^ORWLRAP2(\"OPODC\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- ORDER TEXT SEQUENCE: 9
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "I '$$VALID^ORCDLR1(ORIFN) S ORQUIT=1 W !!,\"Order will not be signed/released.\" H 2\n", "I '$$LB^ORCDLR(ORIFN),$G(^OR(100,ORIFN,4)) S Y=\"LB #\"_$P(^(4),\";\")\n", "Anatomic Pathology Tests\n", "", "", "", "D EN^ORCDLR1\n", "D EN^ORCDLR1\n", "dialog\n", "D EX^ORCDLR1\n", "ANATOMIC PATHOLOGY\n", "", "", "", "", "Anatomic Pathology Tests\n", "121\n", "", "", "", "ORES\n", "LAB SERVICE\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX ISOLATION TYPE", "", "pointer\n", "119.4:EQ\n", "ISOLATION\n", "", "", "Isolation/Precaution Type:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SPECIMEN DESCRIPTION", "", "free text\n", "1:75\n", "SPECDESC\n", "", "", "Specimen Description:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX STATEMENTS", "", "word processing\n", "", "STATEMENTS\n", "", "", "Statement/Explanation\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GWINST DNR", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.ADT
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.ADT\",\"DO NOT RESUSCITATE\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time this order is to become effective.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Effective:
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date/time this order is to expire.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"EFFECTIVE\",\"EXPIRES\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- DEFAULT: S Y=\"NOW+1\"
\n- ITEM: OR GTX STOP DATE/TIME
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: Expires
\n- DISPLAY TEXT: Expires:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "DNR\n", "\nThis documents a request for DNR procedures.\n
\n\n", "", "", "", "", "dialog\n", "", "M.A.S.\n", "", "", "", "", "Directives\n", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX SD COMMENT", "", "free text\n", "1:75\n", "SDCOMMENT\n", "", "", "Return to Clinic Comment\n", "\nThis prompts for the comment field in the Return to Clinic Order Dialog.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX TITRATION", "", "yes/no\n", "", "TITR\n", "", "", "Titration:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHW3", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.PREC
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.PREC\",\"ISOLATION PROCEDURES\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the type of precaution necessary.
\n- SCREEN: I '$D(^(\"I\")) ; inactive
\n- ITEM: OR GTX ISOLATION TYPE
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Isolation/Precautions\n", "\nThis documents a request for isolation or precautions.\n
\n\n", "", "", "N IP S IP=$$IP^ORMBLD I IP W !!,\"Current Isolation: \"_$P(IP,U,2)\n", "", "dialog\n", "", "PRECAUTIONS\n", "", "", "", "", "Precautions\n", "117\n", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX DST ID", "", "free text\n", "1:240\n", "DSTID\n", "", "", "DST ID:\n", "\nThis response will hold the Decision Support Tool (DST) ID that \nhas been associated with the consult order. DST IDs are Universally \nUnique Identifiers (UUID). The following is an example DST ID.\n29d86ee0-4504-4961-9eca-69095809417b\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DST STATUS MSG", "", "word processing\n", "", "DSTDECSN\n", "", "", "Comm. Care Eligibility:\n", "\nContains the DST status message for an unsigned consult order. This data \nis held in the order dialog response for (re)display purposes in CPRS \nGUI. It is not part of the order message sent to GMRC when the order is \nsigned. That is handled by a separate process that predates the existence \nof this order dialog item.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX STOP DATE", "", "free text date/time\n", "TODAY::EX\n", "STOP\n", "", "", "Stop Date:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DATE/TIME", "", "free text date/time\n", "NOW::ETX\n", "DATETIME\n", "", "", "Date/Time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX NKA", "", "set of codes\n", "NKA:No Known Allergies;\n", "NKA\n", "", "", "Current Data:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX MEAL DATE", "", "date/time\n", "TODAY::EX\n", "DATE\n", "", "", "Date:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ADDL DIETS", "", "pointer\n", "101.43:EQS\n", "ORDERABLE\n", "", "", "Except:\n", "\nCreated to allow entry of additional diets to override specific meals\nwithin an Outpatient Recurring Meal order.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX CODE", "", "free text\n", "1:10\n", "CODE\n", "", "", "Code:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORMENU", "\n- \n\n
\n", "", "", "", "", "", "Vitals/Measurements\n", "", "", "", "", "", "menu\n", "", "", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHWMENU", "\n- \n
\n- \n
- SEQUENCE: 1.1
\n- ITEM: FHW1
\n- MNEMONIC: 1
\n \n- \n
- SEQUENCE: 6.1
\n- MNEMONIC: 6
\n- DISPLAY TEXT: Dietetic Consult
\n \n- \n
- SEQUENCE: 2.1
\n- ITEM: FHW4
\n- MNEMONIC: 2
\n- DISPLAY ONLY?: NO
\n \n- \n
- SEQUENCE: 2.2
\n- ITEM: FHWN1
\n- MNEMONIC: N1
\n \n- \n
- SEQUENCE: 3.1
\n- ITEM: FHW2
\n- MNEMONIC: 3
\n \n- \n
- SEQUENCE: 3.2
\n- ITEM: FHWN2
\n- MNEMONIC: N2
\n \n- \n
- SEQUENCE: 4.1
\n- ITEM: FHW8
\n- MNEMONIC: 4
\n \n- \n
- SEQUENCE: 5.1
\n- ITEM: FHW7
\n- MNEMONIC: 5
\n \n- \n
- SEQUENCE: 7.1
\n- ITEM: FHW3
\n- MNEMONIC: 7
\n- DISPLAY TEXT: Isolation/Precautions
\n \n- \n
- SEQUENCE: 5.2
\n- MNEMONIC: RG
\n- DISPLAY TEXT: Regular Diet
\n \n
\n
\n", "", "", "", "", "", "Dietetic Orders\n", "", "", "", "", "", "menu\n", "", "", "", "", "", "", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX OBSERVATION DATE/TIME", "", "date/time\n", ":NOW:EPT\n", "START\n", "", "", "Date/time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PROVIDER", "", "pointer\n", "200:EQ\n", "PROVIDER\n", "", "", "Provider:\n", "\nThe responsible clinician\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SCHEDULE", "", "free text\n", "1:70\n", "SCHEDULE\n", "", "", "Schedule:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["PSO SUPPLY", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.SPLY
\n- HELP MESSAGE: Enter the item or device you wish to order for this patient.
\n- SCREEN: I '$G(^(.1))!($G(^(.1))>$$NOW^XLFDT)
\n- POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPS1
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the number of refills to allow for this order.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(OREFILLS)>0
\n- ENTRY ACTION: I ORCAT=\"O\",'$G(OREFILLS) D MAXREFS^ORCDPS1
\n- ITEM: OR GTX REFILLS
\n- ORDER TEXT SEQUENCE: 9
\n- LEADING TEXT: Refills:
\n- DISPLAY TEXT: Refills:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORCOPAY),$G(ORSC)
\n- XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",ORCAT=\"O\",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
\n- 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
\n- ITEM: OR GTX SERVICE CONNECTED
\n- DISPLAY TEXT: Is this medication for a SC condition?
\n- TITLE: SC:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- 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'.
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- LEADING TEXT: FOR
\n- DISPLAY TEXT: How long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date this order should begin.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\",$G(OREVENT) ;discharge orders only
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",ORCAT'=\"O\" S Y=$P($G(ORSD),U) K:'$L(Y) Y
\n- ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Start:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the number of days for which the patient needs this medication.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\"
\n- POST-SELECTION ACTION: I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1(\"DS\")
\n- ENTRY ACTION: I $G(ORCAT)=\"O\" D DSUP^ORCDPS1
\n- ITEM: OR GTX DAYS SUPPLY
\n- EXIT ACTION: S:$G(ORCAT)=\"O\" ORDSUP=+$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST,'$G(ORJUMP) S MAX=1 ;stop prompting dose multiple
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4.5
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 10
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPS1
\n- ENTRY ACTION: D ROUTES^ORCDPS1
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: NO
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPS1
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\" S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSO
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ENTRY ACTION: S ORDIALOG(PROMPT,\"D\")=$S(ORCAT=\"I\":\"S.PSJ\",1:\"S.PSO\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 6
\n- OMIT TEXT: ROUTINE DONE
\n- DISPLAY TEXT: Priority:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n \n- \n
- SEQUENCE: 5.5
\n- HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- DEFAULT: I $G(ORCAT)=\"O\",$G(ORTYPE)'=\"Z\" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
\n- ENTRY ACTION: I ORCAT=\"O\" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,\"A\")=\"Quantity\"_$S($L($G(ORQTYUNT)):\" (\"_ORQTYUNT_\"): \",1:\": \")
\n- ITEM: OR GTX QUANTITY
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Quantity:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- INPUT TRANSFORM: D PARKCK^ORCDPS3
\n- HELP MESSAGE: Enter if the patient is to receive this medication by mail, at the window, or to be parked.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: I ORCAT=\"O\",$G(ORTYPE)'=\"Z\" S Y=$S($G(OREVENT):\"W\",$D(^PSX(550,\"C\")):\"M\",1:\"W\") I $D(^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST)) S Y=^(INST),EDITONLY=1
\n- ITEM: OR GTX ROUTING
\n- DISPLAY TEXT: Pick Up:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n
\n
\n", "", "", "", "D SC^ORCDPS3\n", "", "Supplies\n", "", "", "", "D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1(\"O\")\n", "D EN1^ORCDPS1\n", "dialog\n", "D EXIT^ORCDPS1\n", "SUPPLIES/DEVICES\n", "", "", "", "", "Supplies\n", "140\n", "", "", "", "ORELSE\n", "OUTPATIENT PHARMACY\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX VOLUME", "", "numeric\n", ".01:4000:2\n", "VOLUME\n", "", "", "Volume:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["PSH OERR", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.NV RX
\n- HELP MESSAGE: Enter the herbal/OTC/non-VA medication you wish to order for this patient.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPSH(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPSH
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPSH(OROI),NFI^ORCDPSH(OROI)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Herbal/OTC/Non-VA Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date the patient began using this herbal/OTC/Non-VA medication.
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: NO
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- REQUIRED: NO
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: NO
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 11
\n- ITEM: OR GTX STATEMENTS
\n- REQUIRED: NO
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST S MAX=1
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the length of time over which this Non-VA Medication is being taken
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- DISPLAY TEXT: How Long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.8
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0
\n- ITEM: OR GTX SCHEDULE TYPE
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPSH
\n- ENTRY ACTION: D ROUTES^ORCDPSH
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: NO
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPSH
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\" S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: NO
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- REQUIRED: NO
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n- REQUIRED: NO
\n \n
\n
\n", "", "", "", "", "", "Non-VA Medications (Documentation)\n", "", "", "", "D EN^ORCDPSH(\"H\")\n", "D EN1^ORCDPSH\n", "dialog\n", "D EXIT^ORCDPSH\n", "NON-VA MEDICATIONS\n", "", "", "", "", "Meds, Non-VA (Documentation)\n", "145\n", "", "", "", "NONE\n", "HERBAL/OTC/NON-VA MEDS\n", "NO\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["PS MEDS", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.RX
\n- HELP MESSAGE: Enter the medication you wish to order for this patient.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: D ENOI^ORCDPS1
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S OROI=+$G(ORDIALOG(PROMPT,INST)) D ORDITM^ORCDPS1(OROI),NFI^ORCDPS1(OROI) S ORPKG=+$O(^DIC(9.4,\"C\",$S(ORCAT=\"I\":\"PSJ\",1:\"PSO\"),0))
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: @1350
\n- DISPLAY TEXT: Medication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the number of refills to allow for this order.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(OREFILLS)>0
\n- ENTRY ACTION: I ORCAT=\"O\",'$G(OREFILLS) D MAXREFS^ORCDPS1
\n- ITEM: OR GTX REFILLS
\n- ORDER TEXT SEQUENCE: 9
\n- LEADING TEXT: Refills:
\n- DISPLAY TEXT: Refills:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 9
\n- HELP MESSAGE: If this medication is for treatment of a service-connected condition, enter YES.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORCOPAY),$G(ORSC)
\n- XECUTABLE HELP: N DFN S DFN=+ORVP D DIS^DGRPDB
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",ORCAT=\"O\",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
\n- 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
\n- ITEM: OR GTX SERVICE CONNECTED
\n- DISPLAY TEXT: Is this medication for a SC condition?
\n- TITLE: SC:
\n- ASK ON ACTION: CW
\n \n- \n
- SEQUENCE: 2.3
\n- PARENT: OR GTX INSTRUCTIONS
\n- 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'.
\n- ASK ON CONDITION: I $$ASKDUR^ORCDPS3
\n- POST-SELECTION ACTION: D DUR^ORCDPS3
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",$G(ORCAT)=\"I\",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_\" DAYS\"
\n- ITEM: OR GTX DURATION
\n- LEADING TEXT: FOR
\n- DISPLAY TEXT: How long:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date this order should begin.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\",$G(OREVENT) ;discharge orders only
\n- DEFAULT: Q I $G(ORTYPE)'=\"Z\",ORCAT'=\"O\" S Y=$P($G(ORSD),U) K:'$L(Y) Y
\n- ENTRY ACTION: D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Start:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- ASK ON CONDITION: I 0 ;created by Instructions, if Outpt order
\n- ITEM: OR GTX SIG
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- WORD-WRAP: WRAP
\n- DISPLAY TEXT: Text:
\n \n- \n
- SEQUENCE: 2.5
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- DEFAULT: S Y=$$ID^ORCDPS K:'$L(Y) Y
\n- ITEM: OR GTX DOSE
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.6
\n- ASK ON CONDITION: I 0 ;created by Instructions
\n- ITEM: OR GTX DISPENSE DRUG
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the number of days for which the patient needs this medication.
\n- ASK ON CONDITION: I $G(ORCAT)=\"O\"
\n- POST-SELECTION ACTION: I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1(\"DS\")
\n- ENTRY ACTION: I $G(ORCAT)=\"O\" D DSUP^ORCDPS1
\n- ITEM: OR GTX DAYS SUPPLY
\n- EXIT ACTION: S:$G(ORCAT)=\"O\" ORDSUP=+$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.5
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX DRUG NAME
\n \n- \n
- SEQUENCE: 2.4
\n- INPUT TRANSFORM: D INPCONJ^ORCDPS1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
\n- ASK ON CONDITION: I $G(ORCOMPLX)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1(\"QUANTITY\")
\n- ENTRY ACTION: D ENCONJ^ORCDPS1
\n- ITEM: OR GTX AND/THEN
\n- EXIT ACTION: I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST S MAX=1 ;stop prompting dose multiple
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the dosage instructions for this order, as an amount and units.
\n- POST-SELECTION ACTION: D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ENTRY ACTION: D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,\"LIST\")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
\n- ITEM: OR GTX INSTRUCTIONS
\n- EXIT ACTION: D EXDOSE^ORCDPS2
\n- DISPLAY TEXT: Dose:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3.5
\n- ASK ON CONDITION: I 0 ;text stuffed via Entry Action
\n- ENTRY ACTION: D PI^ORCDPS2
\n- ITEM: OR GTX PATIENT INSTRUCTIONS
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4.5
\n- ASK ON CONDITION: I 0 ;set via Entry Action
\n- ENTRY ACTION: D NOW^ORCDPS3
\n- ITEM: OR GTX NOW
\n- ORDER TEXT SEQUENCE: 10
\n- LEADING TEXT: First Dose
\n- START NEW LINE: YES
\n \n- \n
- SEQUENCE: 11
\n- ITEM: OR GTX STATEMENTS
\n \n- \n
- SEQUENCE: 2.7
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0 ;from Schedule
\n- ITEM: OR GTX ADMIN TIMES
\n- FORMAT: @
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2.8
\n- PARENT: OR GTX INSTRUCTIONS
\n- ASK ON CONDITION: I 0
\n- ITEM: OR GTX SCHEDULE TYPE
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 8.5
\n- INPUT TRANSFORM: D INDIT^ORCDPS3
\n- 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.
\n- XECUTABLE HELP: D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,\"LIST\"))
\n- DEFAULT: D DFIND^ORCDPS3
\n- ENTRY ACTION: D IND^ORCDPS3
\n- ITEM: OR GTX INDICATION
\n- EXIT ACTION: I $L(Y) W \" \"_Y
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: Indication:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Indication:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2.1
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter the route of administration for this drug.
\n- SCREEN: I $P(^(0),U,4)
\n- XECUTABLE HELP: D LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\"))&(X=\"?\"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,\"LIST\"))!(X'=\"?\")
\n- DEFAULT: D DEFRTE^ORCDPS1
\n- ENTRY ACTION: D ROUTES^ORCDPS1
\n- ITEM: OR GTX ROUTE
\n- EXIT ACTION: S OROUTE=+$G(ORDIALOG(PROMPT,INST))
\n- FORMAT: 1~3
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2.2
\n- PARENT: OR GTX INSTRUCTIONS
\n- HELP MESSAGE: Enter a standard schedule for administering this medication.
\n- POST-SELECTION ACTION: D CKSCH^ORCDPS1
\n- 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)
\n- DEFAULT: S:$L($G(^TMP(\"PSJSCH\",$J))) Y=^($J)
\n- ENTRY ACTION: S:ORCAT=\"I\" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
\n- ITEM: OR GTX SCHEDULE
\n- EXIT ACTION: S ORSCH=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 8
\n- INDEX: S.PSO
\n- HELP MESSAGE: Enter the urgency of this order.
\n- DEFAULT: S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
\n- ENTRY ACTION: S ORDIALOG(PROMPT,\"D\")=$S(ORCAT=\"I\":\"S.PSJ\",1:\"S.PSO\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 6
\n- OMIT TEXT: ROUTINE DONE
\n- DISPLAY TEXT: Priority:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 10
\n- HELP MESSAGE: Enter any additional instructions for this order.
\n- ASK ON CONDITION: I '$G(PSJNOPC)!($G(ORTYPE)=\"Z\")
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- ASK ON CONDITION: I 0 ;stuffed in via Instructions
\n- ITEM: OR GTX STRENGTH
\n- FORMAT: @1350
\n \n- \n
- SEQUENCE: 5.5
\n- HELP MESSAGE: Enter the amount (number of tablets, e.g.) to be dispensed.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- DEFAULT: I $G(ORCAT)=\"O\",$G(ORTYPE)'=\"Z\" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
\n- ENTRY ACTION: I ORCAT=\"O\" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,\"A\")=\"Quantity\"_$S($L($G(ORQTYUNT)):\" (\"_ORQTYUNT_\"): \",1:\": \")
\n- ITEM: OR GTX QUANTITY
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Quantity:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter if the patient is to receive this medication by mail, at the window, or in the clinic.
\n- ASK ON CONDITION: I ORCAT=\"O\"
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: I ORCAT=\"O\",$G(ORTYPE)'=\"Z\" S Y=$S($G(OREVENT):\"W\",$D(^PSX(550,\"C\")):\"M\",1:\"W\") I $D(^TMP(\"ORECALL\",$J,ORDIALOG,PROMPT,INST)) S Y=^(INST),EDITONLY=1
\n- ITEM: OR GTX ROUTING
\n- DISPLAY TEXT: Pick Up:
\n- REQUIRED: YES
\n- ASK ON ACTION: RC
\n \n
\n
\n", "", "", "", "D SC^ORCDPS3\n", "", "Medications\n", "", "", "", "D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1(\"\")\n", "D EN1^ORCDPS1\n", "dialog\n", "D EXIT^ORCDPS1\n", "PHARMACY\n", "", "", "", "", "Medications\n", "135\n", "", "", "", "ORES\n", "PHARMACY DATA MANAGEMENT\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX CANCEL FUTURE ORDERS", "", "yes/no\n", "", "CANCEL\n", "", "", "Cancel all current or future tray orders?\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX MEAL TIME", "", "free text\n", "1:10\n", "TIME\n", "", "", "Meal Time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX YES/NO", "", "yes/no\n", "", "YN\n", "", "", "Yes/No:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT OI", "", "free text\n", "", "ITEM\n", "", "", "Order:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMISC GENERAL", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.NURS
\n- WINDOWS CONTROL: cboNursing
\n- HELP MESSAGE: Enter a patient care item.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)) D:OI ORDMSG^ORCD(OI)
\n- DISPLAY TEXT: Patient Care:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the instructions for this order, up to 240 characters of text.
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 2
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "General Purpose Generic Order\n", "", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "Patient Care\n", "151\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX DELIVERY", "", "set of codes\n", "T:TRAY;C:CAFETERIA;D:DINING ROOM;B:BAGGED;\n", "DELIVERY\n", "", "", "Delivery:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX LAB URGENCY", "", "pointer\n", "62.05:EQ\n", "URGENCY\n", "", "", "Urgency:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PROVIDER 1", "", "pointer\n", "200:EQ\n", "", "", "", "Provider:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX UNITS/DOSE", "", "numeric\n", "1:30:2\n", "", "", "", "Units per Dose:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX LOCATION", "", "pointer\n", "44:EQ\n", "LOCATION\n", "", "", "Location:\n", "\nThe ward the patient is in or the clinic s/he is visiting.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX CALLHO", "", "set of codes\n", "1:Call HO on;\n", "", "", "", "Call HO on:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GTPARM PULSE GT", "", "free text\n", "1:80\n", "", "", "", "Pulse >:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GTPARM PULSE LT", "", "free text\n", "1:80\n", "", "", "", "Pulse <:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GENERIC ACTIVITY", "\n- \n
\n- \n
- SEQUENCE: 1
\n- WINDOWS CONTROL: lstSelectAct
\n- ITEM: OR GTX FREE TEXT
\n- DISPLAY TEXT: Activity:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: memComment
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n \n
\n
\n", "", "", "", "", "", "", "", "", "", "", "", "dialog\n", "", "ACTIVITY\n", "", "", "", "", "", "100\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GENERIC NURSING", "\n- \n
\n- \n
- SEQUENCE: 1
\n- WINDOWS CONTROL: cboNursing
\n- ITEM: OR GTX FREE TEXT
\n- DISPLAY TEXT: Patient Care:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: NO
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: memComment
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Comments:
\n \n
\n
\n", "", "", "", "", "", "Patient Care\n", "", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "", "150\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GENERIC VITALS", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.V/M
\n- WINDOWS CONTROL: cboMeasurement
\n- HELP MESSAGE: Enter the vital sign you wish to be taken.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Vital Sign:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 10
\n- WINDOWS CONTROL: txtTemp
\n- HELP MESSAGE: Enter critical values for temperature (fahrenheit).
\n- DEFAULT: S Y=\"101\"
\n- ITEM: OR GTPARM TEMPERATURE
\n- ORDER TEXT SEQUENCE: 8
\n- LEADING TEXT: Temp >
\n \n- \n
- SEQUENCE: 5.5
\n- WINDOWS CONTROL: chkCallHO
\n- ASK ON CONDITION: I 0
\n- DEFAULT: S Y=0
\n- ITEM: OR GTX CALLHO
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: txtStart
\n- HELP MESSAGE: Enter the date [time optional] when you wish these signs to be taken.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n \n- \n
- SEQUENCE: 3
\n- WINDOWS CONTROL: cboSchedule
\n- HELP MESSAGE: Enter either a standard administration schedule or one of your own, up to 70 characters.
\n- ITEM: OR GTX SCHEDULE
\n \n- \n
- SEQUENCE: 4
\n- WINDOWS CONTROL: txtComment
\n- HELP MESSAGE: Enter any additional instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Special Instructions:
\n \n- \n
- SEQUENCE: 5
\n- WINDOWS CONTROL: txtStop
\n- HELP MESSAGE: Enter the date [time optional] to stop taking this vital sign.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- DEFAULT: S Y=$$VAL^ORCD(\"START DATE/TIME\")
\n- ITEM: OR GTX STOP DATE/TIME
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: txtBPsys
\n- HELP MESSAGE: Enter critical values for the systolic blood pressure.
\n- DEFAULT: S Y=\"100\"
\n- ITEM: OR GTPARM BPSYS
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: BPsys <
\n- TRAILING TEXT: ,
\n \n- \n
- SEQUENCE: 7
\n- WINDOWS CONTROL: txtBPdia
\n- HELP MESSAGE: Enter the critical values for the diastolic blood pressure.
\n- DEFAULT: S Y=\"120\"
\n- ITEM: OR GTPARM BPDIAS
\n- ORDER TEXT SEQUENCE: 5
\n- LEADING TEXT: BPdia >
\n- TRAILING TEXT: ,
\n \n- \n
- SEQUENCE: 8
\n- WINDOWS CONTROL: txtPulseLT
\n- HELP MESSAGE: Enter critial values for the heart rate.
\n- DEFAULT: S Y=\"60\"
\n- ITEM: ORWD GTPARM PULSE LT
\n- ORDER TEXT SEQUENCE: 6
\n- LEADING TEXT: Pulse <
\n- TRAILING TEXT: ,
\n \n- \n
- SEQUENCE: 9
\n- WINDOWS CONTROL: txtPulseGT
\n- HELP MESSAGE: Enter critical values for the heart rate.
\n- DEFAULT: S Y=\"120\"
\n- ITEM: ORWD GTPARM PULSE GT
\n- ORDER TEXT SEQUENCE: 7
\n- LEADING TEXT: Pulse >
\n- TRAILING TEXT: ,
\n \n
\n
\n", "", "", "", "", "", "VITAL SIGNS\n", "", "", "", "", "", "dialog\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "Vitals\n", "170\n", "", "", "", "ORES\n", "GEN. MED. REC. - VITALS\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT 1", "", "free text\n", "1:240\n", "COMMENT\n", "", "", "Instructions:\n", "\nThis term gets a line of free text for generic orders.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["ORWD GENERIC DIET", "\n- \n
\n- \n
- SEQUENCE: 1
\n- WINDOWS CONTROL: regText
\n- ITEM: OR GTX FREE TEXT
\n- ORDER TEXT SEQUENCE: 1
\n- LEADING TEXT: Diet:
\n- DISPLAY TEXT: Diet:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: NO
\n \n
\n
\n", "", "", "", "", "", "Diet\n", "", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "", "115\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["LRX NEW COLLECTION TYPE", "", "", "", "", "", "", "New Collection Type\n", "", "", "", "N ORD,ORP,ORT S ORD=$$PTR^ORCD(\"LR OTHER LAB TESTS\"),ORP=$$PTR^ORCD(\"OR GTX COLLECTION TYPE\"),ORT=$$PTR^ORCD(\"OR GTX START DATE/TIME\") K ^TMP(\"ORECALL\",$J,ORD,ORP),^(ORT)\n", "", "action\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["LRX NEW TIME", "", "", "", "", "", "", "New Collection Time\n", "", "", "", "N ORD,ORP S ORD=$$PTR^ORCD(\"LR OTHER LAB TESTS\"),ORP=$$PTR^ORCD(\"OR GTX START DATE/TIME\") K ^TMP(\"ORECALL\",$J,ORD,ORP)\n", "", "action\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["LRX NEW COLLECTION METHOD", "", "", "", "", "", "", "New Collection Method\n", "", "", "", "N ORD,ORP S ORD=$$PTR^ORCD(\"LR OTHER LAB TESTS\"),ORP=$$PTR^ORCD(\"OR GTX COLLECTION TYPE\") K ^TMP(\"ORECALL\",$J,ORD,ORP)\n", "", "action\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["ZZPRE-OP", "\n- \n\n
\n", "", "", "", "", "", "Pre-Op Order Set\n", "", "", "", "", "", "order set\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["ORZ PRE-OP", "\n- \n\n
\n", "", "", "", "", "", "Pre-Op Order Set\n", "", "", "", "", "", "order set\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["PSJZ AMINOPN 1GM", "", "", "", "", "", "", "Aminophylline drip\n", "", "", "", "", "", "quick order\n", "", "IV MEDICATIONS\n", "", "", "", "", "", "", "", "", "", "", "", "YES\n", "", "2024-09-03 10:47:29\n"], ["LRTZ GLUCOSE SERUM SP TODAY", "", "", "", "", "", "", "Glucose SP Today\n", "", "", "", "", "", "quick order\n", "", "LABORATORY\n", "", "", "", "", "", "", "", "", "", "", "LAB SERVICE\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["RAZ CHEST 2 VIEWS STAT TODAY", "", "", "", "", "", "", "Stat Chest 2 views\n", "", "", "", "", "", "quick order\n", "", "GENERAL RADIOLOGY\n", "", "", "", "", "", "", "", "", "", "", "RADIOLOGY/NUCLEAR MEDICINE\n", "NO\n", "", "2024-09-03 10:47:29\n"], ["LR OTHER LAB TESTS", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.LAB
\n- WINDOWS CONTROL: lstSelectTest
\n- HELP MESSAGE: Enter a lab test to be ordered for this patient.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y D CHANGED^ORCDLR(\"OI\") K ORTEST
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: K:FIRST ORTEST
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: D CKTYP^ORCDLR Q:$G(ORQUIT) D TEST^ORCDLR ;Setup test parameters
\n- DISPLAY TEXT: Lab Test:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 9
\n- WINDOWS CONTROL: txtDays
\n- HELP MESSAGE: Enter the number of days or X_number of times to execute this order.
\n- ASK ON CONDITION: I $G(ORSCH),\"CD\"[$$LRD2^ORDDPAPI(ORSCH) ;cont or day of week only
\n- POST-SELECTION ACTION: N OK S OK=$$CKMAX^ORCDLR(Y) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
\n- ENTRY ACTION: D SHOWMAX^ORCDLR
\n- ITEM: OR GTX DURATION
\n- DISPLAY TEXT: How long:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 10
\n- ASK ON CONDITION: I 0 ; populated from patient data
\n- ITEM: OR GTX VISITSTR
\n- REQUIRED: YES
\n- PROMPT: VISITSTR
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: cboCollType
\n- HELP MESSAGE: Enter the method of collection for this sample.
\n- POST-SELECTION ACTION: D CKTYPE^ORCDLR1
\n- XECUTABLE HELP: D HELPTYPE^ORCDLR1
\n- DEFAULT: S Y=$$COLLTYPE^ORCDLR1 K:'$L(Y) Y
\n- ITEM: OR GTX COLLECTION TYPE
\n- EXIT ACTION: S ORCOLLCT=$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 6
\n- FORMAT: 1~1
\n- DISPLAY TEXT: Collected By:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- INPUT TRANSFORM: I ORCOLLCT=\"LC\",X'?1.N,\"AMNEXT\"'[$$UP^XLFSTR(X),$L(X,\".\")'>1,$L(X,\"@\")'>1 S X=X_\"@\"_$S($$DATE^ORCDLR(X)=DT:$G(ORTIME(\"NEXT\")),1:$G(ORTIME(\"AM\")))
\n- WINDOWS CONTROL: cboCollTime
\n- HELP MESSAGE: Enter the date/time the sample(s) should be collected.
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) N OK S OK=$S(ORCOLLCT=\"LC\":$$LABCOLL^ORCDLR1($P(Y,U)),ORCOLLCT=\"I\":$$IMMCOLL^ORCDLR1($P(Y,U)),1:$$CKDATE^ORCDLR1($P(Y,U))) I 'OK W $C(7),!,$P(OK,U,2) K DONE
\n- XECUTABLE HELP: D FTDHELP^ORCD D:ORCOLLCT=\"LC\" LISTCOLL^ORCDLR1,LIST^ORCD:$G(ORDIALOG(PROMPT,\"LIST\")) D:ORCOLLCT=\"I\" IMMTIMES^ORCDLR1
\n- DEFAULT: I $G(ORTYPE)'=\"Z\" S Y=$$DEFTIME^ORCDLR1 K:'$L(Y) Y
\n- ENTRY ACTION: D COLLTIME^ORCDLR1 ;,LIST^ORCD:ORCOLLCT=\"LC\"&$G(ORDIALOG(PROMPT,\"LIST\"))
\n- ITEM: OR GTX START DATE/TIME
\n- DISPLAY TEXT: Collection Date/Time:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 8
\n- INDEX: APLR
\n- WINDOWS CONTROL: cboFrequency
\n- HELP MESSAGE: Enter an administration schedule for how often this test is to be done.
\n- ASK ON CONDITION: I $G(ORTYPE)=\"Z\"!ORMAX
\n- SCREEN: I \"CDO\"[$P(^(0),U,5)
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) K ORDIALOG($$PTR^ORCD(\"OR GTX DURATION\"),ORI)
\n- XECUTABLE HELP: D XSCH^ORCDLR
\n- DEFAULT: I $G(ORTYPE)'=\"Z\",$D(LRFSCH)!ORMAX S Y=$$LRD1^ORDDPAPI S:$D(LRFSCH)&Y EDITONLY=1 K:Y'>0 Y
\n- ENTRY ACTION: I $G(ORTYPE)'=\"Z\",ORMAX'>0 K ORDIALOG(PROMPT,INST)
\n- ITEM: OR GTX ADMIN SCHEDULE
\n- EXIT ACTION: S ORSCH=+$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 8
\n- OMIT TEXT: ONE TIME
\n- DISPLAY TEXT: How often:
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: cboUrgency
\n- HELP MESSAGE: Enter the urgency of this test.
\n- ASK ON CONDITION: I $$ASKURG^ORCDLR
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: I $G(ORTYPE)'=\"Z\" S Y=+$G(ORTEST(\"Default Urgency\")) I 'Y S Y=$S($L($G(LRFURG)):LRFURG,1:$$DEFURG^LR7OR3) S:$G(LRFURG) EDITONLY=1
\n- ENTRY ACTION: D URGENCY^ORCDLR
\n- ITEM: OR GTX LAB URGENCY
\n- ORDER TEXT SEQUENCE: 4
\n- OMIT TEXT: ROUTINE
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- INDEX: B;D
\n- WINDOWS CONTROL: cboCollSamp
\n- HELP MESSAGE: Enter the sample to be collected for this test.
\n- ASK ON CONDITION: I $$ASKSAMP^ORCDLR
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=+Y N PTR S PTR=$$PTR^ORCD(\"OR GTX SPECIMEN\") K ORDIALOG(PTR,1),ORDIALOG(PTR,\"LIST\")
\n- XECUTABLE HELP: D XHELP^ORCDLR(PROMPT)
\n- DEFAULT: S Y=$$SAMPLE^ORCDLR K:Y'>0 Y
\n- ENTRY ACTION: D ENSAMP^ORCDLR
\n- ITEM: OR GTX COLLECTION SAMPLE
\n- EXIT ACTION: N ORS S ORS=+$G(ORDIALOG(PROMPT,INST)) D SHOWCOMM^ORCDLR(ORS)
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- INDEX: B;D
\n- WINDOWS CONTROL: cboSpecimen
\n- HELP MESSAGE: Enter the specimen on which this test is to be performed.
\n- ASK ON CONDITION: I '$$SPECIMEN^ORCDLR
\n- XECUTABLE HELP: D SPECHELP^ORCDLR
\n- DEFAULT: S Y=$$SPECIMEN^ORCDLR K:Y'>0 Y
\n- ITEM: OR GTX SPECIMEN
\n- ORDER TEXT SEQUENCE: 3
\n- FORMAT: =126
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- WINDOWS CONTROL: txtComment
\n- HELP MESSAGE: Enter any additional comments or instructions for this test and specimen.
\n- ASK ON CONDITION: I '$$REQDCOMM^ORCDLR
\n- ITEM: OR GTX WORD PROCESSING 1
\n- ORDER TEXT SEQUENCE: 9
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "I '$$VALID^ORCDLR1(ORIFN) S ORQUIT=1 W !!,\"Order will not be signed/released.\" H 2\n", "I '$$LB^ORCDLR(ORIFN),$G(^OR(100,ORIFN,4)) S Y=\"LB #\"_$P(^(4),\";\")\n", "Laboratory\n", "", "", "", "D EN^ORCDLR1\n", "D EN^ORCDLR1\n", "dialog\n", "D EX^ORCDLR1\n", "LABORATORY\n", "", "", "", "", "Lab Tests\n", "120\n", "", "", "", "ORES\n", "LAB SERVICE\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT", "", "free text\n", "1:240\n", "MISC\n", "", "", "Comment:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXMOVE EVENT", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: C
\n- HELP MESSAGE: Enter the movement you wish to order for this patient.
\n- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
\n- DEFAULT: S:$G(OREVT) Y=+OREVT
\n- ITEM: OR GTX EVENT
\n- EXIT ACTION: N X S X=$G(ORDIALOG(PROMPT,INST)) S:X OREVNT=+X,OREVNTYP=$P($G(^ORD(100.5,+X,0)),U,2)
\n- ORDER TEXT SEQUENCE: 1
\n- FORMAT: 8~8
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the location this patient is expected to be moved to.
\n- SCREEN: I $$ACTLOC^ORWU(Y)
\n- DEFAULT: S Y=+$P($G(^ORD(100.5,+$G(OREVNT),0)),U,9) K:Y<1 Y
\n- ITEM: OR GTX LOCATION
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: Location:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Expected Location:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the attending provider for this patient.
\n- ASK ON CONDITION: I \"AT\"[$G(OREVNTYP)
\n- ITEM: OR GTX PROVIDER
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: Attending:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Attending:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 6
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- INDEX: AK.PROVIDER
\n- HELP MESSAGE: Enter the primary provider for this patient.
\n- ASK ON CONDITION: I \"AT\"[$G(OREVNTYP)
\n- ITEM: OR GTX PROVIDER 1
\n- ORDER TEXT SEQUENCE: 5
\n- LEADING TEXT: Primary:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Primary:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the treating specialty this patient is to be assigned to.
\n- ASK ON CONDITION: I \"AT\"[$G(OREVNTYP)
\n- SCREEN: I $$ACTIVE^DGACT(45.7,Y)
\n- XECUTABLE HELP: D XHELP^ORCDADT(PROMPT)
\n- DEFAULT: I $G(OREVNT) S Y=$$DEFTS^ORCDADT(OREVNT) K:Y<1 Y
\n- ENTRY ACTION: D ENTS^ORCDADT(OREVNT)
\n- ITEM: OR GTX TREATING SPECIALTY
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: Specialty:
\n- START NEW LINE: YES
\n- ASK ON ACTION: C
\n \n
\n
\n", "", "", "", "", "", "Move Patient\n", "\nThis allows a patient movement to be requested as a generic order (does\nnot interact directly with the MAS package).\n
\n\n", "", "", "", "", "dialog\n", "K OREVNT,OREVNTYP\n", "M.A.S.\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX EVENT", "", "pointer\n", "100.5:EQS\n", "EVENT\n", "", "", "Event:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX MEAL", "", "set of codes\n", "B:BREAKFAST;N:NOON;E:EVENING;\n", "MEAL\n", "", "", "Meal:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX TRAY TYPE", "", "set of codes\n", "E:EARLY;L:LATE;\n", "", "", "", "Tray Type:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHW1", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.DO
\n- HELP MESSAGE: Enter a diet to be ordered for this patient; a maximum of 5 modifications are allowed.
\n- SPECIAL LOOKUP ROUTINE: LKUP;ORCDFH1
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: K:'$$VALID^ORCDFH1 DONE I $G(DONE) D ORDMSG^ORCD(+Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ENTRY ACTION: I FIRST,'$O(ORDIALOG(PROMPT,0)) D RECENT^ORCDFH1 I $G(ORDIALOG(PROMPT,\"LIST\")) W !,\"Choose a diet this patient has previously received (top is most recent),\",!,\"or enter another: \" D LIST1^ORCD
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORNPO=($P($G(^ORD(101.43,OI,0)),U)=\"NPO\"),ORTRAIL=$S('ORNPO:\"Diet\",1:\"\") D PREV^ORCDFH1
\n- ORDER TEXT SEQUENCE: 1
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Diet:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- MAX NUMBER OF MULTIPLES: 5
\n- TITLE: Diet:
\n \n- \n
- SEQUENCE: 2
\n- INPUT TRANSFORM: D:$L(X) CNV^ORCDFH1
\n- HELP MESSAGE: Enter the date/time for this order to take effect.
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($D(ORSTRT):ORSTRT,1:\"NOW\")
\n- ENTRY ACTION: N X S X=$P(ORDIALOG(PROMPT,0),U,2),$P(X,\":\",3)=\"ETRX\",$P(ORDIALOG(PROMPT,0),U,2)=X I $G(ORTYPE)=\"Q\",FIRST S X=$G(ORDIALOG(PROMPT,INST)) I $L(X) D CNV^ORCDFH1 S ORDIALOG(PROMPT,INST)=$G(X)
\n- ITEM: OR GTX START DATE/TIME
\n- EXIT ACTION: I $G(ORNPO) N X S X=$G(ORDIALOG(PROMPT,INST)),X=$$FMTIME^ORCDFH(X),ORTRAIL=$S(X=.24:\"at MIDNIGHT\",1:\"\")
\n- DISPLAY TEXT: Effective date/time:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time for this order to expire.
\n- ASK ON CONDITION: I 0
\n- POST-SELECTION ACTION: I '$$FTDCOMP^ORCD(\"EFFECTIVE DATE/TIME\",\"EXPIRATION DATE/TIME\",\"<\") K DONE W $C(7),!,\"Cannot end before effective date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- EXIT ACTION: Q S ORSTRT=$G(ORDIALOG(PROMPT,INST)),ASK=$S($L(ORSTRT):2,1:0) K:'ASK ORSTRT
\n- DISPLAY TEXT: Expiration date/time:
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the method of delivery of this diet.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1,'$G(ORNPO)
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" ORDIALOG(PROMPT,INST)=$E($G(ORPARAM(3)))
\n- ENTRY ACTION: D DELIVERY^ORCDFH
\n- ITEM: OR GTX DELIVERY
\n- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
\n- DISPLAY TEXT: Delivery:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter any special instructions for this order, up to 80 characters.
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)=\"1:80\"
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Special Instructions:
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter NO to continue the current tubefeeding order along with this diet order, or YES to cancel it.
\n- ASK ON CONDITION: I 0 ;'$G(ORNPO),$$CURRENT^ORCDFH(\"TF\"),'$$FUTURE^ORCDFH(\"EFFECTIVE DATE/TIME\")
\n- ITEM: OR GTX CANCEL FUTURE ORDERS
\n- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
\n- DISPLAY TEXT: Cancel the current tubefeeding order?
\n- TITLE: Cancel Tubefeeding order:
\n- ASK ON ACTION: W
\n \n
\n
\n", "", "", "", "D LATETRAY^ORCDFH\n", "", "Diet Order\n", "", "", "", "D EN^ORCDFH W:$G(ORWARD) !!,\"Current Diet: \"_$$DIET^ORCDFH(+ORVP),! D CKFUTURE^ORCDFH\n", "D:$G(ORVP) EN^ORCDFH I '$G(ORVP) S ORPARAM(3)=\"TCD\",ORDIALOG($$PTR^ORCD(\"OR GTX DELIVERY\"),\"LIST\")=3\n", "dialog\n", "D:'($G(ORNPO)!$G(ORQUIT)) CANCEL^ORCDFHTF D EX^ORCDFH K ORSTRT\n", "DIET ORDERS\n", "", "", "", "", "Diet\n", "117\n", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX STOP DATE/TIME", "", "free text date/time\n", "NOW::ETX\n", "STOP\n", "", "", "Stop Date/Time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT 2", "", "free text\n", "1:80\n", "", "", "", "(2nd line):\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT 3", "", "free text\n", "1:80\n", "", "", "", "(3rd line):\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX FREE TEXT 4", "", "free text\n", "1:80\n", "", "", "", "(4th line):\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX COLLECTION TYPE", "", "set of codes\n", "SP:Send patient to lab;WC:Ward collect & deliver;LC:Lab blood team;I:Immediate collect by blood team\n", "COLLECT\n", "", "", "Collected By:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ADMIN SCHEDULE", "", "pointer\n", "51.1:EQ\n", "SCHEDULE\n", "", "", "Schedule:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR ADD MENU CLINICIAN", "\n- \n
\n- \n
- SEQUENCE: 1.1
\n- ITEM: OR GMENU ORDER SETS
\n- MNEMONIC: 0
\n- DISPLAY TEXT: ORDER SETS...
\n- DISPLAY ONLY?: NO
\n \n- \n
- SEQUENCE: 11.1
\n- ITEM: OR GXPARM CALL HO ON
\n- MNEMONIC: 14
\n- DISPLAY TEXT: Call HO on
\n \n- \n
- SEQUENCE: 13.1
\n- ITEM: OR GMENU ACTIVITY ORDERS
\n- MNEMONIC: 20
\n- DISPLAY TEXT: ACTIVITY...
\n \n- \n
- SEQUENCE: 14.1
\n- ITEM: OR GXACTV AD LIB
\n- MNEMONIC: 21
\n- DISPLAY TEXT: Ad Lib
\n- DISPLAY ONLY?: NO
\n \n- \n
- SEQUENCE: 15.1
\n- ITEM: OR GXACTV BED REST / BRP
\n- MNEMONIC: 23
\n- DISPLAY TEXT: Bed Rest / BRP
\n \n- \n
- SEQUENCE: 16.1
\n- ITEM: OR GXACTV AMBULATE TID
\n- MNEMONIC: 24
\n- DISPLAY TEXT: Ambulate TID
\n \n- \n
- SEQUENCE: 17.1
\n- ITEM: OR GXACTV UP IN CHAIR TID
\n- MNEMONIC: 25
\n- DISPLAY TEXT: Up in Chair TID
\n \n- \n
- SEQUENCE: 1.2
\n- ITEM: OR GMENU PATIENT CARE ORDERS
\n- MNEMONIC: 30
\n- DISPLAY TEXT: PATIENT CARE...
\n \n- \n
- SEQUENCE: 2.2
\n- ITEM: OR GXTUBE CONDOM CATHETER
\n- MNEMONIC: 31
\n- DISPLAY TEXT: Condom Catheter
\n \n- \n
- SEQUENCE: 3.2
\n- ITEM: OR GXNURS GUAIAC STOOLS
\n- MNEMONIC: 32
\n- DISPLAY TEXT: Guaiac Stools
\n \n- \n
- SEQUENCE: 4.2
\n- ITEM: OR GXRESP INCENTIVE SPIROMETER
\n- MNEMONIC: 33
\n- DISPLAY TEXT: Incentive Spirometer
\n- DISPLAY ONLY?: NO
\n \n- \n
- SEQUENCE: 2.1
\n- ITEM: OR GXMOVE PATIENT MOVEMENT
\n- MNEMONIC: 1
\n- DISPLAY TEXT: Patient Movement
\n \n- \n
- SEQUENCE: 5.2
\n- ITEM: OR GXSKIN DRESSING CHANGE
\n- MNEMONIC: 34
\n- DISPLAY TEXT: Dressing Change
\n \n- \n
- SEQUENCE: 7.2
\n- ITEM: FHWMENU
\n- MNEMONIC: 40
\n- DISPLAY TEXT: DIETETICS...
\n \n- \n
- SEQUENCE: 8.2
\n- MNEMONIC: 41
\n- DISPLAY TEXT: Regular Diet
\n \n- \n
- SEQUENCE: 9.2
\n- ITEM: FHW8
\n- MNEMONIC: 42
\n- DISPLAY TEXT: Tubefeeding
\n \n- \n
- SEQUENCE: 10.2
\n- ITEM: FHWN2
\n- MNEMONIC: 43
\n- DISPLAY TEXT: NPO at Midnight
\n \n- \n
- SEQUENCE: 12.2
\n- ITEM: PSJI OR PAT FLUID OE
\n- MNEMONIC: 50
\n- DISPLAY TEXT: IV FLUIDS...
\n \n- \n
- SEQUENCE: 13.2
\n- ITEM: PSO OERR
\n- MNEMONIC: 51
\n- DISPLAY TEXT: OUTPATIENT MEDS...
\n \n- \n
- SEQUENCE: 14.2
\n- ITEM: PSJ OR PAT OE
\n- MNEMONIC: 55
\n- DISPLAY TEXT: INPATIENT MEDS...
\n \n- \n
- SEQUENCE: 16.2
\n- ITEM: RA OERR EXAM
\n- MNEMONIC: 60
\n- DISPLAY TEXT: IMAGING ...
\n \n- \n
- SEQUENCE: 17.2
\n- MNEMONIC: 61
\n- DISPLAY TEXT: Chest 2 views PA&LAT
\n \n- \n
- SEQUENCE: 3.1
\n- ITEM: OR GWDIAG DIAGNOSIS
\n- MNEMONIC: 2
\n- DISPLAY TEXT: Diagnosis
\n \n- \n
- SEQUENCE: 1.3
\n- ITEM: LR OTHER LAB TESTS
\n- MNEMONIC: 70
\n- DISPLAY TEXT: LABORATORY...
\n \n- \n
- SEQUENCE: 2.3
\n- MNEMONIC: 71
\n- DISPLAY TEXT: Chem 7
\n \n- \n
- SEQUENCE: 3.3
\n- MNEMONIC: 72
\n- DISPLAY TEXT: T&S
\n \n- \n
- SEQUENCE: 4.3
\n- MNEMONIC: 73
\n- DISPLAY TEXT: Glucose
\n \n- \n
- SEQUENCE: 5.3
\n- MNEMONIC: 74
\n- DISPLAY TEXT: CBC w/Diff
\n \n- \n
- SEQUENCE: 6.3
\n- MNEMONIC: 75
\n- DISPLAY TEXT: PT
\n \n- \n
- SEQUENCE: 7.3
\n- MNEMONIC: 76
\n- DISPLAY TEXT: PTT
\n \n- \n
- SEQUENCE: 8.3
\n- MNEMONIC: 77
\n- DISPLAY TEXT: CPK
\n \n- \n
- SEQUENCE: 9.3
\n- MNEMONIC: 78
\n- DISPLAY TEXT: CPK
\n \n- \n
- SEQUENCE: 10.3
\n- MNEMONIC: 79
\n- DISPLAY TEXT: LDH
\n \n- \n
- SEQUENCE: 4.1
\n- ITEM: OR GWCOND CONDITION
\n- MNEMONIC: 3
\n- DISPLAY TEXT: Condition
\n \n- \n
- SEQUENCE: 11.3
\n- MNEMONIC: 80
\n- DISPLAY TEXT: Urinalysis
\n \n- \n
- SEQUENCE: 12.3
\n- MNEMONIC: 81
\n- DISPLAY TEXT: Culture & Suscept
\n \n- \n
- SEQUENCE: 14.3
\n- ITEM: OR GMENU OTHER ORDERS
\n- MNEMONIC: 90
\n- DISPLAY TEXT: OTHER ORDERS...
\n \n- \n
- SEQUENCE: 15.3
\n- MNEMONIC: 91
\n- DISPLAY TEXT: EKG: Portable
\n \n- \n
- SEQUENCE: 17.3
\n- ITEM: OR GXTEXT WORD PROCESSING ORDER
\n- MNEMONIC: 99
\n- DISPLAY TEXT: Text Only Order
\n \n- \n
- SEQUENCE: 5.1
\n- ITEM: GMRAOR ALLERGY ENTER/EDIT
\n- MNEMONIC: 4
\n- DISPLAY TEXT: Allergies
\n \n- \n
- SEQUENCE: 7.1
\n- ITEM: GMRVORMENU
\n- MNEMONIC: 10
\n- DISPLAY TEXT: PARAMETERS...
\n \n- \n
- SEQUENCE: 8.1
\n- ITEM: GMRVORTPR B/P
\n- MNEMONIC: 11
\n- DISPLAY TEXT: TPR B/P
\n \n- \n
- SEQUENCE: 9.1
\n- ITEM: GMRVORWT
\n- MNEMONIC: 12
\n- DISPLAY TEXT: Weight
\n \n- \n
- SEQUENCE: 10.1
\n- ITEM: OR GXPARM I AND O
\n- MNEMONIC: 13
\n- DISPLAY TEXT: I & O
\n \n
\n
\n", "", "", "", "", "", "Add New Orders\n", "\nThis is the default Add Orders menu exported with OE/RR V3.\n
\n\n", "", "", "", "", "menu\n", "", "", "", "26\n", "3\n", "YES\n", "", "", "", "", "", "ORES\n", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX UNITS", "", "set of codes\n", "ML:ML;LITER:LITER;MCG:MCG;MG:MG;GM:GM;UNITS:UNITS;IU:IU;MEQ:MEQ;MM:MM;MU:MU;THOUU:THOUU;MG-PE:MG-PE;NANOGRAM:NANOGRAM;MMOL:MMOL;\n", "UNITS\n", "", "", "Units:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHW7", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INPUT TRANSFORM: K:X?1.\" \" X W:'$D(X) !,\"Use of spaces only not allowed!\"
\n- HELP MESSAGE: Enter the text of this diet order, up to 80 characters.
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),\"^\",2)=\"1:80\"
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 1
\n- LEADING TEXT: Additional Diet Order:
\n- DISPLAY TEXT: Additional Orders:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date/time for this order to take effect.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORDIALOG(PROMPT,\"LIST\"))
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D DATES^ORCDFHTF I FIRST,$G(ORDIALOG(PROMPT,\"LIST\")) D LIST^ORCD
\n- ITEM: OR GTX DATE/TIME
\n- DISPLAY TEXT: Start Time:
\n- REQUIRED: YES
\n- ASK ON ACTION: CW
\n \n
\n
\n", "", "", "", "", "", "Additional Orders\n", "", "", "", "D EN^ORCDFH\n", "S ORCAT=\"\"\n", "dialog\n", "D EX^ORCDFH\n", "DIET ADDITIONAL ORDERS\n", "", "", "", "", "", "117\n", "", "", "", "NONE\n", "DIETETICS\n", "", "", "2024-09-03 10:47:29\n"], ["FHW2", "\n- \n
\n- \n
- SEQUENCE: 1
\n- HELP MESSAGE: Enter the date to begin delivery of this tray, up to 30 days ahead.
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),\":\",2)=\"T+30\" D:ORCAT=\"O\" ENDT^ORCDFHO
\n- ITEM: OR GTX START DATE
\n- EXIT ACTION: N X,Y,%DT S X=$G(ORDIALOG(PROMPT,INST)),%DT=\"X\" I $L(X) D ^%DT S:Y>0 ORDATE=$P(Y,\".\") D:ORCAT=\"O\" EXDT^ORCDFHO(X)
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date to end delivery of this tray, up to 30 days ahead.
\n- ASK ON CONDITION: I ORCAT'=\"O\"
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE\",\"END DATE\",\">\") K DONE W $C(7),!,\"Cannot end before start date!\",!
\n- DEFAULT: S Y=$$VAL^ORCD(\"START DATE\")
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),\":\",2)=\"T+30\"
\n- ITEM: OR GTX STOP DATE
\n- DISPLAY TEXT: End Date:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the meal for delivery of this tray.
\n- ASK ON CONDITION: I ORCAT'=\"O\"
\n- POST-SELECTION ACTION: I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) K ORDIALOG($$PTR^ORCD(\"OR GTX ORDERABLE ITEM\"),1),ORDIALOG($$PTR^ORCD(\"OR GTX MEAL TIME\"),1)
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ITEM: OR GTX MEAL
\n- EXIT ACTION: S ORMEAL=$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: for
\n- TRAILING TEXT: meal
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 5
\n- INDEX: S.E/L T
\n- HELP MESSAGE: Select the type of tray to be delivered, either EARLY or LATE.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: Q:$$NOTIMES^ORCDFH(ORMEAL,+Y) I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) K ORDIALOG($$PTR^ORCD(\"OR GTX MEAL TIME\"),1)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: S ORTRAY=+$G(ORDIALOG(PROMPT,INST))
\n- DISPLAY TEXT: Early or Late:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the desired delivery time for this tray.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1
\n- POST-SELECTION ACTION: D CKTIME^ORCDFH I '$G(DONE) W !,ORDIALOG(PROMPT,\"?\") D LIST^ORCD
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: D MEALS^ORCDFH N TOT S TOT=+$G(ORDIALOG(PROMPT,\"LIST\")) S:TOT=1 Y=$P(ORDIALOG(PROMPT,\"LIST\",$O(ORDIALOG(PROMPT,\"LIST\",\"\"))),U,2) D:TOT>1 LIST^ORCD
\n- ITEM: OR GTX MEAL TIME
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- INPUT TRANSFORM: S X=$$UP^XLFSTR(X)
\n- HELP MESSAGE: Enter the days of the week to deliver this tray, e.g. MWF; choose from (M)onday, (T)uesday, (W)ednesday, Thu(R)sday, (F)riday, (S)aturday, and Sunday(X).
\n- ASK ON CONDITION: I ORCAT'=\"O\",$$FTDCOMP^ORCD(\"END DATE\",\"START DATE\",\">\")
\n- POST-SELECTION ACTION: I '$$SCHEDOK^ORCDFH(ORDIALOG(PROMPT,ORI)) K DONE W $C(7),!,ORDIALOG(PROMPT,\"?\"),!
\n- ITEM: OR GTX SCHEDULE
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: every
\n- DISPLAY TEXT: Days of Week:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter YES if this meal is to be bagged.
\n- ASK ON CONDITION: I $P($G(ORPARAM(2)),U,10)=\"Y\"
\n- ITEM: OR GTX YES/NO
\n- DISPLAY TEXT: Bagged Meal:
\n \n
\n
\n", "", "", "", "", "", "Early/Late Tray\n", "", "", "", "D EN^ORCDFH,EN2^ORCDFH\n", "S ORCAT=\"\"\n", "dialog\n", "D EX^ORCDFH K ORMEAL,ORTRAY,ORDATE\n", "EARLY/LATE TRAYS\n", "", "", "", "", "", "117\n", "", "", "", "NONE\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["FHW8", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.TF
\n- HELP MESSAGE: Enter the product to be administered.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: D ORDMSG^ORCD(+Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- ORDER TEXT SEQUENCE: 1
\n- LEADING TEXT: Tubefeeding:
\n- DISPLAY TEXT: Product:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: YES
\n- MAX NUMBER OF MULTIPLES: 5
\n- TITLE: Tubefeeding:
\n \n- \n
- SEQUENCE: 1.1
\n- PARENT: OR GTX ORDERABLE ITEM
\n- HELP MESSAGE: Enter the strength of the product to be given.
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S Y=4
\n- ITEM: OR GTX STRENGTH FH
\n- TRAILING TEXT: strength
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 1.2
\n- PARENT: OR GTX ORDERABLE ITEM
\n- HELP MESSAGE: Enter quantity as 2000 K, 100 ML/HOUR, 8 OZ/TID, etc; total quantity may not exceed 5000ml.
\n- POST-SELECTION ACTION: D QUANTITY^ORCDFHTF I '$G(DONE) W $C(7),!,ORDIALOG(PROMPT,\"?\"),!
\n- XECUTABLE HELP: D QUANHELP^ORCDFHTF
\n- ITEM: OR GTX INSTRUCTIONS
\n- DISPLAY TEXT: Quantity:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter NO to continue the current diet order during this tubefeeding; YES will cancel the diet and any early or late trays already ordered.
\n- ASK ON CONDITION: I 0
\n- ITEM: OR GTX CANCEL FUTURE ORDERS
\n- TITLE: Cancel tray orders:
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date/time for this order to take effect.
\n- ASK ON CONDITION: I ORCAT=\"O\",$G(ORDIALOG(PROMPT,\"LIST\"))
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D DATES^ORCDFHTF I FIRST,$G(ORDIALOG(PROMPT,\"LIST\")) D LIST^ORCD
\n- ITEM: OR GTX DATE/TIME
\n- DISPLAY TEXT: Start Time:
\n- REQUIRED: YES
\n- ASK ON ACTION: CW
\n \n
\n
\n", "", "", "", "", "", "Tubefeeding\n", "", "", "", "D EN^ORCDFHTF\n", "S ORCAT=\"\"\n", "dialog\n", "D EX^ORCDFHTF\n", "TUBEFEEDINGS\n", "", "", "", "", "", "117\n", "", "", "YES\n", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX STRENGTH FH", "", "set of codes\n", "1:1/4;2:1/2;3:3/4;4:FULL;\n", "STRENGTH\n", "", "", "Strength:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX CONJUNCTION", "", "set of codes\n", "a:and;t:then;\n", "", "", "", "And/Then:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHW4", "", "", "", "", "", "", "NPO\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "DIET ORDERS\n", "", "", "", "", "NPO\n", "117\n", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["FHWN1", "", "", "", "", "", "", "NPO Now\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "DIET ORDERS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["FHWN2", "", "", "", "", "", "", "NPO at Midnight\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "DIET ORDERS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX STRENGTH", "", "free text\n", "", "STRENGTH\n", "", "", "Strength:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SIG", "", "word processing\n", "", "SIG\n", "", "", "Sig:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DOSE", "", "free text\n", "1:80\n", "DOSE\n", "", "", "Dose:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX DAYS SUPPLY", "", "numeric\n", "1:9999\n", "SUPPLY\n", "", "", "Days Supply:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX AND/THEN", "", "set of codes\n", "A:AND;T:THEN;X:EXCEPT;\n", "CONJ\n", "", "", "And/then/except:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["GMRVORTPR", "", "", "", "", "", "", "TPR\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["SD RTC", "\n- \n
\n- \n
- SEQUENCE: 1
\n- SCREEN: I $$VALCLINC^ORCDSD(Y)
\n- ITEM: OR GTX LOCATION
\n- EXIT ACTION: S ORCLOC=$G(ORDIALOG(PROMPT,INST))
\n- ORDER TEXT SEQUENCE: 5
\n- LEADING TEXT: Return to
\n- DISPLAY TEXT: Clinic Location:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: NO
\n \n- \n
- SEQUENCE: 8
\n- HELP MESSAGE: Select Yes if this order is a time sensitive order.
\n- ITEM: OR GTX YES/NO
\n- EXIT ACTION: S ORSDTISE=$G(ORDIALOG(PROMPT,INST))
\n- DISPLAY TEXT: Time sensitive:
\n- REQUIRED: YES
\n- MULTIPLE VALUED: NO
\n \n- \n
- SEQUENCE: 10
\n- POST-SELECTION ACTION: Q:$G(ORTYPE)'=\"Z\" I $G(ORDIALOG(PROMPT,INST))'[\"T\" K DONE W $C(7),!,\"Response must be relative date (e.g. TODAY, T+7D, T+3M)\"
\n- ITEM: OR GTX CLINICALLY INDICATED DATE
\n- EXIT ACTION: S ORLEAD=\"on or around (\",ORTRAIL=\")\" S:$G(ORSDTISE)=\"1\" ORLEAD=\"on or before \",ORTRAIL=\"\"
\n- ORDER TEXT SEQUENCE: 15
\n- LEADING TEXT: @ORLEAD
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Return to clinic date:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 20
\n- POST-SELECTION ACTION: S ORSDNAPT=$G(ORDIALOG(PROMPT,INST))
\n- DEFAULT: S Y=1
\n- ITEM: OR GTX APPT NUM
\n- EXIT ACTION: I +$G(ORDIALOG(PROMPT,INST))=1 S ORDIALOG($$PTR^ORCD(\"OR GTX SCH INTERVAL\"),INST)=\"\"
\n- ORDER TEXT SEQUENCE: 20
\n- LEADING TEXT: for a total of
\n- TRAILING TEXT: appointment(s)
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Number of Appointments:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 20.5
\n- INPUT TRANSFORM: I +$$VAL^ORCD(\"NUMBER OF APPOINTMENTS\")>1,X<1 K X
\n- HELP MESSAGE: Select an interval between 1 and 30
\n- ASK ON CONDITION: I +$$VAL^ORCD(\"NUMBER OF APPOINTMENTS\")>1 S REQD=1
\n- ITEM: OR GTX SCH INTERVAL
\n- ORDER TEXT SEQUENCE: 30
\n- LEADING TEXT: with a frequency of every
\n- TRAILING TEXT: day(s)
\n- DISPLAY TEXT: Interval:
\n \n- \n
- SEQUENCE: 30
\n- INPUT TRANSFORM: D PREREQV^ORCDSD
\n- ASK ON CONDITION: I $$PREREQN^ORCDSD()>0
\n- XECUTABLE HELP: D PREREQH^ORCDSD
\n- ITEM: OR GTX PRE REQ
\n- ORDER TEXT SEQUENCE: 35
\n- LEADING TEXT: Prerequisites:
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Prerequisites:
\n- REQUIRED: NO
\n- MULTIPLE VALUED: YES
\n- MAX NUMBER OF MULTIPLES: 99
\n \n- \n
- SEQUENCE: 40
\n- INPUT TRANSFORM: I X[U W !,\"Comment cannot contain an ^ character.\" K X
\n- ITEM: OR GTX SD COMMENT
\n- ORDER TEXT SEQUENCE: 45
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Comments:
\n \n
\n
\n", "", "", "", "", "", "Return To Clinic\n", "", "", "", "", "", "dialog\n", "K ORSDTISE,ORLEAD,ORTRAIL\n", "CLINIC SCHEDULING\n", "", "", "", "", "", "175\n", "", "", "", "ORELSE\n", "SCHEDULING\n", "YES\n", "NO\n", "2024-09-03 10:47:29\n"], ["OR GTX SCH INTERVAL", "", "numeric\n", "0:30\n", "SDINT\n", "", "", "Interval\n", "\nThis provide the user to determine the frequency a patient should be see \nwhen ordering multiple follow-up appointment.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX APPT NUM", "", "numeric\n", "1:60:0\n", "SDNUM\n", "", "", "Number of Appointments\n", "\nThis prompt set the number of appointment.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PRE REQ", "", "free text\n", "3:30\n", "PREREQ\n", "", "", "Prerequisites\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX ORDERABLE ITEM", "", "pointer\n", "101.43:EQSC\n", "ORDERABLE\n", "", "", "Orderable Item:\n", "\nThe service item the ordering provider is ordering.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORTPR B/P", "", "", "", "", "", "", "TPR B/P\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORPULSE", "", "", "", "", "", "", "PULSE\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORB/P", "", "", "", "", "", "", "B/P\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SPECIMEN SUBMITTED BY", "", "free text\n", "1:50\n", "SPCSUBMIT\n", "", "", "Specimen Submitted by:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SURGEON/PROVIDER", "", "pointer\n", "200:EQ\n", "SURGPROV\n", "", "", "Surgeon/Provider:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX CLINICAL HISTORY", "", "word processing\n", "", "CLINHX\n", "", "", "Clinical History:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX PRE OPERATIVE DIAGNOSIS", "", "word processing\n", "", "PREOPDX\n", "", "", "Pre Operative Diagnosis:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX POST OPERATIVE FINDINGS", "", "word processing\n", "", "POSTOPDX\n", "", "", "Post Operative Findings:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX OPERATIVE FINDINGS", "", "word processing\n", "", "OPFIND\n", "", "", "Operative Findings:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX INDICATION", "", "free text\n", "3:40\n", "INDICATION\n", "", "", "Indication:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["GMRVORADMIT V/M", "", "", "", "", "", "", "TPR-B/P-Ht.-Wt.\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORWT", "", "", "", "", "", "", "WEIGHT\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORTEMP", "", "", "", "", "", "", "TEMPERATURE\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORRESP", "", "", "", "", "", "", "RESPIRATION\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVORHT", "", "", "", "", "", "", "HEIGHT\n", "", "\n- \n\n
\n", "", "", "", "quick order\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["GMRVOR", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.V/M
\n- HELP MESSAGE: Enter the vital sign you wish to be taken.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)) D:OI ORDMSG^ORCD(OI)
\n- DISPLAY TEXT: Vital Sign:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date [time optional] when you wish these signs to be taken.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter either a standard administration schedule or one of your own, up to 70 characters.
\n- ITEM: OR GTX SCHEDULE
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Special Instructions:
\n- ASK ON ACTION: RC
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date [time optional] to stop taking this vital sign.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- DEFAULT: S Y=$$VAL^ORCD(\"START DATE/TIME\")
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "VITAL SIGNS\n", "", "", "", "", "", "dialog\n", "", "VITALS/MEASUREMENTS\n", "", "", "", "", "Vitals\n", "171\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTEXT WORD PROCESSING ORDER", "\n- \n
\n- \n
- SEQUENCE: 1
\n- WINDOWS CONTROL: memTextOrder
\n- HELP MESSAGE: Enter a free text order.
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "Word Processing Order\n", "\nThis is a free text order. It uses Fileman word processing to allow \nmultiple line input.\n
\n\n", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "Text Only Order\n", "999\n", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "YES\n", "2024-09-03 10:47:29\n"], ["OR GTX MODIFIERS", "", "pointer\n", "71.2:EQ\n", "MODIFIER\n", "", "", "Modifiers:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXTEXT TEXT ONLY ORDER", "\n- \n
\n- \n
- SEQUENCE: 1
\n- HELP MESSAGE: Enter a free text order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "Text Only Order\n", "\nThis is a free text only order. It uses DIR to allow only a single line of\ninput.\n
\n\n", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["GMRCOR CONSULT", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.CSLT
\n- WINDOWS CONTROL: cboService
\n- HELP MESSAGE: Select the service/specialty consultation you wish to request for this patient.
\n- ASK ON CONDITION: I $G(ORTYPE)'=\"Q\",'$D(OREDIT),'$G(OREWRITE)
\n- SCREEN: I $$ACTIVE^ORDD43(Y),$D(^TMP(\"GMRCS\",$J,+$P(^(0),U,2)))
\n- POST-SELECTION ACTION: I $G(ORESET)'=+Y D CKSERV^ORCDGMRC K GMRCREAF
\n- XECUTABLE HELP: D LISTSERV^ORCDGMRC(1)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORSERV=+$P($G(^ORD(101.43,OI,0)),U,2) D:ORSERV SERVMSG^ORCDGMRC
\n- ORDER TEXT SEQUENCE: 2
\n- TRAILING TEXT: Cons
\n- DISPLAY TEXT: Consult to Service/Specialty:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4.5
\n- WINDOWS CONTROL: calClinicallyIndicated
\n- HELP MESSAGE: Enter the clinically indicated date for this consult to be performed.
\n- WINDOWS DEFAULT: S Y=$$GET^XPAR(\"DIV^SYS^PKG\",\"ORCDGMRC CLIN IND DATE DEFAULT\",1,\"Q\")
\n- ASK ON CONDITION: Q:'$G(ORSERV) I $G(^GMR(123.5,ORSERV,\"INT\"))'=1
\n- POST-SELECTION ACTION: D CID^ORCDGMRC
\n- DEFAULT: Q:'$G(ORSERV) S:$G(^GMR(123.5,ORSERV,\"INT\"))'=1 Y=$$GET^XPAR(\"DIV^SYS^PKG\",\"ORCDGMRC CLIN IND DATE DEFAULT\",1,\"Q\")
\n- ITEM: OR GTX CLINICALLY INDICATED DATE
\n- EXIT ACTION: N X,Y,%DT S X=$G(ORDIALOG(PROMPT,INST)),%DT=\"X\" I $L(X) D ^%DT S:Y>0 ORDATE=$P(Y,\".\")
\n- DISPLAY TEXT: Clinically Indicated Date:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 8
\n- ASK ON CONDITION: I $G(ORTYPE)'=\"Z\"
\n- ITEM: OR GTX DST ID
\n \n- \n
- SEQUENCE: 10
\n- ASK ON CONDITION: I $G(ORTYPE)'=\"Z\"
\n- ITEM: OR GTX DST STATUS MSG
\n \n- \n
- SEQUENCE: 2
\n- WINDOWS CONTROL: memReason
\n- HELP MESSAGE: Enter a brief description of why this consult is being requested.
\n- ASK ON CONDITION: I $G(ORTYPE)=\"Z\"!'$G(GMRCREAF)!($G(GMRCREAF)=1&'FIRST)
\n- DEFAULT: D REASON^ORCDGMRC
\n- ENTRY ACTION: S:'$D(GMRCREAF) GMRCREAF=$$REAF^GMRCDRFR(+$G(ORSERV))
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Reason for Request:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- WINDOWS CONTROL: refCategory
\n- HELP MESSAGE: Enter if the service rendered will be on an inpatient or outpatient basis.
\n- POST-SELECTION ACTION: I $G(ORESET)'=\"\",ORESET'=$P(Y,U) D CHANGED^ORCDGMRC(\"CAT\")
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$INPT^ORCD:\"I\",1:\"O\")
\n- ENTRY ACTION: S ORDIALOG(PROMPT,0)=$P(ORDIALOG(PROMPT,0),\";\",1,2) ;I or O only
\n- ITEM: OR GTX CATEGORY
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4
\n- INDEX: S.GMRCT
\n- WINDOWS CONTROL: cboUrgency
\n- HELP MESSAGE: Select the urgency indicating how quickly results from this consult are needed.
\n- DEFAULT: S Y=9
\n- ENTRY ACTION: D URGENCY^ORCDGMRC(\"C\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 4
\n- OMIT TEXT: ROUTINE
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 5
\n- WINDOWS CONTROL: cboPlace
\n- HELP MESSAGE: Select the preferred place to see the patient for this consult.
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$VAL^ORCD(\"CATEGORY\")=\"I\":\"B\",1:\"C\")
\n- ENTRY ACTION: D PLACE^ORCDGMRC
\n- ITEM: OR GTX PLACE OF CONSULTATION
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- WINDOWS CONTROL: txtAttn
\n- HELP MESSAGE: Enter the service/specialty user who is to be notified of this request.
\n- ASK ON CONDITION: I '$G(GMRCNOAT)
\n- SCREEN: N ORT S ORT=$P(^(0),U,11) I 'ORT!(ORT>DT)
\n- ITEM: OR GTX PROVIDER
\n- DISPLAY TEXT: Attention:
\n \n- \n
- SEQUENCE: 7
\n- WINDOWS CONTROL: txtProvDiag
\n- HELP MESSAGE: Enter a preliminary diagnosis relating to this request, up to 240 characters.
\n- ASK ON CONDITION: I '$G(GMRCNOPD)
\n- POST-SELECTION ACTION: D LEX^ORCDGMRC
\n- ENTRY ACTION: D ENPDX^ORCDGMRC
\n- ITEM: OR GTX FREE TEXT
\n- DISPLAY TEXT: Provisional Diagnosis:
\n \n- \n
- SEQUENCE: 1.1
\n- HELP MESSAGE: Enter the type of consult you wish to have done at this service
\n- ASK ON CONDITION: I $G(ORTYPE)=\"Z\"!$D(ORDIALOG(PROMPT,INST)) ;populated by QO only
\n- ITEM: OR GTX FREE TEXT OI
\n- DISPLAY TEXT: Consult Type:
\n \n- \n
- SEQUENCE: 7.1
\n- PARENT: OR GTX FREE TEXT
\n- ASK ON CONDITION: I 0 ;stuffed in via Prov Dx
\n- ITEM: OR GTX CODE
\n \n
\n
\n", "", "", "", "", "", "Consult\n", "", "", "", "D GETSERV^ORCDGMRC\n", "D GETSERV^ORCDGMRC\n", "dialog\n", "K ORSERV,ORPDX,GMRCNOPD,GMRCNOAT,GMRCREAF,^TMP(\"GMRCS\",$J),^TMP(\"GMRCSLIST\",$J)\n", "CONSULTS\n", "", "", "", "", "Consult\n", "110\n", "", "", "", "ORES\n", "CONSULT/REQUEST TRACKING\n", "YES\n", "YES\n", "2024-09-03 10:47:29\n"], ["GMRCOR REQUEST", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.PROC
\n- HELP MESSAGE: Select the procedure you wish to request for this patient.
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CKPROCSV^ORCDGMRC Q:'$G(DONE) D:$G(ORESET) CHANGED^ORCDGMRC(\"OI\")
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)) I $P($G(^ORD(101.43,OI,0)),\"^\",2)[\"99PRC\" S ORPROC=$P(^ORD(101.43,OI,0),\"^\",2) D SERVMSG^ORCDGMRC
\n- DISPLAY TEXT: Procedure:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4.5
\n- WINDOWS CONTROL: calClinicallyIndicated
\n- HELP MESSAGE: Enter the clinically indicated date for this procedure to be performed.
\n- WINDOWS DEFAULT: S Y=$$GET^XPAR(\"DIV^SYS^PKG\",\"ORCDGMRC CLIN IND DATE DEFAULT\",1,\"Q\")
\n- POST-SELECTION ACTION: Q:$G(ORTYPE)'=\"Z\" I $G(ORDIALOG(PROMPT,INST))'[\"T\" K DONE W $C(7),!,\"Response must be relative date (e.g. TODAY, T+7D, T+3M)\"
\n- DEFAULT: S Y=$$GET^XPAR(\"DIV^SYS^PKG\",\"ORCDGMRC CLIN IND DATE DEFAULT\",1,\"Q\")
\n- ITEM: OR GTX CLINICALLY INDICATED DATE
\n- EXIT ACTION: N X,Y,%DT S X=$G(ORDIALOG(PROMPT,INST)),%DT=\"X\" I $L(X) D ^%DT S:Y>0 ORDATE=$P(Y,\".\")
\n- DISPLAY TEXT: Clinically Indicated Date:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter a brief description of why this procedure is being requested.
\n- ASK ON CONDITION: I $G(ORTYPE)=\"Z\"!'$G(GMRCREAF)!($G(GMRCREAF)=1&'FIRST)
\n- DEFAULT: D REASON^ORCDGMRC
\n- ENTRY ACTION: S:'$D(GMRCREAF)&('$G(ORPROC)) GMRCREAF=$$REAF^GMRCDRFR($G(ORPROC))
\n- ITEM: OR GTX WORD PROCESSING 1
\n- DISPLAY TEXT: Reason for Request:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter if the service rendered will be on an inpatient or outpatient basis.
\n- POST-SELECTION ACTION: I $G(ORESET)'=\"\",ORESET'=$P(Y,U) D CHANGED^ORCDGMRC(\"CAT\")
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$INPT^ORCD:\"I\",1:\"O\")
\n- ENTRY ACTION: S ORDIALOG(PROMPT,0)=$P(ORDIALOG(PROMPT,0),\";\",1,2) ;I or O only
\n- ITEM: OR GTX CATEGORY
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 4
\n- INDEX: S.GMRCR
\n- HELP MESSAGE: Select the urgency indicating how quickly results from this procedure are needed.
\n- DEFAULT: S Y=9
\n- ENTRY ACTION: D URGENCY^ORCDGMRC(\"R\")
\n- ITEM: OR GTX URGENCY
\n- ORDER TEXT SEQUENCE: 4
\n- OMIT TEXT: ROUTINE
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Select the preferred place to see the patient for this consult.
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=$S($$VAL^ORCD(\"CATEGORY\")=\"I\":\"B\",1:\"C\")
\n- ENTRY ACTION: D PLACE^ORCDGMRC
\n- ITEM: OR GTX PLACE OF CONSULTATION
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the service/specialty user who is to be notified of this request.
\n- ASK ON CONDITION: I '$G(GMRCNOAT)
\n- SCREEN: N ORT S ORT=$P(^(0),U,11) I 'ORT!(ORT>DT)
\n- ITEM: OR GTX PROVIDER
\n- DISPLAY TEXT: Attention:
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter a preliminary diagnosis relating to this request, up to 240 characters.
\n- ASK ON CONDITION: I '$G(GMRCNOPD)
\n- POST-SELECTION ACTION: D LEX^ORCDGMRC
\n- ENTRY ACTION: D ENPDX^ORCDGMRC
\n- ITEM: OR GTX FREE TEXT
\n- DISPLAY TEXT: Provisional Diagnosis:
\n \n- \n
- SEQUENCE: 1.1
\n- HELP MESSAGE: Enter the service that will be requested to perform this procedure
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>0
\n- XECUTABLE HELP: D LIST^ORCD
\n- DEFAULT: S:+$G(ORDIALOG(PROMPT,\"LIST\"))=1 Y=+$G(ORDIALOG(PROMPT,\"LIST\",1))
\n- ENTRY ACTION: D PROCSVC^ORCDGMRC
\n- ITEM: OR GTX REQUEST SERVICE
\n- ORDER TEXT SEQUENCE: 2
\n- TRAILING TEXT: Proc
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 7.1
\n- PARENT: OR GTX FREE TEXT
\n- ASK ON CONDITION: I 0 ;stuffed in via Prov Dx
\n- ITEM: OR GTX CODE
\n \n
\n
\n", "", "", "", "", "", "Procedure\n", "", "", "", "", "", "dialog\n", "K ORSERV,ORPDX,GMRCNOAT,GMRCNOPD,GMRCREAF,ORPROC\n", "PROCEDURES\n", "", "", "", "", "Procedure\n", "112\n", "", "", "", "ORES\n", "CONSULT/REQUEST TRACKING\n", "YES\n", "YES-DON'T ASK\n", "2024-09-03 10:47:29\n"], ["OR GXACTV AD LIB", "", "", "", "", "", "", "Ad Lib\n", "\nThis orders ad lib activity.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV AMBULATE", "", "", "", "", "", "", "Ambulate\n", "\nThis orders ambulate ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV BATHROOM PRIVILEGES", "", "", "", "", "", "", "Bathroom Privileges\n", "\nThis orders bathroom privileges.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV BED REST", "", "", "", "", "", "", "Bed Rest\n", "\nThis orders bed rest.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV BED REST / BRP", "", "", "", "", "", "", "Bed Rest / BRP\n", "\nThis orders bed rest with bathroom privileges.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV HOB UP", "", "", "", "", "", "", "HOB up\n", "\nThis orders Head of Bed up ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV MAY LEAVE WARD", "", "", "", "", "", "", "May Leave Ward\n", "\nThis orders permission to leave ward.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX START DATE/TIME", "", "free text date/time\n", "NOW::ETX\n", "START\n", "", "", "Start Date/Time:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV OTHER ACTIVITY ORDER", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.ACT
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.ACT\",\"ACTIVITY\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- DISPLAY TEXT: Order:
\n- REQUIRED: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Instructions:
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "Activity\n", "\nThis allows free text entry of an activity order.\n
\n\n", "", "", "", "", "dialog\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV OUT OF BED", "", "", "", "", "", "", "Out of Bed\n", "\nThis orders out of bed ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV PROVIDE TRAPEZE", "", "", "", "", "", "", "Provide Trapeze\n", "\nThis orders provide trapeze.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["FHW OP MEAL", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.DO
\n- HELP MESSAGE: Enter a diet to be ordered for this patient.
\n- POST-SELECTION ACTION: D ORDMSG^ORCD(+Y)
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D OPDIETS^ORCDFHO
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORNPO=($P($G(^ORD(101.43,OI,0)),U)=\"NPO\"),ORTRAIL=$S('ORNPO:\"Meal\",1:\"\")
\n- ORDER TEXT SEQUENCE: 1
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Diet:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date for this order to take effect.
\n- DEFAULT: S:$G(ORTYPE)'=\"Z\" Y=\"TODAY\"
\n- ITEM: OR GTX START DATE
\n- EXIT ACTION: S ORDAY=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date for this order to expire.
\n- ASK ON CONDITION: I 0
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE\",\"END DATE\",\">\") K DONE W $C(7),!,\"Cannot end before start date!\",!
\n- DEFAULT: S Y=$$VAL^ORCD(\"START DATE\")
\n- ITEM: OR GTX STOP DATE
\n- DISPLAY TEXT: End date:
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the method of delivery of this meal.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1,'$G(ORNPO)
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ENTRY ACTION: D DELIVERY^ORCDFH
\n- ITEM: OR GTX DELIVERY
\n- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter any special instructions for this order, up to 80 characters.
\n- ASK ON CONDITION: I $G(ORNPO) ;only ask for NPO
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)=\"1:80\"
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 5
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Special Instructions:
\n \n- \n
- SEQUENCE: 4
\n- INPUT TRANSFORM: S X=$$UP^XLFSTR(X)
\n- HELP MESSAGE: Enter the days of the week to deliver this meal, e.g. MWF; choose from (M)onday, (T)uesday, (W)ednesday, Thu(R)sday, (F)riday, (S)aturday, and Sunday(X).
\n- ASK ON CONDITION: I '$$ONETIME^ORCDFHO
\n- POST-SELECTION ACTION: I '$$SCHEDOK^ORCDFH(ORDIALOG(PROMPT,ORI)) K DONE W $C(7),!,ORDIALOG(PROMPT,\"?\"),!
\n- ITEM: OR GTX SCHEDULE
\n- ORDER TEXT SEQUENCE: 3
\n- OMIT TEXT: ONCE
\n- LEADING TEXT: every
\n- DISPLAY TEXT: Days of Week:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the meal time, (B)reakfast or (N)oon or (E)vening.
\n- POST-SELECTION ACTION: N X,OK S X=$G(ORDIALOG(PROMPT,INST)) I $L(X) D CKMEAL^ORCDFHO(.OK,$G(ORDAY),X,$G(ORL)) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ITEM: OR GTX MEAL
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: for
\n- TRAILING TEXT: meal time
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 8.1
\n- PARENT: OR GTX ADDL DIETS
\n- ASK ON CONDITION: I 0 ;created by backdoor change
\n- ITEM: OR GTX MEAL DATE
\n- FORMAT: 2D
\n- ASK ON ACTION: *
\n \n- \n
- SEQUENCE: 8
\n- ASK ON CONDITION: I 0 ;created by backdoor change
\n- ITEM: OR GTX ADDL DIETS
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: except
\n- START NEW LINE: YES
\n- MULTIPLE VALUED: YES
\n- TITLE: Except:
\n- ASK ON ACTION: *
\n \n
\n
\n", "", "", "", "D LATETRAY^ORCDFHO\n", "", "Outpatient Meal\n", "", "", "", "D EN^ORCDFHO\n", "S ORPARAM(3)=\"TCB\"\n", "dialog\n", "D:'($G(ORNPO)!$G(ORQUIT)) CANCEL^ORCDFHTF D EX^ORCDFHO\n", "OUTPATIENT MEALS\n", "", "", "", "", "Outpatient Meal\n", "117\n", "", "", "", "ORES\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["FHW SPECIAL MEAL", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.DO
\n- HELP MESSAGE: Enter a diet to be ordered for this patient.
\n- POST-SELECTION ACTION: D ORDMSG^ORCD(+Y)
\n- XECUTABLE HELP: D LIST^ORCD
\n- ENTRY ACTION: D OPDIETS^ORCDFHO
\n- ITEM: OR GTX ORDERABLE ITEM
\n- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORNPO=($P($G(^ORD(101.43,OI,0)),U)=\"NPO\"),ORTRAIL=$S('ORNPO:\"Meal\",1:\"\")
\n- ORDER TEXT SEQUENCE: 1
\n- TRAILING TEXT: @ORTRAIL
\n- DISPLAY TEXT: Diet:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter the date for this order to take effect.
\n- ASK ON CONDITION: I 0 ;cannot change
\n- DEFAULT: S Y=\"TODAY\"
\n- ITEM: OR GTX START DATE
\n- EXIT ACTION: S ORDAY=$G(ORDIALOG(PROMPT,INST))
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter the date for this order to expire.
\n- ASK ON CONDITION: I 0 ;cannot change
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE\",\"END DATE\",\">\") K DONE W $C(7),!,\"Cannot end before start date!\",!
\n- DEFAULT: S Y=\"TODAY\"
\n- ITEM: OR GTX STOP DATE
\n- DISPLAY TEXT: End date:
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter the method of delivery of this meal.
\n- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,\"LIST\"))>1,'$G(ORNPO)
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ENTRY ACTION: D DELIVERY^ORCDFH
\n- ITEM: OR GTX DELIVERY
\n- EXIT ACTION: K:$G(ORNPO) ORDIALOG(PROMPT,INST)
\n- REQUIRED: YES
\n- ASK ON ACTION: W
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter any special instructions for this order, up to 80 characters.
\n- ASK ON CONDITION: I 0 ;hide for now
\n- ENTRY ACTION: S $P(ORDIALOG(PROMPT,0),U,2)=\"1:80\"
\n- ITEM: OR GTX FREE TEXT 1
\n- ORDER TEXT SEQUENCE: 4
\n- START NEW LINE: YES
\n- DISPLAY TEXT: Special Instructions:
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter the meal time, (B)reakfast or (N)oon or (E)vening.
\n- POST-SELECTION ACTION: N X,OK S X=$G(ORDIALOG(PROMPT,INST)) I $L(X) D CKMEAL^ORCDFHO(.OK,$G(ORDAY),X) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
\n- XECUTABLE HELP: D SETLIST^ORCD
\n- ITEM: OR GTX MEAL
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: for
\n- TRAILING TEXT: meal time
\n- REQUIRED: YES
\n \n
\n
\n", "", "", "", "", "", "Special Meal\n", "", "", "", "D EN^ORCDFHO\n", "S ORPARAM(3)=\"TCB\"\n", "dialog\n", "D:'($G(ORNPO)!$G(ORQUIT)) CANCEL^ORCDFHTF D EX^ORCDFHO\n", "OUTPATIENT MEALS\n", "", "", "", "", "Special Meal\n", "117\n", "", "", "", "NONE\n", "DIETETICS\n", "YES\n", "", "2024-09-03 10:47:29\n"], ["OR GTX AMOUNT", "", "free text\n", "1:5\n", "QTY\n", "", "", "Quantity:\n", "\nThis prompts for quantity, created for use with VBECS; it is free text\nto allow for either # units or #ml.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX RBC MODIFIERS", "", "free text\n", "1:50\n", "MODIFIER\n", "", "", "Additional Requirements:\n", "\nThis prompts for special instructions for Red Blood Cell (RBC) requests.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX REASON", "", "free text\n", "1:75\n", "REASON\n", "", "", "Reason for Request:\n", "\nThis prompts for a free text reason why this order is being placed.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX LAB ORDER", "", "pointer\n", "100\n", "LAB\n", "", "", "Associated Lab Order:\n", "\nThis prompt holds the associated Lab order number, created for use with\nVBECS.\n
\n\n", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GTX TEXT", "", "free text\n", "1:240\n", "MISC\n", "", "", "Text:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV ROM EXERCISE", "", "", "", "", "", "", "ROM Exercise\n", "\nThis orders range of motion exercise ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV TURN PATIENT", "", "", "", "", "", "", "Turn Patient\n", "\nThis orders turn patient ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV UP IN CHAIR", "", "", "", "", "", "", "Up in Chair\n", "\nThis orders up in chair ___.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV AMBULATE TID", "", "", "", "", "", "", "Ambulate TID\n", "\nThis orders ambulate TID.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXACTV UP IN CHAIR TID", "", "", "", "", "", "", "Up in Chair TID\n", "\nThis orders up in chair TID.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "ACTIVITY\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO ARTERIAL LINE", "", "", "", "", "", "", "Arterial Line\n", "\nThis orders arterial line care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO ARTERIAL SHEATH", "", "", "", "", "", "", "Arterial Sheath\n", "\nThis orders arterial sheath care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX URGENCY", "", "pointer\n", "101.42:EQ\n", "URGENCY\n", "", "", "Urgency:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO CARDIAC OUTPUT", "", "", "", "", "", "", "Cardiac Output\n", "\nThis orders cardiac output measurements.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO HEMODYNAMICS ITEM", "", "", "", "", "", "", "Hemodynamics\n", "\nThis is a free text order for hemodynamics.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX SCHEDULE TYPE", "", "free text\n", "2:119\n", "SCHTYPE\n", "", "", "Schedule Type:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO SWAN GANZ CATHETER", "", "", "", "", "", "", "Swan Ganz Catheter\n", "\nThis orders swan ganz care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXHEMO VENOUS SHEATH", "", "", "", "", "", "", "Venous Sheath\n", "\nThis orders venous sheath care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS CHEST TUBE", "", "", "", "", "", "", "Chest Tube\n", "\nThis orders chest tube care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS GLASCOW COMA", "", "", "", "", "", "", "Glascow Coma\n", "\nThis orders glascow coma measurements.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS GUAIAC ASPIRATE", "", "", "", "", "", "", "Guaiac Aspirate\n", "\nThis orders guaiacs of aspirate.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS GUAIAC EMESIS", "", "", "", "", "", "", "Guaiac Emesis\n", "\nThis orders guaiacs of emesis.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS GUAIAC STOOLS", "", "", "", "", "", "", "Guaiac Stools\n", "\nThis orders guaiacs of stools.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS NEURO CHECK", "", "", "", "", "", "", "Neuro Check\n", "\nThis orders a neuro check.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX IMAGING LOCATION", "", "pointer\n", "79.1:EQ\n", "IMLOC\n", "", "", "Imaging Location:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS NURSING ITEM", "", "", "", "", "", "", "Nursing\n", "\nThis is a free text order for nursing.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS PUSH FLUIDS", "", "", "", "", "", "", "Push Fluids\n", "\nThis orders push fluids.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS URINE PH", "", "", "", "", "", "", "Urine pH\n", "\nThis order urine pH measurement.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXNURS URINE SPEC GRAV", "", "", "", "", "", "", "Urine Spec Grav\n", "\nThis orders urine specific gravity measurement.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN MASK 35 PER CENT", "", "", "", "", "", "", "Mask 35 per cent\n", "\nThis orders an oxygen mask at 35%.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN MASK 40 PER CENT", "", "", "", "", "", "", "Mask 40 per cent\n", "\nThis orders an oxygen mask at 40%.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN MASK 50 PER CENT", "", "", "", "", "", "", "Mask 50 per cent\n", "\nThis orders an oxygen mask at 50%.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN O2 3 LT NASAL CANNULA", "", "", "", "", "", "", "O2 3lt nasal cannula\n", "\nThis orders oxygen by nasal cannula (3 liters).\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN O2 4 LT NASAL CANNULA", "", "", "", "", "", "", "O2 4lt nasal cannula\n", "\nThis orders oxygen by nasal cannula (4 liters).\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN OXYGEN THERAPY ITEM", "", "", "", "", "", "", "Oxygen Therapy\n", "\nThis is a free text order for oxygen therapy.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GTX MODE OF TRANSPORT", "", "set of codes\n", "A:AMBULATORY;P:PORTABLE;S:STRETCHER;W:WHEELCHAIR;\n", "MODE\n", "", "", "Mode of Transport:\n", "", "", "", "", "", "prompt\n", "", "", "", "", "", "", "", "", "", "", "", "", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXOXGN VENTILATOR", "", "", "", "", "", "", "Ventilator\n", "\nThis orders ventilator settings (entered via free text).\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXPARM CALL HO ON", "\n- \n
\n- \n
- SEQUENCE: 1
\n- INDEX: S.NURS
\n- ASK ON CONDITION: I 0 ; uneditable
\n- SCREEN: I $$ACTIVE^ORDD43(Y)
\n- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,\"D\")),SCR=$G(ORDIALOG(PROMPT,\"S\")) D XHELP^ORDD43(IDX,SCR)
\n- DEFAULT: S Y=$O(^ORD(101.43,\"S.NURS\",\"CALL HO ON\",0))
\n- ITEM: OR GTX ORDERABLE ITEM
\n- REQUIRED: YES
\n \n- \n
- SEQUENCE: 6
\n- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
\n- ITEM: OR GTX FREE TEXT 1
\n- DISPLAY TEXT: Add'l Info:
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 2
\n- HELP MESSAGE: Enter critical values for the systolic blood pressure.
\n- DEFAULT: S Y=\"< 100\"
\n- ITEM: OR GTPARM BPSYS
\n- ORDER TEXT SEQUENCE: 2
\n- LEADING TEXT: BPsys
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 3
\n- HELP MESSAGE: Enter critical values for the diastolic blood pressure.
\n- DEFAULT: S Y=\"> 120\"
\n- ITEM: OR GTPARM BPDIAS
\n- ORDER TEXT SEQUENCE: 3
\n- LEADING TEXT: BPdia
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 4
\n- HELP MESSAGE: Enter critical values for the heart rate.
\n- DEFAULT: S Y=\"< 60, > 120\"
\n- ITEM: OR GTPARM PULSE
\n- ORDER TEXT SEQUENCE: 4
\n- LEADING TEXT: Pulse
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 5
\n- HELP MESSAGE: Enter critical values for temperature (fahrenheit)
\n- DEFAULT: S Y=\"> 101\"
\n- ITEM: OR GTPARM TEMPERATURE
\n- ORDER TEXT SEQUENCE: 5
\n- LEADING TEXT: Temp
\n- ASK ON ACTION: C
\n \n- \n
- SEQUENCE: 7
\n- HELP MESSAGE: Enter the date/time to begin this order.
\n- DEFAULT: S Y=\"NOW\"
\n- ITEM: OR GTX START DATE/TIME
\n- REQUIRED: YES
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n- \n
- SEQUENCE: 8
\n- HELP MESSAGE: Enter the date/time to end this order.
\n- POST-SELECTION ACTION: I $$FTDCOMP^ORCD(\"START DATE/TIME\",\"STOP DATE/TIME\",\">\") K DONE,ORDIALOG(PROMPT,ORI) W $C(7),!,\"Cannot end before start date/time!\",!
\n- ITEM: OR GTX STOP DATE/TIME
\n- ASK ON EDIT ONLY: YES
\n- ASK ON ACTION: RCW
\n \n
\n
\n", "", "", "", "", "", "Call HO on\n", "\nThis orders conditions to call HO.\n
\n\n", "", "", "", "", "dialog\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXPARM I AND O", "", "", "", "", "", "", "I & O\n", "\nThis orders I & O measurements.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP CHEST PT", "", "", "", "", "", "", "Chest PT\n", "\nThis orders Chest PT.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP INCENTIVE SPIROMETER", "", "", "", "", "", "", "Incentive Spirometer\n", "\nThis orders incentive spirometry.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP RESPIRATORY ITEM", "", "", "", "", "", "", "Respiratory\n", "\nThis is a free text order for respiratory care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP SUCTION", "", "", "", "", "", "", "Suction\n", "\nThis is a free text order for suction.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP TCDB", "", "", "", "", "", "", "TCDB\n", "\nThis orders turn, cough, deep breath.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXRESP TRACH CARE", "", "", "", "", "", "", "Trach Care\n", "\nThis order tracheotomy care.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"], ["OR GXSKIN AIR MATTRESS", "", "", "", "", "", "", "Air Mattress\n", "\nThis orders an air mattress.\n
\n\n", "\n- \n\n
\n", "", "", "", "quick order\n", "", "NURSING\n", "", "", "", "", "", "", "", "", "", "ORES\n", "ORDER ENTRY/RESULTS REPORTING\n", "", "", "2024-09-03 10:47:29\n"]]}