PSO52EX ;BHAM ISC/AGV - API FOR ORIGINAL, REFILL, AND PARTIAL DATA ;06/03/16 17:07
Source file <PSO52EX.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXTRACT(SDATE,EDATE,LIST) | ;MAIN DRIVER
|
|
| SEND | ;SENDS CONTROL TO $$CROSS. RECEIVES AND TRACKS COUNTS.
|
|
| CROSS(REF) | ;SETS UP ^TMP GLOBAL. SENDS FOR ORIGINAL, REFILL AND/OR PARTIAL FILL DATA
|
|
| REFILL(IEN,FILL) | ;REFILL
|
|
| PART(IEN,FILL) | ;PARTIAL FILL
|
|
| ORIG(IEN) | ;ORIGINAL FILL
|
|
| REF(SDATE,EDATE,LIST) | ; "AD" XREF RETRIEVAL
|
|
| ARXREF(PSODATE,PSOIEN,PSOFILL) | ; SUSPENSE STATUS CHECK
|
|
| PARK(ORIEN) | ; DETERMINES IF A PRESCRIPTION IS PARK
|
|
| SUSP(ORIEN) | ; DETERMINES IF A PRESCRIPTION IS SUSPENDED
|
|
