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) | ;
|
|