Routine: PSUOP2

Information

PSUOP2 ;BIR/CFL - PSU PBM Outpatient Pharmacy Data Collection for Version 7.0 ; 7/11/06 4:21pm

Source Information

Source file <PSUOP2.m>

Call Graph

Call Graph Total: 8

Package	Total	Call Graph
Pharmacy Benefits Management	4	(GETDRUG,PROVDR,SETREC)^PSUOP3 EN^PSUOPAM ($$VALI,GETS,MOVEI)^PSUTL $$TESTPAT^PSUTL1
VA Fileman	2	C^%DTC $$GET1^DIQ
Outpatient Pharmacy	1	EN^PSOORDER
Registration	1	PID^VADPT

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Pharmacy Benefits Management	1	PSUOP0

Entry Points

Name	Comments	DBIA/ICR reference
COMVARQ
PAR	; Partials
EN	;Entry to data collection
PARQ
REFQ
CMOPAQ
RTSTOCK	; test for "AR" if none then unmark CMOP ; needs PSURXIEN, PSUFIL, from CMOPA
CMOPA	; set array of CMOP recs
COMVAR	; set variables that are common between all record types
NEWX2	;I PSUCMOP="N",((PSUFD<PSUSDT)!(PSUFD\1>PSUEDT)) Q
NEWX1	;I PSUCMOP="Y" Q:((PSURELDT="")!(PSURELDT<PSUSDT)!(PSURELDT>PSUEDTM))
ALLOOP	;Loop through the AL cross refererence
NEW	; New Rx
NEWQ
REF	; Refills
PIECE(%,REC,DLM)	;Piece % from record REC using delimiter DLM ; %="VARNAME^PIECE",REC=SOURCE,DLM=DELIMITER in REC
AMLOOP	; loop through "AM", partials, cross reference to see if any were missed

External References

Name	Field # of Occurrence
C^%DTC	AMLOOP+2
$$GET1^DIQ	ALLOOP+8
EN^PSOORDER	ALLOOP+17, AMLOOP+16
GETDRUG^PSUOP3	COMVAR+9
PROVDR^PSUOP3	NEWX2+13, REF+30, PAR+27
SETREC^PSUOP3	NEWX2+14, REF+31, PAR+28
EN^PSUOPAM	ALLOOP+19, AMLOOP+17
$$VALI^PSUTL	REF+27, PAR+24
GETS^PSUTL	ALLOOP+9, AMLOOP+9
MOVEI^PSUTL	ALLOOP+10, AMLOOP+10
$$TESTPAT^PSUTL1	ALLOOP+13, AMLOOP+13
PID^VADPT	ALLOOP+14, AMLOOP+14

