| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.PROC
- HELP MESSAGE: Select the procedure you wish to request for this patient.
- SCREEN: I $$ACTIVE^ORDD43(Y)
- POST-SELECTION ACTION: I $G(ORESET)'=$P(Y,U) D CKPROCSV^ORCDGMRC Q:'$G(DONE) D:$G(ORESET) CHANGED^ORCDGMRC("OI")
- XECUTABLE HELP: N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR)
- ITEM: OR GTX ORDERABLE ITEM
- 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
- DISPLAY TEXT: Procedure:
- REQUIRED: YES
-
- SEQUENCE: 4.5
- WINDOWS CONTROL: calClinicallyIndicated
- HELP MESSAGE: Enter the clinically indicated date for this procedure to be performed.
- WINDOWS DEFAULT: S Y=$$GET^XPAR("DIV^SYS^PKG","ORCDGMRC CLIN IND DATE DEFAULT",1,"Q")
- 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)"
- DEFAULT: S Y=$$GET^XPAR("DIV^SYS^PKG","ORCDGMRC CLIN IND DATE DEFAULT",1,"Q")
- ITEM: OR GTX CLINICALLY INDICATED DATE
- 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,".")
- DISPLAY TEXT: Clinically Indicated Date:
- REQUIRED: YES
- ASK ON ACTION: W
-
- SEQUENCE: 2
- HELP MESSAGE: Enter a brief description of why this procedure is being requested.
- ASK ON CONDITION: I $G(ORTYPE)="Z"!'$G(GMRCREAF)!($G(GMRCREAF)=1&'FIRST)
- DEFAULT: D REASON^ORCDGMRC
- ENTRY ACTION: S:'$D(GMRCREAF)&('$G(ORPROC)) GMRCREAF=$$REAF^GMRCDRFR($G(ORPROC))
- ITEM: OR GTX WORD PROCESSING 1
- DISPLAY TEXT: Reason for Request:
- REQUIRED: YES
-
- SEQUENCE: 3
- HELP MESSAGE: Enter if the service rendered will be on an inpatient or outpatient basis.
- POST-SELECTION ACTION: I $G(ORESET)'="",ORESET'=$P(Y,U) D CHANGED^ORCDGMRC("CAT")
- XECUTABLE HELP: D SETLIST^ORCD
- DEFAULT: S:$G(ORTYPE)'="Z" Y=$S($$INPT^ORCD:"I",1:"O")
- ENTRY ACTION: S ORDIALOG(PROMPT,0)=$P(ORDIALOG(PROMPT,0),";",1,2) ;I or O only
- ITEM: OR GTX CATEGORY
- REQUIRED: YES
-
- SEQUENCE: 4
- INDEX: S.GMRCR
- HELP MESSAGE: Select the urgency indicating how quickly results from this procedure are needed.
- DEFAULT: S Y=9
- ENTRY ACTION: D URGENCY^ORCDGMRC("R")
- ITEM: OR GTX URGENCY
- ORDER TEXT SEQUENCE: 4
- OMIT TEXT: ROUTINE
- REQUIRED: YES
-
- SEQUENCE: 5
- HELP MESSAGE: Select the preferred place to see the patient for this consult.
- XECUTABLE HELP: D LIST^ORCD
- DEFAULT: S:$G(ORTYPE)'="Z" Y=$S($$VAL^ORCD("CATEGORY")="I":"B",1:"C")
- ENTRY ACTION: D PLACE^ORCDGMRC
- ITEM: OR GTX PLACE OF CONSULTATION
- REQUIRED: YES
-
- SEQUENCE: 6
- HELP MESSAGE: Enter the service/specialty user who is to be notified of this request.
- ASK ON CONDITION: I '$G(GMRCNOAT)
- SCREEN: N ORT S ORT=$P(^(0),U,11) I 'ORT!(ORT>DT)
- ITEM: OR GTX PROVIDER
- DISPLAY TEXT: Attention:
-
- SEQUENCE: 7
- HELP MESSAGE: Enter a preliminary diagnosis relating to this request, up to 240 characters.
- ASK ON CONDITION: I '$G(GMRCNOPD)
- POST-SELECTION ACTION: D LEX^ORCDGMRC
- ENTRY ACTION: D ENPDX^ORCDGMRC
- ITEM: OR GTX FREE TEXT
- DISPLAY TEXT: Provisional Diagnosis:
-
- SEQUENCE: 1.1
- HELP MESSAGE: Enter the service that will be requested to perform this procedure
- ASK ON CONDITION: I $G(ORDIALOG(PROMPT,"LIST"))>0
- XECUTABLE HELP: D LIST^ORCD
- DEFAULT: S:+$G(ORDIALOG(PROMPT,"LIST"))=1 Y=+$G(ORDIALOG(PROMPT,"LIST",1))
- ENTRY ACTION: D PROCSVC^ORCDGMRC
- ITEM: OR GTX REQUEST SERVICE
- ORDER TEXT SEQUENCE: 2
- TRAILING TEXT: Proc
- REQUIRED: YES
-
- SEQUENCE: 7.1
- PARENT: OR GTX FREE TEXT
- ASK ON CONDITION: I 0 ;stuffed in via Prov Dx
- ITEM: OR GTX CODE
|
