LR OTHER LAB AP TESTS (1607)    ORDER DIALOG (101.41)

Name Value
NAME LR OTHER LAB AP TESTS
ITEMS
  • SEQUENCE:   1
    INDEX:   S.AP
    WINDOWS CONTROL:   lstSelectTest
    HELP MESSAGE:   Enter a lab test to be ordered for this patient.
    SCREEN:   I $$ACTIVE^ORDD43(Y),$$OK4CPRS^ORWLRAP1(Y,1)
    POST-SELECTION ACTION:   I $G(ORESET),ORESET'=+Y D CHANGED^ORCDLR("OI") K ORTEST
    XECUTABLE HELP:   N IDX,SCR S IDX=$G(ORDIALOG(PROMPT,"D")),SCR=$G(ORDIALOG(PROMPT,"S")) D XHELP^ORDD43(IDX,SCR)
    ENTRY ACTION:   K:FIRST ORTEST
    ITEM:   OR GTX ORDERABLE ITEM
    EXIT ACTION:   D CKTYP^ORCDLR Q:$G(ORQUIT) D TEST^ORCDLR ;Setup test parameters
    DISPLAY TEXT:   Anatomic Pathology Test:
    REQUIRED:   YES
  • SEQUENCE:   9
    WINDOWS CONTROL:   txtDays
    HELP MESSAGE:   Enter the number of days or X_number of times to execute this order.
    ASK ON CONDITION:   I 0
    POST-SELECTION ACTION:   N OK S OK=$$CKMAX^ORCDLR(Y) I 'OK K DONE W $C(7),!,$P(OK,U,2),!
    ENTRY ACTION:   D SHOWMAX^ORCDLR
    ITEM:   OR GTX DURATION
    DISPLAY TEXT:   How long:
    REQUIRED:   YES
  • SEQUENCE:   20
    ASK ON CONDITION:   I 0 ; populated from patient data
    ITEM:   OR GTX VISITSTR
    REQUIRED:   YES
    PROMPT:   VISITSTR
    ASK ON ACTION:   *
  • SEQUENCE:   1.1
    HELP MESSAGE:   Enter the surgeon or provider.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPSPH")
    SCREEN:   I $D(^XUSEC("PROVIDER",+Y))
    ITEM:   OR GTX SURGEON/PROVIDER
    DISPLAY TEXT:   Surgeon/Provider:
  • SEQUENCE:   1.2
    HELP MESSAGE:   Enter who submitted this specimen.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPSSB")
    ITEM:   OR GTX SPECIMEN SUBMITTED BY
    DISPLAY TEXT:   Specimen Submitted by:
  • SEQUENCE:   12
    ITEM:   OR GTX SPECIMEN DESCRIPTION
    DISPLAY TEXT:   Specimen Description:
    REQUIRED:   YES
    MULTIPLE VALUED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   13
    ASK ON CONDITION:   I $$ASKPAGE^ORWLRAP2("CLINHX")
    ITEM:   OR GTX CLINICAL HISTORY
    DISPLAY TEXT:   Clinical History:
    REQUIRED:   YES
  • SEQUENCE:   14
    ASK ON CONDITION:   I $$ASKPAGE^ORWLRAP2("PREOPDX")
    ITEM:   OR GTX PRE OPERATIVE DIAGNOSIS
    DISPLAY TEXT:   Pre Operative Diagnosis:
  • SEQUENCE:   15
    ASK ON CONDITION:   I $$ASKPAGE^ORWLRAP2("OPFIND")
    ITEM:   OR GTX OPERATIVE FINDINGS
    DISPLAY TEXT:   Operative Findings:
  • SEQUENCE:   16
    ASK ON CONDITION:   I $$ASKPAGE^ORWLRAP2("POSTOPDX")
    ITEM:   OR GTX POST OPERATIVE FINDINGS
    DISPLAY TEXT:   Post Operative Findings:
  • SEQUENCE:   2
    WINDOWS CONTROL:   cboCollType
    HELP MESSAGE:   Enter the method of collection for this sample.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPCTY")
    POST-SELECTION ACTION:   D CKTYPE^ORCDLR1
    XECUTABLE HELP:   D HELPTYPE^ORCDLR1
    DEFAULT:   I $$ASKPROMPT^ORWLRAP2("OPCTY") S Y=$$COLLTYPE^ORCDLR1 K:'$L(Y) Y
    ITEM:   OR GTX COLLECTION TYPE
    EXIT ACTION:   S ORCOLLCT=$G(ORDIALOG(PROMPT,INST))
    ORDER TEXT SEQUENCE:   6
    FORMAT:   1~1
    DISPLAY TEXT:   Collection Type:
    REQUIRED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   5
    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:   cboCollTime
    HELP MESSAGE:   Enter the date/time the sample(s) should be collected.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPCDT")
    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 $G(ORTYPE)'="Z" S Y=$$DEFTIME^ORCDLR1 K:'$L(Y) Y
    ENTRY ACTION:   D COLLTIME^ORCDLR1 ;,LIST^ORCD:ORCOLLCT="LC"&$G(ORDIALOG(PROMPT,"LIST"))
    ITEM:   OR GTX START DATE/TIME
    DISPLAY TEXT:   Collection Date/Time:
    REQUIRED:   YES
    ASK ON ACTION:   W
  • SEQUENCE:   8
    INDEX:   APLR
    WINDOWS CONTROL:   cboFrequency
    HELP MESSAGE:   Enter an administration schedule for how often this test is to be done.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPHOF")
    SCREEN:   I "CDO"[$P(^(0),U,5)
    POST-SELECTION ACTION:   I $G(ORESET),ORESET'=ORDIALOG(PROMPT,ORI) K ORDIALOG($$PTR^ORCD("OR GTX DURATION"),ORI)
    XECUTABLE HELP:   D XSCH^ORCDLR
    DEFAULT:   I $G(ORTYPE)'="Z",$D(LRFSCH)!ORMAX S Y=$$LRD1^ORDDPAPI S:$D(LRFSCH)&Y EDITONLY=1 K:Y'>0 Y
    ENTRY ACTION:   I $G(ORTYPE)'="Z",ORMAX'>0 K ORDIALOG(PROMPT,INST)
    ITEM:   OR GTX ADMIN SCHEDULE
    EXIT ACTION:   S ORSCH=+$G(ORDIALOG(PROMPT,INST))
    ORDER TEXT SEQUENCE:   8
    OMIT TEXT:   ONE TIME
    DISPLAY TEXT:   How often:
  • SEQUENCE:   6
    WINDOWS CONTROL:   cboUrgency
    HELP MESSAGE:   Enter the urgency of this test.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPURG")
    XECUTABLE HELP:   D LIST^ORCD
    DEFAULT:   I $G(ORTYPE)'="Z" S Y=+$G(ORTEST("Default Urgency")) I 'Y S Y=$S($L($G(LRFURG)):LRFURG,1:$$DEFURG^LR7OR3) S:$G(LRFURG) EDITONLY=1
    ENTRY ACTION:   D URGENCY^ORCDLR
    ITEM:   OR GTX LAB URGENCY
    ORDER TEXT SEQUENCE:   4
    OMIT TEXT:   ROUTINE
    ASK ON ACTION:   C
  • SEQUENCE:   10
    INDEX:   B;D
    WINDOWS CONTROL:   cboCollSamp
    HELP MESSAGE:   Enter the sample to be collected for this test.
    ASK ON CONDITION:   I $$ASKSAMP^ORCDLR
    POST-SELECTION ACTION:   I $G(ORESET),ORESET'=+Y N PTR S PTR=$$PTR^ORCD("OR GTX SPECIMEN") K ORDIALOG(PTR,1),ORDIALOG(PTR,"LIST")
    XECUTABLE HELP:   D XHELP^ORCDLR(PROMPT)
    DEFAULT:   S Y=$$SAMPLE^ORCDLR K:Y'>0 Y
    ENTRY ACTION:   D ENSAMP^ORCDLR
    ITEM:   OR GTX COLLECTION SAMPLE
    EXIT ACTION:   N ORS S ORS=+$G(ORDIALOG(PROMPT,INST)) D SHOWCOMM^ORCDLR(ORS)
    REQUIRED:   YES
    MULTIPLE VALUED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   11
    INDEX:   B
    WINDOWS CONTROL:   cboSpecimen
    HELP MESSAGE:   Enter the specimen on which this test is to be performed.
    ASK ON CONDITION:   I '$$SPECIMEN^ORCDLR
    SCREEN:   I $$ALLOWSPEC^ORWLRAP2(Y)
    DEFAULT:   S Y=$$SPECIMEN^ORCDLR K:Y'>0 Y
    ITEM:   OR GTX SPECIMEN
    ORDER TEXT SEQUENCE:   3
    FORMAT:   =126
    REQUIRED:   YES
    MULTIPLE VALUED:   YES
    ASK ON ACTION:   C
  • SEQUENCE:   9.5
    WINDOWS CONTROL:   txtComment
    HELP MESSAGE:   Enter any additional comments or instructions for this test and specimen.
    ASK ON CONDITION:   I $$ASKPROMPT^ORWLRAP2("OPODC")
    ITEM:   OR GTX WORD PROCESSING 1
    ORDER TEXT SEQUENCE:   9
    START NEW LINE:   YES
    ASK ON ACTION:   C
VALIDATION I '$$VALID^ORCDLR1(ORIFN) S ORQUIT=1 W !!,"Order will not be signed/released." H 2
ADDITIONAL TEXT I '$$LB^ORCDLR(ORIFN),$G(^OR(100,ORIFN,4)) S Y="LB #"_$P(^(4),";")
DISPLAY TEXT Anatomic Pathology Tests
ENTRY ACTION D EN^ORCDLR1
QUICK SETUP D EN^ORCDLR1
TYPE dialog
EXIT ACTION D EX^ORCDLR1
DISPLAY GROUP ANATOMIC PATHOLOGY
LISTBOX TEXT Anatomic Pathology Tests
WINDOW FORM ID 121
SIGNATURE REQUIRED ORES
PACKAGE LAB SERVICE
VERIFY ORDER YES
ASK FOR ANOTHER ORDER YES-DON'T ASK
TIMESTAMP 2022-10-05 14:55:07