ORY293 ;SLC/JMH - post install routine for patch OR*3*293; ;06/07/10 05:16
;;3.0;ORDER ENTRY/RESULTS REPORTING;**293**;Dec 17, 1997;Build 20
;
POST ;
;task out CONVERT^OROCAPI1
D TASK
Q
;
TASK ; -- queue job to convert order checks
N ZTDESC,ZTRTN,ZTIO,ZTSAVE,ZTDTH,ZTSK,ORMSG
S ORMSG(1)="A background job has been queued to convert order checks"
S ORMSG(2)="from file 100 to file 100.05." D MES^XPDUTL(.ORMSG)
S ZTDESC="Convert Order Checks",ZTRTN="CONVERT^OROCAPI1"
S ZTIO="",ZTDTH=$H,ZTSAVE("DUZ")="" D ^%ZTLOAD K ORMSG
S ORMSG="Task "_$S($G(ZTSK):"#"_ZTSK,1:"not")_" started."
D MES^XPDUTL(ORMSG)
I '$G(ZTSK) D BMES^XPDUTL("Use TASK^ORY293 to queue this job to complete conversion of order checks!")
S ^XTMP("ORK FILE CONVERSION",0)=$$FMADD^XLFDT($$NOW^XLFDT,90)_U_$$NOW^XLFDT
S ^XTMP("ORK FILE CONVERSION","INSTALLER")=DUZ
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HORY293 871 printed Dec 13, 2024@02:40:45 Page 2
ORY293 ;SLC/JMH - post install routine for patch OR*3*293; ;06/07/10 05:16
+1 ;;3.0;ORDER ENTRY/RESULTS REPORTING;**293**;Dec 17, 1997;Build 20
+2 ;
POST ;
+1 ;task out CONVERT^OROCAPI1
+2 DO TASK
+3 QUIT
+4 ;
TASK ; -- queue job to convert order checks
+1 NEW ZTDESC,ZTRTN,ZTIO,ZTSAVE,ZTDTH,ZTSK,ORMSG
+2 SET ORMSG(1)="A background job has been queued to convert order checks"
+3 SET ORMSG(2)="from file 100 to file 100.05."
DO MES^XPDUTL(.ORMSG)
+4 SET ZTDESC="Convert Order Checks"
SET ZTRTN="CONVERT^OROCAPI1"
+5 SET ZTIO=""
SET ZTDTH=$HOROLOG
SET ZTSAVE("DUZ")=""
DO ^%ZTLOAD
KILL ORMSG
+6 SET ORMSG="Task "_$SELECT($GET(ZTSK):"#"_ZTSK,1:"not")_" started."
+7 DO MES^XPDUTL(ORMSG)
+8 IF '$GET(ZTSK)
DO BMES^XPDUTL("Use TASK^ORY293 to queue this job to complete conversion of order checks!")
+9 SET ^XTMP("ORK FILE CONVERSION",0)=$$FMADD^XLFDT($$NOW^XLFDT,90)_U_$$NOW^XLFDT
+10 SET ^XTMP("ORK FILE CONVERSION","INSTALLER")=DUZ
+11 QUIT
+12 ;
