ORY60.m

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 ---ORY60   1203     printed  Apr 09, 2024@21:38:23                                                                                                                                                                                                       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