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)
|
