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