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

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

initial load of WorldVistAEHR
File size: 4.1 KB
Line 
1DG53690I ;SLC/PKR - Init for patch 690. ;02/17/2006
2 ;;5.3;Registration;**690**;Aug 13, 1993
3 ;===============================================================
4CXREFS ;Create the cross-references.
5 N DGRESULT,DGXREF,MSG,TEXT
6 S TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Creating cross-references."
7 D BMES^XPDUTL(.TEXT)
8 ;Parameters common to all the service cross-references.
9 S DGXREF("FILE")=2,DGXREF("TYPE")="MUMPS",DGXREF("ROOT FILE")=2
10 S DGXREF("USE")="ACTION",DGXREF("EXECUTION")="RECORD",DGXREF("ACTIVITY")="R"
11 ;Cross-reference for LAST
12 S DGXREF("NAME")="ASERLAST"
13 S DGXREF("SHORT DESCR")="Index LAST ENTRY and SEPARATION dates"
14 S DGXREF("DESCR",1)="This cross-reference indexes the LAST ENTRY and SEPARATION dates."
15 S DGXREF("DESCR",2)="The form of the index is:"
16 S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""LAST"")"
17 S DGXREF("DESCR",4)=""
18 S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
19 S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""LAST"")"
20 S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""LAST"")"
21 S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
22 S DGXREF("VAL",1)=.326
23 S DGXREF("VAL",2)=.327
24 D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
25 I DGRESULT="" D
26 . S TEXT="Could not create ASERLAST cross-reference"
27 . D BMES^XPDUTL(.TEXT)
28 ;Cross-reference for NTL.
29 K DGRESULT,MSG
30 S DGXREF("NAME")="ASERNTL"
31 S DGXREF("SHORT DESCR")="Index NTL ENTRY and SEPARATION dates"
32 S DGXREF("DESCR",1)="This cross-reference indexes the NTL ENTRY and SEPARATION dates."
33 S DGXREF("DESCR",2)="The form of the index is:"
34 S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NTL"")"
35 S DGXREF("DESCR",4)=""
36 S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
37 S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NTL"")"
38 S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NTL"")"
39 S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
40 S DGXREF("VAL",1)=.3292
41 S DGXREF("VAL",2)=.3293
42 D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
43 I DGRESULT="" D
44 . S TEXT="Could not create ASERNTL cross-reference"
45 . D BMES^XPDUTL(.TEXT)
46 ;Cross-reference for NNTL.
47 K DGRESULT,MSG
48 S DGXREF("NAME")="ASERNNTL"
49 S DGXREF("SHORT DESCR")="Index NNTL ENTRY and SEPARATION dates"
50 S DGXREF("DESCR",1)="This cross-reference indexes the NNTL ENTRY and SEPARATION dates."
51 S DGXREF("DESCR",2)="The form of the index is:"
52 S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NNTL"")"
53 S DGXREF("DESCR",4)=""
54 S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
55 S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NNTL"")"
56 S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NNTL"")"
57 S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
58 S DGXREF("VAL",1)=.3297
59 S DGXREF("VAL",2)=.3298
60 D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
61 I DGRESULT="" D
62 . S TEXT="Could not create ASERNNTL cross-reference"
63 . D BMES^XPDUTL(.TEXT)
64 ;Cross-reference TYPE OF PATIENT
65 ;For test sites
66 D DELIXN^DDMOD(2,"PTYPE","K","","MSG")
67 K ^DPT("PTYPE")
68 K DGRESULT,DGXREF,MSG
69 S DGXREF("FILE")=2,DGXREF("TYPE")="R",DGXREF("ROOT FILE")=2
70 S DGXREF("USE")="S",DGXREF("EXECUTION")="FIELD",DGXREF("ACTIVITY")="R"
71 S DGXREF("NAME")="APTYPE"
72 S DGXREF("SHORT DESCR")="Index TYPE OF PATIENT"
73 S DGXREF("SET")="S ^DPT(""APTYPE"",X,DA)="""""
74 S DGXREF("KILL")="K ^DPT(""APTYPE"",X,DA)"
75 S DGXREF("WHOLE KILL")="K ^DPT(""APTYPE"")"
76 S DGXREF("VAL",1)=391
77 S DGXREF("VAL",1,"SUBSCRIPT")=1
78 D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
79 I DGRESULT="" D
80 . S TEXT="Could not create TYPE cross-reference"
81 . D BMES^XPDUTL(.TEXT)
82 S TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Cross-references have been created and indexes populated."
83 D BMES^XPDUTL(.TEXT)
84 Q
85 ;
86 ;===============================================================
87DXREFS ;Delete the cross-references.
88 N MSG
89 D DELIXN^DDMOD(2,"ASERLAST","K","","MSG")
90 D DELIXN^DDMOD(2,"ASERNTL","K","","MSG")
91 D DELIXN^DDMOD(2,"ASERNNTL","K","","MSG")
92 D DELIXN^DDMOD(2,"APTYPE","K","","MSG")
93 Q
94 ;
95 ;===============================================================
96POST ;Post-inits
97 D CXREFS^DG53690I
98 Q
99 ;
Note: See TracBrowser for help on using the repository browser.