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 |