PXBGPOV ;ISL/JVS,ESW - GATHER POV (DIAGNOSIS) ;11/21/2019
Source file <PXBGPOV.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 3 | PL^PXBGPL $$CSDATE^PXDXUTL $$DXNARR^PXUTL1 |
DRG Grouper | 1 | $$ICDDATA^ICDXCODE |
VA FileMan | 1 | EN^DIQ1 |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
POV(VISIT) | ;--Gather the entries in the V POV file
|
|
A | ;--Set array with DIAGNOSIS codes
|
|
B | ;--Add line numbers
|
|
FINISG | ;--finish up some variables
|
|
EXIT | ;--KILL
|
|
XLATE(VST,DX) | ;Translate DX into POV from VST
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPOV - [#9000010.07] | XLATE+6, XLATE+7 |
^AUPNVPOV("AD" | POV+8, POV+9, XLATE+1, XLATE+5 |
^TMP("PXBGPOVMATCH" | A+25* |
^TMP("PXBKYPL" | A+9, EXIT+1! |
^TMP("PXBPOV" | A+24*, B+2, B+3, B+4, B+5, EXIT+2! |
^TMP("PXBSAMPL" | EXIT+1! |
^TMP("PXBU" | POV+5!, POV+10*, A+3, A+4, EXIT+1! |
^UTILITY("DIQ1" | POV+6!, A+6, A+7, A+8, A+10, A+11, A+12, A+13, A+15, A+27 , A+28, EXIT+2! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
ANS | XLATE+3~*, XLATE+4, XLATE+5*, XLATE+6*, XLATE+7*, XLATE+8 |
DA | POV+2~, A+5*, A+6, A+7, A+8, A+10, A+11, A+12, A+13, A+15 |
DIC | POV+2~, A+5* |
DIQ | POV+2~ |
DIQ(0 | A+5* |
DR | POV+2~, A+5* |
DX | XLATE~, XLATE+1, XLATE+2*, XLATE+6, XLATE+7 |
>> FPRI | POV+7*, A+20*, FINISG+2* |
GROUP | POV+2~, A+21*, A+24, A+26, A+27*, A+28*, A+29 |
I | POV+2~, A+28* |
IEN | POV+2~, POV+9*, POV+10, A+4*, A+5, A+24, A+25, A+27, A+28, A+29 , B+4*, B+5, B+6, B+8, XLATE+3~*, XLATE+5*, XLATE+6, XLATE+7 |
>> LNARR | A+7*, A+19*, A+21 |
NOPLLIST | POV+5!, A+26* |
>> ORDER | A+12*, A+21 |
>> PATIENT | A+2 |
PKG | POV+2~, A+13*, A+14* |
POV | POV+2~, POV+5!, A+8*, A+9, A+21, A+23, A+24, B+3*, B+4, B+5 |
POVI | POV+2~, A+10*, A+18, A+19, A+25, A+29 |
PRIM | POV+2~, A+11*, A+20, A+21, A+23 |
PROBLEM | POV+2~, POV+7*, A+9*, A+21 |
PROVIDER | POV+2~, A+6*, A+21 |
PXBC | POV+3~, B+3*, B+4*, B+5, B+6, B+7, B+8, EXIT+3 |
>> PXBCNT | EXIT+3* |
PXBKY | POV+5! |
PXBKY( | B+5* |
PXBPL | POV+3~ |
PXBPLA | POV+3~ |
PXBREQ | POV+3~ |
PXBREQ( | A+29* |
PXBSAM | POV+5! |
PXBSAM( | B+5*, B+7*, B+8* |
PXBSKY | POV+5! |
PXBSKY( | B+6* |
PXBSKYPL | EXIT+1! |
PXCI | POV+3~ |
PXCI( | A+29*, B+8 |
PXDIGNS | POV+5! |
PXDIGNS("PRIMARY" | A+23* |
PXDXDATE | POV+3~, A+17*, A+18, A+19 |
QUANTITY | POV+3~ |
SNARR | POV+3~, A+18*, A+21 |
SOURC | POV+3~, A+15*, A+16* |
U | A+18, A+28, B+7, XLATE+6, XLATE+7 |
VAL | XLATE+3~*, XLATE+6*, XLATE+7 |
VISIT | POV~, POV+8, POV+9, A+17 |
VST | XLATE~, XLATE+1, XLATE+2, XLATE+5 |