| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.CSLT
- WINDOWS CONTROL: cboService
- HELP MESSAGE: Select the service/specialty consultation you wish to request for this patient.
- ASK ON CONDITION: I $G(ORTYPE)'="Q",'$D(OREDIT),'$G(OREWRITE)
- SCREEN: I $$ACTIVE^ORDD43(Y),$D(^TMP("GMRCS",$J,+$P(^(0),U,2)))
- POST-SELECTION ACTION: I $G(ORESET)'=+Y D CKSERV^ORCDGMRC K GMRCREAF
- XECUTABLE HELP: D LISTSERV^ORCDGMRC(1)
- ITEM: OR GTX ORDERABLE ITEM
- EXIT ACTION: N OI S OI=+$G(ORDIALOG(PROMPT,INST)),ORSERV=+$P($G(^ORD(101.43,OI,0)),U,2) D:ORSERV SERVMSG^ORCDGMRC
- ORDER TEXT SEQUENCE: 2
- TRAILING TEXT: Cons
- DISPLAY TEXT: Consult to Service/Specialty:
- REQUIRED: YES
-
- SEQUENCE: 4.5
- WINDOWS CONTROL: calClinicallyIndicated
- HELP MESSAGE: Enter the clinically indicated date for this consult to be performed.
- WINDOWS DEFAULT: S Y=$$GET^XPAR("DIV^SYS^PKG","ORCDGMRC CLIN IND DATE DEFAULT",1,"Q")
- ASK ON CONDITION: Q:'$G(ORSERV) I $G(^GMR(123.5,ORSERV,"INT"))'=1
- POST-SELECTION ACTION: D CID^ORCDGMRC
- 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")
- 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: 8
- ASK ON CONDITION: I $G(ORTYPE)'="Z"
- ITEM: OR GTX DST ID
-
- SEQUENCE: 10
- ASK ON CONDITION: I $G(ORTYPE)'="Z"
- ITEM: OR GTX DST STATUS MSG
-
- SEQUENCE: 2
- WINDOWS CONTROL: memReason
- HELP MESSAGE: Enter a brief description of why this consult 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) GMRCREAF=$$REAF^GMRCDRFR(+$G(ORSERV))
- ITEM: OR GTX WORD PROCESSING 1
- DISPLAY TEXT: Reason for Request:
- REQUIRED: YES
-
- SEQUENCE: 3
- WINDOWS CONTROL: refCategory
- 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.GMRCT
- WINDOWS CONTROL: cboUrgency
- HELP MESSAGE: Select the urgency indicating how quickly results from this consult are needed.
- DEFAULT: S Y=9
- ENTRY ACTION: D URGENCY^ORCDGMRC("C")
- ITEM: OR GTX URGENCY
- ORDER TEXT SEQUENCE: 4
- OMIT TEXT: ROUTINE
- REQUIRED: YES
-
- SEQUENCE: 5
- WINDOWS CONTROL: cboPlace
- 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
- WINDOWS CONTROL: txtAttn
- 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
- WINDOWS CONTROL: txtProvDiag
- 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 type of consult you wish to have done at this service
- ASK ON CONDITION: I $G(ORTYPE)="Z"!$D(ORDIALOG(PROMPT,INST)) ;populated by QO only
- ITEM: OR GTX FREE TEXT OI
- DISPLAY TEXT: Consult Type:
-
- SEQUENCE: 7.1
- PARENT: OR GTX FREE TEXT
- ASK ON CONDITION: I 0 ;stuffed in via Prov Dx
- ITEM: OR GTX CODE
|
| EXIT ACTION |
K ORSERV,ORPDX,GMRCNOPD,GMRCNOAT,GMRCREAF,^TMP("GMRCS",$J),^TMP("GMRCSLIST",$J) |
