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: ECPRVMUT

Package: Event Capture

Routine: ECPRVMUT


Information

ECPRVMUT ;ALB/JAM - Event Capture Multiple Provider Utilities ;24 Aug 05

Source Information

Source file <ECPRVMUT.m>

Call Graph

Call Graph

Call Graph Total: 7

Package Total Call Graph
VA FileMan 4 UPDATE^DIE  ^DIK  ($$GET1,GETS)^DIQ  ^DIR  
Event Capture 2 COMP^ECPRVMUT  ($$CLASS,$$DICLK,COMP)^ECPRVUTL  
Kernel 1 $$GET^XUA4A72  

Caller Graph

Caller Graph Total: 33

Package Total Caller Graph
Event Capture 30 ECBEN1A  ECBEN1B  ECBEN2A  ECBEN2U  ECBENF  ECBEP1A  ECBEP1B  ECBEP2A  
ECBEPF  ECED1  ECED3  ECEDF  ECEFPAT  ECMLMD  ECMLMF  ECNTPCE  
ECOSSUM  ECPAT  ECPCER  ECPCEU  ECPROV3  ECPRSUM1  ECPRVMUT  ECRDSSA  
ECRPROC  ECRPRSN  ECRPRSN2  ECUERPC  ECUERPC2  ECV3RPC  
DSS Extracts 3 ECXEC  ECXECMDI  ECXUEC  

Entry Points

