| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.XRAY;C.XRAY
- WINDOWS CONTROL: cboProcedure
- API NAME: 131
- API PARAMETER #1: S.RAD
- HELP MESSAGE: Enter the imaging procedure to be ordered for this patient.
- SPECIAL LOOKUP ROUTINE: LKP;ORCDRA
- SCREEN: I $$ACTIVE^ORDD43(Y),'(ORBROAD&($P($G(^("RA")),U,2)="B"))
- POST-SELECTION ACTION: D BROAD^ORCDRA(+Y)
- 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"))
- ENTRY ACTION: D NEXTPROC^ORCDRA Q:$G(ORQUIT) I '$G(ORDIALOG(PROMPT,INST)) D COMMON^ORCDRA,LIST^ORCDRA:$G(ORDIALOG(PROMPT,"LIST"))
- ITEM: OR GTX ORDERABLE ITEM
- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)) D:OI ORDMSG^ORCD(OI)
- DISPLAY TEXT: Procedure:
- REQUIRED: YES
-
- SEQUENCE: 5
- HELP MESSAGE: Enter the date/time this patient is scheduled for pre-op.
- ASK ON CONDITION: I $$SCHEDULD^ORCDRA1
- ITEM: OR GTX PRE-OP SCHEDULED DATE/TIME
- ASK ON EDIT ONLY: YES
-
- SEQUENCE: 6
- WINDOWS CONTROL: chkPregnant
- API PARAMETER #1: YN
- HELP MESSAGE: Answer if this patient is pregnant at this time, as precisely as known.
- WINDOWS CONDITION: I $G(ORSEX)="F"
- WINDOWS DEFAULT: S Y="No"
- ASK ON CONDITION: I $G(ORSEX)="F",'FIRST!((ORAGE'<12)&(ORAGE'>55))
- XECUTABLE HELP: D SETLIST^ORCD
- DEFAULT: I $G(ORSEX)="F",((ORAGE<12)!(ORAGE>55)) S Y="N"
- ENTRY ACTION: I $G(ORSEX)="F",$G(ORTYPE)'="Z" S REQD=1
- ITEM: OR GTX PREGNANT
-
- SEQUENCE: 3
- WINDOWS CONTROL: memHistory
- HELP MESSAGE: Enter the clinical history of this patient, as it relates to this order.
- 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
- 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_")"
- ITEM: OR GTX WORD PROCESSING 1
- DISPLAY TEXT: Clinical History:
- REQUIRED: NO
-
- SEQUENCE: 9
- HELP MESSAGE: Enter YES if this patient is currently on some type of isolation procedures.
- DEFAULT: S:$G(ORTYPE)'="Z" Y=$S($$IP^ORMBLD:1,1:0)
- ITEM: OR GTX YES/NO
- DISPLAY TEXT: Is patient on isolation procedures?
- TITLE: Isolation Procedures:
-
- SEQUENCE: 4.1
- HELP MESSAGE: Enter the ordering location for this exam.
- ASK ON CONDITION: N X S X=$$VAL^ORCD("CATEGORY") I "IO"[X,'$$MATCH^ORCDRA1(X)
- ITEM: OR GTX LOCATION
- DISPLAY TEXT: Ordering Location:
- REQUIRED: YES
-
- SEQUENCE: 12
- HELP MESSAGE: Enter the name of the approving imaging service physician; personnel must be classified as Interpreting Staff Physician.
- 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
- SCREEN: I $D(^VA(200,"ARC","S",+Y)),'$P($G(^VA(200,+Y,"RA")),U,3)!($P($G(^("RA")),U,3)>DT)
- ITEM: OR GTX PROVIDER
- DISPLAY TEXT: Approving Rad/Nuc Med Phys:
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 13
- ASK ON CONDITION: I 0 ;populated from patient data
- ITEM: OR GTX VISITSTR
- REQUIRED: YES
- PROMPT: VISITSTR
- ASK ON ACTION: *
-
- SEQUENCE: 2.5
- WINDOWS CONTROL: txtReason
- HELP MESSAGE: Enter the reason this study is being requested, up to 64 characters.
- 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
- DEFAULT: I $D(^TMP("ORECALL",$J,ORDIALOG)),$$SITEVAL^ORWDXM1 S Y=^TMP("ORECALL",$J,ORDIALOG,PROMPT,INST)
- ITEM: OR GTX STUDY REASON
- DISPLAY TEXT: Reason for Study:
- REQUIRED: YES
-
- SEQUENCE: 2
- WINDOWS CONTROL: lstSelectMod
- API PARAMETER #1: MOD
- HELP MESSAGE: Select the procedure modifiers necessary to further define the procedure ordered.
- ASK ON CONDITION: I $D(^RAMIS(71.2,"AB",ORIMTYPE))
- 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!",!
- ITEM: OR GTX MODIFIERS
- DISPLAY TEXT: Procedure Modifier:
- REQUIRED: NO
- MULTIPLE VALUED: YES
- TITLE: Procedure Modifiers:
-
- SEQUENCE: 7
- WINDOWS CONTROL: calRequestDate
- HELP MESSAGE: Enter the date desired for this procedure to be performed.
- POST-SELECTION ACTION: D DATEDSRD^ORCDRA
- ITEM: OR GTX START DATE/TIME
- DISPLAY TEXT: Date Desired:
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 10
- INDEX: S.RA
- WINDOWS CONTROL: cboUrgency
- API PARAMETER #1: URG
- HELP MESSAGE: Enter the urgency for this request.
- WINDOWS DEFAULT: S Y="Routine"
- SCREEN: I $$RADURG^ORWDRA32(Y)
- DEFAULT: S Y=9
- ITEM: OR GTX URGENCY
- ORDER TEXT SEQUENCE: 3
- OMIT TEXT: ROUTINE
- ASK ON EDIT ONLY: YES
-
- SEQUENCE: 11
- WINDOWS CONTROL: cboSubmit
- API PARAMETER #1: SUB
- HELP MESSAGE: Enter the imaging location this request should be sent to.
- ASK ON CONDITION: I $$GET^XPAR("ALL^DIV.`"_$G(ORDIV),"RA SUBMIT PROMPT",1,"Q"),+$G(ORDIALOG(PROMPT,"LIST"))>1
- XECUTABLE HELP: D LIST^ORCD
- DEFAULT: S:+$G(ORDIALOG(PROMPT,"LIST"))=1 Y=+$G(ORDIALOG(PROMPT,"LIST",1))
- ENTRY ACTION: I $G(ORIMLOC) M ORDIALOG(PROMPT,"LIST")=ORIMLOC
- ITEM: OR GTX IMAGING LOCATION
- DISPLAY TEXT: Submit request to:
- REQUIRED: YES
-
- SEQUENCE: 8
- WINDOWS CONTROL: cboTransport
- API PARAMETER #1: TRANS
- HELP MESSAGE: Enter the transportation mode of the patient for this exam.
- XECUTABLE HELP: D SETLIST^ORCD
- DEFAULT: S Y=$$MODE^ORCDRA1 K:'$L(Y) Y
- ITEM: OR GTX MODE OF TRANSPORT
- ASK ON EDIT ONLY: YES
-
- SEQUENCE: 4
- WINDOWS CONTROL: cboCategory
- API PARAMETER #1: CAT
- HELP MESSAGE: Enter the category of the patient for this exam.
- WINDOWS DEFAULT: S Y=$S($G(ORWARD):"Inpatient",1:"Outpatient")
- POST-SELECTION ACTION: I $D(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) D CHNGCAT^ORCDRA1
- XECUTABLE HELP: D SETLIST^ORCD
- DEFAULT: S:$G(ORTYPE)'="Z" Y=$S($$INPT^ORCD:"I",1:"O")
- ITEM: OR GTX CATEGORY
- ASK ON EDIT ONLY: YES
-
- SEQUENCE: 4.2
- API PARAMETER #1: SHARE
- HELP MESSAGE: Enter the contract or sharing agreement responsible for this exam.
- WINDOWS CONDITION: I "CS"[$$VAL^ORGGDRA("CATEGORY")
- ASK ON CONDITION: N X S X=$$VAL^ORCD("CATEGORY") I $L(X),"CS"[X
- ITEM: OR GTX CONTRACT/SHARING SOURCE
- REQUIRED: YES
-
- SEQUENCE: 4.3
- API PARAMETER #1: SOURCE
- HELP MESSAGE: Enter the name of the research project responsible for this exam.
- WINDOWS CONDITION: I $$VAL^ORGGDRA("CATEGORY")="R"
- ASK ON CONDITION: I $$VAL^ORCD("CATEGORY")="R"
- ITEM: OR GTX RESEARCH SOURCE
- REQUIRED: YES
|
