source: FOIAVistA/trunk/r/LEXICON_UTILITY-LEX-GMPT/LEX2050P.m@ 1437

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1LEX2050P ;ISL/KER - LEX*2.0*50 Pre/Post Install ;06/06/2007
2 ;;2.0;LEXICON UTILITY;**50**;Sep 23, 1996
3 ;
4 ; Variables NEWed or KILLed Elsewhere
5 ; None
6 ;
7 ; Global Variables
8 ; ^LEXM
9 ;
10 ; External References
11 ; None
12 ;
13 Q
14POST ; LEX*2.0*50 Post-Install
15 ;
16 ; From IMP^LEX2050
17 ;
18 ; LEXBUILD Build Name - LEX*2.0*nn
19 ; LEXPTYPE Patch Type - Remedy or Quarterly
20 ; LEXFY Fiscal Year - FYnn
21 ; LEXQTR Quarter - 1st, 2nd, 3rd, or 4th
22 ; LEXIGHF Name of Host File - LEX_2_nn.GBL
23 ; LEXLREV Revision - nn
24 ; LEXREQP Required Builds - build;build;build
25 ;
26 N LEXEDT,LEXPTYPE,LEXLREV,LEXREQP,LEXBUILD,LEXIGHF,LEXFY,LEXQTR,LEXB,LEXCD,LEXSTR,LEXLAST D IMP^LEX2050
27 S LEXEDT=$G(^LEXM(0,"CREATED")) D CON,LOAD
28 Q
29LOAD ; Load Data
30 ;
31 ; LEXSHORT Send Short Message
32 ; LEXMSG Flag to send Message
33 ;
34 N LEXSHORT,LEXMSG S LEXSHORT="",LEXMSG=""
35 S LEXSTR=$G(LEXPTYPE) S:$L($G(LEXFY))&($L($G(LEXQTR))) LEXSTR=LEXSTR_" for "_$G(LEXFY)_" "_$G(LEXQTR)_" Quarter"
36 S U="^",LEXB=$G(^LEXM(0,"BUILD")) Q:LEXB="" Q:LEXBUILD=""
37 D:LEXB=LEXBUILD EN^LEXXGI
38LQ ; Load Quit
39 D KLEXM
40 Q
41 ;
42KLEXM ; Subscripted Kill of ^LEXM
43 H 2 N DA S DA=0 F S DA=$O(^LEXM(DA)) Q:+DA=0 K ^LEXM(DA)
44 N LEX S LEX=$G(^LEXM(0,"PRO")) K ^LEXM(0)
45 Q
46 ;
47PRE ; LEX*2.0*50 Pre-Install (N/A for patch 50)
48 Q
49 ;
50CON ; Conversion of data (Remove existing KT/KU Modifiers)
51 N DA,DIK S DIK="^DIC(81.3," S DA=0 F S DA=$O(^DIC(81.3,"B","KT",DA)) Q:+DA'>0 D ^DIK
52 S DA=0 F S DA=$O(^DIC(81.3,"B","KU",DA)) Q:+DA'>0 D ^DIK
53 K DA,DIK K ^DIC(81.3,-1)
54 Q
Note: See TracBrowser for help on using the repository browser.