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 |