Routine: PXP119I

PXP119I ;SLC/PKR,JVS - Create cross-references. ;10/12/2004

 ;;1.0;PCE PATIENT CARE ENCOUNTER;**119**;Aug 12, 1996

 ;===============================================================

AED ;Reindex Health Factor "AED" Index

 Q:$D(^AUPNVHF("AED"))

 D BMES^XPDUTL(" The installation will pause while the index is being populated.")

 D BMES^XPDUTL(" If you have a large V Health Factor file this could take awhile.")

 N CNT,IEN,DA,DIK

 S CNT=0

 S DIK="^AUPNVHF("

 S DIK(1)="81203^AED"

 S XPDIDTOT=$P($G(^AUPNVHF(0)),"^",4)

 S IEN=0 F  S IEN=$O(^AUPNVHF(IEN)) Q:IEN<1  S CNT=CNT+1 D

 .I '$D(^AUPNVHF(IEN,12)) Q

 .I +$P($G(^AUPNVHF(IEN,12)),"^",1)=0 Q

 .I '$D(^AUPNVHF(IEN,812)) Q

 .I +$P($G(^AUPNVHF(IEN,812)),"^",3)=0 Q

 .S DA=IEN

 .D EN1^DIK

 .I $D(XPDNM),'(CNT#1000) D UPDATE^XPDID(CNT)

 ;===============================================================

CVCPT ;Create cross-reference for V CPT.

 N MSG,RESULT,UITEM,XREF

 D BMES^XPDUTL("Creating V CPT cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.18

 S XREF("ROOT FILE")=9000010.18

 S XREF("SET")="D SVFILEC^PXPXRM(9000010.18,.X,.DA)"

 S XREF("KILL")="D KVFILEC^PXPXRM(9000010.18,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.18)"

 D SXREFVF(.XREF,"CPT code")

 S UITEM="CPT CODE"

 S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PP,DFN,VISIT DATE,DAS) and"

 S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PP,"_UITEM_",VISIT DATE,DAS)"

 S XREF("DESCR",7)="respectively. PP is the principal procedure code. Possible values are Y (yes), N (no) or U (undefined)."

 S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."

 S XREF("VAL",4)=.07

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

CVFILE ;Create all the V file cross-references.

 D BMES^XPDUTL("Creating V file cross-references.")

 D CVCPT

 D CVHF

 D CVIMM

 D CVPATED

 D CVPOV

 D CVSK

 D CVXAM

 ;===============================================================

