PXCAVST1 ;ISL/dee & LEA/Chylton - Translates data from the PCE Device Interface into PCE's PXK format for the Visit and Providers ;8/1/96
Source file <PXCAVST1.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 2 | $$PROVNARR^PXAPI $$ELIGIBIL^PXCEVSIT |
DRG Grouper | 1 | $$MODP^ICPTMOD |
VA Fileman | 1 | EN^DIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
21 | ||
17 | ;Store the Evaluation and Management Code in V-CPT and NOT in the Visit
|
|
EVALCODE(CODE,PROV) | ;Store the Evaluation and Management Code in a CPT node.
|
|
18 | ||
22 | ||
VST(PXCAENC) | ;Visit
|
|
1 | ||
NODE150 | ||
NODE800 | ;
|
|
5 | ||
8 | ||
NODE0 | ;
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVSIT - [#9000010] | NODE800+12, NODE800+13, NODE800+14, NODE800+15, NODE800+16, NODE800+17, NODE800+18, NODE800+19, NODE800+20, NODE800+21 , NODE800+22 |
^SC - [#44] | NODE150 |
^TMP( | 22+1*, NODE150+1*, NODE800+1*, NODE800+4*, NODE800+5*, NODE800+6*, NODE800+7*, NODE800+8*, NODE800+9*, NODE800+11* , NODE800+12*, NODE800+15*, NODE800+16*, NODE800+17*, NODE800+18*, NODE800+19*, NODE800+20*, NODE800+21*, NODE800+22*, EVALCODE+15* , EVALCODE+19*, EVALCODE+21*, EVALCODE+26*, EVALCODE+27*, EVALCODE+28*, EVALCODE+29*, EVALCODE+30*, EVALCODE+31*, EVALCODE+32*, EVALCODE+37* , EVALCODE+38* |
^TMP("PXK" | NODE800+13*, NODE800+14* |
Name | Line Occurrences |
---|---|
EVALCODE | 17+1 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
CODE | EVALCODE~, EVALCODE+3, EVALCODE+8, EVALCODE+16, EVALCODE+24 |
DA | EVALCODE+5~, EVALCODE+8*, EVALCODE+12, EVALCODE+34, EVALCODE+35 |
DIC | EVALCODE+5~, EVALCODE+6* |
DIQ | EVALCODE+5~, EVALCODE+9* |
DIQ(0 | EVALCODE+10* |
DR | EVALCODE+5~, EVALCODE+7* |
PROV | EVALCODE~, EVALCODE+28 |
>> PXCA("ENCOUNTER" | EVALCODE+23 |
PXCACNAR | EVALCODE+4~, EVALCODE+33*, EVALCODE+35*, EVALCODE+36*, EVALCODE+37 |
PXCACNT | EVALCODE+4~, EVALCODE+22*, EVALCODE+23*, EVALCODE+26 |
>> PXCACSTP | 8, NODE150 |
PXCADIQ1 | EVALCODE+5~ |
PXCADIQ1( | EVALCODE+12, EVALCODE+34, EVALCODE+35 |
PXCAELIG | 21+2~, 21+3*, 21+4*, 21+5 |
PXCAENC | VST~, 1, 17+1, 18, 21, 21+3, NODE800+1 |
PXCAFTER | VST+1~, 1*, 5*, 8*, 17+2*, 18*, 21*, 21+5*, 22*, 22+1 , EVALCODE+4~, EVALCODE+16*, EVALCODE+17*, EVALCODE+18*, EVALCODE+19 |
>> PXCAGLB | 22+1, NODE150+1, NODE800+1, NODE800+4, NODE800+5, NODE800+6, NODE800+7, NODE800+8, NODE800+9, NODE800+11 , NODE800+12, NODE800+15, NODE800+16, NODE800+17, NODE800+18, NODE800+19, NODE800+20, NODE800+21, NODE800+22, EVALCODE+15 , EVALCODE+19, EVALCODE+21, EVALCODE+26, EVALCODE+27, EVALCODE+28, EVALCODE+29, EVALCODE+30, EVALCODE+31, EVALCODE+32, EVALCODE+37 , EVALCODE+38 |
>> PXCAHLOC | 21+3, 22, NODE150 |
PXCAITEM | EVALCODE+4~, EVALCODE+12*, EVALCODE+13 |
PXCAMOD | EVALCODE+4~, EVALCODE+22*, EVALCODE+23*, EVALCODE+24 |
>> PXCAPAT | 5, 21+3, EVALCODE+16 |
>> PXCAPKG | NODE800+9, EVALCODE+32 |
PXCAPNAR | EVALCODE+4~, EVALCODE+13*, EVALCODE+14*, EVALCODE+17 |
>> PXCASOR | NODE800+9, EVALCODE+32 |
PXCASTR | EVALCODE+4~, EVALCODE+24*, EVALCODE+25, EVALCODE+26 |
>> PXCAVSIT | NODE800+3, NODE800+11, NODE800+12, NODE800+13, NODE800+14, NODE800+15, NODE800+16, NODE800+17, NODE800+18, NODE800+19 , NODE800+20, NODE800+21, NODE800+22, EVALCODE+16 |