PXCEVSIT ;slc/dee,ISA/KWP-Used in editing a visit ;04/30/99
Source file <PXCEVSIT.m>
Package | Total | Call Graph |
---|---|---|
VA Fileman | 5 | DD^%DT NOW^%DTC ^DIC $$EXTERNAL^DILFD ^DIR |
PCE Patient Care Encounter | 4 | $$SWITCHD^PXAPI CHIKOUT^PXBAPI2 PATINFO^PXCEPAT $$APPOINT^PXUTL1 |
Scheduling | 1 | $$ELAP^SDPCE |
Package | Total | Caller Graph |
---|---|---|
PCE Patient Care Encounter | 4 | PXBAPI1 PXCAVST1 PXCEHIST PXCEVFIL |
Name | Comments | DBIA/ICR reference |
---|---|---|
EPAT | ;
|
|
EHOSPLOC | ;
|
|
EWORKLD2 | ;
|
|
SKIP | ;Just returns used when need a edit routine that does nothing.
|
|
ELIGIBIL(PATIENT,HOSPLOC,DATETIME) | ;+Eligibility from appointment if there is one.
|
|
HELPDISP | ;
|
|
HELPHLOC | ;
|
|
EWORKLOD(ASK) | ;
|
|
EVISITDT(REQTIME,DEFAULT) | ;
|
|
ECODT | ;Check out date time
|
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Routine Call |
|
Routine Call |
|
FileNo | Call Tags |
---|---|
^DIC(40.7 - [#40.7] | Classic Fileman Calls |
Name | Line Occurrences (* Changed, ! Killed) |
---|---|
^SC - [#44] | ELIGIBIL+4, ELIGIBIL+8, EWORKLD2+5, EWORKLD2+22, EWORKLD2+24 |
Name | Line Occurrences |
---|---|
$$ELIGIBIL | EHOSPLOC+32 |
EHOSPLOC | EHOSPLOC+20 |
EWORKLD2 | EWORKLD2+17 |
HELPHLOC | EHOSPLOC+20 |
Name | Field # of Occurrence |
---|---|
^(0 | ELIGIBIL+8 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
% | EVISITDT+15~, EVISITDT+18 |
%H | EVISITDT+15~ |
%I | EVISITDT+15~ |
ASK | EWORKLOD~, EWORKLD2+13 |
DA | EVISITDT+23!, EHOSPLOC+18!, EWORKLOD+2~, EWORKLD2+1!, EWORKLD2+15!, EPAT+6! |
DATETIME | ELIGIBIL~, ELIGIBIL+3, ELIGIBIL+4, ELIGIBIL+8 |
DEFAULT | EVISITDT~, EVISITDT+14, EVISITDT+16, EVISITDT+17, EVISITDT+18 |
DIC | EWORKLOD+2~, EWORKLD2+1!, EWORKLD2+9* |
DIC("A" | EWORKLD2+12* |
DIC("B" | EWORKLD2+8* |
DIC("S" | EWORKLD2+11* |
DIC(0 | EWORKLD2+10* |
DIERR | EHOSPLOC+3~, EHOSPLOC+6, EWORKLD2+3~, EWORKLD2+8 |
DIR | EVISITDT+23!, EHOSPLOC+18!, EWORKLD2+15!, EPAT+6! |
DIR("?" | EVISITDT+21*, EHOSPLOC+9*, EPAT+4* |
DIR("A" | EVISITDT+20*, EHOSPLOC+8*, EPAT+3* |
DIR("B" | EVISITDT+13*, EVISITDT+16*, EVISITDT+17*, EVISITDT+18*, EVISITDT+19*, EHOSPLOC+6* |
DIR("S" | EHOSPLOC+16* |
DIR(0 | EVISITDT+9*, EVISITDT+10*, EVISITDT+11*, EVISITDT+12*, EHOSPLOC+7*, EPAT+2* |
DT | EVISITDT+9, EVISITDT+17 |
DTOUT | EHOSPLOC+19, EWORKLD2+1!, EWORKLD2+16, EPAT+8 |
DUOUT | EHOSPLOC+19, EWORKLD2+1!, EWORKLD2+16, EPAT+8 |
HLOC | EHOSPLOC+1~, EHOSPLOC+21*, EHOSPLOC+22, EHOSPLOC+27, EHOSPLOC+29, EHOSPLOC+32 |
HOSPLOC | ELIGIBIL~, ELIGIBIL+2, ELIGIBIL+4, ELIGIBIL+8 |
PATIENT | ELIGIBIL~, ELIGIBIL+1, ELIGIBIL+8 |
>> PXCEAFTR( | EVISITDT+13, EHOSPLOC+4, ECODT+3* |
>> PXCEAFTR(0 | EHOSPLOC+2, EHOSPLOC+22*, EHOSPLOC+27, EHOSPLOC+28, EHOSPLOC+32, EHOSPLOC+33*, EWORKLD2+2, EWORKLD2+4, EWORKLD2+5, EWORKLD2+8 , EWORKLD2+19*, EWORKLD2+21, ECODT+2, EPAT+1, EPAT+9* |
>> PXCEAFTR(150 | EWORKLD2+24*, EWORKLD2+26* |
>> PXCECAT | EVISITDT+8, EHOSPLOC+20, EWORKLD2+17 |
PXCEDILF | EHOSPLOC+3~, EWORKLD2+3~ |
PXCEELIG | ELIGIBIL+5~, ELIGIBIL+6*, ELIGIBIL+8*, ELIGIBIL+9, EHOSPLOC+31~, EHOSPLOC+32*, EHOSPLOC+33 |
>> PXCEEND | EHOSPLOC+19*, EWORKLD2+16*, EPAT+8* |
PXCEEXT | EHOSPLOC+3~, EHOSPLOC+5*, EHOSPLOC+6, EWORKLD2+3~, EWORKLD2+7*, EWORKLD2+8 |
>> PXCEFILE | EHOSPLOC+5, EWORKLD2+7 |
PXCEINDX | ELIGIBIL+5~, ELIGIBIL+7*, ELIGIBIL+8* |
PXCEINT | EHOSPLOC+3~, EHOSPLOC+4*, EHOSPLOC+5, EHOSPLOC+6, EWORKLD2+3~, EWORKLD2+4*, EWORKLD2+5*, EWORKLD2+6, EWORKLD2+7 |
>> PXCEPAT | EHOSPLOC+27, EHOSPLOC+32, ECODT+2, EPAT+10* |
>> PXCEQUIT | EHOSPLOC+19*, EWORKLD2+16*, EPAT+8* |
>> PXCETEXT | EVISITDT+13, EVISITDT+20, EVISITDT+21, EHOSPLOC+4, EHOSPLOC+5, EHOSPLOC+8, EHOSPLOC+9, EWORKLD2+7, EWORKLD2+12, ECODT+3 , EPAT+3, EPAT+4 |
PXCHKOUT | ECODT+1~, ECODT+3 |
>> PXELAP | EHOSPLOC+28* |
PXHLOC | EWORKLD2+20~, EWORKLD2+21*, EWORKLD2+22, EWORKLD2+24, EWORKLD2+26 |
PXLIMDT | EVISITDT+7~, EVISITDT+8*, EVISITDT+9 |
PXSC | EWORKLD2+20~, EWORKLD2+22*, EWORKLD2+26 |
REQTIME | EVISITDT~, EVISITDT+10, EVISITDT+11 |
>> X | EPAT+7 |
>> Y | EVISITDT+19*, EHOSPLOC+20, EHOSPLOC+21, EWORKLD2+6*, EWORKLD2+13, EWORKLD2+17, EWORKLD2+19, EWORKLD2+26, EPAT+7*, EPAT+9 , EPAT+10 |