CVHF ;Create cross-reference for V HEALTH FACTOR.

 N MSG,RESULT,XREF

 D BMES^XPDUTL("Creating V Health Factor cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.23

 S XREF("ROOT FILE")=9000010.23

 S XREF("SET")="D SVFILE^PXPXRM(9000010.23,.X,.DA)"

 S XREF("KILL")="D KVFILE^PXPXRM(9000010.23,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.23)"

 D SXREFVF(.XREF,"health factor")

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 N PXREF

 K MSG,RESULT

 D BMES^XPDUTL("Creating V Health Factor AED cross-reference.")

 S PXREF("FILE")=9000010.23

 S PXREF("ROOT FILE")=9000010.23

 S PXREF("WHOLE KILL")="K ^AUPNVHF(""AED"")"

 S PXREF("NAME")="AED"

 S PXREF("TYPE")="R"

 S PXREF("SHORT DESCR")="AED,EVENT DATE AND TIME,DATA SOURCE,DA"

 S PXREF("DESCR",1)="This cross-reference creates an index of the Event"

 S PXREF("DESCR",2)="Date and Time field and the Data Source field."

 S PXREF("USE")="S"

 S PXREF("EXECUTION")="R"

 S PXREF("ACTIVITY")="IR"

 S PXREF("VAL",1)=1201

 S PXREF("VAL",1,"SUBSCRIPT")=1

 S PXREF("VAL",2)=81203

 S PXREF("VAL",2,"SUBSCRIPT")=3

 S PXREF("VAL",3)=.02

 S PXREF("VAL",3,"SUBSCRIPT")=2

 D CREIXN^DDMOD(.PXREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 D AED

 ;===============================================================

CVIMM ;Create cross-reference for V IMMUNIZATION.

 N MSG,RESULT,XREF

 D BMES^XPDUTL("Creating V Immunization cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.11

 S XREF("ROOT FILE")=9000010.11

 S XREF("SET")="D SVFILE^PXPXRM(9000010.11,.X,.DA)"

 S XREF("KILL")="D KVFILE^PXPXRM(9000010.11,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.11)"

 D SXREFVF(.XREF,"immunization")

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

CVPATED ;Create cross-reference for V PATIENT ED.

 N MSG,RESULT,XREF

 D BMES^XPDUTL("Creating V Patient Ed cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.16

 S XREF("ROOT FILE")=9000010.16

 S XREF("SET")="D SVFILE^PXPXRM(9000010.16,.X,.DA)"

 S XREF("KILL")="D KVFILE^PXPXRM(9000010.16,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.16)"

 D SXREFVF(.XREF,"education topic")

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

CVPOV ;Create cross-reference for V POV.

 N MSG,RESULT,UITEM,XREF

 D BMES^XPDUTL("Creating V POV cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.07

 S XREF("ROOT FILE")=9000010.07

 S XREF("SET")="D SVFILEC^PXPXRM(9000010.07,.X,.DA)"

 S XREF("KILL")="D KVFILEC^PXPXRM(9000010.07,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.07)"

 D SXREFVF(.XREF,"ICD9 code")

 S UITEM="ICD9 CODE"

 S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PS,DFN,VISIT DATE,DAS) and"

 S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PS,"_UITEM_",VISIT DATE,DAS)"

 S XREF("DESCR",7)="respectively. PS is the primary/secondary code. Possible values are P (primary), S (secondary) or U (undefined)."

 S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."

 S XREF("VAL",4)=.12

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

CVSK ;Create cross-reference for V SKIN TEST.

 N MSG,RESULT,XREF

 D BMES^XPDUTL("Creating V Skin Test cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.12

 S XREF("ROOT FILE")=9000010.12

 S XREF("SET")="D SVFILE^PXPXRM(9000010.12,.X,.DA)"

 S XREF("KILL")="D KVFILE^PXPXRM(9000010.12,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.12)"

 D SXREFVF(.XREF,"skin test")

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

CVXAM ;Create cross-reference for V EXAM.

 N MSG,RESULT,XREF

 D BMES^XPDUTL("Creating V Exam cross-reference.")

 ;Set the XREF nodes

 S XREF("FILE")=9000010.13

 S XREF("ROOT FILE")=9000010.13

 S XREF("SET")="D SVFILE^PXPXRM(9000010.13,.X,.DA)"

 S XREF("KILL")="D KVFILE^PXPXRM(9000010.13,.X,.DA)"

 S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.13)"

 D SXREFVF(.XREF,"exam")

 D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)

 ;===============================================================

DCERRMSG(MSG,XREF) ;Display 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")

 ;===============================================================

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,VISIT DATE,DAS) and"

 S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PI"",DFN,"_UITEM_",VISIT DATE,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

 S XREF("VAL",3)=.03

 S XREF("VAL",3,"SUBSCRIPT")=3

 ;===============================================================

VHFAED     ;Reindex Health Factor "AED" Index

 S DIK="^AUPNVHF("

 S DIK(1)="81203^AED"

 D ENALL^DIK

 ;===============================================================

VHFTSK ;Task off Health Factor AED Cross ref build

 S ZTRTN="VHFAED^PXP119I"

 S ZTDESC="V Health Factors Index AED x-ref"

 S ZTIO=""

 S ZTDTH=$H

 D ^%ZTLOAD

--- Routine Detail   --- with STRUCTURED ROUTINE LISTING ---[H[J[2J[HPXP119I   8601     printed  Apr 09, 2024@21:32:15                                                                                                                                                                                                     Page 2

PXP119I   ;SLC/PKR,JVS - Create cross-references. ;10/12/2004

 +1       ;;1.0;PCE PATIENT CARE ENCOUNTER;**119**;Aug 12, 1996

 +2       ;

 +3        QUIT

 +4       ;===============================================================

AED       ;Reindex Health Factor "AED" Index

 +1        if $DATA(^AUPNVHF("AED"))

               QUIT

 +2        DO BMES^XPDUTL(" The installation will pause while the index is being populated.")

 +3        DO BMES^XPDUTL(" If you have a large V Health Factor file this could take awhile.")

 +4        NEW CNT,IEN,DA,DIK

 +5        SET CNT=0

 +6        SET DIK="^AUPNVHF("

 +7        SET DIK(1)="81203^AED"

 +8        SET XPDIDTOT=$PIECE($GET(^AUPNVHF(0)),"^",4)

 +9        SET IEN=0

FOR

               SET IEN=$ORDER(^AUPNVHF(IEN))

               if IEN<1

                   QUIT

               SET CNT=CNT+1

               Begin DoDot:1

 +10               IF '$DATA(^AUPNVHF(IEN,12))

                       QUIT

 +11               IF +$PIECE($GET(^AUPNVHF(IEN,12)),"^",1)=0

                       QUIT

 +12               IF '$DATA(^AUPNVHF(IEN,812))

                       QUIT

 +13               IF +$PIECE($GET(^AUPNVHF(IEN,812)),"^",3)=0

                       QUIT

 +14               SET DA=IEN

 +15               DO EN1^DIK

 +16               IF $DATA(XPDNM)

                       IF '(CNT#1000)

                           DO UPDATE^XPDID(CNT)

               End DoDot:1

 +17       QUIT

 +18      ;

 +19      ;===============================================================

CVCPT     ;Create cross-reference for V CPT.

 +1        NEW MSG,RESULT,UITEM,XREF

 +2        DO BMES^XPDUTL("Creating V CPT cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.18

 +5        SET XREF("ROOT FILE")=9000010.18

 +6        SET XREF("SET")="D SVFILEC^PXPXRM(9000010.18,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILEC^PXPXRM(9000010.18,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.18)"

 +9        DO SXREFVF(.XREF,"CPT code")

 +10       SET UITEM="CPT CODE"

 +11       SET XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PP,DFN,VISIT DATE,DAS) and"

 +12       SET XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PP,"_UITEM_",VISIT DATE,DAS)"

 +13       SET XREF("DESCR",7)="respectively. PP is the principal procedure code. Possible values are Y (yes), N (no) or U (undefined)."

 +14       SET XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."

 +15       SET XREF("VAL",4)=.07

 +16       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +17       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +18       QUIT

 +19      ;

 +20      ;===============================================================

CVFILE    ;Create all the V file cross-references.

 +1        DO BMES^XPDUTL("Creating V file cross-references.")

 +2        DO CVCPT

 +3        DO CVHF

 +4        DO CVIMM

 +5        DO CVPATED

 +6        DO CVPOV

 +7        DO CVSK

 +8        DO CVXAM

 +9        QUIT

 +10      ;

 +11      ;===============================================================

CVHF      ;Create cross-reference for V HEALTH FACTOR.

 +1        NEW MSG,RESULT,XREF

 +2        DO BMES^XPDUTL("Creating V Health Factor cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.23

 +5        SET XREF("ROOT FILE")=9000010.23

 +6        SET XREF("SET")="D SVFILE^PXPXRM(9000010.23,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILE^PXPXRM(9000010.23,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.23)"

 +9        DO SXREFVF(.XREF,"health factor")

 +10       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +11       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +12      ;

 +13       NEW PXREF

 +14       KILL MSG,RESULT

 +15       DO BMES^XPDUTL("Creating V Health Factor AED cross-reference.")

 +16       SET PXREF("FILE")=9000010.23

 +17       SET PXREF("ROOT FILE")=9000010.23

 +18       SET PXREF("WHOLE KILL")="K ^AUPNVHF(""AED"")"

 +19       SET PXREF("NAME")="AED"

 +20       SET PXREF("TYPE")="R"

 +21       SET PXREF("SHORT DESCR")="AED,EVENT DATE AND TIME,DATA SOURCE,DA"

 +22       SET PXREF("DESCR",1)="This cross-reference creates an index of the Event"

 +23       SET PXREF("DESCR",2)="Date and Time field and the Data Source field."

 +24       SET PXREF("USE")="S"

 +25       SET PXREF("EXECUTION")="R"

 +26       SET PXREF("ACTIVITY")="IR"

 +27       SET PXREF("VAL",1)=1201

 +28       SET PXREF("VAL",1,"SUBSCRIPT")=1

 +29       SET PXREF("VAL",2)=81203

 +30       SET PXREF("VAL",2,"SUBSCRIPT")=3

 +31       SET PXREF("VAL",3)=.02

 +32       SET PXREF("VAL",3,"SUBSCRIPT")=2

 +33       DO CREIXN^DDMOD(.PXREF,"k",.RESULT,"","MSG")

 +34       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +35       DO AED

 +36       QUIT

 +37      ;

 +38      ;===============================================================

CVIMM     ;Create cross-reference for V IMMUNIZATION.

 +1        NEW MSG,RESULT,XREF

 +2        DO BMES^XPDUTL("Creating V Immunization cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.11

 +5        SET XREF("ROOT FILE")=9000010.11

 +6        SET XREF("SET")="D SVFILE^PXPXRM(9000010.11,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILE^PXPXRM(9000010.11,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.11)"

 +9        DO SXREFVF(.XREF,"immunization")

 +10       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +11       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +12       QUIT

 +13      ;

 +14      ;===============================================================

CVPATED   ;Create cross-reference for V PATIENT ED.

 +1        NEW MSG,RESULT,XREF

 +2        DO BMES^XPDUTL("Creating V Patient Ed cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.16

 +5        SET XREF("ROOT FILE")=9000010.16

 +6        SET XREF("SET")="D SVFILE^PXPXRM(9000010.16,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILE^PXPXRM(9000010.16,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.16)"

 +9        DO SXREFVF(.XREF,"education topic")

 +10       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +11       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +12       QUIT

 +13      ;

 +14      ;===============================================================

CVPOV     ;Create cross-reference for V POV.

 +1        NEW MSG,RESULT,UITEM,XREF

 +2        DO BMES^XPDUTL("Creating V POV cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.07

 +5        SET XREF("ROOT FILE")=9000010.07

 +6        SET XREF("SET")="D SVFILEC^PXPXRM(9000010.07,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILEC^PXPXRM(9000010.07,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.07)"

 +9        DO SXREFVF(.XREF,"ICD9 code")

 +10       SET UITEM="ICD9 CODE"

 +11       SET XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PS,DFN,VISIT DATE,DAS) and"

 +12       SET XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PS,"_UITEM_",VISIT DATE,DAS)"

 +13       SET XREF("DESCR",7)="respectively. PS is the primary/secondary code. Possible values are P (primary), S (secondary) or U (undefined)."

 +14       SET XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."

 +15       SET XREF("VAL",4)=.12

 +16       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +17       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +18       QUIT

 +19      ;

 +20      ;===============================================================

CVSK      ;Create cross-reference for V SKIN TEST.

 +1        NEW MSG,RESULT,XREF

 +2        DO BMES^XPDUTL("Creating V Skin Test cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.12

 +5        SET XREF("ROOT FILE")=9000010.12

 +6        SET XREF("SET")="D SVFILE^PXPXRM(9000010.12,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILE^PXPXRM(9000010.12,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.12)"

 +9        DO SXREFVF(.XREF,"skin test")

 +10       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +11       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +12       QUIT

 +13      ;

 +14      ;===============================================================

CVXAM     ;Create cross-reference for V EXAM.

 +1        NEW MSG,RESULT,XREF

 +2        DO BMES^XPDUTL("Creating V Exam cross-reference.")

 +3       ;Set the XREF nodes

 +4        SET XREF("FILE")=9000010.13

 +5        SET XREF("ROOT FILE")=9000010.13

 +6        SET XREF("SET")="D SVFILE^PXPXRM(9000010.13,.X,.DA)"

 +7        SET XREF("KILL")="D KVFILE^PXPXRM(9000010.13,.X,.DA)"

 +8        SET XREF("WHOLE KILL")="K ^PXRMINDX(9000010.13)"

 +9        DO SXREFVF(.XREF,"exam")

 +10       DO CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")

 +11       IF RESULT=""

               DO DCERRMSG^PXRMP12I(.MSG,.XREF)

 +12       QUIT

 +13      ;

 +14      ;===============================================================

DCERRMSG(MSG,XREF) ;Display 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

 +7       ;

 +8       ;===============================================================

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,VISIT DATE,DAS) and"

 +11       SET XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PI"",DFN,"_UITEM_",VISIT DATE,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       SET XREF("VAL",3)=.03

 +22       SET XREF("VAL",3,"SUBSCRIPT")=3

 +23       QUIT

 +24      ;

 +25      ;===============================================================

VHFAED    ;Reindex Health Factor "AED" Index

 +1        SET DIK="^AUPNVHF("

 +2        SET DIK(1)="81203^AED"

 +3        DO ENALL^DIK

 +4        QUIT

 +5       ;

 +6       ;===============================================================

VHFTSK    ;Task off Health Factor AED Cross ref build

 +1        SET ZTRTN="VHFAED^PXP119I"

 +2        SET ZTDESC="V Health Factors Index AED x-ref"

 +3        SET ZTIO=""

 +4        SET ZTDTH=$HOROLOG

 +5        DO ^%ZTLOAD

 +6        QUIT

 +7       ;

PXP119I.m