Routine: PSUSUM2

Customize PDF page

Select the objects that you wish to see in the downloaded PDF

Info
Source
Call Graph
Caller Graph
Entry Points
External References
Global Variables Directly Accessed
Label References
Local Variables

Information

PSUSUM2 ;BIR/DAM - Patient Demographics Summary for OP Extract ; 20 DEC 2001

Source Information

Source file <PSUSUM2.m>

Call Graph

Call Graph Total: 6

Package	Total	Call Graph
Pharmacy Benefits Management	3	PULL^PSUCP PDSUM^PSUDEM5 $$VAL^PSUTL
VA Fileman	3	DD^%DT YX^%DTC ^DIC

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUOP0

Entry Points

Name	Comments	DBIA/ICR reference
TOTAL	;Calculate Outpatient Total of all Divisions
NODATA	;Summary report line to be sent if there is no data
EN	;EN CALLED FROM PSUOP0
DIVNUM	;Set number of patients per division into summary message
TAB2	;Tab spacing for line 7. Set line into global
TAB1	;Calculate tab spacing for 'Outpatient Total of all Divisions' line.
RXSUM	;Summary report to be run if Rx (Outpatient) extract is run
TAB	;Calculate tab spacing
ELIM	;Eliminate duplicate patient entries to get number of unique pts
DATE	;Convert date range of extract to external format
UNIQUE	;Find UNIQUE patients across all divisions

