©2011-2018 Open Source Electronic Health Record Alliance
This work is licensed under a Creative Commons Attribution 3.0 Unported License
This work is licensed under a Creative Commons Attribution 3.0 Unported License
PXCECPT ;ISL/dee,ISA/Zoltan,esw - Used to edit and display V CPT ; 1/13/03 4:21pm
Source file <PXCECPT.m>
| Package | Total | Call Graph |
|---|---|---|
| VA Fileman | 7 | FILE^DICN (,VAL)^DIE ^DIK $$EXTERNAL^DILFD GETS^DIQ EN^DIQ1 ^DIR |
| DRG Grouper | 1 | $$MOD^ICPTMOD |
| PCE Patient Care Encounter | 1 | $$GETCODE^PXCPTAPI |
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CHGCPT() | ;Verify CPT code should be modified
|
|
| MODNAME(MODIEN) | ;+Return #.02 NAME for this CPT MODIFIER (#81.3)
|
|
| FORMAT | ;;CPT~9000010.18~0,1,12,802,811,812~1~^AUPNVCPT
|
|
| INTRFACE | ;;DG SELECT CPT PROCEDURE CODES
|
|
| DISPLY01(PXCECPT) | ;
|
|
| EDMOD(MODS,CPT) | ;+Edit the Modifiers for a CPT code entry.
|
|
| MODTEXT(MODIEN) | ;+Return string of text describing modifier.
|
|
| EQUAN | ;+Code to edit Quantity in V CPT file.
|
|
| DISPMOD(PXCECPT) | ;
|
|
| ECPTMOD | ;+Prompt for CPT Modifier in V CPT file.
|
|
| NEWCODE | ;
|
|
| ECPTCODE | ;+Code to edit CPT Code in V CPT file.
|
|
| DNARRAT(PNAR) | ;+Display Provider Narrative for procedure in V CPT file.
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Routine Call |
|
| Routine Call |
|
| Routine Call |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVCPT - [#9000010.18] | Classic Fileman Calls, GETS^DIQ |
| 9000010.181 | VAL^DIE |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVCPT - [#9000010.18] | DISPMOD+8, DISPMOD+9 |
| ^AUTNPOV - [#9999999.27] | DNARRAT+3 |
| ^IBE(357.69 - [#357.69] | EQUAN+14 |
| ^TMP("PXK" | ECPTCODE+3, ECPTMOD+7, ECPTMOD+26 |
| Name | Line Occurrences |
|---|---|
| $$CHGCPT | ECPTCODE+17 |
| $$MODTEXT | DISPMOD+10 |
| ECPTCODE | ECPTCODE+18 |
| EQUAN | EQUAN+13 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| CPT | EDMOD~ |
| DA | DNARRAT+5~, DNARRAT+8*, DNARRAT+12, ECPTCODE+2~, ECPTMOD+5~, ECPTMOD+7*, ECPTMOD+17, EQUAN+11!, DISPLY01+5~, DISPLY01+8* , DISPLY01+12, CHGCPT+2~, CHGCPT+14* |
| DA(1 | CHGCPT+10*, CHGCPT+11 |
| DD | NEWCODE+1! |
| DESC | MODTEXT+3~, MODTEXT+6*, MODTEXT+7 |
| DIC | DNARRAT+5~, DNARRAT+6*, ECPTCODE+2~, ECPTMOD+5~, DISPLY01+5~, DISPLY01+6*, NEWCODE+2~, NEWCODE+3* |
| DIC("DR" | NEWCODE+5*, NEWCODE+6* |
| DIC(0 | ECPTMOD+10*, NEWCODE+4* |
| >> DIE | ECPTMOD+9*, ECPTMOD+11, ECPTMOD+23 |
| DIERR | ECPTCODE+6~, ECPTCODE+9, EQUAN+2~, EQUAN+5 |
| >> DIK | CHGCPT+11* |
| DIQ | DNARRAT+5~, DNARRAT+9*, DISPLY01+5~, DISPLY01+9* |
| DIQ(0 | DNARRAT+10*, DISPLY01+10* |
| DIR | ECPTMOD+4~, EQUAN+11!, CHGCPT+2~ |
| DIR("?" | EQUAN+9* |
| DIR("A" | EQUAN+8*, CHGCPT+5* |
| DIR("B" | EQUAN+5*, EQUAN+6*, CHGCPT+6* |
| DIR(0 | EQUAN+7*, CHGCPT+4* |
| DIROUT | ECPTMOD+4~ |
| DIRUT | ECPTCODE+1!, ECPTCODE+12* |
| DO | NEWCODE+1! |
| DR | DNARRAT+5~, DNARRAT+7*, ECPTMOD+8*, ECPTMOD+13*, ECPTMOD+19*, ECPTMOD+21*, DISPLY01+5~, DISPLY01+7* |
| DTOUT | ECPTMOD+4~, ECPTMOD+31, EQUAN+12 |
| DUOUT | ECPTMOD+4~, EQUAN+12 |
| >> ENTRY | DNARRAT+4 |
| >> ENTRY(0 | DNARRAT+8 |
| >> IEN | DISPMOD+4 |
| MIEN | EDMOD+2~ |
| MNUM | EDMOD+1~* |
| MOD | MODTEXT+3~, MODTEXT+5*, MODTEXT+7 |
| MODIEN | DISPMOD+3~, DISPMOD+9*, DISPMOD+10, MODNAME~, MODTEXT~, MODTEXT+4 |
| MODNAME | DISPMOD+3~ |
| MODS | DISPMOD+3~, DISPMOD+8*, DISPMOD+10, EDMOD~ |
| MODSTR | DISPMOD+3~ |
| MTEXT | EDMOD+2~ |
| OUTSTR | DISPMOD+3~, DISPMOD+5*, DISPMOD+6, DISPMOD+10*, DISPMOD+11 |
| PNAR | DNARRAT~, DNARRAT+1, DNARRAT+3 |
| PXARR | ECPTMOD+4~ |
| PXARR( | ECPTMOD+29, ECPTMOD+30 |
| >> PXCEAFTR( | ECPTCODE+5, ECPTCODE+7, ECPTCODE+16, EQUAN+1, EQUAN+3, EQUAN+16* |
| >> PXCEAFTR(1 | ECPTMOD+25!, ECPTMOD+30*, CHGCPT+13 |
| >> PXCECATS | ECPTMOD+7, ECPTMOD+26 |
| PXCECPT | DISPMOD~, DISPMOD+4*, DISPMOD+6, DISPMOD+8, DISPMOD+9, DISPLY01~, DISPLY01+8 |
| PXCEDILF | ECPTCODE+6~, EQUAN+2~ |
| PXCEDIQ1 | DNARRAT+5~, DISPLY01+5~ |
| PXCEDIQ1( | DISPLY01+12 |
| PXCEDIQ1(81 | DNARRAT+12 |
| >> PXCEDIRB | ECPTCODE+15, CHGCPT+3 |
| >> PXCEEND | ECPTMOD+31*, EQUAN+12* |
| PXCEEXT | ECPTCODE+6~, ECPTCODE+8*, ECPTCODE+9, EQUAN+2~, EQUAN+4*, EQUAN+5 |
| >> PXCEFIEN | CHGCPT+10, NEWCODE+9* |
| >> PXCEFILE | ECPTCODE+8, EQUAN+4, EQUAN+7 |
| PXCEFNUM | DISPLY01+5~, DISPLY01+6*, DISPLY01+12 |
| >> PXCEIN01 | EQUAN+14, NEWCODE+7 |
| PXCEINT | ECPTCODE+6~, ECPTCODE+7*, ECPTCODE+8, ECPTCODE+9, EQUAN+2~, EQUAN+3*, EQUAN+4, EQUAN+5 |
| >> PXCEMOD | ECPTCODE+13*, ECPTMOD+12, ECPTMOD+13, ECPTMOD+15 |
| PXCEPNAR | DNARRAT+2~, DNARRAT+3*, DNARRAT+12*, DNARRAT+13 |
| >> PXCEQUIT | ECPTMOD+31*, EQUAN+12* |
| >> PXCETEXT | ECPTCODE+5, ECPTCODE+7, ECPTCODE+8, ECPTCODE+16, EQUAN+1, EQUAN+3, EQUAN+4, EQUAN+7, EQUAN+8, EQUAN+9 , EQUAN+16 |
| PXCPTDT | ECPTCODE+2~, ECPTCODE+3*, ECPTCODE+10 |
| PXDFLT | ECPTCODE+2~, ECPTCODE+4*, ECPTCODE+9*, ECPTCODE+10 |
| PXERR | ECPTMOD+16!, ECPTMOD+17, ECPTMOD+18 |
| PXFILE | ECPTMOD+5~, ECPTMOD+27*, ECPTMOD+29, ECPTMOD+30 |
| PXI | ECPTMOD+5~, ECPTMOD+15* |
| PXIEN | CHGCPT+2~, CHGCPT+12*, CHGCPT+13*, CHGCPT+14 |
| PXLINE | ECPTMOD+5~ |
| >> PXMDCNT | ECPTMOD+3 |
| PXMOD | ECPTMOD+5~, ECPTMOD+14*, ECPTMOD+15*, ECPTMOD+17 |
| PXSEQ | ECPTMOD+4~ |
| PXSTR | ECPTMOD+4~, ECPTMOD+6* |
| PXSUB | ECPTMOD+4~, ECPTMOD+6*, ECPTMOD+28*, ECPTMOD+29*, ECPTMOD+30 |
| RVAL | MODTEXT+3~, MODTEXT+4*, MODTEXT+5, MODTEXT+6 |
| SCRATCH | DISPMOD+3~ |
| SIEN | DISPMOD+3~, DISPMOD+7*, DISPMOD+8*, DISPMOD+9 |
| SUBIEN | ECPTMOD+5~ |
| TEXT | MODTEXT+3~, MODTEXT+7*, MODTEXT+8 |
| U | DISPMOD+10 |
| >> VIEW | DNARRAT+4 |
| X | ECPTCODE+4*, ECPTCODE+11*, ECPTCODE+14*, ECPTCODE+16, CHGCPT+2~, NEWCODE+2~, NEWCODE+7* |
| Y | ECPTCODE+10*, ECPTCODE+11, ECPTCODE+12, ECPTCODE+13, ECPTCODE+14*, ECPTMOD+31, EQUAN+13, EQUAN+14*, EQUAN+15*, EQUAN+16 , CHGCPT+2~, CHGCPT+9, NEWCODE+2~, NEWCODE+9 |