Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Routine: PXP119I

PXP119I.m

Go to the documentation of this file. 
  1. PXP119I ;SLC/PKR,JVS - Create cross-references. ;10/12/2004
  1.  ;;1.0;PCE PATIENT CARE ENCOUNTER;**119**;Aug 12, 1996
  1.  ;
  1.  Q
  1.  ;===============================================================
  1. AED ;Reindex Health Factor "AED" Index
  1.  Q:$D(^AUPNVHF("AED"))
  1.  D BMES^XPDUTL(" The installation will pause while the index is being populated.")
  1.  D BMES^XPDUTL(" If you have a large V Health Factor file this could take awhile.")
  1.  N CNT,IEN,DA,DIK
  1.  S CNT=0
  1.  S DIK="^AUPNVHF("
  1.  S DIK(1)="81203^AED"
  1.  S XPDIDTOT=$P($G(^AUPNVHF(0)),"^",4)
  1.  S IEN=0 F  S IEN=$O(^AUPNVHF(IEN)) Q:IEN<1  S CNT=CNT+1 D
  1.  .I '$D(^AUPNVHF(IEN,12)) Q
  1.  .I +$P($G(^AUPNVHF(IEN,12)),"^",1)=0 Q
  1.  .I '$D(^AUPNVHF(IEN,812)) Q
  1.  .I +$P($G(^AUPNVHF(IEN,812)),"^",3)=0 Q
  1.  .S DA=IEN
  1.  .D EN1^DIK
  1.  .I $D(XPDNM),'(CNT#1000) D UPDATE^XPDID(CNT)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVCPT ;Create cross-reference for V CPT.
  1.  N MSG,RESULT,UITEM,XREF
  1.  D BMES^XPDUTL("Creating V CPT cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.18
  1.  S XREF("ROOT FILE")=9000010.18
  1.  S XREF("SET")="D SVFILEC^PXPXRM(9000010.18,.X,.DA)"
  1.  S XREF("KILL")="D KVFILEC^PXPXRM(9000010.18,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.18)"
  1.  D SXREFVF(.XREF,"CPT code")
  1.  S UITEM="CPT CODE"
  1.  S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PP,DFN,VISIT DATE,DAS) and"
  1.  S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PP,"_UITEM_",VISIT DATE,DAS)"
  1.  S XREF("DESCR",7)="respectively. PP is the principal procedure code. Possible values are Y (yes), N (no) or U (undefined)."
  1.  S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
  1.  S XREF("VAL",4)=.07
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVFILE ;Create all the V file cross-references.
  1.  D BMES^XPDUTL("Creating V file cross-references.")
  1.  D CVCPT
  1.  D CVHF
  1.  D CVIMM
  1.  D CVPATED
  1.  D CVPOV
  1.  D CVSK
  1.  D CVXAM
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVHF ;Create cross-reference for V HEALTH FACTOR.
  1.  N MSG,RESULT,XREF
  1.  D BMES^XPDUTL("Creating V Health Factor cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.23
  1.  S XREF("ROOT FILE")=9000010.23
  1.  S XREF("SET")="D SVFILE^PXPXRM(9000010.23,.X,.DA)"
  1.  S XREF("KILL")="D KVFILE^PXPXRM(9000010.23,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.23)"
  1.  D SXREFVF(.XREF,"health factor")
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  ;
  1.  N PXREF
  1.  K MSG,RESULT
  1.  D BMES^XPDUTL("Creating V Health Factor AED cross-reference.")
  1.  S PXREF("FILE")=9000010.23
  1.  S PXREF("ROOT FILE")=9000010.23
  1.  S PXREF("WHOLE KILL")="K ^AUPNVHF(""AED"")"
  1.  S PXREF("NAME")="AED"
  1.  S PXREF("TYPE")="R"
  1.  S PXREF("SHORT DESCR")="AED,EVENT DATE AND TIME,DATA SOURCE,DA"
  1.  S PXREF("DESCR",1)="This cross-reference creates an index of the Event"
  1.  S PXREF("DESCR",2)="Date and Time field and the Data Source field."
  1.  S PXREF("USE")="S"
  1.  S PXREF("EXECUTION")="R"
  1.  S PXREF("ACTIVITY")="IR"
  1.  S PXREF("VAL",1)=1201
  1.  S PXREF("VAL",1,"SUBSCRIPT")=1
  1.  S PXREF("VAL",2)=81203
  1.  S PXREF("VAL",2,"SUBSCRIPT")=3
  1.  S PXREF("VAL",3)=.02
  1.  S PXREF("VAL",3,"SUBSCRIPT")=2
  1.  D CREIXN^DDMOD(.PXREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  D AED
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVIMM ;Create cross-reference for V IMMUNIZATION.
  1.  N MSG,RESULT,XREF
  1.  D BMES^XPDUTL("Creating V Immunization cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.11
  1.  S XREF("ROOT FILE")=9000010.11
  1.  S XREF("SET")="D SVFILE^PXPXRM(9000010.11,.X,.DA)"
  1.  S XREF("KILL")="D KVFILE^PXPXRM(9000010.11,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.11)"
  1.  D SXREFVF(.XREF,"immunization")
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVPATED ;Create cross-reference for V PATIENT ED.
  1.  N MSG,RESULT,XREF
  1.  D BMES^XPDUTL("Creating V Patient Ed cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.16
  1.  S XREF("ROOT FILE")=9000010.16
  1.  S XREF("SET")="D SVFILE^PXPXRM(9000010.16,.X,.DA)"
  1.  S XREF("KILL")="D KVFILE^PXPXRM(9000010.16,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.16)"
  1.  D SXREFVF(.XREF,"education topic")
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVPOV ;Create cross-reference for V POV.
  1.  N MSG,RESULT,UITEM,XREF
  1.  D BMES^XPDUTL("Creating V POV cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.07
  1.  S XREF("ROOT FILE")=9000010.07
  1.  S XREF("SET")="D SVFILEC^PXPXRM(9000010.07,.X,.DA)"
  1.  S XREF("KILL")="D KVFILEC^PXPXRM(9000010.07,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.07)"
  1.  D SXREFVF(.XREF,"ICD9 code")
  1.  S UITEM="ICD9 CODE"
  1.  S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IPP"","_UITEM_",PS,DFN,VISIT DATE,DAS) and"
  1.  S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PPI"",DFN,PS,"_UITEM_",VISIT DATE,DAS)"
  1.  S XREF("DESCR",7)="respectively. PS is the primary/secondary code. Possible values are P (primary), S (secondary) or U (undefined)."
  1.  S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
  1.  S XREF("VAL",4)=.12
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVSK ;Create cross-reference for V SKIN TEST.
  1.  N MSG,RESULT,XREF
  1.  D BMES^XPDUTL("Creating V Skin Test cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.12
  1.  S XREF("ROOT FILE")=9000010.12
  1.  S XREF("SET")="D SVFILE^PXPXRM(9000010.12,.X,.DA)"
  1.  S XREF("KILL")="D KVFILE^PXPXRM(9000010.12,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.12)"
  1.  D SXREFVF(.XREF,"skin test")
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. CVXAM ;Create cross-reference for V EXAM.
  1.  N MSG,RESULT,XREF
  1.  D BMES^XPDUTL("Creating V Exam cross-reference.")
  1.  ;Set the XREF nodes
  1.  S XREF("FILE")=9000010.13
  1.  S XREF("ROOT FILE")=9000010.13
  1.  S XREF("SET")="D SVFILE^PXPXRM(9000010.13,.X,.DA)"
  1.  S XREF("KILL")="D KVFILE^PXPXRM(9000010.13,.X,.DA)"
  1.  S XREF("WHOLE KILL")="K ^PXRMINDX(9000010.13)"
  1.  D SXREFVF(.XREF,"exam")
  1.  D CREIXN^DDMOD(.XREF,"k",.RESULT,"","MSG")
  1.  I RESULT="" D DCERRMSG^PXRMP12I(.MSG,.XREF)
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. DCERRMSG(MSG,XREF) ;Display creation error message.
  1.  W !,"Cross-reference could not be created!"
  1.  W !,"Error message:"
  1.  D AWRITE^PXRMUTIL("MSG")
  1.  W !!,"Cross-reference information:"
  1.  D AWRITE^PXRMUTIL("XREF")
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. SXREFVF(XREF,ITEM) ;Set XREF array nodes common for all V files.
  1.  N UITEM
  1.  S UITEM=$$UP^XLFSTR(ITEM)
  1.  S XREF("TYPE")="MU"
  1.  S XREF("NAME")="ACR"
  1.  S XREF("SHORT DESCR")="Clinical Reminders index."
  1.  S XREF("DESCR",1)="This cross-reference builds two indexes, one for finding"
  1.  S XREF("DESCR",2)="all patients with a particular "_ITEM_" and one for finding all"
  1.  S XREF("DESCR",3)="the "_ITEM_"s a patient has."
  1.  S XREF("DESCR",4)="The indexes are stored in the Clinical Reminders index global as:"
  1.  S XREF("DESCR",5)=" ^PXRMINDX("_XREF("FILE")_",""IP"","_UITEM_",DFN,VISIT DATE,DAS) and"
  1.  S XREF("DESCR",6)=" ^PXRMINDX("_XREF("FILE")_",""PI"",DFN,"_UITEM_",VISIT DATE,DAS)"
  1.  S XREF("DESCR",7)="respectively."
  1.  S XREF("DESCR",8)="For all the details, see the Clinical Reminders Index Technical Guide/Programmer's Manual."
  1.  S XREF("USE")="ACTION"
  1.  S XREF("EXECUTION")="R"
  1.  S XREF("ACTIVITY")="IR"
  1.  S XREF("VAL",1)=.01
  1.  S XREF("VAL",1,"SUBSCRIPT")=1
  1.  S XREF("VAL",2)=.02
  1.  S XREF("VAL",2,"SUBSCRIPT")=2
  1.  S XREF("VAL",3)=.03
  1.  S XREF("VAL",3,"SUBSCRIPT")=3
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. VHFAED     ;Reindex Health Factor "AED" Index
  1.  S DIK="^AUPNVHF("
  1.  S DIK(1)="81203^AED"
  1.  D ENALL^DIK
  1.  Q
  1.  ;
  1.  ;===============================================================
  1. VHFTSK ;Task off Health Factor AED Cross ref build
  1.  S ZTRTN="VHFAED^PXP119I"
  1.  S ZTDESC="V Health Factors Index AED x-ref"
  1.  S ZTIO=""
  1.  S ZTDTH=$H
  1.  D ^%ZTLOAD
  1.  Q
  1.  ;