PSOSPMV ;BIRM/MFR - Multiple Individual Prescription ASAP Data Listman Driver ;09/29/2020
Source file <PSOSPMV.m>
Name | Comments | DBIA/ICR reference |
---|---|---|
MULTI | ; Entry Point
|
|
EN(STATE,PSOFROM,PSOTO) | ; Entry point
|
|
RXLOOP(PSODONE) | ; - Prompt for Rx, Fill, Record Type
|
|
ONEFILL(RXIEN,FILLNUM) | ; Get All Fills for on RX#
|
|
RECTYP(RXIEN,FILLNUM,RECTYPE) | ; Get Record Type
|
|
GETDATA(RXIEN,FILLNUM,RECTYPE,PSORXOK) | ; Entry point
|
|
BLDBAT(EXPTYPE,PSOBATLST) | ; Given a list of Rx's builds a new Export Batch
; Input: (r) EXPTYPE - Export Type ((MA)naul/(SC)heduled/(RX) Single Rx)/(VD) Void Only ; (r) List of Rx's: ^TMP("PSOSPMRX",$J,STATE,RXIEN,RXFILL)=Record Type ((N)ew/(R)evise/(V)oid) ; Note: This ^TMP global will be cleaned up at the end |
|
RXLKP(RXNUM) | ; - Peforms Lookup on the PRESCRIPTION file
|
|
VDRXBAT(BATIEN) | ; Check for VOIDs in RX batch
|
|
VOIDST(RXIEN,FILL) | ; Determine the state to send the void
; Make sure the void is sent to the state that received the most recent fill |
Name | Line Occurrences |
---|---|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
Function Call: WRITE |
|
FileNo | Call Tags |
---|---|
^PSDRUG - [#50] | GET1^DIQ |
^PSRX - [#52] | Classic Fileman Calls, GET1^DIQ |
^PS(58.41 - [#58.41] | GET1^DIQ |
^PS(58.42 - [#58.42] | Classic Fileman Calls, GET1^DIQ |
58.42001 | LIST^DIC |
^PS(59 - [#59] | GET1^DIQ |