PXCOMPACT ;ALB/BPA,CMC - Routine for COMPACT Act APIs;05/06/2024@12:01
Source file <PXCOMPACT.m>
| 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 |
|
| GETIPDT(DFN) | ;
|
|
| GETEOC(DFN) | ;
; Get the Episode of Care number assigned to the patient |
|
| GETEOCSEQ(DFN) | ;
; Get the current/last Episode of Care sequence |
|
| 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) | ;
|
|
| NEWEOC(DFN,PXENC,PXTY,PXSTDT,PXSRC) | ;
; API to input a new Episode of Care |
|
| CHGTYPSTAT(DFN,PXTY,PXCHNGDT) | ;
|
|
| VISIT(ENC,PXTY,PXEOCNUM,DFN) | ;
|
|
| SETVSTFLG(DFN,PXENC,PXVAL) | ;
|
|
| VALDFN(DFN,PXERRMSG) | ;
|
|
| VALUSR(PXAUTH,PXERRMSG) | ;
|
|
| ASC(DFN) | ;
; Determine if patient is currently in an acute suicidal crisis |
|
| DISPLAY(DFN) | ;
|
|
| ADMIT(DFN,STARTDT,ADMIT,PTF) | ;
|
|
| REOPNEOC(PXEOCNUM,PXEOCSEQ,STARTDT) | ;
|
|