PXP119I ;SLC/PKR,JVS - Create cross-references. ;10/12/2004
;;1.0;PCE PATIENT CARE ENCOUNTER;**119**;Aug 12, 1996
;
Q
;===============================================================
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)
Q
;
;===============================================================
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)
Q
;
;===============================================================
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
Q
;
;===============================================================
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
Q
;
;===============================================================
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)
Q
;
;===============================================================
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)
Q
;
;===============================================================
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)
Q
;
;===============================================================
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)
Q
;
;===============================================================
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)
Q
;
;===============================================================
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")
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,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
Q
;
;===============================================================
VHFAED ;Reindex Health Factor "AED" Index
S DIK="^AUPNVHF("
S DIK(1)="81203^AED"
D ENALL^DIK
Q
;
;===============================================================
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
Q
;
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 ;
