PXCEVFI5 ;ISL/dee - Check to see if the encounter is a standalone and if it needs to be deleted ;3/17/04 12:24pm
Source file <PXCEVFI5.m>
Package | Total | Call Graph |
---|---|---|
PCE Patient Care Encounter | 2 | $$DELVFILE^PXAPI ($$PRIMVPOV,$$VSTAPPT)^PXUTL1 |
VA FileMan | 1 | ^DIR |
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 |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 2 | PXCE QUIT PXCEAE |
Kernel | 1 | ^ORD(101 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHECK | ;Check to see if this is a standalone and if it is make sure it has
; a procedure or stop code. If it does not have either then allow the ; user to continue editing it or to delete the encounter. |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^AUPNVCPT("AD" | CHECK+23, CHECK+31 |
^AUPNVPOV("AD" | CHECK+13 |
^AUPNVSIT - [#9000010] | CHECK+7, CHECK+9 |
^AUPNVSIT("AD" | CHECK+23, CHECK+31 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DIR | CHECK+24~, CHECK+33~ |
DIR("A" | CHECK+29*, CHECK+35*, CHECK+36*, CHECK+39*, CHECK+41*, CHECK+43*, CHECK+50* |
DIR("B" | CHECK+25* |
DIR(0 | CHECK+26*, CHECK+34* |
PXCEAPPT | CHECK+8~, CHECK+16*, CHECK+18, CHECK+31 |
PXCECNT | CHECK+24~, CHECK+27*, CHECK+29, CHECK+30*, CHECK+39, CHECK+40*, CHECK+41, CHECK+42* |
>> PXCEEXIT | CHECK+7*, CHECK+11*, CHECK+18*, CHECK+21*, CHECK+23*, CHECK+47*, CHECK+48*, CHECK+52*, CHECK+53* |
>> PXCEPAT | CHECK+16 |
PXCEPDX | CHECK+8~, CHECK+13*, CHECK+14*, CHECK+18, CHECK+23, CHECK+28 |
>> PXCEVIEN | CHECK+7, CHECK+9, CHECK+13, CHECK+14, CHECK+16, CHECK+23, CHECK+31, CHECK+38, CHECK+46 |
PXCEVST0 | CHECK+8~, CHECK+9*, CHECK+11, CHECK+16 |
>> PXQUIT | CHECK+32 |
X | CHECK+24~ |
Y | CHECK+24~, CHECK+45, CHECK+52 |