DG53690I ;SLC/PKR - Init for patch 690. ;02/17/2006
;;5.3;Registration;**690**;Aug 13, 1993
;===============================================================
CXREFS ;Create the cross-references.
N DGRESULT,DGXREF,MSG,TEXT
S TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Creating cross-references."
D BMES^XPDUTL(.TEXT)
;Parameters common to all the service cross-references.
S DGXREF("FILE")=2,DGXREF("TYPE")="MUMPS",DGXREF("ROOT FILE")=2
S DGXREF("USE")="ACTION",DGXREF("EXECUTION")="RECORD",DGXREF("ACTIVITY")="R"
;Cross-reference for LAST
S DGXREF("NAME")="ASERLAST"
S DGXREF("SHORT DESCR")="Index LAST ENTRY and SEPARATION dates"
S DGXREF("DESCR",1)="This cross-reference indexes the LAST ENTRY and SEPARATION dates."
S DGXREF("DESCR",2)="The form of the index is:"
S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""LAST"")"
S DGXREF("DESCR",4)=""
S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""LAST"")"
S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""LAST"")"
S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
S DGXREF("VAL",1)=.326
S DGXREF("VAL",2)=.327
D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
I DGRESULT="" D
. S TEXT="Could not create ASERLAST cross-reference"
. D BMES^XPDUTL(.TEXT)
;Cross-reference for NTL.
K DGRESULT,MSG
S DGXREF("NAME")="ASERNTL"
S DGXREF("SHORT DESCR")="Index NTL ENTRY and SEPARATION dates"
S DGXREF("DESCR",1)="This cross-reference indexes the NTL ENTRY and SEPARATION dates."
S DGXREF("DESCR",2)="The form of the index is:"
S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NTL"")"
S DGXREF("DESCR",4)=""
S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NTL"")"
S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NTL"")"
S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
S DGXREF("VAL",1)=.3292
S DGXREF("VAL",2)=.3293
D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
I DGRESULT="" D
. S TEXT="Could not create ASERNTL cross-reference"
. D BMES^XPDUTL(.TEXT)
;Cross-reference for NNTL.
K DGRESULT,MSG
S DGXREF("NAME")="ASERNNTL"
S DGXREF("SHORT DESCR")="Index NNTL ENTRY and SEPARATION dates"
S DGXREF("DESCR",1)="This cross-reference indexes the NNTL ENTRY and SEPARATION dates."
S DGXREF("DESCR",2)="The form of the index is:"
S DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NNTL"")"
S DGXREF("DESCR",4)=""
S DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
S DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NNTL"")"
S DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NNTL"")"
S DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
S DGXREF("VAL",1)=.3297
S DGXREF("VAL",2)=.3298
D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
I DGRESULT="" D
. S TEXT="Could not create ASERNNTL cross-reference"
. D BMES^XPDUTL(.TEXT)
;Cross-reference TYPE OF PATIENT
;For test sites
D DELIXN^DDMOD(2,"PTYPE","K","","MSG")
K ^DPT("PTYPE")
K DGRESULT,DGXREF,MSG
S DGXREF("FILE")=2,DGXREF("TYPE")="R",DGXREF("ROOT FILE")=2
S DGXREF("USE")="S",DGXREF("EXECUTION")="FIELD",DGXREF("ACTIVITY")="R"
S DGXREF("NAME")="APTYPE"
S DGXREF("SHORT DESCR")="Index TYPE OF PATIENT"
S DGXREF("SET")="S ^DPT(""APTYPE"",X,DA)="""""
S DGXREF("KILL")="K ^DPT(""APTYPE"",X,DA)"
S DGXREF("WHOLE KILL")="K ^DPT(""APTYPE"")"
S DGXREF("VAL",1)=391
S DGXREF("VAL",1,"SUBSCRIPT")=1
D CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
I DGRESULT="" D
. S TEXT="Could not create TYPE cross-reference"
. D BMES^XPDUTL(.TEXT)
S TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Cross-references have been created and indexes populated."
D BMES^XPDUTL(.TEXT)
Q
;
;===============================================================
DXREFS ;Delete the cross-references.
N MSG
D DELIXN^DDMOD(2,"ASERLAST","K","","MSG")
D DELIXN^DDMOD(2,"ASERNTL","K","","MSG")
D DELIXN^DDMOD(2,"ASERNNTL","K","","MSG")
D DELIXN^DDMOD(2,"APTYPE","K","","MSG")
Q
;
;===============================================================
POST ;Post-inits
D CXREFS^DG53690I
Q
;
--- Routine Detail --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HDG53690I 4279 printed Dec 13, 2024@02:38:25 Page 2
DG53690I ;SLC/PKR - Init for patch 690. ;02/17/2006
+1 ;;5.3;Registration;**690**;Aug 13, 1993
+2 ;===============================================================
CXREFS ;Create the cross-references.
+1 NEW DGRESULT,DGXREF,MSG,TEXT
+2 SET TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Creating cross-references."
+3 DO BMES^XPDUTL(.TEXT)
+4 ;Parameters common to all the service cross-references.
+5 SET DGXREF("FILE")=2
SET DGXREF("TYPE")="MUMPS"
SET DGXREF("ROOT FILE")=2
+6 SET DGXREF("USE")="ACTION"
SET DGXREF("EXECUTION")="RECORD"
SET DGXREF("ACTIVITY")="R"
+7 ;Cross-reference for LAST
+8 SET DGXREF("NAME")="ASERLAST"
+9 SET DGXREF("SHORT DESCR")="Index LAST ENTRY and SEPARATION dates"
+10 SET DGXREF("DESCR",1)="This cross-reference indexes the LAST ENTRY and SEPARATION dates."
+11 SET DGXREF("DESCR",2)="The form of the index is:"
+12 SET DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""LAST"")"
+13 SET DGXREF("DESCR",4)=""
+14 SET DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
+15 SET DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""LAST"")"
+16 SET DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""LAST"")"
+17 SET DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
+18 SET DGXREF("VAL",1)=.326
+19 SET DGXREF("VAL",2)=.327
+20 DO CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
+21 IF DGRESULT=""
Begin DoDot:1
+22 SET TEXT="Could not create ASERLAST cross-reference"
+23 DO BMES^XPDUTL(.TEXT)
End DoDot:1
+24 ;Cross-reference for NTL.
+25 KILL DGRESULT,MSG
+26 SET DGXREF("NAME")="ASERNTL"
+27 SET DGXREF("SHORT DESCR")="Index NTL ENTRY and SEPARATION dates"
+28 SET DGXREF("DESCR",1)="This cross-reference indexes the NTL ENTRY and SEPARATION dates."
+29 SET DGXREF("DESCR",2)="The form of the index is:"
+30 SET DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NTL"")"
+31 SET DGXREF("DESCR",4)=""
+32 SET DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
+33 SET DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NTL"")"
+34 SET DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NTL"")"
+35 SET DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
+36 SET DGXREF("VAL",1)=.3292
+37 SET DGXREF("VAL",2)=.3293
+38 DO CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
+39 IF DGRESULT=""
Begin DoDot:1
+40 SET TEXT="Could not create ASERNTL cross-reference"
+41 DO BMES^XPDUTL(.TEXT)
End DoDot:1
+42 ;Cross-reference for NNTL.
+43 KILL DGRESULT,MSG
+44 SET DGXREF("NAME")="ASERNNTL"
+45 SET DGXREF("SHORT DESCR")="Index NNTL ENTRY and SEPARATION dates"
+46 SET DGXREF("DESCR",1)="This cross-reference indexes the NNTL ENTRY and SEPARATION dates."
+47 SET DGXREF("DESCR",2)="The form of the index is:"
+48 SET DGXREF("DESCR",3)=" ^DPT(""ASERVICE"",SEPARATION DATE,ENTRY DATE,DA,""NNTL"")"
+49 SET DGXREF("DESCR",4)=""
+50 SET DGXREF("DESCR",5)="If one of the dates is missing the corresponding subscript is replaced by U_DA."
+51 SET DGXREF("SET")="D SSERV^DGSRVICE(.X,.DA,""NNTL"")"
+52 SET DGXREF("KILL")="D KSERV^DGSRVICE(.X,.DA,""NNTL"")"
+53 SET DGXREF("WHOLE KILL")="K ^DPT(""ASERVICE"")"
+54 SET DGXREF("VAL",1)=.3297
+55 SET DGXREF("VAL",2)=.3298
+56 DO CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
+57 IF DGRESULT=""
Begin DoDot:1
+58 SET TEXT="Could not create ASERNNTL cross-reference"
+59 DO BMES^XPDUTL(.TEXT)
End DoDot:1
+60 ;Cross-reference TYPE OF PATIENT
+61 ;For test sites
+62 DO DELIXN^DDMOD(2,"PTYPE","K","","MSG")
+63 KILL ^DPT("PTYPE")
+64 KILL DGRESULT,DGXREF,MSG
+65 SET DGXREF("FILE")=2
SET DGXREF("TYPE")="R"
SET DGXREF("ROOT FILE")=2
+66 SET DGXREF("USE")="S"
SET DGXREF("EXECUTION")="FIELD"
SET DGXREF("ACTIVITY")="R"
+67 SET DGXREF("NAME")="APTYPE"
+68 SET DGXREF("SHORT DESCR")="Index TYPE OF PATIENT"
+69 SET DGXREF("SET")="S ^DPT(""APTYPE"",X,DA)="""""
+70 SET DGXREF("KILL")="K ^DPT(""APTYPE"",X,DA)"
+71 SET DGXREF("WHOLE KILL")="K ^DPT(""APTYPE"")"
+72 SET DGXREF("VAL",1)=391
+73 SET DGXREF("VAL",1,"SUBSCRIPT")=1
+74 DO CREIXN^DDMOD(.DGXREF,"S",.DGRESULT,"","MSG")
+75 IF DGRESULT=""
Begin DoDot:1
+76 SET TEXT="Could not create TYPE cross-reference"
+77 DO BMES^XPDUTL(.TEXT)
End DoDot:1
+78 SET TEXT=$$FMTE^XLFDT($$NOW^XLFDT,"5Z")_" Cross-references have been created and indexes populated."
+79 DO BMES^XPDUTL(.TEXT)
+80 QUIT
+81 ;
+82 ;===============================================================
DXREFS ;Delete the cross-references.
+1 NEW MSG
+2 DO DELIXN^DDMOD(2,"ASERLAST","K","","MSG")
+3 DO DELIXN^DDMOD(2,"ASERNTL","K","","MSG")
+4 DO DELIXN^DDMOD(2,"ASERNNTL","K","","MSG")
+5 DO DELIXN^DDMOD(2,"APTYPE","K","","MSG")
+6 QUIT
+7 ;
+8 ;===============================================================
POST ;Post-inits
+1 DO CXREFS^DG53690I
+2 QUIT
+3 ;
