Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: ECPRVUTL

Package: Event Capture

Routine: ECPRVUTL


Information

ECPRVUTL ;ALB/JAP - Provider Selection with Person Class ;7 Aug 97

Source Information

Source file <ECPRVUTL.m>

Call Graph

Call Graph

Call Graph Total: 4

Package Total Call Graph
VA FileMan 3 DD^%DT  ^DIC  ^DIR  
Kernel 1 $$GET^XUA4A72  

Caller Graph

Legends:

Legend of Colors

Package Component Superscript legend

action A extended action Ea event driver Ed subscriber Su protocol O limited protocol LP run routine RR broker B edit E server Se print P screenman SM inquire I

Caller Graph

Caller Graph Total: 2

Package Total Caller Graph
Event Capture 2 ECMUTL  ECPRVMUT  

Entry Points

Name Comments DBIA/ICR reference
PROV(ECDT,ECPROVS) ;get providers - new providers function
GET(ECDA,ECDT,ECU,ECU2,ECU3,ECOUT) ;get providers with person class
PV ;1st provider - required
PV2 ;2nd provider - optional
PV3 ;3rd provider - optional
CLASS(ECUX,ECDTX) ;get person class - display
; input
; ECUX=ien in file #200 (required)
; ECDTX=date/time of procedure (required)
; output
; ECUTN= -1 if no person class
; or
; -2 if no active person class
; or
; ien in file #8932.1^occupation^specialty^subspecialty^effective date^expiration date^va code
CMSG ;inactive person class msgs
DICLK(ECUX)
COMP(ECUX,ECDTX) ;check & complete the provider return variables

External References

Name Field # of Occurrence
DD^%DT CLASS+11
^DIC DICLK+7
^DIR PV+2, PV2+2, PV3+2
$$GET^XUA4A72 CLASS+12, COMP+16

Interaction Calls

Name Line Occurrences
Function Call: WRITE
  • Prompt: !,?5,"Provider #2 will be deleted..."
  • Line Location: PV2+8
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #1... Try again.",!
  • Line Location: PV2+10
Function Call: WRITE
  • Prompt: !,?5,"Provider #3 will be deleted..."
  • Line Location: PV3+8
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #1... Try again.",!
  • Line Location: PV3+10
Function Call: WRITE
  • Prompt: $C(7),!!,?15,"But that's Provider #2... Try again.",!
  • Line Location: PV3+11
Function Call: WRITE
  • Prompt: !?5,"Specialty: ",$P(ECUTN,"^",3)
  • Line Location: CLASS+15
Function Call: WRITE
  • Prompt: !?5,"Subspecialty: ",$P(ECUTN,"^",4)
  • Line Location: CLASS+16
Function Call: WRITE
  • Prompt: !!?10,"Please check your provider selection and try again.",!
  • Line Location: CMSG+7
Routine Call
  • DIC
  • Line Location:
    • DICLK+7
