ORWDXVB3 ;;slc/dcm - Order dialog utilities for Blood Bank Cont. ;3/17/10 08:20
;;3.0;ORDER ENTRY/RESULTS REPORTING;**280**;Dec 17 1997;Build 85
DIAGORD(OROOT) ;Get sequence order of Diagnostic tests
N ORLIST,I,X
D GETLST^XPAR(.ORLIST,"ALL","OR VBECS DIAGNOSTIC TEST ORDER")
S I=0 F S I=$O(ORLIST(I)) Q:'I S X=ORLIST(I) I $D(^ORD(101.43,$P(X,"^",2),0)) S OROOT(I)=$P(X,"^",2)_"^"_$P(^(0),"^",1)_"^"_$P(^(0),"^",1)
Q
COLLTIM(OROOT) ;Get Collection Time Default Parameter Value
S OROOT=+$$GET^XPAR("ALL","OR VBECS REMOVE COLL TIME",1,"I")
Q
SWPANEL(OROOT) ;Switch the location of the Diagnostic and Component panels on VBECS Order Dialog
S OROOT=+$$GET^XPAR("ALL","OR VBECS DIAGNOSTIC PANEL 1ST",1,"I")
Q
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORWDXVB3 728 printed Nov 22, 2024@17:46:05 Page 2
ORWDXVB3 ;;slc/dcm - Order dialog utilities for Blood Bank Cont. ;3/17/10 08:20
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**280**;Dec 17 1997;Build 85
DIAGORD(OROOT) ;Get sequence order of Diagnostic tests
+1 NEW ORLIST,I,X
+2 DO GETLST^XPAR(.ORLIST,"ALL","OR VBECS DIAGNOSTIC TEST ORDER")
+3 SET I=0
FOR
SET I=$ORDER(ORLIST(I))
if 'I
QUIT
SET X=ORLIST(I)
IF $DATA(^ORD(101.43,$PIECE(X,"^",2),0))
SET OROOT(I)=$PIECE(X,"^",2)_"^"_$PIECE(^(0),"^",1)_"^"_$PIECE(^(0),"^",1)
+4 QUIT
COLLTIM(OROOT) ;Get Collection Time Default Parameter Value
+1 SET OROOT=+$$GET^XPAR("ALL","OR VBECS REMOVE COLL TIME",1,"I")
+2 QUIT
SWPANEL(OROOT) ;Switch the location of the Diagnostic and Component panels on VBECS Order Dialog
+1 SET OROOT=+$$GET^XPAR("ALL","OR VBECS DIAGNOSTIC PANEL 1ST",1,"I")
+2 QUIT
