source: WorldVistAEHR/trunk/r/ORDER_ENTRY_RESULTS_REPORTING-OR-OCX--ORRC--ORRJ/ORVOM3.m@ 1141

Last change on this file since 1141 was 613, checked in by George Lilly, 15 years ago

initial load of WorldVistAEHR

File size: 935 bytes
Line 
1ORVOM3 ; 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 ;
6FILE ;
7 S DL=0,Q="Q Q",S=" ;;"
8NAME S D=$L(DH)+10,DNAME=DN_$E(DRN,2,4)
9ZI ;
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)
112 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
14K K %A,%B,%C,%Z,^UTILITY($J) S DL=0 Q
15 ;
16TEXT ;
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 ;; ;
Note: See TracBrowser for help on using the repository browser.