Routine: PSUAR2

Information

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

Source Information

Source file <PSUAR2.m>

Call Graph

Call Graph Total: 3

Package	Total	Call Graph
Kernel	1	$$VERSION^XPDUTL
National Drug File	1	($$FORMI,$$FORMR)^PSNAPIS
Pharmacy Benefits Management	1	($$VAL,GETS,MOVEI)^PSUTL

Caller Graph

Caller Graph Total: 2

Package	Total	Caller Graph
Pharmacy Benefits Management	2	PSUAR0 PSUPR1

Entry Points

Name	Comments	DBIA/ICR reference
DRUGSCAN	;EP Scan for Drugs within division
EN	;EP Build ("RECORDS") from scan of ^XTMP(PSUARSUB,"DIV_DRUG",Drug,Div)=Total
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
RECORD(PSUDRDA,PSUDIV,PSUTOT)	;EP Return record assembled
REC	;EP Move PSUAR_RECORDS to PSUAREC)
STORE	;Store the processed values into ^TMP

External References

Name	Field # of Occurrence
$$FORMI^PSNAPIS	PROCESS+24
$$FORMR^PSNAPIS	PROCESS+26
$$VAL^PSUTL	PROCESS+2
GETS^PSUTL	DRUG+4
MOVEI^PSUTL	DRUG+6
$$VERSION^XPDUTL	PROCESS+13

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	EN+2!, EN+3!, EN+4, DRUGSCAN+2, DRUGSCAN+4, DRUGSCAN+5, DRUGSCAN+6, RECORD+5, STORE+1, REC+1

Label References

Name	Line Occurrences
$$RECORD	DRUGSCAN+4
DRUG	RECORD+5
DRUGSCAN	EN+4
STORE	PROCESS+21

Naked Globals

Name	Field # of Occurrence
^(	DRUGSCAN+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
PSU	RECORD+4~, RECORD+33, RECORD+34, RECORD+35
PSU(	RECORD+31*, RECORD+33
PSU(10	RECORD+19*
PSU(11	RECORD+20*
PSU(12	RECORD+21*
PSU(13	RECORD+22*
PSU(14	RECORD+23*
PSU(15	RECORD+24*
PSU(16	RECORD+25*
PSU(17	RECORD+26*
PSU(18	RECORD+27*
PSU(19	RECORD+28*
PSU(2	RECORD+11*
PSU(20	RECORD+29*
PSU(3	RECORD+12*
PSU(4	RECORD+13*
PSU(5	RECORD+14*
PSU(6	RECORD+15*
PSU(7	RECORD+16*
PSU(8	RECORD+17*
PSU(9	RECORD+18*
>> PSUARSUB	EN+2, EN+3, EN+4, DRUGSCAN+2, DRUGSCAN+4, DRUGSCAN+5, DRUGSCAN+6, RECORD+5, STORE+1, REC+1
>> PSUDDRDA	DRUGSCAN+1*
PSUDIV	RECORD~, RECORD+9, RECORD+10
>> PSUDIVDA	EN+1, EN+4, DRUGSCAN+2, DRUGSCAN+4, RECORD+28, RECORD+29
PSUDIVH	RECORD+4~, RECORD+9, RECORD+10, RECORD+12
PSUDRDA	EN+1, DRUGSCAN+2, DRUGSCAN+4, DRUGSCAN+5, DRUGSCAN+6, RECORD~, RECORD+5, RECORD+28, RECORD+29, DRUG~ , DRUG+4, PROCESS+2, STORE+1
PSUDRUG	DRUG+3~, STORE+1
PSUDRUG(	PROCESS+5, PROCESS+19, PROCESS+20, PROCESS+24, PROCESS+26*
PSUDRUG(20	PROCESS+24, PROCESS+26
PSUDRUG(21	PROCESS+4*
PSUDRUG(22	PROCESS+23, PROCESS+24, PROCESS+26
PSUDRUG(301	PROCESS+6, PROCESS+7*
PSUDRUG(31	PROCESS+3*
PSUDRUG(51	PROCESS+2*
PSUDRUG(52	PROCESS+8*
>> PSULC	EN+1, DRUGSCAN+1, DRUGSCAN+3*, DRUGSCAN+4
>> PSUMON	RECORD+13
PSUNDF	DRUG+3~, PROCESS+12, PROCESS+13, PROCESS+21, PROCESS+24, PROCESS+26
PSUNFR	PROCESS+27!
PSUP	RECORD+4~, RECORD+30, RECORD+31, RECORD+32, RECORD+33
PSUSEND	RECORD+4~, RECORD+9, RECORD+10, RECORD+11
>> PSUSNDR	RECORD+10
>> PSUTDSP(	RECORD+28
PSUTOT	DRUGSCAN+2*, DRUGSCAN+4, DRUGSCAN+6, RECORD~, RECORD+25
>> PSUTRET(	RECORD+29
>> PSUVPNDA	PROCESS+23*
>> X	DRUGSCAN+5, DRUGSCAN+6, RECORD+6, RECORD+14, RECORD+15, RECORD+16, RECORD+17, RECORD+18, RECORD+19, RECORD+20 , RECORD+21, RECORD+22, RECORD+23, RECORD+24, RECORD+26, RECORD+27, PROCESS+6*, PROCESS+7

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUAR2

Call Graph Total: 3

Caller Graph Total: 2