VBEC BLOOD BANK (15664)    ORDER DIALOG (101.41)

• SEQUENCE:   1
  INDEX:   S.VBEC
  WINDOWS CONTROL:   cboAvailTest of cboAvailComp
  HELP MESSAGE:   Enter a blood component or diagnostic test for the patient from the Blood Bank.
  SCREEN:   I $$ACTIVE^ORDD43(Y)
  POST-SELECTION ACTION:   D PSAOI^ORCDVBEC
  XECUTABLE HELP:   D XHELP^ORCDVBEC
  ITEM:   OR GTX ORDERABLE ITEM
  EXIT ACTION:   D EXOI^ORCDVBEC
  DISPLAY TEXT:   Component or Test:
  REQUIRED:   YES
  MULTIPLE VALUED:   YES
  TITLE:   Blood Components/Tests:
• SEQUENCE:   98
  ASK ON CONDITION:   I 0 ;created by Component
  ITEM:   OR GTX RESULTS
  MULTIPLE VALUED:   YES
  ASK ON ACTION:   *
• SEQUENCE:   2
  WINDOWS CONTROL:   cboCollType
  HELP MESSAGE:   Enter the method of collection for this sample.
  ASK ON CONDITION:   I ORTEST
  POST-SELECTION ACTION:   D CKTYPE^ORCDLR1
  XECUTABLE HELP:   D HELPTYPE^ORCDLR1
  DEFAULT:   I ORTEST S Y=$$COLLTYPE^ORCDLR1 K:'$L(Y) Y
  ENTRY ACTION:   I ORTEST D ENTYPE^ORCDVBEC
  ITEM:   OR GTX COLLECTION TYPE
  EXIT ACTION:   S ORCOLLCT=$G(ORDIALOG(PROMPT,INST))
  ORDER TEXT SEQUENCE:   2
  FORMAT:   1~1
  DISPLAY TEXT:   Collected By:
  REQUIRED:   YES
  ASK ON ACTION:   C
