PXCEVFIL ;ISL/DEE - Main routine to edit a visit or v-file entry ;Aug 04, 2025@08:45:17
Source file <PXCEVFIL.m>
| Package | Total | Call Graph |
|---|---|---|
| PCE Patient Care Encounter | 8 | WAIT^PXCEHELP PATINFO^PXCEPAT EDIT^PXCEVFI1 (ASK,SAVE)^PXCEVFI2 EVIS^PXCEVIS $$ELIGIBIL^PXCEVSIT (GETSAFORVISITDET,GETSAFORVPOVDET)^PXSPECAUTH $$VSTAPPT^PXUTL1 |
| VA FileMan | 2 | FILE^DICN ^DIK |
| List Manager | 1 | FULL^VALM1 |
| Scheduling | 1 | ($$DATE,$$FMDATE,DATE)^SCDXUTL |
| 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 |
|---|---|---|
| EN(PXCECAT) | ; -- main entry point for PXCE pxcecat EDIT
|
|
| DOONE | ;
|
|
| DOONE2 | ;
|
|
| INIT | ; -- init variables and list array
|
|
| EXIT | ; -- exit code
|
|
| MODUPD | ;Update the MODIFIER list for the currently edited CPT code when all
|
|
| REMOVE(DA) | ;REMOVE INCOMPLETE CPT ENTRY
|
| Name | Field # of Occurrence |
|---|---|
| FILE^DICN | MODUPD+16 |
| ^DIK | MODUPD+8, REMOVE+3 |
| WAIT^PXCEHELP | EN+9, DOONE2+9, DOONE2+19 |
| PATINFO^PXCEPAT | EN+1 |
| EDIT^PXCEVFI1 | DOONE2+4 |
| ASK^PXCEVFI2 | EN+22 |
| SAVE^PXCEVFI2 | DOONE2+20 |
| EVIS^PXCEVIS | DOONE2+21 |
| $$ELIGIBIL^PXCEVSIT | INIT+61 |
| GETSAFORVISITDET^PXSPECAUTH | INIT+11 |
| GETSAFORVPOVDET^PXSPECAUTH | INIT+38 |
| $$VSTAPPT^PXUTL1 | EN+28 |
| $$DATE^SCDXUTL | EN+4 |
| $$FMDATE^SCDXUTL | EN+4 |
| DATE^SCDXUTL | EN+4 |
| FULL^VALM1 | EN+11 |
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^AUPNVCPT - [#9000010.18] | Classic Fileman Calls |
| Name | Line Occurrences (* Changed, ! Killed) |
|---|---|
| ^AUPNVSIT - [#9000010] | EN+4, EN+8, EN+28, INIT+9, INIT+16 |
| ^DD(9000010.18 | MODUPD+15 |
| ^DPT - [#2] | DOONE2+6 |
| ^TMP("PXK" | DOONE2+13, INIT+3!, INIT+4*, INIT+5*, INIT+10*, INIT+12*, INIT+13*, INIT+16*, INIT+17*, INIT+19* , INIT+27*, INIT+28, INIT+30*, INIT+31, INIT+34*, INIT+35*, INIT+36, INIT+39*, INIT+40*, EXIT+4! , MODUPD+9, MODUPD+10 |
| >> | Not killed explicitly |
| * | Changed |
| ! | Killed |
| ~ | Newed |
| Name | Field # of Occurrence |
|---|---|
| BEFORE800 | INIT+2~, INIT+6*, INIT+11, INIT+12, INIT+38, INIT+39 |
| BEFORE900 | INIT+2~, INIT+6*, INIT+11, INIT+13, INIT+38, INIT+40 |
| DA | MODUPD+3~, MODUPD+6*, REMOVE~, REMOVE+3 |
| DA(1 | MODUPD+6*, MODUPD+7, MODUPD+13*, MODUPD+14 |
| DD | MODUPD+12! |
| >> DFN | DOONE2+6 |
| DIC | MODUPD+3~, MODUPD+14* |
| DIC("P" | MODUPD+15* |
| DIC(0 | MODUPD+15* |
| DIK | MODUPD+3~, MODUPD+7*, REMOVE+1~, REMOVE+2* |
| >> DIRUT | EN+1 |
| DO | MODUPD+12! |
| >> PXCAAFTR | EN+22, EN+30 |
| PXCEAFTR | DOONE+1~, DOONE+4, INIT+3!, EXIT+5! |
| PXCEAFTR( | INIT+9*, INIT+10, INIT+28*, INIT+31*, INIT+36* |
| PXCEAFTR(0 | DOONE2+5, DOONE2+6, DOONE2+7*, DOONE2+10, INIT+45*, INIT+46*, INIT+47, INIT+52, INIT+57*, INIT+58 , INIT+62*, INIT+63*, INIT+64* |
| PXCEAFTR(1 | MODUPD+5 |
| PXCEAFTR(812 | INIT+48*, INIT+49*, INIT+53*, INIT+54* |
| >> PXCEAPDT | INIT+56, INIT+57, INIT+61 |
| PXCEAUPN | EN+14~, EN+18*, EN+22, INIT+26, INIT+27, INIT+30, INIT+43, EXIT+1, EXIT+2 |
| PXCECAT | EN~, EN+1, EN+2, EN+4, EN+6, EN+9, EN+16, EN+17, EN+22, EN+25 , EN+27, DOONE2+3, DOONE2+5, DOONE2+12, DOONE2+13, DOONE2+16, DOONE2+21, INIT+7, INIT+23, INIT+33 , INIT+37, INIT+39, INIT+40, EXIT+1 |
| PXCECATS | EN+14~, EN+16*, INIT+19, INIT+27, INIT+28, INIT+30, INIT+31, INIT+34, INIT+35, INIT+36 |
| PXCECATT | EN+14~, EN+19*, EN+22 |
| PXCECODE | EN+14~, EN+17*, EN+22 |
| PXCEELIG | INIT+60~, INIT+61*, INIT+62 |
| PXCEFIEN | EN+2, EN+22, EN+24*, EN+25, EN+26*, EN+32!, DOONE2+12, DOONE2+15, INIT+11, INIT+19 , INIT+22, INIT+37, INIT+38, EXIT+2, EXIT+3*, MODUPD+6, MODUPD+13 |
| PXCEFILE | EN+14~, EN+20* |
| PXCEFOR | INIT+1~, INIT+21* |
| >> PXCEHLOC | EN+3, EN+28, INIT+61, INIT+64 |
| PXCELOOP | EN+13~, EN+25*, EN+26*, EN+28*, EN+29*, EN+30*, EN+31 |
| PXCENODE | INIT+1~, INIT+8*, INIT+9, INIT+10, INIT+15*, INIT+16, INIT+17, INIT+21*, INIT+23, INIT+27 , INIT+28, INIT+30, INIT+31, INIT+33, INIT+34, INIT+35, INIT+36 |
| PXCENODS | INIT+1~, INIT+20*, INIT+21 |
| PXCENOER | EN+13~, DOONE2+2*, DOONE2+14 |
| >> PXCEPAT | EN+1, EN+2, EN+3, EN+28, INIT+45, INIT+61, INIT+63 |
| >> PXCEPKG | INIT+48, INIT+53 |
| PXCEPSCC | EN+15~ |
| PXCEQUIT | EN+5~, EN+6, EN+7*, EN+8, EN+9*, EN+10!, EN+21*, EN+23, DOONE+5, DOONE2+5 , DOONE2+7*, DOONE2+11, INIT+41, EXIT+6* |
| >> PXCESEQ | INIT+25*, INIT+26*, INIT+27, INIT+28 |
| >> PXCESOR | INIT+4, INIT+49, INIT+54 |
| PXCEUP | DOONE+1~ |
| PXCEVFIL | EN+13~ |
| PXCEVFIN | DOONE+1~, DOONE+4* |
| >> PXCEVIEN | EN+2, EN+4, EN+8, EN+22, EN+26, EN+28, INIT+5, INIT+9, INIT+11, INIT+16 , INIT+46, EXIT+1 |
| >> PXCEVIEW | EN+3 |
| PXELAP | DOONE+1~ |
| PXKERROR | DOONE2+1! |
| PXVICR | EN+14~, EN+21*, EN+24 |
| PXVNEWDA | DOONE2+3*, DOONE2+21! |
| SQ | MODUPD+3~, MODUPD+4*, MODUPD+5*, MODUPD+6, MODUPD+9*, MODUPD+10 |
| X | MODUPD+3~, MODUPD+10*, MODUPD+11 |
| Name | Field # of Occurrence |
|---|---|
| $T(DATE^SCDXUTL | EN+4 |
| $T(FORMAT^@PXCECODE | EN+18, EN+19, EN+20, INIT+20 |