PXVXR ;BIR/ADM - CROSS REFERENCE AND OTHER LOGIC ;Dec 20, 2022@13:24:02
Source file <PXVXR.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXP | ; check for expiration date in the past
|
|
| INUSE | ; input check on LOT NUMBER field (#.01)
|
|
| COMB | ; check on LOT NUMBER field (#.01) for uniqueness of Immunization Name, Lot Number and Manufacturer combination
|
|
| AUCHK | ||
| COMB1 | ; input check on MANUFACTURER field (#.02)
|
|
| COMB2 | ; input check on VACCINE field (#.04)
|
|
| ACT(PXLOT) | ; screen immunization with active immunization lot number
|
|
| LOTSTAT(PXLOT,PXDT) | ; Check if lot is active and not expired
|
|
| IMMSEL(PXVLOT,PXVIN) | ; is this lot # selectable for this facility
|
|
| LOT() | ;
|
|
| DIV1(PXVISIT) | ; return division associated with the encounter
|
|
| HIST() | ; check if historical encounter
|
|
| DECR | ; set logic for AF x-ref in V IMMUNIZATION file
; decrement doses unused in IMMUNIZATION LOT file ; check if "low stock" message needs to be sent |
|
| INCR | ; kill logic for AF x-ref in V IMMUNIZATION file
; increment doses unused in IMMUNIZATION LOT file |
|
| STOCKQTY(PXINST,PXIMM) | ;
; Return the total active stock for this imm/div. ; Also, return the largest Low Supply Alert value (this will be used as ; the threshold to see if an alert should be sent). |
|
| SENDMSG(PXINST,PXIMM,PXSTOCK) | ; Send MailMan message that stock is low
|
|
| UPDSTAT(PXIEN,PXOLDSTATUS,PXNEWSTATUS,PXDT,PXUSER) | ;
|