• SEQUENCE:   3
  INPUT TRANSFORM:   I ORCOLLCT="LC",X'?1.N,"AMNEXT"'[$$UP^XLFSTR(X),$L(X,".")'>1,$L(X,"@")'>1 S X=X_"@"_$S($$DATE^ORCDLR(X)=DT:$G(ORTIME("NEXT")),1:$G(ORTIME("AM")))
  WINDOWS CONTROL:   calCollTime
  HELP MESSAGE:   Enter the date/time the sample should be collected.
  ASK ON CONDITION:   I ORTEST
  POST-SELECTION ACTION:   I $G(ORESET)'=$P(Y,U) N OK S OK=$S(ORCOLLCT="LC":$$LABCOLL^ORCDLR1($P(Y,U)),ORCOLLCT="I":$$IMMCOLL^ORCDLR1($P(Y,U)),1:$$CKDATE^ORCDLR1($P(Y,U))) I 'OK W $C(7),!,$P(OK,U,2) K DONE
  XECUTABLE HELP:   D FTDHELP^ORCD D:ORCOLLCT="LC" LISTCOLL^ORCDLR1,LIST^ORCD:$G(ORDIALOG(PROMPT,"LIST")) D:ORCOLLCT="I" IMMTIMES^ORCDLR1
  DEFAULT:   I ORTEST,$G(ORTYPE)'="Z" S Y=$$DEFTIME^ORCDLR1 K:'$L(Y) Y
  ENTRY ACTION:   I ORTEST D COLLTIME^ORCDLR1
  ITEM:   OR GTX START DATE/TIME
  DISPLAY TEXT:   Collection Date/Time:
  REQUIRED:   YES
  ASK ON ACTION:   W
• SEQUENCE:   1.3
  PARENT:   OR GTX ORDERABLE ITEM
  ASK ON CONDITION:   I 0 ;stuffed in from component
  ENTRY ACTION:   D SPCSTS^ORCDVBEC
  ITEM:   OR GTX SPECIMEN STATUS
  FORMAT:   @
  ASK ON ACTION:   *
• SEQUENCE:   99
  ASK ON CONDITION:   I 0 ;created by Lab child order on release
  ITEM:   OR GTX LAB ORDER
  ASK ON ACTION:   *
• SEQUENCE:   1.2
  PARENT:   OR GTX ORDERABLE ITEM
  WINDOWS CONTROL:   tQuantity
  HELP MESSAGE:   Enter the number of units needed, from 1-99.
  ASK ON CONDITION:   K:'$G(ORASK) ORDIALOG(PROMPT,INST) I $G(ORASK)
  POST-SELECTION ACTION:   D PSAMT^ORCDVBEC
  ITEM:   OR GTX AMOUNT
  TRAILING TEXT:   unit(s)
  REQUIRED:   YES
  ASK ON ACTION:   C
• SEQUENCE:   6
  WINDOWS CONTROL:   calWanted
  HELP MESSAGE:   Enter the date/time the unit(s) should be available.
  XECUTABLE HELP:   D FTDHELP^ORCD
  ITEM:   OR GTX DATE/TIME
  EXIT ACTION:   D DTW^ORCDVBEC
  DISPLAY TEXT:   Date/Time Wanted:
  REQUIRED:   YES
  ASK ON ACTION:   CW
• SEQUENCE:   1.1
  PARENT:   OR GTX ORDERABLE ITEM
  WINDOWS CONTROL:   cboModifiers
  HELP MESSAGE:   Select a modifier, if needed.
  ASK ON CONDITION:   K:'$G(ORASK) ORDIALOG(PROMPT,INST) I $G(ORASK)
  XECUTABLE HELP:   D LIST^ORCD
  ENTRY ACTION:   D MOD^ORCDVBEC
  ITEM:   OR GTX RBC MODIFIERS
  ASK ON ACTION:   C
• SEQUENCE:   7
  WINDOWS CONTROL:   tReason
  HELP MESSAGE:   Select a reason why this component is needed, or enter one of your own.
  XECUTABLE HELP:   D LIST^ORCD
  ENTRY ACTION:   D REASON^ORCDVBEC
  ITEM:   OR GTX REASON
  ORDER TEXT SEQUENCE:   7
  LEADING TEXT:   Reason for Request:
  START NEW LINE:   YES
  REQUIRED:   YES
  ASK ON ACTION:   C
• SEQUENCE:   4
  INDEX:   S.VBEC
  WINDOWS CONTROL:   cboUrgency
  HELP MESSAGE:   Enter the urgency of this request.
  ASK ON CONDITION:   I $$ASKURG^ORCDVBEC
  XECUTABLE HELP:   D LIST^ORCD
  ENTRY ACTION:   D ENURG^ORCDVBEC
  ITEM:   OR GTX URGENCY
  ORDER TEXT SEQUENCE:   4
  OMIT TEXT:   ROUTINE
  REQUIRED:   YES
  ASK ON ACTION:   CW
• SEQUENCE:   5
  WINDOWS CONTROL:   cboSurgery
  HELP MESSAGE:   Enter the name of the surgical procedure that this request is for.
  POST-SELECTION ACTION:   D CKMSBOS^ORCDVBEC
  XECUTABLE HELP:   D LIST^ORCD
  ENTRY ACTION:   D ENSURG^ORCDVBEC
  ITEM:   OR GTX TEXT
  ORDER TEXT SEQUENCE:   5
  LEADING TEXT:   for
  DISPLAY TEXT:   Surgery:
  ASK ON ACTION:   C
• SEQUENCE:   8
  WINDOWS CONTROL:   chkConsent
  HELP MESSAGE:   Enter YES if the patient has signed a consent form.
  ASK ON CONDITION:   I 0 ;I ORCOMP
  ITEM:   OR GTX YES/NO
  DISPLAY TEXT:   Informed Consent signed on chart?
  REQUIRED:   YES
  TITLE:   Informed Consent:
  ASK ON ACTION:   CW
• SEQUENCE:   9
  WINDOWS CONTROL:   txtDiagComment
  HELP MESSAGE:   Enter any additional comments or instructions for this order.
  ENTRY ACTION:   I $G(ORTYPE)'="Z",$P($G(^ORD(101.43,+$G(ORITM),0)),U)="OTHER" S REQD=1
  ITEM:   OR GTX FREE TEXT 1
  ORDER TEXT SEQUENCE:   6
  START NEW LINE:   YES
  DISPLAY TEXT:   Comments:
  ASK ON ACTION:   C

This dialog creates an order for blood components to be made available
by the VBECS system, as well as any supporting diagnostic tests.