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
Print Page as PDF
Routine: PSUAR2

Package: Pharmacy Benefits Management

Routine: PSUAR2


Information

PSUAR2 ;BIR/PDW - ASSEMBLE AR/WS RECORDS FOR TRANSMISSION ;10 JUL 1999

Source Information

Source file <PSUAR2.m>

Entry Points

Name Comments DBIA/ICR reference
EN ;EP Build ("RECORDS") from scan of ^XTMP(PSUARSUB,"DIV_DRUG",Drug,Div)=Total
DRUGSCAN ;EP Scan for Drugs within division
RECORD(PSUDRDA,PSUDIV,PSUTOT) ;EP Return record assembled
DRUG(PSUDRDA) ;EP assemble from file 50+ needed fields
; PSUDRDA is da for the DRUG in file 50 from (58.52,.01)
; Store the fields in ^XTMP(PSUARSUB,"PSUDRUG_DET",PSUDDA,Field)=value
PROCESS ;Further process field values into their final values
STORE ;Store the processed values into ^TMP
REC ;EP Move PSUAR_RECORDS to PSUAREC)
Info |  Source |  Entry Points