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 |
|
| GETIPDT(DFN) | ;
|
|
| GETEOC(DFN) | ;
; Get the Episode of Care number |
|
| GETEOCSEQ(DFN) | ;
; Get the current/last Episode of Care sequence |
|
| GETPOINTRSEQ(DFN,PXENC,PXTY) | ;
; Get the pointer sequence from the episode of care |
|
| GETBENTYP(DFN) | ;
|
|
| SETSTDT(DFN,PXNWSTDT) | ;
; Set a new start date for the current / most recent episode of care ; |
|
| 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,DATE) | ;
; Determine if patient is currently in an acute suicidal crisis OR was in a crisis on the date provided |
|
| DISPLAY(DFN,PXEOCSEQ) | ;
|
|
| ADMIT(DFN,STARTDT,ADMIT,PTF) | ;
|
|
| REOPNEOC(PXEOCNUM,PXEOCSEQ,STARTDT) | ;
|
|
| RESET(PXEOCNUM) | ;
|
|