PXRMTAXD ; SLC/PKR - Routines used by taxonomy data dictionary. ;10/23/2015
Source file <PXRMTAXD.m>
| Package | Total | Call Graph |
|---|---|---|
| Clinical Reminders | 5 | BLDLIST^PXRMFRPT $$VCODE^PXRMLEX ($$CHGUID,SENODE,STC,STCC,SUID)^PXRMTAXD SAVETC^PXRMTXIM POSTSAVE^PXRMTXSM |
| VA FileMan | 3 | EN^DDIOL (FILE,UPDATE)^DIE $$GET1^DIQ |
| CPT HCPCS Codes | 1 | $$STATCHK^ICPTAPIU |
| DRG Grouper | 1 | $$CODEN^ICDEX |
| Kernel | 1 | (BMES,MES)^XPDUTL |
| Lexicon Utility | 1 | ($$CSYS,$$PERIOD)^LEXU |
| action | A | extended action | Ea | event driver | Ed | subscriber | Su | protocol | O | limited protocol | LP | run routine | RR | broker | B | edit | E | server | Se | P | screenman | SM | inquire | I |
| Package | Total | Caller Graph |
|---|---|---|
| Clinical Reminders | 12 | CODING SYSTEM PXRMCSTX PXRMEXIC PXRMP26I PXRMP47I PXRMTAXD PXRMTXCR PXRMTXSM PXRMVSTX ^PXD(811.2 SELECTED CODES USE IN DIALOG CODES |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| BLD30N(IEN) | ;Build the 30 node (USE IN DIALOG CODES) after the 20 node
|
|
| CDINPTR(CODE) | ;Input transform for code field of Use in Dialogs Code multiple.
|
|
| CHGUID(IEN,CODESYS,CODE,UID) | ;For all instances of coding system code pair in
|
|
| CSYSOPTR(CODESYS) | ;Output transform for Coding System field of Use in Dialogs
|
|
| INUSE(TIEN,CHKTYP) | ;Check to see if a taxonomy is in use. Used for the "DEL"
|
|
| KENODE(DA,X) | ;Kill the "AE" (coding system, code) index.
|
|
| KILLUIDC(IEN,CODE,CODESYS) | ;Remove codes from the Use In Dialogs Codes multiple
|
|
| KTC(DA,X) | ;Kill the "ATC" (term, coding system) index.
|
|
| KTCC(DA,X) | ;KILL the "ATCC" (term, coding system, code) index.
|
|
| KUID(DA,X) | ;Kill the "AUID" Use in Dialog index and remove the code
|
|
| KUIDC(DA,X) | ;When a code is deleted from the Use In Dialog Codes multiple
|
|
| RBLD20I(D0) | ;Rebuild all the indexes on the 20 node for a taxonomy. This
|
|
| RBLD20IA | ;Rebuild all the indexes on the 20 node.
|
|
| RBLDUIDI(D0) | ;Rebuild the "AUID" index for an individual taxonomy.
|
|
| RBLDUID | ;Rebuild the "AUID" index for all taxonomies.
|
|
| SAVEUIDC(IEN,CODESYS,CODE) | ;Save codes marked as Use In Dialog in the
|
|
| SENODE(DA,X) | ;Set the "AE" (coding system, code) index.
|
|
| STC(DA,X) | ;Set the "ATC" (term, coding system) index.
|
|
| STCC(DA,X) | ;Set the "ATCC" (term, coding system, code) index.
|
|
| SUID(DA,X) | ;Set the "AUID" Use in Dialog index.
|
|
| SUIDC(DA,X) | ;Copy codes from the Use in Dialog Codes multiple to the Selected
|
|
| VCSYS(LEXSAB) | ;Return true if the coding system is supported in taxonomies.
|
| Name | Field # of Occurrence |
|---|---|
| EN^DDIOL | CDINPTR+6, INUSE+17, VCSYS+8 |
| FILE^DIE | CHGUID+22, KILLUIDC+6 |
| UPDATE^DIE | SAVEUIDC+11 |
| $$GET1^DIQ | INUSE+15 |
| $$CODEN^ICDEX | SENODE+9, SENODE+10 |
| $$STATCHK^ICPTAPIU | SENODE+11, SENODE+12 |
| $$CSYS^LEXU | CSYSOPTR+3 |
| $$PERIOD^LEXU | SUID+7 |
| BLDLIST^PXRMFRPT | INUSE+5 |
| $$VCODE^PXRMLEX | CDINPTR+2 |
| $$CHGUID^PXRMTAXD | KUIDC+9, SUIDC+7 |
| SENODE^PXRMTAXD | RBLD20I+25 |
| STC^PXRMTAXD | RBLD20I+20 |
| STCC^PXRMTAXD | RBLD20I+27 |
| SUID^PXRMTAXD | RBLD20I+30, RBLDUIDI+17 |
| SAVETC^PXRMTXIM | SUIDC+12 |
| POSTSAVE^PXRMTXSM | SUIDC+13 |
| BMES^XPDUTL | RBLD20IA+2, RBLDUID+2 |
| MES^XPDUTL | RBLD20IA+6, RBLDUID+6 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^PXD(811.2 - [#811.2] | BLD30N+2, BLD30N+4, BLD30N+6, CHGUID+4, CHGUID+5, CHGUID+6, CHGUID+7, CHGUID+8, CHGUID+10, CHGUID+11 , KENODE+3, KENODE+5, KENODE+6*, KENODE+7!, KILLUIDC+2, KILLUIDC+4, KILLUIDC+7!, KTC+3, KTC+4!, KTCC+3 , KTCC+4, KTCC+5!, KUID+4, KUID+5, KUID+6!, KUIDC+6!, RBLD20I+4!, RBLD20I+5!, RBLD20I+6!, RBLD20I+7! , RBLD20I+8!, RBLD20I+10, RBLD20I+12, RBLD20I+14, RBLD20I+17*, RBLD20I+21, RBLD20I+23, RBLD20I+31*, RBLD20IA+4, RBLD20IA+5 , RBLDUIDI+3!, RBLDUIDI+4!, RBLDUIDI+6, RBLDUIDI+8, RBLDUIDI+10, RBLDUIDI+12, RBLDUIDI+18*, RBLDUID+4, RBLDUID+5, SAVEUIDC+6 , SENODE+3, SENODE+14, SENODE+15*, STC+3, STC+4*, STCC+3, STCC+4, STCC+5*, SUID+4, SUID+5 , SUID+18*, SUIDC+3* |
| ^TMP("PXRMCODES" | SUIDC+10!, SUIDC+11* |
| ^TMP($J | INUSE+4!, INUSE+6!, INUSE+10, INUSE+14, INUSE+18! |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| ACTDT | SUID+2~, SUID+9*, SUID+10*, SUID+11, SUID+15, SUID+18 |
| BDESC | SUID+2~, SUID+16*, SUID+17* |
| CHKTYP | INUSE~, INUSE+7, INUSE+8 |
| CODE | BLD30N+5*, BLD30N+6*, BLD30N+7, CDINPTR~, CDINPTR+2, CDINPTR+5, CHGUID~, CHGUID+5, CHGUID+12, KILLUIDC~ , KILLUIDC+2, KILLUIDC+4, KILLUIDC+7, SAVEUIDC~, SAVEUIDC+6, SAVEUIDC+9 |
| CODEP | SENODE+2~, SENODE+7*, SENODE+9*, SENODE+10*, SENODE+11*, SENODE+12*, SENODE+15 |
| CODESYS | BLD30N+3*, BLD30N+4*, BLD30N+6, BLD30N+7, CDINPTR+1~, CHGUID~, CHGUID+5, CHGUID+6, CHGUID+7, CSYSOPTR~ , CSYSOPTR+3, KENODE+2~, KENODE+3*, KENODE+5, KENODE+6, KENODE+7, KILLUIDC~, KILLUIDC+2, KILLUIDC+4, KILLUIDC+7 , KTCC+2~, KTCC+4*, KTCC+5, KUID+3~, KUID+4*, KUID+5, KUID+6, KUID+7, RBLD20I+2~, RBLD20I+14* , RBLD20I+15, RBLD20I+16*, RBLD20I+17, RBLD20I+18, SAVEUIDC~, SAVEUIDC+10, SENODE+2~, SENODE+3*, SENODE+9, SENODE+10 , SENODE+11, SENODE+12, SENODE+14, SENODE+15, STCC+2~, STCC+4*, STCC+5, SUID+2~, SUID+4*, SUID+5 , SUID+7, SUID+18, SUID+25 |
| CODESYSL | CDINPTR+1~ |
| COUNT | KENODE+2~, KENODE+5*, KENODE+6, KENODE+7, SENODE+2~, SENODE+14*, SENODE+15 |
| D0 | RBLD20I~, RBLD20I+4, RBLD20I+5, RBLD20I+6, RBLD20I+7, RBLD20I+8, RBLD20I+9, RBLD20I+10, RBLD20I+12, RBLD20I+14 , RBLD20I+17, RBLD20I+21, RBLD20I+23, RBLD20I+31, RBLD20I+32, RBLD20IA+1~, RBLD20IA+5*, RBLD20IA+6, RBLD20IA+7, RBLDUIDI~ , RBLDUIDI+3, RBLDUIDI+4, RBLDUIDI+5, RBLDUIDI+6, RBLDUIDI+8, RBLDUIDI+10, RBLDUIDI+12, RBLDUIDI+18, RBLDUID+1~, RBLDUID+5* , RBLDUID+6, RBLDUID+7 |
| D1 | RBLD20I+2~, RBLD20I+9*, RBLD20I+10*, RBLD20I+11, RBLD20I+12, RBLD20I+14, RBLD20I+17, RBLD20I+21, RBLD20I+23, RBLD20I+31 , RBLDUIDI+1~, RBLDUIDI+5*, RBLDUIDI+6*, RBLDUIDI+7, RBLDUIDI+8, RBLDUIDI+10, RBLDUIDI+12, RBLDUIDI+18 |
| D2 | RBLD20I+2~, RBLD20I+11*, RBLD20I+12*, RBLD20I+14, RBLD20I+17, RBLD20I+19, RBLD20I+21, RBLD20I+23, RBLD20I+31, RBLDUIDI+1~ , RBLDUIDI+7*, RBLDUIDI+8*, RBLDUIDI+9, RBLDUIDI+10, RBLDUIDI+12, RBLDUIDI+18 |
| D3 | RBLD20I+2~, RBLD20I+19*, RBLD20I+21*, RBLD20I+22, RBLD20I+23, RBLDUIDI+1~, RBLDUIDI+9*, RBLDUIDI+10*, RBLDUIDI+11, RBLDUIDI+12 |
| DA | KENODE~, KTC~, KTCC~, KUID~, KUIDC~, RBLD20I+2~, RBLD20I+22*, RBLD20I+25, RBLD20I+27, RBLD20I+30 , RBLDUIDI+1~, RBLDUIDI+11*, RBLDUIDI+17, SENODE~, STC~, STC+4, STCC~, SUID~, SUIDC~, SUIDC+3 |
| DA(1 | KENODE+3, KTC+3, KTCC+4, KUID+4, KUIDC+6, KUIDC+9, RBLD20I+19*, RBLDUIDI+9*, SENODE+3, STC+3 , STC+4, STCC+4, SUID+4, SUIDC+3, SUIDC+7, SUIDC+12, SUIDC+13 |
| DA(2 | KENODE+3, KTC+3, KTC+4, KTCC+3, KTCC+4, KUID+4, RBLD20I+11*, RBLDUIDI+7*, SENODE+3, STC+3 , STC+4, STCC+3, STCC+4, SUID+4 |
| DA(3 | KENODE+3, KENODE+5, KENODE+6, KENODE+7, KTCC+3, KTCC+4, KTCC+5, KUID+4, KUID+5, KUID+6 , KUID+7, RBLD20I+9*, RBLDUIDI+5*, SENODE+3, SENODE+14, SENODE+15, STCC+3, STCC+4, STCC+5, SUID+4 , SUID+5, SUID+18, SUID+25 |
| DATA | CDINPTR+1~, SUID+2~, SUID+7 |
| DATA( | SUID+10, SUID+11, SUID+15 |
| >> DDS | CSYSOPTR+3, KUIDC+5, SUIDC+5 |
| FDA | CHGUID+2~, SAVEUIDC+7~ |
| FDA( | CHGUID+17*, CHGUID+21*, SAVEUIDC+9*, SAVEUIDC+10* |
| FNUM | INUSE+3~, INUSE+11*, INUSE+15 |
| IEN | BLD30N~, BLD30N+2, BLD30N+4, BLD30N+6, BLD30N+7, CHGUID~, CHGUID+4, CHGUID+5, CHGUID+6, CHGUID+7 , CHGUID+8, CHGUID+10, CHGUID+11, CHGUID+16, CHGUID+20, INUSE+3~, INUSE+13*, INUSE+14*, INUSE+15, KILLUIDC~ , KILLUIDC+2, KILLUIDC+4, KILLUIDC+7, SAVEUIDC~, SAVEUIDC+6, SAVEUIDC+8 |
| IENS | CHGUID+2~, CHGUID+16*, CHGUID+17, CHGUID+20*, CHGUID+21, KILLUIDC+3~, KILLUIDC+4*, KILLUIDC+5, SAVEUIDC+7~, SAVEUIDC+8* , SAVEUIDC+9, SAVEUIDC+10 |
| INACTDT | SUID+2~, SUID+12*, SUID+13*, SUID+18 |
| IND | CHGUID+2~, CHGUID+6*, CHGUID+8, CHGUID+10, CHGUID+11, CHGUID+16, CHGUID+20 |
| JND | CHGUID+2~, CHGUID+7*, CHGUID+8, CHGUID+10, CHGUID+11, CHGUID+16, CHGUID+20 |
| KFDA | KILLUIDC+3~ |
| KFDA( | KILLUIDC+5* |
| KND | CHGUID+2~, CHGUID+9*, CHGUID+10*, CHGUID+11, CHGUID+16 |
| LDESC | SUID+2~, SUID+15*, SUID+17, SUID+18 |
| LEXSAB | VCSYS~, VCSYS+1, VCSYS+2, VCSYS+3, VCSYS+4, VCSYS+5, VCSYS+6, VCSYS+7, VCSYS+8 |
| MSG | CHGUID+2~, KILLUIDC+3~, SAVEUIDC+7~ |
| NAME | INUSE+3~, RBLD20I+2~, RBLD20IA+1~, RBLD20IA+3*, RBLD20IA+4*, RBLD20IA+5, RBLD20IA+6, RBLDUID+1~, RBLDUID+3*, RBLDUID+4* , RBLDUID+5, RBLDUID+6 |
| NCHG | CHGUID+2~, CHGUID+3*, CHGUID+15*, CHGUID+22, CHGUID+23, KUIDC+7~, KUIDC+9*, SUIDC+6~, SUIDC+7*, SUIDC+8 |
| NL | INUSE+3~, INUSE+9*, INUSE+12*, INUSE+15*, INUSE+16* |
| NUID | CHGUID+2~, CHGUID+8*, CHGUID+18*, CHGUID+19*, CHGUID+21, RBLD20I+2~, RBLD20I+13*, RBLD20I+29*, RBLD20I+31, RBLDUIDI+1~ , RBLDUIDI+9*, RBLDUIDI+16*, RBLDUIDI+18 |
| >> PXRMCFR | SAVEUIDC+5 |
| >> PXRMEXCH | SUID+24 |
| RESULT | CDINPTR+1~, SUID+2~, SUID+7*, SUID+8 |
| TCCDA | RBLD20I+2~, RBLD20I+19*, RBLD20I+20 |
| TCCDA(1 | RBLD20I+11* |
| TCCDA(2 | RBLD20I+9* |
| TCCX | RBLD20I+2~, RBLD20I+20 |
| TCCX(1 | RBLD20I+18* |
| TEMP | CHGUID+2~, CHGUID+11*, CHGUID+12, CHGUID+14, RBLD20I+2~, RBLD20I+23*, RBLD20I+24, RBLD20I+26, RBLDUIDI+1~, RBLDUIDI+12* , RBLDUIDI+13, RBLDUIDI+14, SUID+2~, SUID+11*, SUID+12, SUID+14, SUID+16 |
| TERM | CHGUID+2~, CHGUID+3*, CHGUID+4*, CHGUID+5, CHGUID+6, CHGUID+7, KTC+2~, KTC+3*, KTC+4, KTCC+2~ , KTCC+3*, KTCC+5, STC+2~, STC+3*, STC+4, STCC+2~, STCC+3*, STCC+5 |
| TEXT | CDINPTR+1~, CDINPTR+6, INUSE+3~, INUSE+17 |
| TEXT( | INUSE+12*, INUSE+15*, INUSE+16* |
| TEXT(1 | CDINPTR+4*, INUSE+7*, INUSE+8* |
| TEXT(2 | CDINPTR+5* |
| TIEN | INUSE~, INUSE+5, INUSE+10, INUSE+14 |
| TYPE | INUSE+3~, INUSE+9*, INUSE+10*, INUSE+11, INUSE+12, INUSE+14 |
| U | CHGUID+6, CHGUID+7, CHGUID+8, CHGUID+12, CHGUID+14, CSYSOPTR+3, KENODE+3, KENODE+5, KENODE+6, KTCC+4 , KUID+4, KUIDC+5, RBLD20I+14, RBLD20I+17, RBLD20I+24, RBLD20I+26, RBLD20I+31, RBLDUIDI+13, RBLDUIDI+14, RBLDUIDI+18 , SENODE+3, SENODE+11, SENODE+12, SENODE+14, SENODE+15, STC+4, STCC+4, SUID+4, SUID+12, SUID+14 , SUID+16, SUID+18, SUIDC+5 |
| UID | CHGUID~, CHGUID+14, CHGUID+17, CHGUID+18, CHGUID+19, RBLD20I+2~, RBLDUIDI+1~ |
| VALID | CDINPTR+1~, CDINPTR+2*, CDINPTR+3, CDINPTR+7 |
| VP | SUID+2~, SUID+14*, SUID+18 |
| X | KENODE~, KTC~, KTCC~, KUID~, KUIDC~, RBLD20I+2~, RBLD20I+25, RBLD20I+27, RBLD20I+30, RBLDUIDI+1~ , RBLDUIDI+17, SENODE~, STC~, STCC~, SUID~, SUIDC~ |
| X(1 | KENODE+5, KENODE+6, KENODE+7, KTC+4, KTCC+5, KUID+5, KUID+6, KUID+7, KUIDC+6, RBLD20I+24* , RBLDUIDI+13*, SENODE+7, SENODE+9, SENODE+10, SENODE+11, SENODE+12, SENODE+14, SENODE+15, STC+4, STCC+5 , SUID+5, SUID+7, SUID+18, SUID+25, SUIDC+3, SUIDC+7, SUIDC+11 |
| X(2 | KUIDC+6, RBLD20I+26*, RBLD20I+28, RBLDUIDI+14*, RBLDUIDI+15, STCC+5, SUID+3, SUIDC+3, SUIDC+7, SUIDC+11 |
| >> X1(1 | KUIDC+9 |
| >> X1(2 | KUIDC+9 |