ECUTL0 ;ALB/ESD - Event Capture Eligibility and In/Outpat Utilities ;2/9/18 16:51
Source file <ECUTL0.m>
Package | Total | Call Graph |
---|---|---|
Event Capture | 1 | ELIGERR^ECUTL0 |
List Manager | 1 | $$UPPER^VALM1 |
Registration | 1 | ELIG^VADPT |
Scheduling | 1 | $$INP^SDAM2 |
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 |
Name | Comments | DBIA/ICR reference |
---|---|---|
CHKDSS(DSSU,INOUT) | ; Determine if DSS Unit is sending data to PCE
|
|
ELGLST() | ; Display list of patient eligibilities and allow user to
; select eligibility, given ELIG^VADPT has been previously called. |
|
ELIG | ||
CHOOSE | ||
PRIMELG | ||
ELGLSTQ | ||
MULTELG(DFN) | ; Determine if patient has multiple eligibilites (calls
; ELIG^VADPT). |
|
ASKIF(ELIGNM) | ; Ask user whether to edit the eligibility during the edit
; of an existing EC Patient file (#721) record |
|
ELIGERR | ; If user uparrows or times out while choosing eligibility, display
; primary eligibility msg to screen |
|
INOUTPT(DFN,PROCDT) | ; Determine inpatient/outpatient status
|
|
DSPSTAT(ECSTAT) | ; Display inpatient/outpatient status
|
|
INOUTERR | ; Display inpat/outpat status error msg to screen and set exit
; variable |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: READ |
|
Function Call: WRITE |
|
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) |
---|---|
^ECD - [#724] | CHKDSS+18 |
>> | Not killed explicitly |
* | Changed |
! | Killed |
~ | Newed |
Name | Field # of Occurrence |
---|---|
DFN | MULTELG~, INOUTPT~, INOUTPT+11, INOUTPT+15 |
DIR | ASKIF+11~ |
DIR("A" | ASKIF+17* |
DIR("B" | ASKIF+18* |
DIR(0 | ASKIF+16* |
>> DIRUT | ASKIF+20 |
DSSU | CHKDSS~, CHKDSS+15, CHKDSS+18 |
DTIME | CHOOSE+3 |
ECALLEL | ELGLST+9~, ELIG*, ELIG+7*, CHOOSE+3, CHOOSE+4, CHOOSE+5 |
ECDSS | CHKDSS+11~, CHKDSS+15*, CHKDSS+19*, CHKDSS+20*, CHKDSS+21 |
ECELIEN | ELGLST+9~, ELGLST+10*, ELIG+5*, ELIG+6, ELIG+7, CHOOSE+8* |
ECELIG | ELGLST+9~, ELGLST+10*, CHOOSE+8*, PRIMELG+1*, ELGLSTQ |
>> ECOUT | INOUTERR+10* |
ECPRIMEL | ELGLST+9~, ELIG+1*, CHOOSE, CHOOSE+4*, CHOOSE+8, PRIMELG+1 |
ECPTSTAT | INOUTPT+9~, INOUTPT+10*, INOUTPT+11*, INOUTPT+14, INOUTPT+15*, INOUTPT+16*, INOUTPT+20 |
ECSEND | CHKDSS+11~, CHKDSS+18*, CHKDSS+19 |
ECSTAT | DSPSTAT~, DSPSTAT+10 |
ECTXT | DSPSTAT+8~, DSPSTAT+9*, DSPSTAT+10 |
ELIGNM | ASKIF~, ASKIF+12, ASKIF+14 |
INOUT | CHKDSS~, CHKDSS+15 |
PROCDT | INOUTPT~, INOUTPT+11, INOUTPT+15 |
>> VAEL | ELGLST+13 |
>> VAEL(1 | ELGLST+13, ELIG+1, ELIG+5, ELIG+6, ELIG+7, CHOOSE+8, PRIMELG+1, MULTELG+10 |
>> X | CHOOSE+3*, CHOOSE+4, CHOOSE+5, PRIMELG, PRIMELG+1 |
>> Y | ASKIF+20 |