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