PS MEDS (174)    ORDER DIALOG (101.41)

Name Value
NAME PS MEDS
ITEMS
  • SEQUENCE:   1
    INDEX:   S.RX
    HELP MESSAGE:   Enter the medication you wish to order for this patient.
    SCREEN:   I $$ACTIVE^ORDD43(Y)
    POST-SELECTION ACTION:   D DEA^ORCDPS1 Q:'$G(DONE) I $G(ORESET)'=+Y D CHANGED^ORCDPS1("OI")
    XECUTABLE HELP:   N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR)
    ENTRY ACTION:   D ENOI^ORCDPS1
    ITEM:   OR GTX ORDERABLE ITEM
    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))
    ORDER TEXT SEQUENCE:   1
    FORMAT:   @1350
    DISPLAY TEXT:   Medication:
    REQUIRED:   YES
  • SEQUENCE:   6
    HELP MESSAGE:   Enter the number of refills to allow for this order.
    ASK ON CONDITION:   I ORCAT="O",$G(OREFILLS)>0
    ENTRY ACTION:   I ORCAT="O",'$G(OREFILLS) D MAXREFS^ORCDPS1
    ITEM:   OR GTX REFILLS
    ORDER TEXT SEQUENCE:   9
    LEADING TEXT:   Refills:
    DISPLAY TEXT:   Refills:
    REQUIRED:   YES
    ASK ON ACTION:   RC
  • SEQUENCE:   9
    HELP MESSAGE:   If this medication is for treatment of a service-connected condition, enter YES.
    ASK ON CONDITION:   I ORCAT="O",$G(ORCOPAY),$G(ORSC)
    XECUTABLE HELP:   N DFN S DFN=+ORVP D DIS^DGRPDB
    DEFAULT:   I $G(ORTYPE)'="Z",ORCAT="O",$G(ORCOPAY),$G(ORSC) S Y=$S($P(ORSC,U,2)>50:1,1:0)
    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
    ITEM:   OR GTX SERVICE CONNECTED
    DISPLAY TEXT:   Is this medication for a SC condition?
    TITLE:   SC:
    ASK ON ACTION:   CW
  • SEQUENCE:   2.3
    PARENT:   OR GTX INSTRUCTIONS
    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'.
    ASK ON CONDITION:   I $$ASKDUR^ORCDPS3
    POST-SELECTION ACTION:   D DUR^ORCDPS3
    DEFAULT:   Q I $G(ORTYPE)'="Z",$G(ORCAT)="I",$G(ORCOMPLX),$P($G(ORSD),U,3) S Y=+$P(ORSD,U,3)_" DAYS"
    ITEM:   OR GTX DURATION
    LEADING TEXT:   FOR
    DISPLAY TEXT:   How long:
    ASK ON ACTION:   C
  • SEQUENCE:   4
    HELP MESSAGE:   Enter the date this order should begin.
    ASK ON CONDITION:   I $G(ORCAT)="O",$G(OREVENT) ;discharge orders only
    DEFAULT:   Q I $G(ORTYPE)'="Z",ORCAT'="O" S Y=$P($G(ORSD),U) K:'$L(Y) Y
    ENTRY ACTION:   D START^ORCDPS3 ;I 'FIRST,$G(ORDIALOG(PROMPT,"LIST")),'$O(ORDIALOG(PROMPT,0)) D LIST^ORCD ;editonly
    ITEM:   OR GTX START DATE/TIME
    DISPLAY TEXT:   Start:
    ASK ON EDIT ONLY:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   3
    ASK ON CONDITION:   I 0 ;created by Instructions, if Outpt order
    ITEM:   OR GTX SIG
    ORDER TEXT SEQUENCE:   2
    START NEW LINE:   YES
    WORD-WRAP:   WRAP
    DISPLAY TEXT:   Text:
  • SEQUENCE:   2.5
    PARENT:   OR GTX INSTRUCTIONS
    ASK ON CONDITION:   I 0 ;created by Instructions
    DEFAULT:   S Y=$$ID^ORCDPS K:'$L(Y) Y
    ITEM:   OR GTX DOSE
    FORMAT:   @
    ASK ON ACTION:   *
  • SEQUENCE:   2.6
    ASK ON CONDITION:   I 0 ;created by Instructions
    ITEM:   OR GTX DISPENSE DRUG
    ASK ON ACTION:   *
  • SEQUENCE:   5
    HELP MESSAGE:   Enter the number of days for which the patient needs this medication.
    ASK ON CONDITION:   I $G(ORCAT)="O"
    POST-SELECTION ACTION:   I $G(ORESET),+ORESET'=+Y D CHANGED^ORCDPS1("DS")
    ENTRY ACTION:   I $G(ORCAT)="O" D DSUP^ORCDPS1
    ITEM:   OR GTX DAYS SUPPLY
    EXIT ACTION:   S:$G(ORCAT)="O" ORDSUP=+$G(ORDIALOG(PROMPT,INST))
    REQUIRED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   1.5
    ASK ON CONDITION:   I 0 ;stuffed in via Instructions
    ITEM:   OR GTX DRUG NAME
  • SEQUENCE:   2.4
    INPUT TRANSFORM:   D INPCONJ^ORCDPS1
    PARENT:   OR GTX INSTRUCTIONS
    HELP MESSAGE:   Enter AND if the next dose is to be administered concurrently with this one, or THEN if it is to follow after.
    ASK ON CONDITION:   I $G(ORCOMPLX)
    POST-SELECTION ACTION:   I $G(ORESET)'=$P(Y,U) D CHANGED^ORCDPS1("QUANTITY")
    ENTRY ACTION:   D ENCONJ^ORCDPS1
    ITEM:   OR GTX AND/THEN
    EXIT ACTION:   I $G(ORCOMPLX),'$L($G(ORDIALOG(PROMPT,INST))),FIRST S MAX=1 ;stop prompting dose multiple
    ASK ON ACTION:   C
  • SEQUENCE:   2
    HELP MESSAGE:   Enter the dosage instructions for this order, as an amount and units.
    POST-SELECTION ACTION:   D CHDOSE^ORCDPS2 Q:'$G(DONE) D DEFCONJ^ORCDPS1
    XECUTABLE HELP:   D LIST^ORCD:$G(ORDIALOG(PROMPT,"LIST")),F^ORCDLGH:'$G(ORDIALOG(PROMPT,"LIST"))
    ENTRY ACTION:   D DOSES^ORCDPS2 I $G(ORDIALOG(PROMPT,"LIST")),'$O(ORDIALOG(PROMPT,0)),'$G(ORENEW) D LIST^ORCD
    ITEM:   OR GTX INSTRUCTIONS
    EXIT ACTION:   D EXDOSE^ORCDPS2
    DISPLAY TEXT:   Dose:
    REQUIRED:   YES
    MULTIPLE VALUED:   YES
    TITLE:   Instructions:
    ASK ON ACTION:   C
  • SEQUENCE:   3.5
    ASK ON CONDITION:   I 0 ;text stuffed via Entry Action
    ENTRY ACTION:   D PI^ORCDPS2
    ITEM:   OR GTX PATIENT INSTRUCTIONS
    ASK ON ACTION:   C
  • SEQUENCE:   4.5
    ASK ON CONDITION:   I 0 ;set via Entry Action
    ENTRY ACTION:   D NOW^ORCDPS3
    ITEM:   OR GTX NOW
    ORDER TEXT SEQUENCE:   10
    LEADING TEXT:   First Dose
    START NEW LINE:   YES
  • SEQUENCE:   11
    ITEM:   OR GTX STATEMENTS
  • SEQUENCE:   2.7
    PARENT:   OR GTX INSTRUCTIONS
    ASK ON CONDITION:   I 0 ;from Schedule
    ITEM:   OR GTX ADMIN TIMES
    FORMAT:   @
    ASK ON ACTION:   *
  • SEQUENCE:   2.8
    PARENT:   OR GTX INSTRUCTIONS
    ASK ON CONDITION:   I 0
    ITEM:   OR GTX SCHEDULE TYPE
    ASK ON ACTION:   *
  • SEQUENCE:   8.5
    INPUT TRANSFORM:   D INDIT^ORCDPS3
    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.
    XECUTABLE HELP:   D XHELP^ORCDPS3:$G(ORDIALOG(PROMPT,"LIST"))
    DEFAULT:   D DFIND^ORCDPS3
    ENTRY ACTION:   D IND^ORCDPS3
    ITEM:   OR GTX INDICATION
    EXIT ACTION:   I $L(Y) W " "_Y
    ORDER TEXT SEQUENCE:   20
    LEADING TEXT:   Indication:
    START NEW LINE:   YES
    DISPLAY TEXT:   Indication:
    REQUIRED:   YES
  • SEQUENCE:   2.1
    PARENT:   OR GTX INSTRUCTIONS
    HELP MESSAGE:   Enter the route of administration for this drug.
    SCREEN:   I $P(^(0),U,4)
    XECUTABLE HELP:   D LIST^ORCD:$G(ORDIALOG(PROMPT,"LIST"))&(X="?"),P^ORCDLGH:'$G(ORDIALOG(PROMPT,"LIST"))!(X'="?")
    DEFAULT:   D DEFRTE^ORCDPS1
    ENTRY ACTION:   D ROUTES^ORCDPS1
    ITEM:   OR GTX ROUTE
    EXIT ACTION:   S OROUTE=+$G(ORDIALOG(PROMPT,INST))
    FORMAT:   1~3
    REQUIRED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   2.2
    PARENT:   OR GTX INSTRUCTIONS
    HELP MESSAGE:   Enter a standard schedule for administering this medication.
    POST-SELECTION ACTION:   D CKSCH^ORCDPS1
    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)
    DEFAULT:   S:$L($G(^TMP("PSJSCH",$J))) Y=^($J)
    ENTRY ACTION:   S:ORCAT="I" REQD=$$SCHREQ^PSJORPOE(OROUTE,OROI,$G(ORDRUG))
    ITEM:   OR GTX SCHEDULE
    EXIT ACTION:   S ORSCH=$G(ORDIALOG(PROMPT,INST))
    REQUIRED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   8
    INDEX:   S.PSO
    HELP MESSAGE:   Enter the urgency of this order.
    DEFAULT:   S Y=+$$RECALL^ORCD(PROMPT) S:Y EDITONLY=1 S:'Y Y=9
    ENTRY ACTION:   S ORDIALOG(PROMPT,"D")=$S(ORCAT="I":"S.PSJ",1:"S.PSO")
    ITEM:   OR GTX URGENCY
    ORDER TEXT SEQUENCE:   6
    OMIT TEXT:   ROUTINE DONE
    DISPLAY TEXT:   Priority:
    REQUIRED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   10
    HELP MESSAGE:   Enter any additional instructions for this order.
    ASK ON CONDITION:   I '$G(PSJNOPC)!($G(ORTYPE)="Z")
    ITEM:   OR GTX WORD PROCESSING 1
    DISPLAY TEXT:   Comments:
    ASK ON ACTION:   C
  • SEQUENCE:   1.1
    PARENT:   OR GTX ORDERABLE ITEM
    ASK ON CONDITION:   I 0 ;stuffed in via Instructions
    ITEM:   OR GTX STRENGTH
    FORMAT:   @1350
  • SEQUENCE:   5.5
    HELP MESSAGE:   Enter the amount (number of tablets, e.g.) to be dispensed.
    ASK ON CONDITION:   I ORCAT="O"
    DEFAULT:   I $G(ORCAT)="O",$G(ORTYPE)'="Z" S Y=$$QTY^ORCDPS1 K:Y'>0 Y
    ENTRY ACTION:   I ORCAT="O" W:$L($G(ORQTY)) !,ORQTY S ORDIALOG(PROMPT,"A")="Quantity"_$S($L($G(ORQTYUNT)):" ("_ORQTYUNT_"): ",1:": ")
    ITEM:   OR GTX QUANTITY
    ORDER TEXT SEQUENCE:   8
    LEADING TEXT:   Quantity:
    START NEW LINE:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   7
    HELP MESSAGE:   Enter if the patient is to receive this medication by mail, at the window, or in the clinic.
    ASK ON CONDITION:   I ORCAT="O"
    XECUTABLE HELP:   D SETLIST^ORCD
    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
    ITEM:   OR GTX ROUTING
    DISPLAY TEXT:   Pick Up:
    REQUIRED:   YES
    ASK ON ACTION:   RC
VALIDATION D SC^ORCDPS3
DISPLAY TEXT Medications
ENTRY ACTION D PROVIDER^ORCDPSIV Q:$G(ORQUIT) D EN^ORCDPS1("")
QUICK SETUP D EN1^ORCDPS1
TYPE dialog
EXIT ACTION D EXIT^ORCDPS1
DISPLAY GROUP PHARMACY
LISTBOX TEXT Medications
WINDOW FORM ID 135
SIGNATURE REQUIRED ORES
PACKAGE PHARMACY DATA MANAGEMENT
VERIFY ORDER YES
ASK FOR ANOTHER ORDER YES-DON'T ASK
TIMESTAMP 2022-10-05 14:55:08