Name	Field # of Occurrence
DD^%DT	DATE+7, DATE+11
YX^%DTC	DATE+3
^DIC	DIVNUM+30
PULL^PSUCP	EN+3
PDSUM^PSUDEM5	EN+24, NODATA+5
$$VAL^PSUTL	DIVNUM+31

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	UNIQUE+3
^XTMP("PSU_"	EN+6, EN+9!, EN+14, EN+15, EN+18, EN+19, EN+20, EN+21, EN+25!, EN+26! , EN+27!, EN+28!, EN+29!, EN+30!, EN+31!, RXSUM+4, RXSUM+5, RXSUM+6, RXSUM+7, RXSUM+8* , RXSUM+9, RXSUM+11, TAB2+6, TAB2+9, UNIQUE+3, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQUE+13, UNIQUE+14* , ELIM+3, ELIM+4, DIVNUM+7, DIVNUM+9, DIVNUM+10, DIVNUM+12, DIVNUM+16, DIVNUM+18, DIVNUM+19, DIVNUM+21* , DIVNUM+22, DIVNUM+23, DIVNUM+28, DIVNUM+29, DIVNUM+32, DIVNUM+33, DIVNUM+39, DIVNUM+40, DIVNUM+42, TOTAL+4 , TOTAL+5, TOTAL+7, TAB1+7, TAB1+10, TAB1+11, TAB1+12, TAB1+13, TAB1+14, NODATA+2, NODATA+3 , NODATA+4*

Name	Line Occurrences
DATE	EN+11
DIVNUM	EN+12
ELIM	UNIQUE+16
NODATA	EN+8
RXSUM	DATE+14
TAB	DIVNUM+41
TAB1	EN+16
TAB2	RXSUM+10
TOTAL	EN+13
UNIQUE	RXSUM+2

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %H	DATE+2*
>> C	DIVNUM+6, DIVNUM+20, DIVNUM+21, DIVNUM+23*
>> DIC	DIVNUM+30*
>> DIC(0	DIVNUM+30*
>> I	EN+4, EN+14, EN+15, RXSUM+12, DIVNUM+42, DIVNUM+43, TAB1+10, TAB1+11, TAB1+12, TAB1+13* , TAB1+14
>> M	EN+20, UNIQUE+5, ELIM+4, ELIM+5
>> N	UNIQUE+6, UNIQUE+15
>> PSUADM	ELIM+2, ELIM+3
PSUCT2	DIVNUM+37~, DIVNUM+40*, DIVNUM+42, TAB+3
PSUD	DATE+4~*, RXSUM+4
>> PSUDIV	DIVNUM+26, DIVNUM+28, DIVNUM+29, DIVNUM+30, DIVNUM+33
>> PSUDIVA1	DIVNUM+38, DIVNUM+39, DIVNUM+40, DIVNUM+42, TAB+3
>> PSUDIVNM	DIVNUM+31*, DIVNUM+32, DIVNUM+33
>> PSUDNUM	DIVNUM+5, DIVNUM+7, DIVNUM+9, DIVNUM+10, DIVNUM+12
>> PSUDNUM1	DIVNUM+15, DIVNUM+16, DIVNUM+18, DIVNUM+19, DIVNUM+21, DIVNUM+22, DIVNUM+23
PSUE	DATE+12~*, RXSUM+6
>> PSUEDT	DATE+10
>> PSUID	DIVNUM+17, DIVNUM+18
>> PSUJOB	EN+6, EN+9, EN+14, EN+15, EN+18, EN+19, EN+20, EN+21, EN+25, EN+26 , EN+27, EN+28, EN+29, EN+30, EN+31, RXSUM+4, RXSUM+5, RXSUM+6, RXSUM+7, RXSUM+8 , RXSUM+9, RXSUM+11, TAB2+6, TAB2+9, UNIQUE+3, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQUE+13, UNIQUE+14 , ELIM+3, ELIM+4, DIVNUM+7, DIVNUM+9, DIVNUM+10, DIVNUM+12, DIVNUM+16, DIVNUM+18, DIVNUM+19, DIVNUM+21 , DIVNUM+22, DIVNUM+23, DIVNUM+28, DIVNUM+29, DIVNUM+32, DIVNUM+33, DIVNUM+39, DIVNUM+40, DIVNUM+42, TOTAL+4 , TOTAL+5, TOTAL+7, TAB1+7, TAB1+10, TAB1+11, TAB1+12, TAB1+13, TAB1+14, NODATA+2, NODATA+3 , NODATA+4
>> PSUMOD(	EN+4*
>> PSUMOD(1	EN+7, EN+17, EN+23
>> PSUMOD(2	EN+7, EN+17, EN+23
PSUNBR	DIVNUM+27~, DIVNUM+29*, DIVNUM+32, DIVNUM+33
PSUNIQUE	UNIQUE+2~
>> PSUOPSUB	UNIQUE+3
>> PSUOPTOT	TOTAL+2, TOTAL+4, TOTAL+5
>> PSUOPTS	EN+4
PSUPL	DIVNUM+4~, DIVNUM+8, DIVNUM+9, DIVNUM+10
PSUPTID	DIVNUM+4~, DIVNUM+10*, DIVNUM+11, DIVNUM+12
>> PSURX1	UNIQUE+8, UNIQUE+10, UNIQUE+11, UNIQUE+13
PSURX2	UNIQUE+2~
PSURX5	UNIQUE+2~
PSUS	DATE+8~*, RXSUM+6
>> PSUSDT	DATE+6
PSUSIT	UNIQUE+2~, UNIQUE+7, UNIQUE+9, UNIQUE+10, UNIQUE+11, UNIQUE+13
PSUSOC1	UNIQUE+2~, UNIQUE+13*, UNIQUE+14
>> PSUTB(	TAB2+7, TAB2+8, TAB+4, TAB+5, TAB1+8*, TAB1+9
PSUTB1	DIVNUM+35~, DIVNUM+42, TAB+2, TAB+5
PSUTB2	DIVNUM+35~, TAB+3*, TAB+4
PSUTB3	TAB2+2~, TAB2+4, TAB2+8, TAB2+9, TAB1+3~, TAB1+5, TAB1+9, TAB1+10
PSUTB4	TAB2+2~, TAB2+5, TAB2+6, TAB2+9, TAB1+3~, TAB1+6, TAB1+7, TAB1+10
PSUTB5	TAB2+2~, TAB2+6, TAB2+7, TAB1+3~, TAB1+7, TAB1+8
>> PSUTOCT	TOTAL+5*, TOTAL+6
>> PSUTOCT1	TOTAL+3, TOTAL+6, TOTAL+7
PSUTOTAL	UNIQUE+2~
>> S2	TAB+4*, TAB+5
>> S3	TAB2+7, TAB2+8, TAB1+8, TAB1+9
U	TAB2+6, TAB2+9, UNIQUE+11, UNIQUE+13, ELIM+4, DIVNUM+10, DIVNUM+29, DIVNUM+40, TOTAL+5, TOTAL+7 , TAB1+7, TAB1+10
>> X	DIVNUM+30, DIVNUM+31
>> Y	DATE+4, DATE+6, DATE+8, DATE+10, DATE+12, DIVNUM+31

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUSUM2

Call Graph Total: 6

Caller Graph Total: 1