PSOTPCUL ;BIR/RTR-Utility Routine for TBP Project ;08/09/03
Source file <PSOTPCUL.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN(PSOTRXN) | ;CPRS call to determine if an RX is a TPB Rx
|
|
| ACTRX(DFN,TPB) | ; Checks if Patient has at least one Active Rx on File
; Input: DFN: Patient IEN (#2) ; TPB: 0 - Looks for active VA prescriptions only (Default) ; 1 - Looks for active TPB prescriptions only ; 2 - Looks for active VA or TPB prescriptions |
|
| ACTIVE(RX) | ; Checks if Rx is Active or not
|
|
| TPBSC(LOC) | ; Checks if Location Stop Code is from TPB Clinic
|
|
| SXMY(GRP) | ; Set XMY array with users from Mail Group GRP
|
| FileNo | Call Tags |
|---|---|
| ^XMB(3.8 - [#3.8] | GET1^DIQ |