Name Comments DBIA/ICR reference
GETPRV(ECIEN,OUTARR) ;Returns providers associated with an encounter
  • ICR #4460
    • Status: Active
    • Usage: Supported
    GETPPRV(ECIEN,ECPPROV) ;returns primary provider associated with an encounter
    ; Input: ECIEN - IEN entry in file 721/^ECH(
  • ICR #4460
    • Status: Active
    • Usage: Supported
    FILPRV(ECIEN,ECPRVARY,ECOUT) ;File multiple providers for an encounter
    ; Input: ECIEN - IEN entry in file 721/^ECH(
    ; ECPRVARY - array with providers
    ; ECOUT - Error flag (1/0)
  • ICR #4460
    • Status: Active
    • Usage: Supported
    DSPPRV ;Display providers
    ASKPRV(ECIEN,ECDT,ECPRVARY,ECOUT) ;ask provider question (primary and multiple secondary)
    ; Variables: ECIEN - IEN entry in file 721/^ECH(
    ; ECDT - date/time of encounter
    ; ECPRVARY - array with providers
    ; ECOUT - Error flag (1/0)
  • ICR #4460
    • Status: Active
    • Usage: Supported
    PPRV ;Ask primary provider
    ; Variables: ECPRV = Primary provider ien
    ; ECPRVN = Primary provider descript, default if define
    ; ECPRVARY= Array with providers
    ; subscript=provider IEN,
    ; data=(P)rimary_^_provider description
    ; ECOUT = Error flag (1/0)
    ;
    SPRV ;Ask secondary provider(s)
    ; Variables: ECPRV = Primary provider ien, default if define
    ; ECPRVARY= Array with providers
    ; subscript=provider IEN,
    ; data=(S)econdary_^_provider description
    PRVHLP ;Help for Provider Code
    COMP(ECUX,ECDTX) ;get provider information, similar to COMP^ECPRVUTL
    DSP1416(ECPRVARY) ;Display providers for data entry options
    DSP1442(ECPRVARY) ;Display providers for data entry options
    DSP1444(ECPRVARY) ;Display providers for data entry options

    External References

    Name Field # of Occurrence
    UPDATE^DIE FILPRV+21
    ^DIK FILPRV+13
    $$GET1^DIQ SPRV+24, COMP+10
    GETS^DIQ GETPRV+15, GETPPRV+12
    ^DIR PPRV+15, SPRV+19
    COMP^ECPRVMUT DSP1442+5, DSP1444+5
    $$CLASS^ECPRVUTL PPRV+22, SPRV+27
    $$DICLK^ECPRVUTL PPRV+12, SPRV+14, SPRV+26
    COMP^ECPRVUTL COMP+11
    $$GET^XUA4A72 COMP+10

    Interaction Calls

    Name Line Occurrences
    Function Call: WRITE
    • Prompt: "Encounter Providers"
    • Line Location: DSPPRV+2
    Function Call: WRITE
    • Prompt: " (Primary)"
    • Line Location: DSPPRV+5
    Function Call: WRITE
    • Prompt: " Provider already entered as primary."
    • Line Location: SPRV+20
    Function Call: WRITE
    • Prompt: " Provider flag as primary. Can't delete."
    • Line Location: SPRV+23
    Function Call: WRITE
    • Prompt: " (Primary)"
    • Line Location: PRVHLP+6
    Function Call: WRITE
    • Prompt: !?1,"You may enter a new Provider, if you wish. Enter the secondary Provider"
    • Line Location: PRVHLP+7
    Function Call: WRITE
    • Prompt: !?1,"for this procedure."
    • Line Location: PRVHLP+8
    Routine Call
    • DIE
    • Line Location:
      • FILPRV+21
    Routine Call
    • DIR
    • Line Location:
      • PPRV+15
      • SPRV+19

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    ^VA(200 - [#200] GET1^DIQ
    ^ECH - [#721] GETS^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^ECH - [#721] GETPRV+11, GETPRV+12, GETPPRV+8, GETPPRV+9, FILPRV+8, FILPRV+13

    Label References

    Name Line Occurrences
    $$GETPPRV ASKPRV+12
    $$GETPRV ASKPRV+11
    COMP DSP1416+5
    DSPPRV ASKPRV+14
    PPRV ASKPRV+16
    SPRV ASKPRV+18

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    CNT GETPRV+13~, GETPRV+25*, GETPRV+28*, SPRV+6~, SPRV+9*, SPRV+28, SPRV+29*, DSP1416+1~, DSP1416+2*, DSP1416+3*
    , DSP1416+4, DSP1442+1~, DSP1442+2*, DSP1442+3*, DSP1442+4, DSP1444+1~, DSP1444+2*, DSP1444+3*, DSP1444+4
    D PRVHLP+1~
    DA FILPRV+10~, FILPRV+12*, FILPRV+13*, SPRV+6~
    DA(1 FILPRV+12*, FILPRV+13
    DEF SPRV+6~, SPRV+9*, SPRV+10*, SPRV+14, SPRV+21*, SPRV+22, SPRV+23, SPRV+24, SPRV+25, SPRV+26*
    SPRV+29*
    DIC PRVHLP+1~
    DIK FILPRV+10~, FILPRV+12*
    DIR PPRV+8~, SPRV+6~
    DIR("?" PPRV+11*, SPRV+16*
    DIR("A" PPRV+10*, SPRV+15*
    DIR("B" PPRV+12*, SPRV+14*, SPRV+21!, SPRV+25!, SPRV+26*, SPRV+29!
    DIR("S" PPRV+14*, SPRV+18*
    DIR(0 PPRV+10*, SPRV+15*
    DIROUT PPRV+8~, SPRV+6~
    DIRUT PPRV+8~, SPRV+6~
    DT PPRV+22, SPRV+27, COMP+7, DSP1416+5, DSP1442+5, DSP1444+5
    DTOUT PPRV+8~, SPRV+6~, SPRV+19
    DUOUT PPRV+8~, SPRV+6~, SPRV+19
    ECDAT DSPPRV+1~, DSPPRV+4*, DSPPRV+5, DSP1416+1~, DSP1416+3*, DSP1416+4, DSP1416+5, DSP1442+1~, DSP1442+3*, DSP1442+4
    , DSP1442+5, DSP1444+1~, DSP1444+3*, DSP1444+4, DSP1444+5
    ECDATA FILPRV+10~, FILPRV+17*, FILPRV+19, FILPRV+20
    ECDT ASKPRV~, PPRV+22, SPRV+27, DSP1416+5, DSP1442+5, DSP1444+5
    ECDTX COMP~, COMP+7*, COMP+10, COMP+11
    ECERR GETPRV+13~, GETPRV+16, GETPPRV+10~, GETPPRV+13, FILPRV+10~, FILPRV+16!, FILPRV+22
    ECI DSP1416+1~, DSP1416+2*, DSP1416+3, DSP1442+1~, DSP1442+2*, DSP1442+3, DSP1444+1~, DSP1444+2*, DSP1444+3
    ECIEN GETPRV~, GETPRV+10, GETPRV+11, GETPRV+12, GETPRV+15, GETPPRV~, GETPPRV+7, GETPPRV+8, GETPPRV+9, GETPPRV+12
    , FILPRV~, FILPRV+7, FILPRV+8, FILPRV+12, FILPRV+18, ASKPRV~, ASKPRV+10, ASKPRV+11, ASKPRV+12
    ECINF ASKPRV+7~, ASKPRV+11*, ASKPRV+12*
    ECOUT GETPPRV+10~, GETPPRV+11*, GETPPRV+14, GETPPRV+18*, FILPRV~, ASKPRV~, ASKPRV+16, PPRV+24*, SPRV+19*
    ECPPROV GETPPRV~, GETPPRV+18*, GETPPRV+19
    ECPRV ASKPRV+8!, ASKPRV+12*, PPRV+9*, PPRV+12, PPRV+23*, SPRV+10, SPRV+20, SPRV+23
    ECPRVARY FILPRV~, ASKPRV~, ASKPRV+8!, ASKPRV+11, PRVHLP+2, DSP1416~, DSP1442~, DSP1444~
    ECPRVARY( FILPRV+15, FILPRV+17, DSPPRV+3, DSPPRV+4, PPRV+19, PPRV+20, PPRV+21!, SPRV+10, SPRV+12, SPRV+13
    SPRV+25!, SPRV+28*, PRVHLP+4, PRVHLP+5, PRVHLP+6, DSP1416+2, DSP1416+3, DSP1442+2, DSP1442+3, DSP1444+2
    , DSP1444+3
    ECPRVARY("" ASKPRV+14, SPRV+9
    ECPRVARY("B" SPRV+13*, SPRV+25!, SPRV+26, SPRV+28*, SPRV+30!
    ECPRVARY(0 FILPRV+9
    ECPRVARY(1 PPRV+23*
    ECPRVDA FILPRV+10~, FILPRV+16!
    ECPRVDA( FILPRV+19*, FILPRV+20*
    ECPRVDA(721 FILPRV+18*
    ECPRVN ASKPRV+8!, ASKPRV+12*, PPRV+9*, PPRV+23*
    ECUP DSP1416+1~, DSP1416+5*, DSP1416+6, DSP1442+1~, DSP1442+5*, DSP1442+6, DSP1444+1~, DSP1444+5*, DSP1444+6
    ECUX COMP~, COMP+6, COMP+10*, COMP+11
    ECW DSPPRV+1~, PPRV+8~, PPRV+22*, SPRV+27*
    ECX DSPPRV+1~, DSPPRV+3*, DSPPRV+4
    ERR FILPRV+10~, FILPRV+14*, FILPRV+22*, FILPRV+23
    IEN GETPRV+13~, GETPRV+18*, GETPRV+23, GETPRV+27*, GETPRV+28, GETPPRV+10~, GETPPRV+15*, GETPPRV+18, PPRV+8~, PPRV+18*
    PPRV+19*, PPRV+20, PPRV+21, SPRV+9*, SPRV+10, SPRV+11*, SPRV+12*, SPRV+13
    OUTARR GETPRV~, GETPRV+29
    OUTARR( GETPRV+25*, GETPRV+28*
    PRI GETPRV+13~, GETPRV+14*, GETPRV+22*, GETPRV+25*, GETPRV+26
    PRV GETPRV+13~, GETPRV+19*, GETPRV+23, GETPPRV+10~, GETPPRV+16*, GETPPRV+18, PRVHLP+1~, PRVHLP+3*, PRVHLP+4*, PRVHLP+5
    PRVHLP+6
    PRVARY GETPRV+13~, GETPPRV+10~
    PRVARY( GETPRV+17, GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21, GETPPRV+14, GETPPRV+15, GETPPRV+16, GETPPRV+17
    SEQ GETPRV+13~, GETPRV+17*, GETPRV+18, GETPRV+19, GETPRV+20, GETPRV+21, GETPRV+22, GETPRV+23, GETPPRV+10~, GETPPRV+14*
    , GETPPRV+15, GETPPRV+16, GETPPRV+17
    SIEN FILPRV+10~, FILPRV+14*, FILPRV+15*, FILPRV+17, FILPRV+22
    TMPARR GETPRV+13~
    TMPARR( GETPRV+23*, GETPRV+25, GETPRV+26!, GETPRV+27, GETPRV+28
    TMPARR(0 GETPRV+25
    TYD GETPRV+13~, GETPRV+21*, GETPRV+23, GETPPRV+17*
    TYP GETPRV+13~, GETPRV+20*, GETPRV+22, GETPRV+23, GETPPRV+10~, GETPPRV+17*, GETPPRV+18
    U GETPRV+22, GETPRV+23, GETPRV+25, GETPPRV+18, FILPRV+19, FILPRV+20, DSPPRV+5, ASKPRV+12, PPRV+19, SPRV+10
    SPRV+12, PRVHLP+5, PRVHLP+6, DSP1416+4, DSP1416+5, DSP1442+4, DSP1442+5, DSP1442+6, DSP1444+4, DSP1444+5
    , DSP1444+6
    X PPRV+8~, SPRV+6~, SPRV+19, SPRV+22
    Y PPRV+8~, PPRV+16, PPRV+20, PPRV+22, PPRV+23, SPRV+6~, SPRV+20, SPRV+21, SPRV+26, SPRV+27
    SPRV+28
    Y(0 PPRV+23, SPRV+28
    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