PSOERUT4 ;ALB/MFR - eRx Drug Suggestion Utilities; 06/25/2023 5:14pm
Source file <PSOERUT4.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| CSPRV(PROV,DRG,ORN) | ; Sets CS Information (DEA#, Detox #, Site Address,...)
|
|
| VASIG(ORD) | ; Returns The Pending Order SIG
; Input: ORD - Pointer to the PENDING ORDER file (#52.41) |
|
| ERXDOSE(ERXIEN,DOSEARR,INTVAL) | ; Retrieves the Dosage for an eRx and loads an Array
; Input: ERXIEN - Pointer to the ERX HOLDING QUEUE file (#52.49) ; (o)INTVAL - 1: Use Internal Value Flag | 0/null: External Value |
|
| VARXDOSE(RXIEN,DOSEARR) | ; Retrieves the Dosage for a PRESCRIPTION and loads an Array
; Input: RXIEN - Pointer to the PRESCRIPTION file (#52) |
|
| PODOSAGE(NMSPC,ORDIEN,PENDATA,RENEWORD) | ; Set ListMan Side-By-Side Section for VistA Pending Order Dosage
|
|
| PENFLAG(NMSPC,ORD) | ; Backdoor ListManager Display of Flag/Unflag Information
|
|
| ACCDTBY(ERXIEN) | ; Returns the eRx latest Accepted Date/Time
; Input: ERXIEN - Pointer to ERX HOLDING QUEUE file (#52.49) |
|
| PROVCOMM(COMM) | ; Expand Provider Comments
; Input: Provider Comments |
|
| FREQ(DUR) | ; Returns the Duration Frequency word (WEEKS, DAYS, etc..)
; Input: DUR - Schedule Duration (e.g., "4D", "3W", "6H", etc...) |
| FileNo | Call Tags |
|---|---|
| ^PS(50.607 - [#50.607] | GET1^DIQ |
| ^PS(51.2 - [#51.2] | GET1^DIQ |
| ^PSRX - [#52] | GETS^DIQ |
| ^PS(52.41 - [#52.41] | GET1^DIQ, GETS^DIQ |
| ^PS(52.45 - [#52.45] | GET1^DIQ |
| ^PS(52.49 - [#52.49] | GET1^DIQ, GETS^DIQ |
| 52.4919 | GET1^DIQ |
