©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
PXAICPT ;ISL/JVS,ISA/KWP,ESW - SET THE PROCEDURE(CPT) NODES ; 4/18/03 12:17pm
Source file <PXAICPT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| SET | ;--SET AND NEW VARIABLES
|
|
| VAL | ;--VALIDATE ENOUGH DATA
|
|
| SETPXKB | ||
| MISC | ;--MISCELLANEOUS NODE
|
|
| SETVARB | ;--SET VARIABLES BEFORE
|
|
| SETVARA | ;--SET VISIT VARIABLES
|
|
| CPT | ;--CREAT PROVIDERS
|
|
| SETPXKA | ;--SET PXK ARRAY AFTER
|
| Name | Field # of Occurrence |
|---|---|
| ERR^PXAI | SETVARA+9, SETVARA+24 |
| VAL^PXAICPTV | VAL+1 |
| VAL04^PXAICPTV | SETVARA+9 |
| VAL45^PXAICPTV | SETVARA+24 |
| SET^PXAIMOD | SET+5 |
| SETPXKA^PXAIMOD | SETPXKA+3 |
| SETPXKB^PXAIMOD | SETPXKB+3 |
| SETVARA^PXAIMOD | SETVARA+14 |
| SETVARB^PXAIMOD | SETVARB+20 |
| $$PROVNARR^PXAPI | SETVARA+8, SETVARA+23 |
| CPT^PXBGCPT | SETVARB+3 |
| $$EXTTEXT^PXUTL1 | SETVARA+7 |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVCPT - [#9000010.18] | SETVARB+18 |
| ^IBE(357.69 - [#357.69] | SETVARB+11 |
| ^ICPT - [#81] | SETVARB+4, SETVARB+5 |
| ^TMP("PXAIADDPRV" | SETVARA+20* |
| ^TMP("PXK" | SETPXKA+1*, SETPXKA+4*, SETPXKA+5*, SETPXKA+6*, SETPXKA+7*, SETVARB+12*, SETVARB+16*, SETVARB+18*, SETPXKB+1*, SETPXKB+4* , SETPXKB+5*, SETPXKB+6*, SETPXKB+7*, SETPXKB+8* |
| ^VA(200 - [#200] | SETVARB+14 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| AFTER0 | SET+1~, SETVARA+1*, SETVARA+2*, SETVARA+3*, SETVARA+4*, SETVARA+5*, SETVARA+7*, SETVARA+8*, SETVARA+9, SETVARA+10* , SETVARA+12*, SETPXKA+1 |
| AFTER1 | SET+1~ |
| AFTER12 | SET+1~, SETVARA+16*, SETVARA+17*, SETPXKA+4 |
| AFTER801 | SET+1~ |
| AFTER802 | SET+1~, SETVARA+22*, SETVARA+23*, SETVARA+24, SETPXKA+5 |
| AFTER811 | SET+1~, SETVARA+25*, SETPXKA+6 |
| AFTER812 | SET+1~, SETVARA+31*, SETVARA+32*, SETPXKA+7 |
| BEFOR0 | SET+2~, SETVARB+22*, SETPXKB+1 |
| BEFOR1 | SET+2~ |
| BEFOR12 | SET+2~, SETVARB+22*, SETPXKB+4 |
| BEFOR801 | SET+2~ |
| BEFOR802 | SET+2~, SETVARB+22*, SETPXKB+5 |
| BEFOR811 | SET+2~, SETVARB+22*, SETPXKB+6 |
| BEFOR812 | SET+2~, SETVARB+22*, SETPXKB+7 |
| IENB | SET+3~, SETVARB+12*, SETVARB+16*, SETVARB+17, SETVARB+18 |
| ITEM | SETVARB+2~, SETVARB+6*, SETVARB+7*, SETVARB+8 |
| >> PATIENT | SETVARA+3 |
| PIECE | SET+3~, SETVARB+18* |
| PRV | SETVARB+2~, SETVARB+14*, SETVARB+15 |
| PXAA | SET+3~ |
| PXAA( | SET+11* |
| PXAA("CATEGORY" | SETVARA+22, SETVARA+23 |
| PXAA("COMMENT" | SETVARA+25 |
| PXAA("DELETE" | SETVARA+2, SETVARA+12*, SETVARA+19, SETVARB+5 |
| PXAA("DIAGNOSIS" | SETVARA+10 |
| PXAA("ENC PRO | VIDER" , SETVARA+17, SETVARA+19, SETVARA+20, SETVARB+13, SETVARB+14 |
| PXAA("EVENT D | /T" , SETVARA+16 |
| PXAA("MODIFIERS" | SET+15* |
| PXAA("NARRATIVE" | SETVARA+5, SETVARA+6, SETVARA+8 |
| PXAA("PROCEDURE" | SETVARA+1, SETVARA+7, SETVARB+4, SETVARB+5 |
| PXAA("QTY" | SETVARA+11*, SETVARA+12 |
| PXAAX | SET+3~ |
| PXAAX("PROCEDURE" | SETVARB+4*, SETVARB+5*, SETVARB+7, SETVARB+10, SETVARB+11, SETVARB+15 |
| PXAB | SET+3~ |
| >> PXADATA | SET+10, SET+11, SET+14 |
| PXAERR | SET+6! |
| PXAERR(7 | SET+8* |
| PXAERR(8 | SET+7* |
| >> PXAK | SET+7, SET+10, SET+11, SET+14, SETPXKA+1, SETPXKA+4, SETPXKA+5, SETPXKA+6, SETPXKA+7, SETVARB+12 , SETVARB+16, SETVARB+18, SETPXKB+1, SETPXKB+4, SETPXKB+5, SETPXKB+6, SETPXKB+7, SETPXKB+8 |
| >> PXAPKG | SETVARA+31 |
| >> PXASOURC | SETVARA+32 |
| >> PXAVISIT | SETVARA+4, SETVARB+3 |
| PXBCNT | SETVARB+2~, SETVARB+7 |
| PXBKY | SETVARB+2~ |
| PXBKY( | SETVARB+7, SETVARB+10, SETVARB+15 |
| PXBSAM | SETVARB+2~ |
| PXBSKY | SETVARB+2~ |
| PXBSKY( | SETVARB+12, SETVARB+16 |
| PXI | SETVARB+2~, SETVARB+10*, SETVARB+12, SETVARB+15, SETVARB+16 |
| STOP | SET+3~, VAL+1, SETVARA+9, SETVARA+24 |
| SUB | SET+3~, SET+10*, SET+11, SET+13*, SET+14*, SET+15 |