BPXRM205 ; IHS/MSC/MGH - Version 2.0 Patch 1005 post routine. ;17-Jun-2015 06:33;du
;;2.0;CLINICAL REMINDERS;**1005**;Feb 04, 2005;Build 23
;
ENV ;EP environment check
N IN,INSTDA,STAT
;Check for the installation of Reminders 2.0
S IN="CLINICAL REMINDERS 2.0",INSTDA=""
I '$D(^XPD(9.7,"B",IN)) D Q
.W !,"You must first install CLINICAL REMINDERS 2.0 before this patch" S XPDQUIT=2
S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)
S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
I STAT'=3 D Q
.W !,"CLINICAL REMINDERS 2.0 must be completely installed before installing this patch." S XPDQUIT=2
S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
;
S IN="IHS CLINICAL REPORTING 14.0",INSTDA=""
I '$D(^XPD(9.7,"B",IN)) D Q
.W !,"You must first install IHS CLINICAL REPORTING 14.0 before this patch" S XPDQUIT=2
S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)
S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
I STAT'=3 D Q
.W !,"IHS CLINICAL REPORTING 14.0 must be completely installed before installing this patch." S XPDQUIT=2
S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
S IN="AICD 4.0",INSTDA=""
I '$D(^XPD(9.7,"B",IN)) D Q
.W !,"You must first install AICD 4.0 before this patch" S XPDQUIT=2
S INSTDA=$O(^XPD(9.7,"B",IN,INSTDA),-1)
S STAT=+$P($G(^XPD(9.7,INSTDA,0)),U,9)
I STAT'=3 D Q
.W !,"AICD 4.0 must be completely installed before installing this patch." S XPDQUIT=2
S (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
;Check for the installation of other patches
S PATCH="PXRM*2.0*1004"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDQUIT=2
S PATCH="GMPL*2.0*1004"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDQUIT=2
S PATCH="XU*8.0*539"
I '$$PATCH(PATCH) D Q
. W !,"You must first install "_PATCH_"." S XPDQUIT=2
Q
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
;copy of code from XPDUTL but modified to handle 4 digit IHS patch numb
Q:X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N 0
NEW NUM,I,J
S I=$O(^DIC(9.4,"C",$P(X,"*"),0)) Q:'I 0
S J=$O(^DIC(9.4,I,22,"B",$P(X,"*",2),0)),X=$P(X,"*",3) Q:'J 0
;check if patch is just a number
Q:$O(^DIC(9.4,I,22,J,"PAH","B",X,0)) 1
S NUM=$O(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
Q (X=+NUM)
;===============================================================
PRE ;EP pre-init
;Delete exchange file entries put in by patches
D DELEI
;delete the DDs for files with Variable pointers
D DELDD
Q
;===============================================================
POST ;Post-install
N DIK
K ^XTMP("PXRM_DISEV")
D CVMEA
;Rebuild X-ref
S DIK="PXD(811.2,"
S DIK(1)="4^APDS"
D ENALL2^DIK
S DIK="PXD(811.2,"
S DIK(1)="4^APDS"
D ENALL^DIK
D SOURCE
Q
;
ARRAY(ARRAY) ;List of exchange entries used by delete and install
S ARRAY(1,1)="DEPRESSION/PTSD REMINDER TERM UPDATES - PATCH 17"
S ARRAY(2,1)="ECOE REMINDER DIALOGS"
S ARRAY(3,1)="NATIONAL BLOOD PRESSURE CHANGES"
S ARRAY(4,1)="PATCH 12 ITEMS"
S ARRAY(5,1)="PXRM PATCH 26 DIALOG UPDATES"
S ARRAY(6,1)="PXRM VISIT DATE MONTH REQ YEAR BLANK"
S ARRAY(7,1)="PXRM*2*17 COMPUTED FINDINGS"
S ARRAY(8,1)="RT VA-ALCOHOL NONE PAST 1YR"
S ARRAY(9,1)="TX HIGH RISK FLU AND PNEUMONIA"
S ARRAY(10,1)="UPDATE VA-DIABETES"
S ARRAY(11,1)="VA BRANCHING LOGIC REMINDER UPDATES OEF/OIF"
S ARRAY(12,1)="VA MH SCREENING REMINDERS UPDATE"
S ARRAY(13,1)="VA-AAA SCREENING"
S ARRAY(14,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
S ARRAY(15,1)="VA-ALCOHOL F/U POS AUDIT-C"
S ARRAY(16,1)="VA-BL DEPRESSION SCREEN"
S ARRAY(17,1)="VA-BREAST TUMOR"
S ARRAY(18,1)="VA-DEPRESSION SCREENING"
S ARRAY(19,1)="VA-DISABLE BRANCHING LOGIC REPLACEMENT ELEMENT"
S ARRAY(20,1)="VA-EMBEDDED FRAGMENTS RISK EVALUATION"
S ARRAY(21,1)="VA-EMBEDDED FRAGMENTS SCREEN"
S ARRAY(22,1)="VA-GP ALC ADVICE2"
S ARRAY(23,1)="VA-GP EF CONTACT INFORMATION"
S ARRAY(24,1)="VA-GP LDL STATIN REMINDER NOT DUE"
S ARRAY(25,1)="VA-HF ACUTE ILLNESS EVAL"
S ARRAY(26,1)="VA-HF ETOH SELF SCORE AUD 10"
S ARRAY(27,1)="VA-HOMELESSNESS SCREENING"
S ARRAY(28,1)="VA-HOMELESSNESS SCREEENING DIALOG"
S ARRAY(29,1)="VA-INFLUENZA 2010 UPDATES"
S ARRAY(30,1)="VA-INFLUENZA H1N1 UPDATE"
S ARRAY(31,1)="VA-IRAQ AFGHAN"
S ARRAY(32,1)="VA-LIPID STATIN RX CVD/DM (VER1.0)"
S ARRAY(33,1)="VA-MH HIGH RISK NO-SHOW ADHOC RPT"
S ARRAY(34,1)="VA-MH NO SHOW APPT CLINICS LL"
S ARRAY(35,1)="VA-MH STOP CODES FOR PTSD EVALUATION"
S ARRAY(36,1)="VA-MHTC APPT STOP CODES AND EXCLUSION STOP"
S ARRAY(37,1)="VA-MHTC NEEDS ASSIGNMENT"
S ARRAY(38,1)="VA-MHV BMI COLORECTAL UPDATES PATCH 12"
S ARRAY(39,1)="VA-MHV CERVICAL CANCER SCREEN"
S ARRAY(40,1)="VA-MHV HIGH RISK TERMS"
S ARRAY(41,1)="VA-MHV HYPERTENSION"
S ARRAY(42,1)="VA-MHV INFLUENZA VACCINE"
S ARRAY(43,1)="VA-MHV MAMMOGRAM SCREENING"
S ARRAY(44,1)="VA-MHV RETINOPATHY TERMS"
S ARRAY(45,1)="VA-OEF/OIF MONITOR"
S ARRAY(46,1)="VA-OEF/OIF MONITOR REPORTING"
S ARRAY(47,1)="VA-PATIENT RECORD FLAG INFORMATION"
S ARRAY(48,1)="VA-POLYTRAUMA MARKER"
S ARRAY(49,1)="VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY"
S ARRAY(50,1)="VA-PTSD REASSESSMENT (PCL)"
S ARRAY(51,1)="VA-TB/POSITIVE PPD"
S ARRAY(52,1)="VA-TBI/POLY IDT EVALUATIONS ELEMENT UPDATE"
S ARRAY(53,1)="VA-TERATOGENIC MEDICATIONS ORDER CHECKS"
S ARRAY(54,1)="VA-TEXT INFO SCREEN FOR AAA"
S ARRAY(55,1)="VA-WH DISCUSS BREAST CA SCREEN WOMAN 40-49"
S ARRAY(56,1)="VA-WH MAMMOGRAM REVIEW RESULTS DIALOG"
S ARRAY(57,1)="VA-WH MAMMOGRAM SCREENING"
S ARRAY(58,1)="VA-WH MAMMOGRAM SCREENING DIALOG"
S ARRAY(59,1)="VA-WH PAP SMEAR REVIEW RESULTS"
S ARRAY(60,1)="VA-WH PAP SMEAR REVIEW RESULTS DIALOG"
S ARRAY(61,1)="VA-WH PAP SMEAR SCREENING"
S ARRAY(62,1)="VA-WH PAP SMEAR SCREENING DIALOG"
S ARRAY(63,1)="VA-MH HIGH RISK NO-SHOW FOLLOW-UP"
S ARRAY(64,1)="VA-WH DISCUSS BREAST CA WOMAN 40-49 DIALOG"
S ARRAY(65,1)="VA-TERATOGENIC MEDICATIONS ORDER CHECKS (UPDATE #1)"
S ARRAY(66,1)="VA-PNEUMOCOCCAL REMINDERS"
S ARRAY(67,1)="VA-PATCH 36 POST COMPONENTS"
S ARRAY(68,1)="VA-PATCH 31 POST HS COMPONENTS"
S ARRAY(69,1)="VA-PALLIATIVE CARE CONSULT"
S ARRAY(70,1)="VA-ECOE PATCH 30 ELEMENT UPDATE"
S ARRAY(71,1)="PXRM*2*26 NATIONAL TAXONOMIES"
S ARRAY(72,1)="PATCH 36 WH TAXONOMIES (5)"
S ARRAY(73,1)="PRXM PATCH 26 ECOE UPDATE"
S ARRAY(74,1)="PXRM PATCH 26 PALLIATIVE CARE UPDATE"
Q
;
;===============================================================
DELEI ;If the Exchange File entry already exists delete it.
N ARRAY,IC,IND,LIST,LUVALUE,NUM
D ARRAY(.ARRAY)
S IC=0
F S IC=$O(ARRAY(IC)) Q:'IC D
.S LUVALUE(1)=ARRAY(IC,1)
.D FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
.I '$D(LIST) Q
.S NUM=$P(LIST("DILIST",0),U,1)
.I NUM'=0 D
..F IND=1:1:NUM D
... N DA,DIK
... S DIK="^PXD(811.8,"
... S DA=LIST("DILIST",2,IND)
... D ^DIK
Q
;
;===============================================================
DELDD ;Delete the old data dictionaries.
N DIU,TEXT
D EN^DDIOL("Removing old data dictionaries.")
S DIU(0)=""
F DIU=801.41,811.5,811.9 D
. S TEXT=" Deleting data dictionary for file # "_DIU
. D EN^DDIOL(TEXT)
. D EN^DIU2
Q
;Delete the cross-reference
CVMEA N MSG,RESULT,XREF
D BMES^XPDUTL("Deleting V MEASUREMENT XREF")
D DELIXN^DDMOD(9000010.01,"ACR","","",.MSG)
;Create cross-reference for V MEASUREMENTS
D BMES^XPDUTL("Creating V MEASUREMENT XREF.")
;Set the XREF nodes
S XREF("FILE")=9000010.01
S XREF("ROOT FILE")=9000010.01
S XREF("SET")="D EVFILE^PXPXRM(9000010.01,.X,.DA)"
S XREF("KILL")="D KEFILE^PXPXRM(9000010.01,.X,.DA)"
S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.01)"
D SXREFVF(.XREF,"measurement type")
D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
I RESULT="" D DCERRMSG(.MSG,.XREF)
Q
SXREFVF(XREF,ITEM) ;Set XREF array nodes common for all V files.
N UITEM
S UITEM=$$UP^XLFSTR(ITEM)
S XREF("TYPE")="MU"
S XREF("NAME")="ACR"
S XREF("SHORT DESCR")="Clinical Reminders index."
S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
S XREF("DESCR",2)="all patients with a particular "_ITEM_" and one for finding all"
S XREF("DESCR",3)="the "_ITEM_"s a patient has."
S XREF("DESCR",4)="The indexes are stored in the Clinical Reminders index global as:"
S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IP"","_UITEM_",DFN,ENTRY DATE/TIME,DAS) and"
S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PI"",DFN,"_UITEM_",ENTRY DATE/TIME,DAS)"
S XREF("DESCR",7)="respectively."
S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
S XREF("USE")="ACTION"
S XREF("EXECUTION")="R"
S XREF("ACTIVITY")="IR"
S XREF("VAL",1)=.01
S XREF("VAL",1,"SUBSCRIPT")=1
S XREF("VAL",2)=.02
S XREF("VAL",2,"SUBSCRIPT")=2
Q
DCERRMSG(MSG,XREF) ;Display cross-reference creation error message.
W !,"Cross-reference could not be created!"
W !,"Error message:"
D AWRITE^PXRMUTIL("MSG")
W !!,"Cross-reference information:"
D AWRITE^PXRMUTIL("XREF")
Q
SOURCE ;Loop through the taxonomies and reset the data sources
N IEN,SOURCE
S IEN=0 F S IEN=$O(^PXD(811.2,IEN)) Q:'+IEN D
.S SOURCE=$P($G(^PXD(811.2,IEN,0)),U,4)
.Q:SOURCE=""
.D SPDS^PXRMPDS(IEN,SOURCE)
Q
BPXRM205 ; IHS/MSC/MGH - Version 2.0 Patch 1005 post routine. ;17-Jun-2015 06:33;du
+1 ;;2.0;CLINICAL REMINDERS;**1005**;Feb 04, 2005;Build 23
+2 ;
ENV ;EP environment check
+1 NEW IN,INSTDA,STAT
+2 ;Check for the installation of Reminders 2.0
+3 SET IN="CLINICAL REMINDERS 2.0"
SET INSTDA=""
+4 IF '$DATA(^XPD(9.7,"B",IN))
Begin DoDot:1
+5 WRITE !,"You must first install CLINICAL REMINDERS 2.0 before this patch"
SET XPDQUIT=2
End DoDot:1
QUIT
+6 SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)
+7 SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)
+8 IF STAT'=3
Begin DoDot:1
+9 WRITE !,"CLINICAL REMINDERS 2.0 must be completely installed before installing this patch."
SET XPDQUIT=2
End DoDot:1
QUIT
+10 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+11 ;
+12 SET IN="IHS CLINICAL REPORTING 14.0"
SET INSTDA=""
+13 IF '$DATA(^XPD(9.7,"B",IN))
Begin DoDot:1
+14 WRITE !,"You must first install IHS CLINICAL REPORTING 14.0 before this patch"
SET XPDQUIT=2
End DoDot:1
QUIT
+15 SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)
+16 SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)
+17 IF STAT'=3
Begin DoDot:1
+18 WRITE !,"IHS CLINICAL REPORTING 14.0 must be completely installed before installing this patch."
SET XPDQUIT=2
End DoDot:1
QUIT
+19 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+20 SET IN="AICD 4.0"
SET INSTDA=""
+21 IF '$DATA(^XPD(9.7,"B",IN))
Begin DoDot:1
+22 WRITE !,"You must first install AICD 4.0 before this patch"
SET XPDQUIT=2
End DoDot:1
QUIT
+23 SET INSTDA=$ORDER(^XPD(9.7,"B",IN,INSTDA),-1)
+24 SET STAT=+$PIECE($GET(^XPD(9.7,INSTDA,0)),U,9)
+25 IF STAT'=3
Begin DoDot:1
+26 WRITE !,"AICD 4.0 must be completely installed before installing this patch."
SET XPDQUIT=2
End DoDot:1
QUIT
+27 SET (XPDDIQ("XPZ1"),XPDDIQ("XPZ2"))=0
+28 ;Check for the installation of other patches
+29 SET PATCH="PXRM*2.0*1004"
+30 IF '$$PATCH(PATCH)
Begin DoDot:1
+31 WRITE !,"You must first install "_PATCH_"."
SET XPDQUIT=2
End DoDot:1
QUIT
+32 SET PATCH="GMPL*2.0*1004"
+33 IF '$$PATCH(PATCH)
Begin DoDot:1
+34 WRITE !,"You must first install "_PATCH_"."
SET XPDQUIT=2
End DoDot:1
QUIT
+35 SET PATCH="XU*8.0*539"
+36 IF '$$PATCH(PATCH)
Begin DoDot:1
+37 WRITE !,"You must first install "_PATCH_"."
SET XPDQUIT=2
End DoDot:1
QUIT
+38 QUIT
PATCH(X) ;return 1 if patch X was installed, X=aaaa*nn.nn*nnnn
+1 ;copy of code from XPDUTL but modified to handle 4 digit IHS patch numb
+2 IF X'?1.4UN1"*"1.2N1"."1.2N.1(1"V",1"T").2N1"*"1.4N
QUIT 0
+3 NEW NUM,I,J
+4 SET I=$ORDER(^DIC(9.4,"C",$PIECE(X,"*"),0))
IF 'I
QUIT 0
+5 SET J=$ORDER(^DIC(9.4,I,22,"B",$PIECE(X,"*",2),0))
SET X=$PIECE(X,"*",3)
IF 'J
QUIT 0
+6 ;check if patch is just a number
+7 IF $ORDER(^DIC(9.4,I,22,J,"PAH","B",X,0))
QUIT 1
+8 SET NUM=$ORDER(^DIC(9.4,I,22,J,"PAH","B",X_" SEQ"))
+9 QUIT (X=+NUM)
+10 ;===============================================================
PRE ;EP pre-init
+1 ;Delete exchange file entries put in by patches
+2 DO DELEI
+3 ;delete the DDs for files with Variable pointers
+4 DO DELDD
+5 QUIT
+6 ;===============================================================
POST ;Post-install
+1 NEW DIK
+2 KILL ^XTMP("PXRM_DISEV")
+3 DO CVMEA
+4 ;Rebuild X-ref
+5 SET DIK="PXD(811.2,"
+6 SET DIK(1)="4^APDS"
+7 DO ENALL2^DIK
+8 SET DIK="PXD(811.2,"
+9 SET DIK(1)="4^APDS"
+10 DO ENALL^DIK
+11 DO SOURCE
+12 QUIT
+13 ;
ARRAY(ARRAY) ;List of exchange entries used by delete and install
+1 SET ARRAY(1,1)="DEPRESSION/PTSD REMINDER TERM UPDATES - PATCH 17"
+2 SET ARRAY(2,1)="ECOE REMINDER DIALOGS"
+3 SET ARRAY(3,1)="NATIONAL BLOOD PRESSURE CHANGES"
+4 SET ARRAY(4,1)="PATCH 12 ITEMS"
+5 SET ARRAY(5,1)="PXRM PATCH 26 DIALOG UPDATES"
+6 SET ARRAY(6,1)="PXRM VISIT DATE MONTH REQ YEAR BLANK"
+7 SET ARRAY(7,1)="PXRM*2*17 COMPUTED FINDINGS"
+8 SET ARRAY(8,1)="RT VA-ALCOHOL NONE PAST 1YR"
+9 SET ARRAY(9,1)="TX HIGH RISK FLU AND PNEUMONIA"
+10 SET ARRAY(10,1)="UPDATE VA-DIABETES"
+11 SET ARRAY(11,1)="VA BRANCHING LOGIC REMINDER UPDATES OEF/OIF"
+12 SET ARRAY(12,1)="VA MH SCREENING REMINDERS UPDATE"
+13 SET ARRAY(13,1)="VA-AAA SCREENING"
+14 SET ARRAY(14,1)="VA-ALCOHOL AUDIT-C POSITIVE F/U EVAL"
+15 SET ARRAY(15,1)="VA-ALCOHOL F/U POS AUDIT-C"
+16 SET ARRAY(16,1)="VA-BL DEPRESSION SCREEN"
+17 SET ARRAY(17,1)="VA-BREAST TUMOR"
+18 SET ARRAY(18,1)="VA-DEPRESSION SCREENING"
+19 SET ARRAY(19,1)="VA-DISABLE BRANCHING LOGIC REPLACEMENT ELEMENT"
+20 SET ARRAY(20,1)="VA-EMBEDDED FRAGMENTS RISK EVALUATION"
+21 SET ARRAY(21,1)="VA-EMBEDDED FRAGMENTS SCREEN"
+22 SET ARRAY(22,1)="VA-GP ALC ADVICE2"
+23 SET ARRAY(23,1)="VA-GP EF CONTACT INFORMATION"
+24 SET ARRAY(24,1)="VA-GP LDL STATIN REMINDER NOT DUE"
+25 SET ARRAY(25,1)="VA-HF ACUTE ILLNESS EVAL"
+26 SET ARRAY(26,1)="VA-HF ETOH SELF SCORE AUD 10"
+27 SET ARRAY(27,1)="VA-HOMELESSNESS SCREENING"
+28 SET ARRAY(28,1)="VA-HOMELESSNESS SCREEENING DIALOG"
+29 SET ARRAY(29,1)="VA-INFLUENZA 2010 UPDATES"
+30 SET ARRAY(30,1)="VA-INFLUENZA H1N1 UPDATE"
+31 SET ARRAY(31,1)="VA-IRAQ AFGHAN"
+32 SET ARRAY(32,1)="VA-LIPID STATIN RX CVD/DM (VER1.0)"
+33 SET ARRAY(33,1)="VA-MH HIGH RISK NO-SHOW ADHOC RPT"
+34 SET ARRAY(34,1)="VA-MH NO SHOW APPT CLINICS LL"
+35 SET ARRAY(35,1)="VA-MH STOP CODES FOR PTSD EVALUATION"
+36 SET ARRAY(36,1)="VA-MHTC APPT STOP CODES AND EXCLUSION STOP"
+37 SET ARRAY(37,1)="VA-MHTC NEEDS ASSIGNMENT"
+38 SET ARRAY(38,1)="VA-MHV BMI COLORECTAL UPDATES PATCH 12"
+39 SET ARRAY(39,1)="VA-MHV CERVICAL CANCER SCREEN"
+40 SET ARRAY(40,1)="VA-MHV HIGH RISK TERMS"
+41 SET ARRAY(41,1)="VA-MHV HYPERTENSION"
+42 SET ARRAY(42,1)="VA-MHV INFLUENZA VACCINE"
+43 SET ARRAY(43,1)="VA-MHV MAMMOGRAM SCREENING"
+44 SET ARRAY(44,1)="VA-MHV RETINOPATHY TERMS"
+45 SET ARRAY(45,1)="VA-OEF/OIF MONITOR"
+46 SET ARRAY(46,1)="VA-OEF/OIF MONITOR REPORTING"
+47 SET ARRAY(47,1)="VA-PATIENT RECORD FLAG INFORMATION"
+48 SET ARRAY(48,1)="VA-POLYTRAUMA MARKER"
+49 SET ARRAY(49,1)="VA-PROJECT ARCH VISN CONTRACT CARE PILOT ELIGIBILITY"
+50 SET ARRAY(50,1)="VA-PTSD REASSESSMENT (PCL)"
+51 SET ARRAY(51,1)="VA-TB/POSITIVE PPD"
+52 SET ARRAY(52,1)="VA-TBI/POLY IDT EVALUATIONS ELEMENT UPDATE"
+53 SET ARRAY(53,1)="VA-TERATOGENIC MEDICATIONS ORDER CHECKS"
+54 SET ARRAY(54,1)="VA-TEXT INFO SCREEN FOR AAA"
+55 SET ARRAY(55,1)="VA-WH DISCUSS BREAST CA SCREEN WOMAN 40-49"
+56 SET ARRAY(56,1)="VA-WH MAMMOGRAM REVIEW RESULTS DIALOG"
+57 SET ARRAY(57,1)="VA-WH MAMMOGRAM SCREENING"
+58 SET ARRAY(58,1)="VA-WH MAMMOGRAM SCREENING DIALOG"
+59 SET ARRAY(59,1)="VA-WH PAP SMEAR REVIEW RESULTS"
+60 SET ARRAY(60,1)="VA-WH PAP SMEAR REVIEW RESULTS DIALOG"
+61 SET ARRAY(61,1)="VA-WH PAP SMEAR SCREENING"
+62 SET ARRAY(62,1)="VA-WH PAP SMEAR SCREENING DIALOG"
+63 SET ARRAY(63,1)="VA-MH HIGH RISK NO-SHOW FOLLOW-UP"
+64 SET ARRAY(64,1)="VA-WH DISCUSS BREAST CA WOMAN 40-49 DIALOG"
+65 SET ARRAY(65,1)="VA-TERATOGENIC MEDICATIONS ORDER CHECKS (UPDATE #1)"
+66 SET ARRAY(66,1)="VA-PNEUMOCOCCAL REMINDERS"
+67 SET ARRAY(67,1)="VA-PATCH 36 POST COMPONENTS"
+68 SET ARRAY(68,1)="VA-PATCH 31 POST HS COMPONENTS"
+69 SET ARRAY(69,1)="VA-PALLIATIVE CARE CONSULT"
+70 SET ARRAY(70,1)="VA-ECOE PATCH 30 ELEMENT UPDATE"
+71 SET ARRAY(71,1)="PXRM*2*26 NATIONAL TAXONOMIES"
+72 SET ARRAY(72,1)="PATCH 36 WH TAXONOMIES (5)"
+73 SET ARRAY(73,1)="PRXM PATCH 26 ECOE UPDATE"
+74 SET ARRAY(74,1)="PXRM PATCH 26 PALLIATIVE CARE UPDATE"
+75 QUIT
+76 ;
+77 ;===============================================================
DELEI ;If the Exchange File entry already exists delete it.
+1 NEW ARRAY,IC,IND,LIST,LUVALUE,NUM
+2 DO ARRAY(.ARRAY)
+3 SET IC=0
+4 FOR
SET IC=$ORDER(ARRAY(IC))
IF 'IC
QUIT
Begin DoDot:1
+5 SET LUVALUE(1)=ARRAY(IC,1)
+6 DO FIND^DIC(811.8,"","","U",.LUVALUE,"","","","","LIST")
+7 IF '$DATA(LIST)
QUIT
+8 SET NUM=$PIECE(LIST("DILIST",0),U,1)
+9 IF NUM'=0
Begin DoDot:2
+10 FOR IND=1:1:NUM
Begin DoDot:3
+11 NEW DA,DIK
+12 SET DIK="^PXD(811.8,"
+13 SET DA=LIST("DILIST",2,IND)
+14 DO ^DIK
End DoDot:3
End DoDot:2
End DoDot:1
+15 QUIT
+16 ;
+17 ;===============================================================
DELDD ;Delete the old data dictionaries.
+1 NEW DIU,TEXT
+2 DO EN^DDIOL("Removing old data dictionaries.")
+3 SET DIU(0)=""
+4 FOR DIU=801.41,811.5,811.9
Begin DoDot:1
+5 SET TEXT=" Deleting data dictionary for file # "_DIU
+6 DO EN^DDIOL(TEXT)
+7 DO EN^DIU2
End DoDot:1
+8 QUIT
+9 ;Delete the cross-reference
CVMEA NEW MSG,RESULT,XREF
+1 DO BMES^XPDUTL("Deleting V MEASUREMENT XREF")
+2 DO DELIXN^DDMOD(9000010.01,"ACR","","",.MSG)
+3 ;Create cross-reference for V MEASUREMENTS
+4 DO BMES^XPDUTL("Creating V MEASUREMENT XREF.")
+5 ;Set the XREF nodes
+6 SET XREF("FILE")=9000010.01
+7 SET XREF("ROOT FILE")=9000010.01
+8 SET XREF("SET")="D EVFILE^PXPXRM(9000010.01,.X,.DA)"
+9 SET XREF("KILL")="D KEFILE^PXPXRM(9000010.01,.X,.DA)"
+10 SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.01)"
+11 DO SXREFVF(.XREF,"measurement type")
+12 DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
+13 IF RESULT=""
DO DCERRMSG(.MSG,.XREF)
+14 QUIT
SXREFVF(XREF,ITEM) ;Set XREF array nodes common for all V files.
+1 NEW UITEM
+2 SET UITEM=$$UP^XLFSTR(ITEM)
+3 SET XREF("TYPE")="MU"
+4 SET XREF("NAME")="ACR"
+5 SET XREF("SHORT DESCR")="Clinical Reminders index."
+6 SET XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
+7 SET XREF("DESCR",2)="all patients with a particular "_ITEM_" and one for finding all"
+8 SET XREF("DESCR",3)="the "_ITEM_"s a patient has."
+9 SET XREF("DESCR",4)="The indexes are stored in the Clinical Reminders index global as:"
+10 SET XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IP"","_UITEM_",DFN,ENTRY DATE/TIME,DAS) and"
+11 SET XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PI"",DFN,"_UITEM_",ENTRY DATE/TIME,DAS)"
+12 SET XREF("DESCR",7)="respectively."
+13 SET XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
+14 SET XREF("USE")="ACTION"
+15 SET XREF("EXECUTION")="R"
+16 SET XREF("ACTIVITY")="IR"
+17 SET XREF("VAL",1)=.01
+18 SET XREF("VAL",1,"SUBSCRIPT")=1
+19 SET XREF("VAL",2)=.02
+20 SET XREF("VAL",2,"SUBSCRIPT")=2
+21 QUIT
DCERRMSG(MSG,XREF) ;Display cross-reference creation error message.
+1 WRITE !,"Cross-reference could not be created!"
+2 WRITE !,"Error message:"
+3 DO AWRITE^PXRMUTIL("MSG")
+4 WRITE !!,"Cross-reference information:"
+5 DO AWRITE^PXRMUTIL("XREF")
+6 QUIT
SOURCE ;Loop through the taxonomies and reset the data sources
+1 NEW IEN,SOURCE
+2 SET IEN=0
FOR
SET IEN=$ORDER(^PXD(811.2,IEN))
IF '+IEN
QUIT
Begin DoDot:1
+3 SET SOURCE=$PIECE($GET(^PXD(811.2,IEN,0)),U,4)
+4 IF SOURCE=""
QUIT
+5 DO SPDS^PXRMPDS(IEN,SOURCE)
End DoDot:1
+6 QUIT
