PSUAR2 ;BIR/PDW - ASSEMBLE AR/WS RECORDS FOR TRANSMISSION ;10 JUL 1999
Source file <PSUAR2.m>
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)
|