PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm
Source file <PSUOP2.m>
| Name | Comments | DBIA/ICR reference |
|---|---|---|
| EN | ;Entry to data collection
|
|
| ALLOOP | ;Loop through the AL cross refererence
|
|
| AMLOOP | ; loop through "AM", partials, cross reference to see if any were missed
|
|
| NEW | ; New Rx
|
|
| NEWX1 | ;I PSUCMOP="Y" Q:((PSURELDT="")!(PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))
|
|
| NEWX2 | ;I PSUCMOP="N",((PSUFD<PSUSDT)!(PSUFD\1>PSUEDT)) Q
|
|
| NEWQ | ||
| REF | ; Refills
|
|
| REFQ | ||
| PAR | ; Partials
|
|
| PARQ | ||
| COMVAR | ; set variables that are common between all record types
|
|
| COMVARQ | ||
| CMOPA | ; set array of CMOP recs
|
|
| CMOPAQ | ||
| RTSTOCK | ; test for "AR" if none then unmark CMOP
; needs PSURXIEN, PSUFIL, from CMOPA |
|
| PIECE(%,REC,DLM) | ;Piece % from record REC using delimiter DLM
; %="VARNAME^PIECE",REC=SOURCE,DLM=DELIMITER in REC |
| FileNo | Call Tags |
|---|---|
| ^PSRX - [#52] | GET1^DIQ |