FileNo	Call Tags
^PSRX - [#52]	GET1^DIQ

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	ALLOOP+7, AMLOOP+8
^PSRX("AL"	ALLOOP+3, ALLOOP+5
^PSRX("AM"	AMLOOP+4, AMLOOP+6
^PSRX("AR"	RTSTOCK+6, RTSTOCK+11
^TMP("PSOR"	EN+2!, ALLOOP+18, NEW+1, NEW+5, NEWX2+1, REF+1, REF+4, REF+7, REF+9, PAR+1 , PAR+4, PAR+5, PAR+7, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5, COMVAR+7, COMVAR+8, CMOPA+4 , CMOPA+5, RTSTOCK+4, RTSTOCK+9
^XTMP(	ALLOOP+6, AMLOOP+7

Name	Line Occurrences
ALLOOP	EN+1
AMLOOP	EN+1
CMOPA	ALLOOP+20
COMVAR	NEW+2, REF+2, PAR+2
NEW	ALLOOP+21
PAR	ALLOOP+23, AMLOOP+18
PIECE	CMOPA+6, RTSTOCK+5, RTSTOCK+10
REF	ALLOOP+22
RTSTOCK	CMOPA+9

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	AMLOOP+2!, PIECE~, PIECE+2
%H	AMLOOP+2!
%T	AMLOOP+2!
>> DFN	ALLOOP+11, ALLOOP+13, ALLOOP+17, AMLOOP+11, AMLOOP+13, AMLOOP+16
DLM	PIECE~, PIECE+2
I	PIECE+2~*
PSUCAN	ALLOOP+1~, ALLOOP+8*
PSUCL	ALLOOP+1~
PSUCLN	REF+8~, REF+10, PAR+6~, PAR+8, COMVAR+7*
PSUCMA	CMOPA+1!
PSUCMA(	REF+6, REF+26, CMOPA+7*, CMOPA+8!, CMOPA+9, RTSTOCK+7!, RTSTOCK+12!
PSUCMA(0	NEW+4, NEWX2+11
>> PSUCMOP	NEW+4, NEWX2+11, REF+6, REF+26, PAR+10*
PSUCMP	ALLOOP+1~
PSUCO	ALLOOP+1~
>> PSUDIVP	NEWX2+8, REF+20, PAR+20*
PSUDOC1	ALLOOP+1~
>> PSUDR	COMVAR+1*
>> PSUDRCT	NEW+11, REF+16, PAR+17*
>> PSUDRUG(31	NEWX2+12, REF+28, PAR+25
>> PSUDS	NEW+10, REF+15, PAR+16*
>> PSUEDT	ALLOOP+2, AMLOOP+3
>> PSUEDTM	ALLOOP+2, ALLOOP+3, AMLOOP+3, AMLOOP+4, NEW+13, REF+18, PAR+23
>> PSUFD	NEW+1, REF+12, PAR+12*
>> PSUFDT	ALLOOP+2, ALLOOP+3, ALLOOP+5, AMLOOP+3, AMLOOP+4, AMLOOP+6
PSUFIL	CMOPA+2~, CMOPA+7, CMOPA+8, CMOPA+9, RTSTOCK+3, RTSTOCK+4, RTSTOCK+6, RTSTOCK+7, RTSTOCK+11, RTSTOCK+12
>> PSUFLN	REF+3, REF+4, REF+6, REF+7, REF+26, PAR+3, PAR+4, PAR+5
PSUFP	ALLOOP+1~, COMVAR+8*
>> PSUMW	NEWX2+7, REF+19, PAR+19*
PSUNDC	NEWX2+10, NEWX2+11, NEWX2+12, REF+25, REF+26, REF+27, REF+28, PAR+24, PAR+25*, CMOPA+2~ , CMOPA+7
>> PSUOP(2	ALLOOP+11, AMLOOP+11
>> PSUOP(27	NEWX2+12
>> PSUOPSUB	ALLOOP+6, AMLOOP+7
PSUORDT	ALLOOP+1~, NEW+6*
>> PSUPDT	PAR+21*
>> PSUPRID	NEWX2+5, REF+13, PAR+14*
PSUPSO	ALLOOP+16~*
>> PSUQTY	NEW+7, REF+14, PAR+15*
PSUR0	NEW+5, NEW+6, NEW+7, NEW+10, NEW+11, NEW+12, NEW+14, REF+7, REF+12, REF+13 , REF+14, REF+15, REF+16, REF+17, REF+19, REF+20, REF+21, PAR+5, PAR+12, PAR+14 , PAR+15, PAR+16, PAR+17, PAR+18, PAR+19, PAR+20, PAR+21, RTSTOCK+2~, RTSTOCK+4, RTSTOCK+5 , RTSTOCK+9*, RTSTOCK+10
PSUR1	NEWX2+1, NEWX2+5, NEWX2+6, NEWX2+7, NEWX2+8, REF+8~, REF+9, REF+10, PAR+6~, PAR+7* , PAR+8, CMOPA+2~, CMOPA+5*, CMOPA+6
>> PSUREDT	REF+21*
PSURELDT	NEW+12, NEW+13, REF+17, REF+18, REF+22, PAR+18, PAR+22*, PAR+23, RTSTOCK+2~, RTSTOCK+6 , RTSTOCK+11
PSURTSDT	RTSTOCK+2~
>> PSURXIEN	ALLOOP+4, ALLOOP+5, ALLOOP+6, ALLOOP+7, ALLOOP+8, ALLOOP+9, ALLOOP+17, AMLOOP+5, AMLOOP+6, AMLOOP+7 , AMLOOP+8, AMLOOP+9, AMLOOP+16, NEW+1, NEW+5, NEWX2+1, REF+1, REF+4, REF+7, REF+9 , REF+27, PAR+1, PAR+4, PAR+5, PAR+7, PAR+24, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5 , COMVAR+7, COMVAR+8, CMOPA+4, CMOPA+5, RTSTOCK+4, RTSTOCK+6, RTSTOCK+9, RTSTOCK+11
>> PSURXN	COMVAR+5*
>> PSURXP	NEWX2+6, COMVAR+4
>> PSUSDT	ALLOOP+2, AMLOOP+1, AMLOOP+3, NEW+13, REF+18, PAR+23
>> PSUSIG	COMVAR+3*
>> PSUSSN	ALLOOP+15, AMLOOP+15
PSUST	CMOPA+2~, CMOPA+7, CMOPA+8
>> PSUTYP	NEW+3, REF+5, PAR+9*
>> PSUWPC	NEW+14, REF+11, PAR+11*
PSUX	CMOPA+2~, CMOPA+3, CMOPA+4, CMOPA+5
REC	PIECE~, PIECE+2
U	NEW+1, NEW+6, NEW+7, NEW+10, NEW+11, NEW+12, NEW+14, NEWX2+5, NEWX2+6, NEWX2+7 , NEWX2+8, REF+10, REF+12, REF+13, REF+14, REF+15, REF+16, REF+17, REF+19, REF+20 , REF+21, PAR+8, PAR+12, PAR+14, PAR+15, PAR+16, PAR+17, PAR+18, PAR+19, PAR+20 , PAR+21, COMVAR+1, COMVAR+3, COMVAR+4, COMVAR+5, COMVAR+7, COMVAR+8, CMOPA+6, RTSTOCK+5, RTSTOCK+10 , PIECE+2
>> VA("PID"	ALLOOP+15, AMLOOP+15
>> X	CMOPA+6, RTSTOCK+5, RTSTOCK+10*
>> X1	AMLOOP+1*
>> X2	AMLOOP+1*
Y	PIECE+2~*

Customize PDF page

Package: Pharmacy Benefits Management

Routine: PSUOP2

Information

Source Information

Call Graph

Call Graph Total: 8

Caller Graph

Caller Graph Total: 1

Entry Points

External References

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: