| [613] | 1 | ORVOM3 ; slc/dcm - Creates rtn ending in 'ONIT2' ;1/23/91 07:15
|
|---|
| 2 | ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
|
|---|
| 3 | S DNAME=E_2,DL=0,(DH,Q)=" ;" K ^UTILITY($J) F DD=1:1 S X=$P($T(TEXT+DD),";",3,999) Q:X="" S ^UTILITY($J,DD,0)=X,ORVROM=2
|
|---|
| 4 | D ZI G ^ORVOM4 ;cu
|
|---|
| 5 | ;
|
|---|
| 6 | FILE ;
|
|---|
| 7 | S DL=0,Q="Q Q",S=" ;;"
|
|---|
| 8 | NAME S D=$L(DH)+10,DNAME=DN_$E(DRN,2,4)
|
|---|
| 9 | ZI ;
|
|---|
| 10 | I '$D(DIFROM(1)) S %H=+$H D YX^%DTC S DIFROM(1)=$E(Y,5,6)_"-"_$E(Y,1,3)_"-"_$E(Y,9,12)
|
|---|
| 11 | 2 K ^UTILITY($J,0) S ^(0,1)=DNAME_" ; ; "_DIFROM(1),^(1.1)=DILN2
|
|---|
| 12 | S ^UTILITY($J,0,2)=DH,^UTILITY($J,0,3)=Q F L=4:1 S DL=$O(^UTILITY($J,DL)) Q:DL="" S ^UTILITY($J,0,L)=S_^(DL,0),D=$L(^(L))+D I D+380>DIFRM,$E(^(L),4)'="^",$E(^(L),4)'=$C(126) Q
|
|---|
| 13 | S DRN=DRN+1,X=DNAME X ^DD("OS",DISYS,"ZS") W !,X_" HAS BEEN FILED..." G NAME:DL>0
|
|---|
| 14 | K K %A,%B,%C,%Z,^UTILITY($J) S DL=0 Q
|
|---|
| 15 | ;
|
|---|
| 16 | TEXT ;
|
|---|
| 17 | ;; K ^UTILITY("ORVROM",$J),DIC
|
|---|
| 18 | ;; Q
|
|---|
| 19 | ;;DT W !
|
|---|
| 20 | ;; I '$D(DTIME) S DTIME=999
|
|---|
| 21 | ;; K %DT D NOW^%DTC S DT=X
|
|---|
| 22 | ;; K DIK,DIC,%I,DICS Q
|
|---|
| 23 | ;; ;
|
|---|
