source: FOIAVistA/trunk/r/CLINICAL_REMINDERS-PXRM/PXRMP8I.m@ 1764

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

initial load of FOIAVistA 6/30/08 version

File size: 1.7 KB
Line 
1PXRMP8I ; SLC/AGP - Patch 8 init routine. ;03/07/2007
2 ;;2.0;CLINICAL REMINDERS;**8**;Feb 04, 2005;Build 28
3 ;Reminder Exchange install.
4 Q
5 ;
6 ;===============================================================
7ARRAY(MODE,ARRAY) ;List of exchange entries used by delete and install
8 ;
9 S ARRAY(1,1)="VA-TBI SCREENING"
10 I MODE S ARRAY(1,2)="03/07/2007@12:29:10"
11 Q
12 ;
13 ;===============================================================
14DELEI ;If the Exchange File entry already exists delete it.
15 N ARRAY,IC,IND,LIST,LUVALUE,NUM
16 D ARRAY(1,.ARRAY)
17 S IC=0
18 F S IC=$O(ARRAY(IC)) Q:'IC D
19 .S LUVALUE(1)=ARRAY(IC,1)
20 .D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
21 .I '$D(LIST) Q
22 .S NUM=$P(LIST("DILIST",0),U,1)
23 .I NUM'=0 D
24 ..F IND=1:1:NUM D
25 ... N DA,DIK
26 ... S DIK="^PXD(811.8,"
27 ... S DA=LIST("DILIST",2,IND)
28 ... D ^DIK
29 Q
30 ;
31 ;===============================================================
32EXFINC(Y) ;Return a 1 if the Exchange file entry is in the list to
33 ;include in the build. This is used in the build to determine which
34 ;entries to include.
35 N ARRAY,FOUND,IEN,IC,LUVALUE
36 D ARRAY(1,.ARRAY)
37 S FOUND=0
38 S IC=0
39 F S IC=+$O(ARRAY(IC)) Q:(IC=0)!(FOUND) D
40 . M LUVALUE=ARRAY(IC)
41 . S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
42 . I IEN=Y S FOUND=1 Q
43 Q FOUND
44 ;
45PRE ;
46 D DELEI
47 Q
48POST ;
49 D SMEXINS
50 Q
51 ;===============================================================
52SMEXINS ;Silent mode install.
53 N ARRAY,IC,IEN,LUVALUE,PXRMINST
54 S PXRMINST=1
55 D ARRAY(1,.ARRAY)
56 S IC=0
57 F S IC=$O(ARRAY(IC)) Q:'IC D
58 .M LUVALUE=ARRAY(IC)
59 .S IEN=+$$FIND1^DIC(811.8,"","KU",.LUVALUE)
60 .I IEN'=0 D
61 .. N TEXT
62 .. I LUVALUE(1)["PARAMETER" S TEXT="Installing entry "_LUVALUE(1)
63 .. E S TEXT="Installing reminder "_LUVALUE(1)
64 .. D BMES^XPDUTL(TEXT)
65 .. D INSTALL^PXRMEXSI(IEN,1)
66 Q
67 ;
Note: See TracBrowser for help on using the repository browser.