source: WorldVistAEHR/trunk/r/E_CLAIMS_MGMT_ENGINE-BPS/BPS01P2.m@ 1046

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

initial load of WorldVistAEHR

File size: 728 bytes
Line 
1BPS01P2 ;BHAM ISC/DMB - NPI Drop Dead Date Checking ;04/19/2006
2 ;;1.0;E CLAIMS MGMT ENGINE;**2**;JUN 2004;Build 12
3 ;
4 ; Pre-Install routine for BPS*1.0*2
5 ; Fileman calls to SCHEDULE OPTION file (#19.2) are allowed
6 ; by IA3732
7 ;
8 ; Must call this routine at the EN entry point
9 Q
10 ;
11 ;
12EN ; Remove Automated Registration as a scheduled job as
13 ; this is now called by the ECME Nightly Background Job
14 ; (BPSBCKJ), which is also an ECME scheduled job.
15 N DIC,X,Y,DTOUT,DUOUT,DIK,DA
16 ;
17 ; Get BPS APP REG TASKMAN option
18 S DIC=19.2,DIC(0)="BX",X="BPS APP REG TASKMAN"
19 D ^DIC
20 ;
21 ; Quit if it is not found
22 I Y=-1 Q
23 ;
24 ; Cleanup DIC variables and delete the option
25 K DIC,X,DTOUT,DUOUT
26 S DA=+Y,DIK="^DIC(19.2,"
27 D ^DIK
28 Q
Note: See TracBrowser for help on using the repository browser.