PSSPRICE ;EPIP/WC - PHARMACY PRICE TRACKER FILE 50;1/13/20 3:31pm
Source file <PSSPRICE.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| ST(PSSIEN,PSSDUZ,PSSFLD) | ;
; PSSIEN=DRUG IEN ; PSSNEW=NEW PRICE ; PSSDUZ=USER CHANGING PRICE ; PSSFLD=13-PRICE PER ORDER UNIT, 15-DISPENSE UNITS PER ORDER UNIT ;p236 ; CLASS 3 CROSS REFER ON FILE 50 FIELD #16 |
|
| QUE | ;ENTER THE DATA IN FILE 50 MULTIPLE FIELD 950
|
|
| HIS | ;LOGS CHANGES IN FILE 50 HISTORY PRICE DISPENSE #950
; first delete any price updates prior to the retention limit set up in the paramater PSS DRUG AUDIT RETENTION MOS |
|
| BULL | ;Generate the bulletin.
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | GET1^DIQ |
| ^PSDRUG - [#50] | Classic Fileman Calls |
