PSOERSE3 ;ALB/RM - PSO ERX SINGLE ERX DISPLAY INIT section continuation ;Jan 30, 2024@12:43:34
Source file <PSOERSE3.m>
| Name | Comments | DBIA/ICR reference | 
|---|---|---|
| DISPRX | ;continuation of PSOERSE2 routine
 | 
|
| ALG(LINE) | ;
 | 
|
| DSPLYDUE(ERXIEN,LINE,DSPLYTO,TMPGBL) | ;Display the Prescriber Drug Use Evaluation
 | 
|
| ACCEPT | ; Validate All Matches (Patient/Provider/Drug) & Accept eRx
 | 
|
| NEXTDRUG | ||
| NEXTERX(ERXPAT,ERXIEN) | ; Returns the next Actionable eRx for the Patient 
 ; Input:(r) ERXPAT - Pointer to the ERX EXTERNAL PATIENT file (#52.46) ; (r) ERXIEN - Current eRx - Pointer to the ERX HOLDING QUEUE file (#52.49)  | 
|
| EDITDRUG | ; Edit Drug fields from Single eRx View/Display
 | 
|
| MISSINGPI(ERXIEN) | ; Returns whether it is likely the eRx should have Patient Instructions entered or not
 ; Input: (r) ERXIEN - Pointer to the ERX HOLDING QUEUE file (#52.49)  | 
| Name | Line Occurrences | 
|---|---|
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| Function Call: WRITE | 
  | 
| FileNo | Call Tags | 
|---|---|
| ^PS(52.45 - [#52.45] | GET1^DIQ | 
| ^PS(52.49 - [#52.49] | GET1^DIQ |