| 1 | DG53690I ;SLC/PKR - Init for patch 690. ;02/17/2006
|
|---|
| 2 | ;;5.3;Registration;**690**;Aug 13, 1993
|
|---|
| 3 | ;===============================================================
|
|---|
| 4 | CXREFS ;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 | ;===============================================================
|
|---|
| 87 | DXREFS ;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 | ;===============================================================
|
|---|
| 96 | POST ;Post-inits
|
|---|
| 97 | D CXREFS^DG53690I
|
|---|
| 98 | Q
|
|---|
| 99 | ;
|
|---|
