source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORVOM.m@ 837

ORVOM ; slc/dcm - Generate ONITS- for OE/RR ;1/22/91  15:39

 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997

 I $S('$D(DUZ(0)):1,DUZ(0)'="@":1,1:0) W !,"PROGRAMMER ACCESS REQUIRED",! Q

R I $D(^%ZOSF("OS"))#2 S DISYS=+$P(^("OS"),"^",2)

 Q:'$D(DISYS)  R !!,"Enter the Name of the Package (2-4 characters): ",X:$S($D(DTIME):DTIME,1:60)

 Q:"^"[X  I X'?1U1.NU!($L(X)>4) D R^ORVOMH G R

 S DIC="^DIC(9.4,",DIC(0)="E",D="C" D IX^DIC,Q^ORVOM0 S DPK=+Y G:Y<1 L

 I $S('$D(^ORD(100.99,1,5,DPK,0)):1,'$L($P(^(0),"^",2))&('$O(^(1,0))):1,1:0) W !,"Nothing setup to export PROTOCOLS in the ORDER PARAMETERS file for this package" G Q

 S DH=$S($D(^ORD(100.99,1,5,DPK,0)):$P(^(0),"^",2),1:"")

DH I $L(DH) W !,"Exporting PROTOCOLS with namespace "_DH S X=DH

R1 W !!,"I am going to create a routine called '",X,"ONIT'."

 S U="^",%=0,%B="",DL=0,DIH="",DTL=X,DN=X_$E("ONI",1,5-$L(X))

 S ^UTILITY($J)=DN,X=X_"ONIT"

 I $D(^%ZOSF("TEST"))#2 X ^("TEST") I  W $C(7),!,"but '"_X_"' is ALREADY ON FILE!" S Q=1

 W !,"Is that OK" D YN^DICN G Q:%<0!(%=2) I '% D R1^ORVOMH G R1

R3 S %=1,Q=DPK,DPK(1)=""

 S F(-1)=0

DD ;

D1 K ^UTILITY(U,$J),DR S DRN=DL,F=0,%=2 G Q:$D(F)+$D(Q)=2,S:Q<1

 W !,"Moving "_$P(^DIC(9.4,DPK,0),U)_" Protocols into Onit's."

 K ^UTILITY(U,$J,"PKG",DPK,"VERSION")

S D VER^ORVOM11 G Q:$D(DIRUT) G ^ORVOM0

 ;

Q G Q^ORVOM0

L W !!,"Package "_X_" not found",!,"Please enter the protocol namespace you wish to export: " R X:300 G Q:'$T!(X="")!(X'?1A.E)

 I $L(X)>4 W !,"Namespace too long" G L

 S DH=X G DH

 Q

DOT ;;

 W "." Q  N DOT,I,J,X

 I '$D(IOBS) D HOME^%ZIS

 I '$L($G(IOBS)) W "." Q

 S DOT="    .|    o|    O|   ( )|  <   >| -     -|"

 F I=1:1:$L(DOT,"|") S X=$P(DOT,"|",I) W X H .2 F J=$L(X):-1:1 W @IOBS

 Q