MHVXRXM ;BAA - Medication extract ; [12/14/06 11:38am]
Source file <MHVXRXM.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EXTRACT(QRY,ERR,DATAROOT) | ; Entry point to extract prescription data
; Retrieves requested prescription data and returns it in DATAROOT ; Retrieves all prescriptions of all statuses in given date range ; Statuses of deleted are filtered by the pharmacy API. |
|
| PROCESS | ;
|
|
| MHV | ;
|
|
| SETDATA | ; setup data for original prescription
|
|
| REFILL | ; process refills
|
|
| SETRF(RF) | ;
|
|
| STRFDT(RF) | ;
|
|
| PARTIAL | ; process partial prescriptions
|
|
| SETPF(PF) | ;
|
|
| STPFDT(PF) | ;
|
|
| CMOP(IEN,RF) | ; SET UP CMOP VARIABLES
|
|
| ACTLG(IEN,RF) | ; Get info from activity log for Auto DC'ed info.
|
|
| TRACK(IEN,RF) | ;
|
|
| TRACKQ | ||
| TRK | ;
|
|
| GETPHRM(PAIEN) | ||
| DATAROOT | ;
|
|
| PRONV | ;
|
|
| MHVNV | ;Non VA medications
|
|
| PROPD | ;
|
|
| MHVPD | ;Pending Medications
|
|
| GETPTR(IEN4) | ; FIND PHARMACY FIELDS
|
|
| GETDRG(PSSI,PSSE) | ;Drug Information
|
|
| INIT | ; set variables to null
|
|
| INIT2 | ;init vars for partials and refills
|
| FileNo | Call Tags |
|---|---|
| ^DIC(4 - [#4] | GET1^DIQ |
| ^SC - [#44] | GET1^DIQ |
