ORVOM6 ; slc/dcm - ONIT creation ;12/11/90 14:30 ;
;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
S DH=" ;",Q=" K DIF,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,ORVROM,DFR,DTN,DIX,DZ"
S ^UTILITY($J,.3,0)=" S DIFQ=0,ORVROM="_$S($D(DR):DR,1:0)_" W !!,""This version of '"_DTL_"ONIT' was created on "_DIFROM(1)_""""
S X=$E(DTL_"ONIT",1,7)
S ^UTILITY($J,4,0)=" G Q:DIFQ D ^"_X_"1 G Q:'$D(DIFQ) S DIK(0)=""B"""
S ^UTILITY($J,6,0)=" D ^"_X_"2,^"_X_3,X=0
D VERS^OR
S ^UTILITY($J,.6,0)=" W !?9,""("_$S($D(^DD("SITE")):"at "_^("SITE")_",",1:"")_" by "_X_")"",!"
K ^UTILITY(U,$J),^UTILITY($J,0),E,F S D=-9999,DNAME=DTL_"ONIT",DL=0,^(0,1)=DNAME_" ; ; "_DIFROM(1) D 2^ORVOM3
G Q^ORVOM0
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORVOM6 693 printed Dec 13, 2024@02:34:59 Page 2
ORVOM6 ; slc/dcm - ONIT creation ;12/11/90 14:30 ;
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;;Dec 17, 1997
+2 SET DH=" ;"
SET Q=" K DIF,DIK,DDF,DDT,DTO,D0,DLAYGO,DIC,DIR,DA,ORVROM,DFR,DTN,DIX,DZ"
+3 SET ^UTILITY($JOB,.3,0)=" S DIFQ=0,ORVROM="_$SELECT($DATA(DR):DR,1:0)_" W !!,""This version of '"_DTL_"ONIT' was created on "_DIFROM(1)_""""
+4 SET X=$EXTRACT(DTL_"ONIT",1,7)
+5 SET ^UTILITY($JOB,4,0)=" G Q:DIFQ D ^"_X_"1 G Q:'$D(DIFQ) S DIK(0)=""B"""
+6 SET ^UTILITY($JOB,6,0)=" D ^"_X_"2,^"_X_3
SET X=0
+7 DO VERS^OR
+8 SET ^UTILITY($JOB,.6,0)=" W !?9,""("_$SELECT($DATA(^DD("SITE")):"at "_^("SITE")_",",1:"")_" by "_X_")"",!"
+9 KILL ^UTILITY(U,$JOB),^UTILITY($JOB,0),E,F
SET D=-9999
SET DNAME=DTL_"ONIT"
SET DL=0
SET ^(0,1)=DNAME_" ; ; "_DIFROM(1)
DO 2^ORVOM3
+10 GOTO Q^ORVOM0
