| ITEMS |
-
- SEQUENCE: 1
- INDEX: C
- HELP MESSAGE: Enter the movement you wish to order for this patient.
- ASK ON CONDITION: N X S X=$S($G(OREVT):0,1:1) I X ;uneditable if defined
- DEFAULT: S:$G(OREVT) Y=+OREVT
- ITEM: OR GTX EVENT
- EXIT ACTION: N X S X=$G(ORDIALOG(PROMPT,INST)) S:X OREVNT=+X,OREVNTYP=$P($G(^ORD(100.5,+X,0)),U,2)
- ORDER TEXT SEQUENCE: 1
- FORMAT: 8~8
- REQUIRED: YES
-
- SEQUENCE: 3
- HELP MESSAGE: Enter the location this patient is expected to be moved to.
- SCREEN: I $$ACTLOC^ORWU(Y)
- DEFAULT: S Y=+$P($G(^ORD(100.5,+$G(OREVNT),0)),U,9) K:Y<1 Y
- ITEM: OR GTX LOCATION
- ORDER TEXT SEQUENCE: 3
- LEADING TEXT: Location:
- START NEW LINE: YES
- DISPLAY TEXT: Expected Location:
- ASK ON ACTION: C
-
- SEQUENCE: 4
- INDEX: AK.PROVIDER
- HELP MESSAGE: Enter the attending provider for this patient.
- ASK ON CONDITION: I "AT"[$G(OREVNTYP)
- ITEM: OR GTX PROVIDER
- ORDER TEXT SEQUENCE: 4
- LEADING TEXT: Attending:
- START NEW LINE: YES
- DISPLAY TEXT: Attending:
- REQUIRED: YES
- ASK ON ACTION: C
-
- SEQUENCE: 6
- HELP MESSAGE: Enter any special instructions for this order, up to 240 characters.
- ITEM: OR GTX FREE TEXT 1
- ORDER TEXT SEQUENCE: 6
- START NEW LINE: YES
- DISPLAY TEXT: Instructions:
- ASK ON ACTION: C
-
- SEQUENCE: 5
- INDEX: AK.PROVIDER
- HELP MESSAGE: Enter the primary provider for this patient.
- ASK ON CONDITION: I "AT"[$G(OREVNTYP)
- ITEM: OR GTX PROVIDER 1
- ORDER TEXT SEQUENCE: 5
- LEADING TEXT: Primary:
- START NEW LINE: YES
- DISPLAY TEXT: Primary:
- ASK ON ACTION: C
-
- SEQUENCE: 2
- HELP MESSAGE: Enter the treating specialty this patient is to be assigned to.
- ASK ON CONDITION: I "AT"[$G(OREVNTYP)
- SCREEN: I $$ACTIVE^DGACT(45.7,Y)
- XECUTABLE HELP: D XHELP^ORCDADT(PROMPT)
- DEFAULT: I $G(OREVNT) S Y=$$DEFTS^ORCDADT(OREVNT) K:Y<1 Y
- ENTRY ACTION: D ENTS^ORCDADT(OREVNT)
- ITEM: OR GTX TREATING SPECIALTY
- ORDER TEXT SEQUENCE: 2
- LEADING TEXT: Specialty:
- START NEW LINE: YES
- ASK ON ACTION: C
|
