PXBGPOV ;ISL/JVS,ESW - GATHER POV (DIAGNOSIS) ; 12/2/02 6:22pm
Source file <PXBGPOV.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 2 | PL^PXBGPL $$EXTTEXT^PXUTL1 |
VA Fileman | 1 | EN^DIQ1 |
Name | Comments | DBIA/ICR reference |
---|---|---|
A | ;--Set array with DIAGNOSIS codes
|
|
EXIT | ;--KILL
|
|
B | ;--Add line numbers
|
|
FINISG | ;--finish up some variables
|
|
POV(VISIT) | ;--Gather the entries in the V POV file
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPOV("AD" | POV+8, POV+9 |
^TMP("PXBGPOVMATCH" | A+23* |
^TMP("PXBKYPL" | A+9, EXIT+1! |
^TMP("PXBPOV" | A+22*, 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+14, EXIT+3! |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | POV+3~, A+5*, A+6, A+7, A+8, A+10, A+11, A+12, A+14 |
DIC | POV+3~, A+5* |
DIQ | POV+3~ |
DIQ(0 | A+5* |
DR | POV+3~, A+5* |
>> FPRI | POV+7*, A+18*, FINISG+2* |
GROUP | POV+2~, A+19*, A+22, A+24 |
IEN | POV+2~, POV+9*, POV+10, A+4*, A+5, A+22, A+23, B+4*, B+5, B+6 |
>> LNARR | A+7*, A+17*, B+7 |
NOPLLIST | POV+5!, A+24* |
>> PATIENT | A+2 |
PKG | POV+3~, A+12*, A+13* |
POV | POV+2~, POV+5!, A+8*, A+9, A+19, A+21, A+22, B+3*, B+4, B+5 |
POVI | POV+2~, A+10*, A+16, A+17, A+23 |
PRIM | POV+3~, A+11*, A+18, A+19, A+21 |
PROBLEM | POV+3~, POV+7*, A+9*, A+19 |
PROVIDER | POV+2~, A+6*, A+19 |
PXBC | POV+2~, B+3*, B+4*, B+5, B+6, B+7, EXIT+4 |
>> PXBCNT | EXIT+4* |
PXBKY | POV+5! |
PXBKY( | B+5* |
PXBPL | POV+3~ |
PXBPLA | POV+3~ |
PXBSAM | POV+5! |
PXBSAM( | B+5*, B+7* |
PXBSKY | POV+5! |
PXBSKY( | B+6* |
PXBSKYPL | EXIT+1! |
PXDIGNS | POV+5! |
PXDIGNS("PRIMARY" | A+21* |
QUANTITY | POV+2~ |
SNARR | POV+2~, A+16*, A+19 |
SOURC | POV+3~, A+14*, A+15* |
VISIT | POV~, POV+8, POV+9 |