Home   Package List   Routine Alphabetical List   Global Alphabetical List   FileMan Files List   FileMan Sub-Files List   Package Component Lists   Package-Namespace Mapping  
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call
Print Page as PDF
Routine: PSUOP2

Package: Pharmacy Benefits Management

Routine: PSUOP2


Information

PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm

Source Information

Source file <PSUOP2.m>

Entry Points

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

FileMan Files Accessed Via FileMan Db Call

FileNo Call Tags
^PSRX - [#52] GET1^DIQ
Info |  Source |  Entry Points |  FileMan Files Accessed Via FileMan Db Call