| ITEMS |
-
- SEQUENCE: 1
- INDEX: S.LAB
- WINDOWS CONTROL: lstSelectTest
- HELP MESSAGE: Enter a lab test to be ordered for this patient.
- SCREEN: I $$ACTIVE^ORDD43(Y)
- 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: Lab 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 $G(ORSCH),"CD"[$$LRD2^ORDDPAPI(ORSCH) ;cont or day of week only
- 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: 10
- ASK ON CONDITION: I 0 ; populated from patient data
- ITEM: OR GTX VISITSTR
- REQUIRED: YES
- PROMPT: VISITSTR
- ASK ON ACTION: *
-
- SEQUENCE: 2
- WINDOWS CONTROL: cboCollType
- HELP MESSAGE: Enter the method of collection for this sample.
- POST-SELECTION ACTION: D CKTYPE^ORCDLR1
- XECUTABLE HELP: D HELPTYPE^ORCDLR1
- DEFAULT: 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: Collected By:
- 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.
- 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 $G(ORTYPE)="Z"!ORMAX
- 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 $$ASKURG^ORCDLR
- 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: 3
- 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
- ASK ON ACTION: C
-
- SEQUENCE: 4
- INDEX: B;D
- WINDOWS CONTROL: cboSpecimen
- HELP MESSAGE: Enter the specimen on which this test is to be performed.
- ASK ON CONDITION: I '$$SPECIMEN^ORCDLR
- XECUTABLE HELP: D SPECHELP^ORCDLR
- DEFAULT: S Y=$$SPECIMEN^ORCDLR K:Y'>0 Y
- ITEM: OR GTX SPECIMEN
- ORDER TEXT SEQUENCE: 3
- FORMAT: =126
- REQUIRED: YES
- ASK ON ACTION: C
-
- SEQUENCE: 7
- WINDOWS CONTROL: txtComment
- HELP MESSAGE: Enter any additional comments or instructions for this test and specimen.
- ASK ON CONDITION: I '$$REQDCOMM^ORCDLR
- ITEM: OR GTX WORD PROCESSING 1
- ORDER TEXT SEQUENCE: 9
- START NEW LINE: YES
- ASK ON ACTION: C
|
