PXCEVFI4 ;ISL/dee,SLC/ajb - Routine to display a visit or v-file entry and input providers in to V PROVIDER from other V Files ;6/20/96
Source file <PXCEVFI4.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 4 | $$PROVNARR^PXAPI GET800^PXCED800 $$CSDATE^PXDXUTL $$DXNARR^PXUTL1 |
VA FileMan | 3 | $$EXTERNAL^DILFD ^DIR ^DIWP |
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 |
---|---|---|
DISPLAY | ; -- display the data
|
|
WRAP(X,DIWR,WRAPPED) | ;Copies the text in X into the array WRAPPED
|
|
PROVIDER(PXCEPRV) | ;See if it is a new provider and if it is add them.
|
|
DIAGNOS(PXCEPOV,OTHER) | ;See if it is a new diagnosis and if it is add them. ; added OTHER ; ajb
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVPOV - [#9000010.07] | DIAGNOS+6 |
^AUPNVPOV("AD" | DIAGNOS+6 |
^AUPNVPRV - [#9000010.06] | PROVIDER+6 |
^AUPNVPRV("AD" | PROVIDER+6 |
^TMP("PXK" | PROVIDER+9, PROVIDER+19, PROVIDER+21*, PROVIDER+22*, PROVIDER+23*, PROVIDER+24*, PROVIDER+25*, DIAGNOS+9, DIAGNOS+44, DIAGNOS+46* , DIAGNOS+47*, DIAGNOS+48*, DIAGNOS+49*, DIAGNOS+50*, DIAGNOS+51*, DIAGNOS+52* |
^UTILITY($J | WRAP+2!, WRAP+7, WRAP+8! |
Name | Line Occurrences |
---|---|
WRAP | DISPLAY+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DA | PROVIDER+2~, PROVIDER+12~, DIAGNOS+1~, DIAGNOS+13~, DIAGNOS+23~, DIAGNOS+36~ |
DIERR | DISPLAY+11~, DISPLAY+13 |
DIR | PROVIDER+2~, PROVIDER+12~, DIAGNOS+1~, DIAGNOS+13~, DIAGNOS+23~, DIAGNOS+36~ |
DIR("A" | PROVIDER+14*, DIAGNOS+15*, DIAGNOS+25*, DIAGNOS+38* |
DIR("B" | PROVIDER+15*, DIAGNOS+16* |
DIR(0 | PROVIDER+13*, DIAGNOS+14*, DIAGNOS+24*, DIAGNOS+37* |
>> DIRF | WRAP+4* |
DIWF | WRAP+1~ |
DIWL | WRAP+1~, WRAP+3*, WRAP+7 |
DIWR | WRAP~ |
>> DTOUT | PROVIDER+11, DIAGNOS+12, DIAGNOS+22, DIAGNOS+35 |
>> DUOUT | PROVIDER+11, DIAGNOS+12, DIAGNOS+22, DIAGNOS+35 |
OTHER | DIAGNOS~, DIAGNOS+4, DIAGNOS+12 |
>> PXCEAFTR( | DISPLAY+6 |
>> PXCECAT | DISPLAY+1, DISPLAY+3 |
PXCECODE | DISPLAY+3~* |
PXCECOUN | DISPLAY+17~, DISPLAY+20*, DISPLAY+21*, DISPLAY+22 |
PXCEDILF | DISPLAY+11~ |
PXCEDXSC | DIAGNOS+1~, DIAGNOS+50 |
>> PXCEEND | DIAGNOS+12*, DIAGNOS+22*, DIAGNOS+32*, DIAGNOS+35* |
PXCEEXT | DISPLAY+2~, DISPLAY+6*, DISPLAY+7*, DISPLAY+12*, DISPLAY+13*, DISPLAY+14, DISPLAY+15, DISPLAY+18 |
>> PXCEFILE | DISPLAY+12 |
PXCEINDX | WRAP+1~, WRAP+6*, WRAP+7* |
PXCEINT | DISPLAY+2~, DISPLAY+6*, DISPLAY+7, DISPLAY+8, DISPLAY+9, DISPLAY+12, DISPLAY+13 |
PXCEKPOV | DIAGNOS+1~, DIAGNOS+3*, DIAGNOS+9*, DIAGNOS+10 |
PXCEKPRV | PROVIDER+1~, PROVIDER+3*, PROVIDER+9*, PROVIDER+10 |
PXCELINE | DISPLAY+2~, DISPLAY+5* |
PXCEMOD | DIAGNOS+1~, DIAGNOS+40*, DIAGNOS+48 |
PXCENARR | DIAGNOS+1~, DIAGNOS+33*, DIAGNOS+48 |
PXCENPOV | DIAGNOS+1~, DIAGNOS+44*, DIAGNOS+45*, DIAGNOS+46, DIAGNOS+47, DIAGNOS+48, DIAGNOS+49, DIAGNOS+50, DIAGNOS+51, DIAGNOS+52 |
PXCENPRV | PROVIDER+1~, PROVIDER+19*, PROVIDER+20*, PROVIDER+21, PROVIDER+22, PROVIDER+23, PROVIDER+24, PROVIDER+25 |
>> PXCEPAT | PROVIDER+23, DIAGNOS+48 |
>> PXCEPKG | PROVIDER+25, DIAGNOS+52 |
PXCEPMSC | DIAGNOS+1~, DIAGNOS+4*, DIAGNOS+18*, DIAGNOS+19, DIAGNOS+20*, DIAGNOS+48 |
PXCEPOV | DIAGNOS~, DIAGNOS+6, DIAGNOS+9, DIAGNOS+30, DIAGNOS+48 |
PXCEPRIM | PROVIDER+1~, PROVIDER+4*, PROVIDER+6*, PROVIDER+9*, PROVIDER+11, PROVIDER+15, PROVIDER+17, DIAGNOS+4*, DIAGNOS+6*, DIAGNOS+9* , DIAGNOS+12, DIAGNOS+19* |
PXCEPRV | PROVIDER~, PROVIDER+6, PROVIDER+9, PROVIDER+23 |
>> PXCEQUIT | DIAGNOS+12*, DIAGNOS+22*, DIAGNOS+32*, DIAGNOS+35* |
>> PXCESOR | PROVIDER+25, DIAGNOS+52 |
PXCETEXT | DISPLAY+2~, DISPLAY+5*, DISPLAY+6, DISPLAY+9, DISPLAY+12, DISPLAY+14, DISPLAY+15, DISPLAY+18, DISPLAY+19, DISPLAY+22 |
PXCEVDT | DIAGNOS+1~, DIAGNOS+29*, DIAGNOS+30 |
>> PXCEVIEN | PROVIDER+6, PROVIDER+23, DIAGNOS+6, DIAGNOS+29, DIAGNOS+48 |
PXCEVPOV | DIAGNOS+2~, DIAGNOS+3*, DIAGNOS+6*, DIAGNOS+7 |
PXCEVPRV | PROVIDER+1~, PROVIDER+3*, PROVIDER+6*, PROVIDER+7 |
PXCEWRAP | DISPLAY+17~, DISPLAY+18 |
PXCEWRAP( | DISPLAY+21, DISPLAY+22 |
PXCEWRAP(1 | DISPLAY+19 |
PXCEX | DIAGNOS+2~, DIAGNOS+27*, DIAGNOS+28, DIAGNOS+30*, DIAGNOS+31, DIAGNOS+32 |
PXCEY | DIAGNOS+2~, DIAGNOS+32*, DIAGNOS+33 |
U | DIAGNOS+40 |
WRAPPED | WRAP~ |
WRAPPED( | WRAP+7* |
X | WRAP~, PROVIDER+2~, DIAGNOS+2~ |
Y | PROVIDER+2~, PROVIDER+17*, PROVIDER+23, DIAGNOS+2~, DIAGNOS+18, DIAGNOS+27, DIAGNOS+40 |
Name | Field # of Occurrence |
---|---|
$T(FORMAT+PXCELINE^@PXCECODE | DISPLAY+5 |