Routine Call
  • DIR
  • Line Location:
    • PV+2
    • PV2+2
    • PV3+2

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^VA(200 - [#200] Classic Fileman Calls

Global Variables Directly Accessed

Name Line Occurrences  (* Changed,  ! Killed)
^ECH - [#721] GET+36

Label References

Name Line Occurrences
$$CLASS PV+4, PV2+5, PV3+5
$$DICLK PV+3, PV2+4, PV3+4, COMP+15
CMSG CLASS+18
COMP GET+59, GET+60, GET+61
GET PROV+23
PV GET+41, PV+7
PV2 PV2+10, PV2+11
PV3 PV2+8, PV3+10, PV3+11, PV3+12

Local Variables

Legend:

>> Not killed explicitly
* Changed
! Killed
~ Newed

Name Field # of Occurrence
DA GET+32~, GET+36*
DIC DICLK+5~, DICLK+6*
DIC(0 DICLK+6*
DIR GET+32~, PV+2!, PV2+2!, PV3+2!
DIR("A" PV+2*, PV2+2*, PV3+2*
DIR(0 PV+2*, PV2+2*, PV3+2*
DIRUT GET+32~
DT GET+39
DTOUT GET+32~, PV+5, PV2+6, PV3+6
DUOUT GET+32~, PV+5, PV2+6, PV3+6
E1 COMP+11~, COMP+22*, COMP+27, COMP+28
E2 COMP+11~, COMP+22*, COMP+24, COMP+27, COMP+28
E3 COMP+11~, COMP+22*, COMP+23, COMP+24
ECDA PROV+22~, GET~, GET+35, GET+36
ECDATA GET+32~, GET+33*, GET+36*, GET+37
ECDATE CLASS+10~, CLASS+11*, CMSG+6
ECDT PROV~, PROV+23, GET~, GET+36*, GET+39*, GET+59, GET+60, GET+61, PV+4, PV2+5
, PV3+5
ECDTX CLASS~, CLASS+11, CLASS+12, COMP~, COMP+13*, COMP+16
ECOUT PROV+23, PROV+25, GET~, GET+33*, GET+42, GET+46, PV+5*, PV+6, PV2+6*, PV2+7
, PV3+6*, PV3+7
ECPROVS PROV~
ECPROVS(1 PROV+24*
ECPROVS(2 PROV+24*
ECPROVS(3 PROV+24*
ECSPEC COMP+11~, COMP+24*, COMP+25, COMP+27*, COMP+28*, COMP+29
ECU PROV+22~, PROV+23, PROV+24, GET~, GET+33*, GET+37*, GET+38, GET+43*, GET+47*, GET+51
, GET+52, GET+53, GET+59, PV+3, PV+8*, PV2+3, PV2+10, PV3+3, PV3+10
ECU2 PROV+22~, PROV+23, PROV+24, GET~, GET+33*, GET+37*, GET+38, GET+44*, GET+48*, GET+52*
, GET+54, GET+55, GET+57*, GET+60, PV2+4, PV2+8*, PV2+9, PV2+12*, PV2+13, PV3+3
, PV3+11
ECU3 PROV+22~, PROV+23, PROV+24, GET~, GET+33*, GET+37*, GET+38, GET+45*, GET+49*, GET+53*
, GET+55*, GET+57*, GET+61, PV2+8, PV3+4, PV3+8*, PV3+9, PV3+13*
ECUC GET+32~, GET+33*, GET+47, PV+4*, PV+7*
ECUC2 GET+32~, GET+33*, GET+48, PV2+5*, PV2+11*
ECUC3 GET+32~, GET+33*, GET+49, PV3+5*, PV3+12*
ECUN GET+32~, GET+33*, GET+47, PV+3*
ECUN2 GET+32~, GET+33*, GET+48, PV2+4*, PV2+8*
ECUN3 GET+32~, GET+33*, GET+49, PV3+4*, PV3+8*
ECUTN GET+32~, CLASS+10~, CLASS+12*, CLASS+13, CLASS+14, CLASS+15, CLASS+16, CLASS+19, CMSG+1, CMSG+4
, COMP+11~, COMP+16*, COMP+17
ECUX CLASS~, CLASS+12, DICLK~, DICLK+6, COMP~, COMP+14, COMP+15*, COMP+16, COMP+17*, COMP+21*
, COMP+22, COMP+25*, COMP+29*
>> JJ GET+33*
OLDP GET+32~
OLDP( GET+33*
OLDP(1 GET+38*, GET+43
OLDP(2 GET+38*, GET+44
OLDP(3 GET+38*, GET+45
X GET+32~, PV2+8, PV3+8, DICLK+5~, DICLK+6*, COMP+11~
Y GET+32~, PV+2!, PV+4, PV+8, PV2+2!, PV2+3, PV2+5, PV2+8, PV2+10, PV2+12
, PV3+2!, PV3+3, PV3+5, PV3+8, PV3+10, PV3+11, PV3+13, CLASS+10~, CLASS+11*, COMP+11~
Y(0 PV+3, PV2+4, PV3+4, DICLK+8
Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  Interaction Calls |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All