Routine: PSUAR0

Information

PSUAR0 ; BIR/PDW - Master Routine for AR/WS PBMS Extraction ;25 AUG 1998

Source file <PSUAR0.m>

Package	Total	Call Graph
Pharmacy Benefits Management	7	EN^PSUAR1 EN^PSUAR2 EN^PSUAR3 EN^PSUAR4 EN^PSUAR5 EN^PSUAR6 VARKILL^PSUTL
VA FileMan	1	C^%DTC

Name	Comments	DBIA/ICR reference
EN	; EP ENTRY FROM PSUCP
PULL	; pull variables from ^XTMP
COMPUTE	;EP for Compute Cycle of AR/WS Extract
PRINT	;EP for Print Cycle
EXIT	;EP for Cleaning up & Restoring variables

Name	Line Occurrences (* Changed, ! Killed)
^XTMP(	COMPUTE+3!, COMPUTE+5, COMPUTE+10, COMPUTE+16, COMPUTE+17, EXIT+1, EXIT+2!
^XTMP("PSU_"	PULL+4, PULL+8

Name	Field # of Occurrence
AMISAR	COMPUTE+20!
DT	COMPUTE+4, COMPUTE+5
>> I	PULL+4, PULL+8, COMPUTE+9*
PSUAMIS	COMPUTE+20!
PSUAR	COMPUTE+20!
>> PSUARJOB	COMPUTE+1*, COMPUTE+2, EXIT+2
>> PSUARM	COMPUTE+14, COMPUTE+16, COMPUTE+17
>> PSUARSUB	COMPUTE+2*, COMPUTE+3, COMPUTE+5, COMPUTE+10, EXIT+1
>> PSUJOB	PULL+2, PULL+4, PULL+6, PULL+8, COMPUTE+1, COMPUTE+15
>> PSUMASF	COMPUTE+16
>> PSUPBMG	COMPUTE+17
>> PSUSUB	COMPUTE+15*, COMPUTE+16, COMPUTE+17
>> PSUVARS	PULL+3, PULL+4, PULL+7, PULL+8
U	PULL+4, PULL+8, COMPUTE+5
>> X	COMPUTE+5, COMPUTE+8*, COMPUTE+9, COMPUTE+10
>> X(	COMPUTE+9*
>> X1	COMPUTE+4*
>> X2	COMPUTE+4*
>> Y	COMPUTE+9, EXIT+6
Z	EXIT+1*, EXIT+7!
Z(	EXIT+6