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 |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All
Print Page as PDF
Routine: PXCOMPACT

Package: PCE Patient Care Encounter

Routine: PXCOMPACT


Information

PXCOMPACT ;ALB/BPA,CMC - Routine for COMPACT Act APIs;05/06/2024@12:01

Source Information

Source file <PXCOMPACT.m>

Call Graph

Call Graph

Call Graph Total: 6

Package Total Call Graph
Registration 2 (SETPTFFLG,SETPTFMVMT)^DGCOMPACT  $$ELIG^DGCOMPACTELIG  
VA FileMan 2 (FILE,UPDATE)^DIE  $$GET1^DIQ  
Kernel 1 ($$FMADD,$$FMTE)^XLFDT  
PCE Patient Care Encounter 1 (COMPACTERR,FILEMANERR)^PXCOMPACT1  

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

Package Total Caller Graph
Registration 7 DGCOMPACT  DGPMV3  DGPMV36  DGPMX3  DGPTFM4  DGRPD  DGRPDB  
PCE Patient Care Encounter 5 PXBAPI1  PXCOMPACT1  PXCOMPACTBKGRND  PXCOMPACTEOC  PXCOMPACTEVAL  

Entry Points

Name Comments DBIA/ICR reference
GETSTDT(DFN) ;
; Retrieve the start date from the zero level of the most current episode sequence
; DFN is the Patient ID
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    GETIPDT(DFN) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    GETEOC(DFN) ;
    ; Get the Episode of Care number assigned to the patient
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    GETEOCSEQ(DFN) ;
    ; Get the current/last Episode of Care sequence
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    GETPOINTRSEQ(DFN,PXENC,PXTY) ;
    ; Get the pointer sequence from the episode of care
    ; DFN - Internal Patient ID *required
    ; PXENC - Internal Encounter ID (VISIT or PTF) *required
    ; PXTY - Inpatient or Outpatient
    GETBENTYP(DFN) ;
    SETSTDT(DFN,PXNWSTDT) ;
    ; Set a new start date for the current / most recent episode of care
    ; DFN - Patient ID
    ; PXNWSTDT - New start date (VA format)
    ;
    SETENDDT(DFN,PXENDDT,PXENDSRC,PXAUTH,PXCOMM) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    NEWEOC(DFN,PXENC,PXTY,PXSTDT,PXSRC) ;
    ; API to input a new Episode of Care
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    CHGTYPSTAT(DFN,PXTY,PXCHNGDT) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    VISIT(ENC,PXTY,PXEOCNUM,DFN) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    SETVSTFLG(DFN,PXENC,PXVAL) ;
    VALDFN(DFN,PXERRMSG) ;
    VALUSR(PXAUTH,PXERRMSG) ;
    ASC(DFN) ;
    ; Determine if patient is currently in an acute suicidal crisis
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    DISPLAY(DFN) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    ADMIT(DFN,STARTDT,ADMIT,PTF) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription
    REOPNEOC(PXEOCNUM,PXEOCSEQ,STARTDT) ;
  • ICR #7327
    • Status: Active
    • Usage: Controlled Subscription

    External References

    Name Field # of Occurrence
    SETPTFFLG^DGCOMPACT VISIT+13
    SETPTFMVMT^DGCOMPACT ADMIT+6, ADMIT+22, ADMIT+27
    $$ELIG^DGCOMPACTELIG NEWEOC+18, REOPNEOC+17
    FILE^DIE SETSTDT+26
    UPDATE^DIE NEWEOC+30, NEWEOC+46, VISIT+11, VISIT+20
    $$GET1^DIQ DISPLAY+34, DISPLAY+35, DISPLAY+39
    COMPACTERR^PXCOMPACT1 SETSTDT+9, SETSTDT+11, SETSTDT+13, SETSTDT+15, NEWEOC+5, NEWEOC+6, NEWEOC+8, NEWEOC+9, NEWEOC+12, VALDFN+3
    , VALDFN+4, VALDFN+5, VALUSR+3, VALUSR+4
    FILEMANERR^PXCOMPACT1 SETSTDT+27, NEWEOC+31, NEWEOC+47, VISIT+12, VISIT+21
    $$FMADD^XLFDT SETSTDT+19, SETSTDT+20, NEWEOC+21, NEWEOC+22, CHGTYPSTAT+10, CHGTYPSTAT+11, REOPNEOC+13
    $$FMTE^XLFDT DISPLAY+11, DISPLAY+15, DISPLAY+16, DISPLAY+18, DISPLAY+25, DISPLAY+37

    FileMan Files Accessed Via FileMan Db Call

    FileNo Call Tags
    818.01 GET1^DIQ

    Global Variables Directly Accessed

    Name Line Occurrences  (* Changed,  ! Killed)
    ^AUPNVSIT - [#9000010] NEWEOC+16
    ^DGPM("ATID3" ADMIT+14
    ^DGPT - [#45] NEWEOC+15, VISIT+13
    ^DPT - [#2] NEWEOC+6, VALDFN+4
    ^PXCOMP(818 - [#818] GETSTDT+7, GETSTDT+8, GETIPDT+5, GETIPDT+6, GETEOC+4, GETEOCSEQ+4, GETPOINTRSEQ+10, GETPOINTRSEQ+11, GETBENTYP+3, GETBENTYP+11
    , SETENDDT+10, SETENDDT+13*, SETENDDT+14*, SETENDDT+15*, SETENDDT+16*, SETENDDT+17*, SETENDDT+18*, SETENDDT+20*, NEWEOC+10, NEWEOC+12
    , NEWEOC+33*, NEWEOC+34*, NEWEOC+51*, CHGTYPSTAT+8*, CHGTYPSTAT+12*, CHGTYPSTAT+13*, CHGTYPSTAT+14*, SETVSTFLG+3*, VALDFN+5, ASC+4
    , DISPLAY+6, DISPLAY+11, DISPLAY+12, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+20, DISPLAY+25, DISPLAY+30, DISPLAY+33
    , DISPLAY+37, DISPLAY+38, ADMIT+12, ADMIT+20, ADMIT+24, REOPNEOC+3*, REOPNEOC+4*, REOPNEOC+6, REOPNEOC+7, REOPNEOC+10*
    , REOPNEOC+11*, REOPNEOC+12!, REOPNEOC+13*, REOPNEOC+14*, REOPNEOC+15*, REOPNEOC+16*, REOPNEOC+18*
    ^VA(200 - [#200] VALUSR+4

    Label References

    Name Line Occurrences
    $$GETBENTYP GETPOINTRSEQ+7, SETSTDT+18, CHGTYPSTAT+6
    $$GETEOC GETSTDT+8, GETIPDT+6, GETEOCSEQ+3, GETPOINTRSEQ+8, GETBENTYP+2, SETSTDT+18, SETENDDT+9, NEWEOC+11, NEWEOC+37, NEWEOC+50
    , CHGTYPSTAT+3, SETVSTFLG+2, ASC+3, DISPLAY+6, ADMIT+5
    $$GETEOCSEQ GETSTDT+8, GETIPDT+6, GETPOINTRSEQ+8, GETBENTYP+8, SETSTDT+18, SETENDDT+9, NEWEOC+50, CHGTYPSTAT+3, VISIT+4, SETVSTFLG+2
    , DISPLAY+9, ADMIT+9
    $$GETPOINTRSEQ SETVSTFLG+2
    NEWEOC ADMIT+6, ADMIT+25
    REOPNEOC ADMIT+16
    SETENDDT ADMIT+17
    SETSTDT REOPNEOC+8
    SETVSTFLG VISIT+22
    VALDFN SETSTDT+17, SETENDDT+3
    VALUSR SETENDDT+5
    VISIT NEWEOC+53, ADMIT+21

    Local Variables

    Legend:

    >> Not killed explicitly
    * Changed
    ! Killed
    ~ Newed

    Name Field # of Occurrence
    ADMIT ADMIT~, ADMIT+6, ADMIT+27
    ASC ASC+2~, ASC+3*, ASC+4*, ASC+5
    CDATA SETSTDT+5~, SETSTDT+6*, SETSTDT+27, NEWEOC+3~, NEWEOC+4*, NEWEOC+25~, NEWEOC+31, VISIT+2~, VISIT+12, VISIT+21
    CDATA( SETSTDT+23*, SETSTDT+24*, SETSTDT+25*, VISIT+6*, VISIT+10*, VISIT+15*, VISIT+19*
    CDATA(818 NEWEOC+27*, NEWEOC+28*, NEWEOC+29*
    CMPMSG SETSTDT+5~, SETSTDT+6*, SETSTDT+27, NEWEOC+3~, NEWEOC+4*, NEWEOC+25~, NEWEOC+31, NEWEOC+47, VISIT+2~, VISIT+6*
    , VISIT+12, VISIT+15*, VISIT+21
    CMPMSG("DIERR" SETSTDT+27, NEWEOC+31, NEWEOC+36, NEWEOC+47, VISIT+12, VISIT+21
    DFN GETSTDT~, GETSTDT+7, GETSTDT+8, GETIPDT~, GETIPDT+5, GETIPDT+6, GETEOC~, GETEOC+3, GETEOC+4, GETEOCSEQ~
    , GETEOCSEQ+3, GETPOINTRSEQ~, GETPOINTRSEQ+7, GETPOINTRSEQ+8, GETBENTYP~, GETBENTYP+2, GETBENTYP+8, SETSTDT~, SETSTDT+9, SETSTDT+11
    , SETSTDT+13, SETSTDT+15, SETSTDT+17, SETSTDT+18, SETSTDT+27, SETENDDT~, SETENDDT+3, SETENDDT+9, NEWEOC~, NEWEOC+5
    , NEWEOC+6, NEWEOC+8, NEWEOC+9, NEWEOC+10, NEWEOC+11, NEWEOC+12, NEWEOC+18, NEWEOC+27, NEWEOC+31, NEWEOC+37
    , NEWEOC+47, NEWEOC+50, NEWEOC+53, CHGTYPSTAT~, CHGTYPSTAT+3, CHGTYPSTAT+6, VISIT~, VISIT+4, VISIT+12, VISIT+21
    , VISIT+22, SETVSTFLG~, SETVSTFLG+2, VALDFN~, VALDFN+3, VALDFN+4, VALDFN+5, VALUSR+3, VALUSR+4, ASC~
    , ASC+3, DISPLAY~, DISPLAY+6, DISPLAY+9, ADMIT~, ADMIT+5, ADMIT+6, ADMIT+9, ADMIT+14, ADMIT+17
    , ADMIT+21, ADMIT+25, REOPNEOC+1~*, REOPNEOC+6*, REOPNEOC+8, REOPNEOC+17
    DISPLAY DISPLAY+3~, DISPLAY+4*, DISPLAY+22*, DISPLAY+26*, DISPLAY+34*, DISPLAY+35*, DISPLAY+39*, DISPLAY+40
    DT SETSTDT+15, NEWEOC+17, CHGTYPSTAT+7, ADMIT+16, ADMIT+17
    DUZ ADMIT+17
    ELIG REOPNEOC+1~*, REOPNEOC+17*, REOPNEOC+18
    ELIGSEQ DISPLAY+3~, DISPLAY+4*
    ENC VISIT~, VISIT+9, VISIT+10, VISIT+13, VISIT+18, VISIT+19, VISIT+22
    ENDDT DISPLAY+3~, DISPLAY+4*, DISPLAY+14*, DISPLAY+17, DISPLAY+18*, DISPLAY+22, DISPLAY+26
    EOCNUM ADMIT+3~, ADMIT+4*, ADMIT+5*, ADMIT+6, ADMIT+8, ADMIT+12, ADMIT+16, ADMIT+20, ADMIT+21, ADMIT+24
    EOCSEQ ADMIT+3~, ADMIT+4*, ADMIT+9*, ADMIT+16
    EOCTYP DISPLAY+3~, DISPLAY+4*, DISPLAY+12*, DISPLAY+33, DISPLAY+35, DISPLAY+39
    EPDATA NEWEOC+3~, NEWEOC+4*, NEWEOC+47
    EPDATA( NEWEOC+41*, NEWEOC+42*, NEWEOC+43*, NEWEOC+44*, NEWEOC+45*
    IPBENEND DISPLAY+3~, DISPLAY+4*, DISPLAY+15*, DISPLAY+22, DISPLAY+34
    IPENDDT GETIPDT+3~, GETIPDT+4*, GETIPDT+6*, GETIPDT+7
    LTD ADMIT+3~, ADMIT+14*, ADMIT+16
    OPBENEND DISPLAY+3~, DISPLAY+4*, DISPLAY+16*, DISPLAY+22
    OPEXT DISPLAY+3~, DISPLAY+4*, DISPLAY+20*, DISPLAY+21, DISPLAY+24, DISPLAY+30*, DISPLAY+31, DISPLAY+36
    PTF ADMIT~, ADMIT+6, ADMIT+21, ADMIT+22, ADMIT+25, ADMIT+27
    PXAUTH SETENDDT~, SETENDDT+5, SETENDDT+17, VALUSR~, VALUSR+3, VALUSR+4
    PXBENTYP GETBENTYP+1~, GETBENTYP+3*, GETBENTYP+6, GETBENTYP+8*, GETBENTYP+11*, GETBENTYP+12, SETSTDT+5~, SETSTDT+6*, SETSTDT+18*, SETSTDT+19
    , SETSTDT+20
    PXCHNGDT CHGTYPSTAT~, CHGTYPSTAT+7*, CHGTYPSTAT+10, CHGTYPSTAT+11
    PXCOMM SETENDDT~, SETENDDT+18
    PXELIG NEWEOC+3~, NEWEOC+4*, NEWEOC+18*, NEWEOC+19*, NEWEOC+45, NEWEOC+51
    PXENC GETPOINTRSEQ~, GETPOINTRSEQ+10, GETPOINTRSEQ+11, NEWEOC~, NEWEOC+9, NEWEOC+15, NEWEOC+16, NEWEOC+53, SETVSTFLG~, SETVSTFLG+2
    PXENDDT SETENDDT~, SETENDDT+4, SETENDDT+11, SETENDDT+13, SETENDDT+15, SETENDDT+16
    PXENDSRC SETENDDT~, SETENDDT+7*, SETENDDT+14
    PXEOCNUM GETSTDT+4~, GETSTDT+5*, GETSTDT+8*, GETIPDT+3~, GETIPDT+4*, GETIPDT+6*, GETEOC+2~, GETEOC+3*, GETEOC+4*, GETEOC+5
    , GETEOCSEQ+2~, GETEOCSEQ+3*, GETEOCSEQ+4, GETPOINTRSEQ+5~, GETPOINTRSEQ+8*, GETPOINTRSEQ+9, GETPOINTRSEQ+10, GETPOINTRSEQ+11, GETBENTYP+1~, GETBENTYP+2*
    , GETBENTYP+3, GETBENTYP+11, SETSTDT+5~, SETSTDT+6*, SETSTDT+18*, SETSTDT+21, SETENDDT+1~, SETENDDT+2*, SETENDDT+9*, SETENDDT+10
    , SETENDDT+13, SETENDDT+14, SETENDDT+15, SETENDDT+16, SETENDDT+17, SETENDDT+18, SETENDDT+20, NEWEOC+3~, NEWEOC+4*, NEWEOC+11*
    , NEWEOC+12, NEWEOC+24, NEWEOC+33, NEWEOC+34, NEWEOC+37*, NEWEOC+40, NEWEOC+49*, NEWEOC+50*, NEWEOC+51, NEWEOC+53
    , CHGTYPSTAT+1~, CHGTYPSTAT+3*, CHGTYPSTAT+4, CHGTYPSTAT+8, CHGTYPSTAT+12, CHGTYPSTAT+13, CHGTYPSTAT+14, VISIT~, VISIT+8, VISIT+17
    , SETVSTFLG+1~, SETVSTFLG+2*, SETVSTFLG+3, ASC+2~, ASC+3*, ASC+4, REOPNEOC~, REOPNEOC+3, REOPNEOC+4, REOPNEOC+6
    , REOPNEOC+7, REOPNEOC+10, REOPNEOC+11, REOPNEOC+12, REOPNEOC+13, REOPNEOC+14, REOPNEOC+15, REOPNEOC+16, REOPNEOC+18
    PXEOCSEQ GETSTDT+4~, GETSTDT+5*, GETSTDT+8*, GETIPDT+3~, GETIPDT+4*, GETIPDT+6*, GETEOCSEQ+2~, GETEOCSEQ+3*, GETEOCSEQ+4*, GETEOCSEQ+5
    , GETPOINTRSEQ+5~, GETPOINTRSEQ+8*, GETPOINTRSEQ+10, GETPOINTRSEQ+11, GETBENTYP+1~, GETBENTYP+8*, GETBENTYP+11, SETSTDT+5~, SETSTDT+6*, SETSTDT+18*
    , SETSTDT+21, SETENDDT+1~, SETENDDT+2*, SETENDDT+9*, SETENDDT+10, SETENDDT+13, SETENDDT+14, SETENDDT+15, SETENDDT+16, SETENDDT+17
    , SETENDDT+18, NEWEOC+3~, NEWEOC+4*, NEWEOC+49*, NEWEOC+50*, NEWEOC+51, CHGTYPSTAT+1~, CHGTYPSTAT+3*, CHGTYPSTAT+12, CHGTYPSTAT+13
    , CHGTYPSTAT+14, VISIT+2~, VISIT+4*, VISIT+8, VISIT+17, SETVSTFLG+1~, SETVSTFLG+2*, SETVSTFLG+3, REOPNEOC~, REOPNEOC+7
    , REOPNEOC+10, REOPNEOC+11, REOPNEOC+12, REOPNEOC+13, REOPNEOC+14, REOPNEOC+15, REOPNEOC+16, REOPNEOC+18
    PXERRMSG GETSTDT+5*, SETSTDT+5~, SETSTDT+6*, SETSTDT+9*, SETSTDT+11*, SETSTDT+13*, SETSTDT+15*, SETSTDT+17, SETENDDT+1~, SETENDDT+2*
    , SETENDDT+3, SETENDDT+5, NEWEOC+3~, NEWEOC+4*, NEWEOC+5*, NEWEOC+6*, NEWEOC+8*, NEWEOC+9*, NEWEOC+12*, NEWEOC+13
    , VALDFN~, VALDFN+1~, VALDFN+2*, VALDFN+3*, VALDFN+4*, VALDFN+5*, VALUSR~, VALUSR+1~, VALUSR+2*, VALUSR+3*
    , VALUSR+4*
    PXFNDOBI SETSTDT+5~, SETSTDT+6*, SETSTDT+19*, SETSTDT+24, NEWEOC+3~, NEWEOC+4*, NEWEOC+21*, NEWEOC+42, CHGTYPSTAT+1~, CHGTYPSTAT+2*
    , CHGTYPSTAT+10*, CHGTYPSTAT+11*, CHGTYPSTAT+12
    PXFNDOBO SETSTDT+5~, SETSTDT+6*, SETSTDT+20*, SETSTDT+25, NEWEOC+3~, NEWEOC+4*, NEWEOC+22*, NEWEOC+43, CHGTYPSTAT+1~, CHGTYPSTAT+2*
    , CHGTYPSTAT+10*, CHGTYPSTAT+11*, CHGTYPSTAT+13
    PXIEN NEWEOC+3~, NEWEOC+4*, NEWEOC+25~, NEWEOC+26*, NEWEOC+27, NEWEOC+28, NEWEOC+29, DISPLAY+3~, DISPLAY+4*, DISPLAY+32*
    , DISPLAY+34, DISPLAY+35, DISPLAY+38*, DISPLAY+39
    PXIENEP NEWEOC+3~, NEWEOC+4*, NEWEOC+40*, NEWEOC+41, NEWEOC+42, NEWEOC+43, NEWEOC+44, NEWEOC+45
    PXIENS SETSTDT+5~, SETSTDT+6*, SETSTDT+21*, SETSTDT+23, SETSTDT+24, SETSTDT+25, VISIT+2~, VISIT+3*, VISIT+8*, VISIT+10
    , VISIT+17*, VISIT+19
    PXLASTSEQ DISPLAY+3~, DISPLAY+4*, DISPLAY+9*, DISPLAY+11, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+20, DISPLAY+25, DISPLAY+30
    , DISPLAY+32, DISPLAY+33, DISPLAY+37, DISPLAY+38
    PXNUMOPX DISPLAY+3~, DISPLAY+4*, DISPLAY+38*
    PXNWSTDT SETSTDT~, SETSTDT+9, SETSTDT+11, SETSTDT+13, SETSTDT+15, SETSTDT+19, SETSTDT+20, SETSTDT+23
    PXPOINTRSEQ SETVSTFLG+1~, SETVSTFLG+2*, SETVSTFLG+3
    PXPONTRNUM GETPOINTRSEQ+5~, GETPOINTRSEQ+6*, GETPOINTRSEQ+10*, GETPOINTRSEQ+11*, GETPOINTRSEQ+12
    PXSEQ DISPLAY+3~, DISPLAY+4*, DISPLAY+6*, DISPLAY+7, DISPLAY+11, DISPLAY+12, DISPLAY+14, DISPLAY+15, DISPLAY+16, DISPLAY+20
    , DISPLAY+25, DISPLAY+30, DISPLAY+32, DISPLAY+33, DISPLAY+37, DISPLAY+38
    PXSRC NEWEOC~, NEWEOC+20*, NEWEOC+44
    PXSTDT GETSTDT+4~, GETSTDT+5*, GETSTDT+8*, GETSTDT+9, SETENDDT+1~, SETENDDT+2*, SETENDDT+10*, SETENDDT+11, NEWEOC~, NEWEOC+15*
    , NEWEOC+16*, NEWEOC+17*, NEWEOC+21, NEWEOC+22, NEWEOC+41
    PXTY GETPOINTRSEQ~, GETPOINTRSEQ+7*, GETPOINTRSEQ+9, GETPOINTRSEQ+10, NEWEOC~, NEWEOC+7, NEWEOC+15, NEWEOC+16, NEWEOC+21, NEWEOC+22
    , NEWEOC+29, NEWEOC+34, NEWEOC+53, CHGTYPSTAT~, CHGTYPSTAT+6, CHGTYPSTAT+8, CHGTYPSTAT+10, CHGTYPSTAT+11, VISIT~, VISIT+5
    , VISIT+14
    PXTYCHK NEWEOC+3~, NEWEOC+4*, NEWEOC+7*, NEWEOC+8
    PXVAL SETVSTFLG~, SETVSTFLG+3
    REOPNFLG ADMIT+3~, ADMIT+4*, ADMIT+16*, ADMIT+17
    STARTDT DISPLAY+3~, DISPLAY+4*, DISPLAY+11*, DISPLAY+22, DISPLAY+25*, DISPLAY+26, DISPLAY+34, DISPLAY+35, DISPLAY+37*, DISPLAY+39
    , ADMIT~, ADMIT+6, ADMIT+25, REOPNEOC~, REOPNEOC+7*, REOPNEOC+8, REOPNEOC+13
    Info |  Source |  Call Graph |  Caller Graph |  Entry Points |  External References |  FileMan Files Accessed Via FileMan Db Call |  Global Variables Directly Accessed |  Label References |  Local Variables  | All