source: WorldVistAEHR/trunk/r/REGISTRATION-DGQE-DG-DPT-GRPX-VAD-VAF-VAS-VAT-VAU--VA-VIC--DGBT--DGJ--DGYA--VALM/DG53P782.m@ 1651

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

initial load of WorldVistAEHR

File size: 2.6 KB
Line 
1DG53P782 ;ALB/RC-UPDATE FOR FILE 13 ; 5/15/08 11:56am
2 ;;5.3;Registration;**782**;Aug 13, 1993;Build 8
3 Q
4EN ;Post install entry point
5 ;create KIDS checkpoints with call backs
6 N DGX,Y
7 F DGX="POST" D
8 . S Y=$$NEWCP^XPDUTL(DGX,DGX+"DG53P782")
9 . I 'Y D BMES^XPDUTL("ERROR creating "_DGX_" checkpoint.")
10 Q
11POST ;Post Install
12 D UP^DG53P782 ;Update Religion Entries.
13 D ADD^DG53P782 ;Add Religion Entries.
14 Q
15UP N DA,DIE,DR
16 N DGCNT,X,OLDTEXT,NEWTEXT,UPDENTRY
17 D BMES^XPDUTL("Updating religions")
18 F DGCNT=1:1 S UPDENTRY=$P($T(UPDTABLE+DGCNT),";;",2) Q:UPDENTRY="EXIT" D
19 .S OLDTEXT=$P(UPDENTRY,"^",1),NEWTEXT=$P(UPDENTRY,"^",2)
20 .S DA=$O(^DIC(13,"B",OLDTEXT,0))
21 .S DIE=13,DR=".01///^S X=NEWTEXT"
22 .D
23 ..I DA D ^DIE Q
24 ..D BMES^XPDUTL(OLDTEXT_" does not exist or has already been updated.")
25 Q
26ADD ;Add entries to the religion file
27 N DGCNT,X,NEWENTRY,NEWCODE,NEWREL,RELCHECK
28 D BMES^XPDUTL("Adding Religions")
29 F DGCNT=1:1 S NEWENTRY=$P($T(NEWTABLE+DGCNT),";;",2) Q:NEWENTRY="EXIT" D
30 .S NEWREL=$P(NEWENTRY,"^",1),NEWCODE=$P(NEWENTRY,"^",2)
31 .;Don't add the religion if it already exists.
32 .S RELCHECK=$O(^DIC(13,"B",NEWREL,0)) D
33 ..I RELCHECK D BMES^XPDUTL(NEWREL_" already exists.") Q
34 ..N DA,DIC,DLAYGO
35 ..S DIC="^DIC(13,",DIC(0)="L",DLAYGO=13
36 ..S X=NEWREL,DIC("DR")="3///^S X=NEWCODE"
37 ..K DD,D0 D FILE^DICN K DIC,DA,DLAYGO
38 Q
39UPDTABLE ;Table of religions being updated.
40 ;;BUDDHIST^ZEN BUDDHISM
41 ;;CATHOLIC^ROMAN CATHOLIC CHURCH
42 ;;JEHOVAH'S WITNESS^JEHOVAH'S WITNESSES
43 ;;JEWISH^JUDAISM
44 ;;LATTER-DAY SAINTS^LATTER DAY SAINTS
45 ;;PROTESTANT, OTHER^PROTESTANT
46 ;;UNITARIAN; UNIVERSALIST^UNITARIAN-UNIVERSALISM
47 ;;EXIT
48NEWTABLE ;Table of religions being added.
49 ;;AFRICAN RELIGIONS^32
50 ;;AFRO-CARIBBEAN RELIGIONS^33
51 ;;AGNOSTICISM^34
52 ;;ANGLICAN^35
53 ;;ANIMISM^36
54 ;;ATHEISM^37
55 ;;BABI & BAHA'I FAITHS^38
56 ;;BON^39
57 ;;CAO DAI^40
58 ;;CELTICISM^41
59 ;;CHRISTIAN (NON-SPECIFIC)^42
60 ;;CONFUCIANISM^43
61 ;;CONGREGATIONAL^44
62 ;;CYBERCULTURE RELIGIONS^45
63 ;;DIVINATION^46
64 ;;FOURTH WAY^47
65 ;;FREE DAISM^48
66 ;;FULL GOSPEL^49
67 ;;GNOSIS^50
68 ;;HINDUISM^51
69 ;;HUMANISM^52
70 ;;INDEPENDENT^53
71 ;;JAINISM^54
72 ;;MAHAYANA^55
73 ;;MEDITATION^56
74 ;;MESSIANIC JUDAISM^57
75 ;;MITRAISM^58
76 ;;NEW AGE^59
77 ;;NON-ROMAN CATHOLIC^60
78 ;;OCCULT^61
79 ;;ORTHODOX^62
80 ;;PAGANISM^63
81 ;;PROCESS, THE^64
82 ;;REFORMED/PRESBYTERIAN^65
83 ;;SATANISM^66
84 ;;SCIENTOLOGY^67
85 ;;SHAMANISM^68
86 ;;SHIITE (ISLAM)^69
87 ;;SHINTO^70
88 ;;SIKISM^71
89 ;;SPIRITUALISM^72
90 ;;SUNNI (ISLAM)^73
91 ;;TAOISM^74
92 ;;THERAVADA^75
93 ;;UNIVERSAL LIFE CHURCH^76
94 ;;VAJRAYANA (TIBETAN)^77
95 ;;VEDA^78
96 ;;VOODOO^79
97 ;;WICCA^80
98 ;;YAOHUSHUA^81
99 ;;ZOROASTRIANISM^82
100 ;;ASKED BUT DECLINED TO ANSWER^83
101 ;;EXIT
Note: See TracBrowser for help on using the repository browser.