Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: RA44PST

RA44PST.m

Go to the documentation of this file.
  1. RA44PST ;HOIFO/SWM-Post install ;1/20/04 11:52
  1. ;;5.0;Radiology/Nuclear Medicine;**44**;Mar 16, 1998
  1. ; This is the post-install routine for patch RA*5.0*44
  1. ;
  1. ; This routine may be deleted after the patch is installed.
  1. ;
  1. ; supported IA 1472 allows adding record to file 19.2
  1. ;
  1. I '$D(XPDNM)#2 D EN^DDIOL("This entry point must be called from the KIDS installation -- Nothing Done.",,"!!,$C(7)") Q
  1. N RABY,RADT,RAIEN19,RAWHEN,RAFLAG,RAERR,RAR,RATXT
  1. N D1,M1,Y1,M2,Y2
  1. S RATXT(1)=""
  1. S RAIEN19=$O(^DIC(19,"B","RA PERFORMIN TASKLM",0))
  1. I 'RAIEN19 D Q
  1. . S RATXT(2)="** Option RA PERFORMIN TASKLM isn't installed into file 19, so nothing done. **"
  1. . D MES^XPDUTL(.RATXT)
  1. . Q
  1. ;
  1. D OPTSTAT^XUTMOPT("RA PERFORMIN TASKLM",.RAR)
  1. I $P($G(RAR(1)),U) D Q
  1. . S RATXT(2)="** Option RA PERFORMIN TASKLM is already scheduled, so nothing done. **"
  1. . D MES^XPDUTL(.RATXT)
  1. . Q
  1. ;
  1. ; add option to file 19.2 for automatic rescheduling
  1. I '$O(^DIC(19.2,"B",RAIEN19,0)) D
  1. . S RAFLAG="L"
  1. . S RATXT(2)="** Installing RA PERFORMIN TASKLM into file 19.2. **"
  1. . D MES^XPDUTL(.RATXT)
  1. . D SET15
  1. . D RESCH^XUTMOPT("RA PERFORMIN TASKLM",RAWHEN,,RABY,RAFLAG,.RAERR)
  1. . Q
  1. ;
  1. N RATXT,ZTDESC,ZTDTH,ZTIO,ZTRTN S ZTIO=""
  1. S ZTRTN="SCHED^RA44PST"
  1. S ZTDESC="RA*5.0*44 Schedule RA PERFORMIN TASKLM on 15th"
  1. S ZTDTH=$$FMADD^XLFDT($$NOW^XLFDT(),0,0,2,0) ;add 2 minutes to 'now'
  1. D ^%ZTLOAD S RATXT(1)=" "
  1. S RATXT(2)="RA*5.0*44 Scheduling RA PERFORMIN TASKLM in background."
  1. S:$G(ZTSK)>0 RATXT(3)="Task: "_ZTSK_"."
  1. S RATXT(4)=" "
  1. D MES^XPDUTL(.RATXT)
  1. Q
  1. SCHED ; schedule RA PERFORMIN TASKLM to run on 15th
  1. N RABY,RADT,RAIEN19,RAWHEN,RAFLAG,RAERR,RAR
  1. N D1,M1,Y1,M2,Y2
  1. S ZTREQ="@"
  1. D OPTSTAT^XUTMOPT("RA PERFORMIN TASKLM",.RAR)
  1. I $P($G(RAR(1)),U) Q ; option already tasked
  1. I '$D(RAR(1)) Q ; option not in file 19.2
  1. D SET15
  1. D RESCH^XUTMOPT("RA PERFORMIN TASKLM",RAWHEN,,RABY,,.RAERR)
  1. Q
  1. SET15 ; set some variables for scheduling task
  1. S Y1=$E(DT,1,3),M1=$E(DT,4,5),D1=$E(DT,6,7)
  1. S Y2=$S(M1="12":Y1+1,1:Y1),M2=$S(M1="12":"01",1:M1+1)
  1. S:$L(M2)=1 M2="0"_M2
  1. D:D1=15 TODAY D:D1<15 THISM D:D1>15 NEXTM
  1. S RAWHEN=$$FMADD^XLFDT(RADT,,,5) ; add 5 mins to scheduled date
  1. S RABY="1M(15)" ; every month on the 15th day
  1. Q
  1. TODAY ; today is the 15th
  1. S RADT=$$NOW^XLFDT
  1. Q
  1. THISM ; this month on the 15th
  1. S RADT=Y1_M1_"15."_$P(($$NOW^XLFDT),".",2)
  1. Q
  1. NEXTM ; next month on the 15th
  1. S RADT=Y2_M2_"15."_$P(($$NOW^XLFDT),".",2)
  1. Q