ORY60 ; SLC/MKB - Postinit for patch OR*3*60 ;6/17/99 10:42
;;3.0;ORDER ENTRY/RESULTS REPORTING;**60**;Dec 17, 1997
;
EN ; -- ck Input Xforms in file #101.41
;
N ORI,ORX,ORDLG,ORPMT,ORDA
F ORI=1:1 S ORX=$T(XFORM+ORI) Q:ORX["ZZZZZ" D
. S ORDLG=+$O(^ORD(101.41,"AB",$P(ORX,";",3),0))
. S ORPMT=+$O(^ORD(101.41,"AB",$P(ORX,";",4),0))
. S ORDA=+$O(^ORD(101.41,ORDLG,10,"D",ORPMT,0)) Q:ORDA'>0
. I $P(ORX,";",5)'="@" S ^ORD(101.41,ORDLG,10,ORDA,.1)=$P(ORX,";",5) Q
. K ^ORD(101.41,ORDLG,10,ORDA,.1) S ^(9)=$P(ORX,";",6),$P(^(1),U)=$P(ORX,";",7)
Q
;
XFORM ;;DIALOG;PROMPT;INPUT XFORM;ENTRY ACTION;HELP MSG
;;LR OTHER LAB TESTS;OR GTX START DATE/TIME;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")))
;;PSJI OR PAT FLUID OE;OR GTX INFUSION RATE;D ORINF^PSIVSP
;;FHW2;OR GTX SCHEDULE;S X=$$UP^XLFSTR(X)
;;FHW2;OR GTX START DATE;@;S $P(ORDIALOG(PROMPT,0),":",2)="T+30";Enter the date to begin delivery of this tray, up to 30 days ahead.
;;FHW2;OR GTX STOP DATE;@;S $P(ORDIALOG(PROMPT,0),":",2)="T+30";Enter the date to end delivery of this tray, up to 30 days ahead.
;;ZZZZZ
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY60 1203 printed Nov 22, 2024@17:53 Page 2
ORY60 ; SLC/MKB - Postinit for patch OR*3*60 ;6/17/99 10:42
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**60**;Dec 17, 1997
+2 ;
EN ; -- ck Input Xforms in file #101.41
+1 ;
+2 NEW ORI,ORX,ORDLG,ORPMT,ORDA
+3 FOR ORI=1:1
SET ORX=$TEXT(XFORM+ORI)
if ORX["ZZZZZ"
QUIT
Begin DoDot:1
+4 SET ORDLG=+$ORDER(^ORD(101.41,"AB",$PIECE(ORX,";",3),0))
+5 SET ORPMT=+$ORDER(^ORD(101.41,"AB",$PIECE(ORX,";",4),0))
+6 SET ORDA=+$ORDER(^ORD(101.41,ORDLG,10,"D",ORPMT,0))
if ORDA'>0
QUIT
+7 IF $PIECE(ORX,";",5)'="@"
SET ^ORD(101.41,ORDLG,10,ORDA,.1)=$PIECE(ORX,";",5)
QUIT
+8 KILL ^ORD(101.41,ORDLG,10,ORDA,.1)
SET ^(9)=$PIECE(ORX,";",6)
SET $PIECE(^(1),U)=$PIECE(ORX,";",7)
End DoDot:1
+9 QUIT
+10 ;
XFORM ;;DIALOG;PROMPT;INPUT XFORM;ENTRY ACTION;HELP MSG
+1 ;;LR OTHER LAB TESTS;OR GTX START DATE/TIME;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")))
+2 ;;PSJI OR PAT FLUID OE;OR GTX INFUSION RATE;D ORINF^PSIVSP
+3 ;;FHW2;OR GTX SCHEDULE;S X=$$UP^XLFSTR(X)
+4 ;;FHW2;OR GTX START DATE;@;S $P(ORDIALOG(PROMPT,0),":",2)="T+30";Enter the date to begin delivery of this tray, up to 30 days ahead.
+5 ;;FHW2;OR GTX STOP DATE;@;S $P(ORDIALOG(PROMPT,0),":",2)="T+30";Enter the date to end delivery of this tray, up to 30 days ahead.
+6 ;;ZZZZZ
