PSOERXUT ;ALB/MR - eRx CS utilities ;7/21/2020 9:57am
Source file <PSOERXUT.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CSFILTER(ERXIEN) | ; Check eRx against CS Filter Prompt Answers
; Global variables: PSOCSERX: CS Filter Selection | PSOCSSCH: Drug Schedule Filter Selection ; Input: (r)ERXIEN - Pointer to ERX HOLDING QUEUE (#52.49) |
|
| VALPTADD(DFN) | ; Returns whether the patient has a valid address or not
; Input: (r)DFN - Pointer to the PATIENT file (#2) |
|
| CSKEYS(USER) | ; Checks whether the user has a valid Security Key for CS Orders
; Input: (r)USER - Pointer to the NEW PERSON file (#200) |
|
| PRDRVAL(RESULT,ACTION,ERXIEN,PROVIEN,DRUGIEN) | ; API used to Verify Provider and Drug Selection/Validation for CS Prescriptions
; Input:(r)ACTION - Ation being peformed ("EP": Edit Provider | "VP": Validate Provider | "ED": Edit Drug | "VD": Validate Drug | "AC": Accept eRx) ; (r)ERXIEN - eRx IEN. Pointer to the ERX HOLDING QUEUE file (#52.49) ; (o)PROVIEN - Provider IEN. Pointer to the NEW PERSON file (#200) ; (o)DRUGIEN - Dispense Drug IEN. Pointer to the DRUG file (#50) |
|
| ERXDRSCH(ERXIEN) | ; Returns the CS Schedule for the eRx Drug (Internal^External Format)
; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (52.49) |
|
| VADRSCH(DRUGIEN) | ; Returns the CS Schedule for the VistA Dispense Drug (Internal^External Format)
; Input: (r) DRUGIEN - Pointer to the DRUG file (#50) |
|
| PAUSE | ; Pauses screen until user hits Return
|
|
| ERXIEN(PORXIEN) | ; Given the Pending Order (#52.41) or Prescription (#52) IEN, returns the eRx (#52.49) IEN or "" (null)
; Input: (r) PORXIEN - Pointer to either the PENDING ORDERS file (#52.41) (e.g., "139839P") or PRESCRIPTION file (#52) (e.g., 12930984) |
|
| AUDLOG(ERXIEN,FIELD,EDITBY,NEWVAL) | ; Sets eRx Edit Audit Log
; Input: (r) ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49). eRx record being edited. ; (r) FIELD - Freetext eRx Field Name (e.g.,"DRUG", "PROVIDER", "PATIENT", Etc...). Field being edited. ; (r) EDITBY - Pointer to NEW PERSON File (#200). User who made the edit. ; (r) NEWVAL - Array containing the new value for the field being edited (Passed in by Reference) |
|
| EQUAL(ERXIEN,FIELD,NEWVAL) | ; Compare if the OLD and NEW values are the same
|
|
| OLDVAL(ERXIEN,FIELD,STRTFROM,OLDVAL) | ; Retrieves the Previous/Old Value for the eRx Field
; Input: (r) ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49). eRx record being edited. ; (r) FIELD - Freetext eRx Field Name (e.g.,"DRUG", "PROVIDER", "PATIENT", Etc...). Field being edited. ; (o) STRTFROM - Start From Audit Log IEN. Default: Lastest value for the field. |
|
| PROXYDUZ() | ; Returns the Proxy DUZ for Audit Log entries from Auto-Matching
; Output: PROXYDUZ - Pointer to NEW PERSON file (#200) |
|
| DONOTFIL(ERXIEN) | ; Do Not Fill record
; Input: (r) ERXIEN - Pointer to ERX HOLDING QUEUE File (#52.49). eRx record being edited. |
|
| SUFFWARN(RESULT,ERXPRDEA,VADEADSP,HEADER) | ; Append suffix warning to end of RESULT array
; Input: (r) ERXPRDEA - eRx DEA number ; (r) VADEADSP - VA DEA # ; (o) HEADER - Print Message Heading ; Output: RESULT - DEA Number suffix mismatch warning text |
|
| DEFROUTE(OIIEN) | ; Returns the Default Route for Orderable Item
; Input: OIIEN - Orderable Item IEN - Pointer to PHARMACY ORDERABLE ITEM file (#50.7) |
|
| ERXSIG(ERXIEN) | ; Returns the eRx SIG
|
|
| VISTASIG(ERXIEN) | ; Returns the VistA SIG, if present
|
|
| RENEWALS(ERXIEN) | ; Returns whether Renewals are Prohibited or no
|
| Name | Line Occurrences |
|---|---|
| Function Call: WRITE |
|
| FileNo | Call Tags |
|---|---|
| ^VA(200 - [#200] | Classic Fileman Calls, GET1^DIQ |
| ^PSDRUG - [#50] | GET1^DIQ |
| 50.6061 | GET1^DIQ |
| ^PSNDF(50.68 - [#50.68] | GET1^DIQ |
| ^PS(50.7 - [#50.7] | GET1^DIQ |
| 50.711 | GET1^DIQ |
| ^PSRX - [#52] | GET1^DIQ |
| ^PS(52.41 - [#52.41] | GET1^DIQ |
| ^PS(52.48 - [#52.48] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ |
