Routine: PSOCPE

Package	Total	Call Graph
VA Fileman	6	^DIC ^DIE EN^DIQ1 ^DIR ^DIWP ^DIWW
MailMan	1	^XMD
Outpatient Pharmacy	1	^PSOLSET
Registration	1	(DEM,ELIG,PID)^VADPT

Package	Total	Caller Graph
Outpatient Pharmacy	4	PSOCP PSOCP EXEMPTION PSOLBL PSOLBL2
IHS Changes To Pharmacy	1	APSPLBL2

Entry Points

Name	Comments	DBIA/ICR reference
MAIL2	; SEND MAIL TO PHARMACIST, PROVIDER, AND HOLDERS OF PSO COPAY KEY
ELIG
RELHNC	;Is this Rx related to treatment of Head and/or Neck Cancer?;6
XMPT	; Entry point for menu option to select copay exemption
NAR	; Print narrative from site parameter file
WARNX
DRUG
PRT	;
RELSC	;Is this Rx for a Service Connected Condition?;1
P1
END	;
WARN	;
RELMST	;Is this Rx related to the treatment of Military Sexual Trauma?;2
QUIT
RELCV	;Is this Rx potentially for treatment related to Combat?;7
RELEC	;Is this Rx for treatment related to service in SW Asia?;5
INV	; Entry point from PSOCP - Prints one copay invoice
RELSHAD	;Is this Rx related to treatment of PROJ 112/SHAD?;8
RELAO	;Is this Rx for treatment of Vietnam-Era Herbicide (Agent Orange) exposure?;3
RELIR	;Is this Rx for treatment of Ionizing Radiation exposure?;4
MAIL	;
PAGE	;

External References

Name	Field # of Occurrence
^DIC	XMPT+3
^DIE	XMPT+8
EN^DIQ1	MAIL+2
^DIR	PAGE+1, WARN+6
^DIWP	NAR+4
^DIWW	P1
^PSOLSET	XMPT+2
DEM^VADPT	INV+4
ELIG^VADPT	ELIG
PID^VADPT	MAIL2+6
^XMD	MAIL+9, MAIL2+58

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ?54,"PRESCRIPTION COPAYMENT INFORMATION" Line Location: INV+5
Function Call: WRITE	Prompt: !!,?54,VADM(1)," ",VA("PID")," ",EDT Line Location: INV+6
Function Call: WRITE	Prompt: !,?54,@PSOBAR1,PSOCPBN,@PSOBAR0 Line Location: INV+9
Function Call: WRITE	Prompt: ! Line Location: INV+10
Function Call: WRITE	Prompt: !,?54,"The following prescriptions are" Line Location: INV+11
Function Call: WRITE	Prompt: !,?54,"eligible for prescription copayment.",!! Line Location: INV+12
Function Call: WRITE	Prompt: ! Line Location: NAR+1
Function Call: WRITE	Prompt: @IOF Line Location: END+1
Function Call: WRITE	Prompt: ?54,PSZ2 Line Location: PRT+1
Function Call: WRITE	Prompt: ?72," ",$P(^TMP($J,"PSOCP",PSOCPN,PSZ2),"^",3)," ","Days Supply",! Line Location: PRT+2
Function Call: WRITE	Prompt: ?56,$E($P(^TMP($J,"PSOCP",PSOCPN,PSZ2),U,2),1,45),! Line Location: PRT+3
Function Call: WRITE	Prompt: ! Line Location: XMPT+3
Function Call: WRITE	Prompt: !!,PSORXPNM_" is locked by another user. Try Later!" Line Location: XMPT+7
Function Call: WRITE	Prompt: ! Line Location: XMPT+7
Function Call: WRITE	Prompt: ! Line Location: XMPT+8
Function Call: WRITE	Prompt: !!,"All Rx's entered with this Rx Patient Status will be EXEMPT from Copayment.",! Line Location: XMPT+9
Function Call: WRITE	Prompt: !!,"All Rx's entered with this Rx Patient Status will NOT be exempt from Copayment.",! Line Location: XMPT+10
Function Call: WRITE	Prompt: !!?28,"** WARNING **",! Line Location: WARN+2
Function Call: WRITE	Prompt: !,"By setting the Exempt from Copayment for the Rx Patient Status of",!,PSORXPNM," to 'YES', every prescription entered",!,"with this Rx Patient Status will NOT be charged a Copayment.",! Line Location: WARN+3
Function Call: WRITE	Prompt: !,"By setting the EXEMPT FROM COPAYMENT for the Rx Patient Status of ",!,PSORXPNM," to 'NO', prescriptions entered with this Rx",!,"Patient Status from this point on will NOT be exempt from Copayment.",! Line Location: WARN+4
Function Call: WRITE	Prompt: !,"A mail message will be sent to PSORPH and PSO COPAY Key holders informing",!,"them of your change." Line Location: WARN+5
Function Call: WRITE	Prompt: ! Line Location: WARN+6
Function Call: WRITE	Prompt: !!,"Setting ",PSORXPNM," Rx Patient Status to Exempt from Copayment." Line Location: WARN+8
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: WARN+10
Function Call: WRITE	Prompt: !!,"No action taken." Line Location: WARN+11
Function Call: WRITE	Prompt: ! Line Location: WARNX+0
Routine Call	DIE Line Location: XMPT+8
Routine Call	DIC Line Location: XMPT+3
Routine Call	DIR Line Location: PAGE+1 WARN+6

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^PS(53 - [#53]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	INV+4
^DD("DILOCKTM"	XMPT+7
^DIC(31 - [#31]	ELIG+5
^DPT - [#2]	MAIL2+8, ELIG+4
^PS(53 - [#53]	XMPT+5, XMPT+6, XMPT+7, XMPT+9, XMPT+10, XMPT+11, WARN+10, WARN+11
^PS(59 - [#59]	NAR+2, NAR+3, NAR+4, MAIL2+7
^PSDRUG - [#50]	MAIL2+14
^PSRX - [#52]	MAIL2+6, MAIL2+7, MAIL2+8, MAIL2+10, MAIL2+12, MAIL2+53, MAIL2+54, MAIL2+55
^TMP($J	DRUG, END+2!, PRT+2, PRT+3
^UTILITY($J	NAR+1!
^XUSEC("PSO COPAY"	MAIL+7, MAIL2+56
^XUSEC("PSORPH"	MAIL+6

Label References

Name	Line Occurrences
ELIG	MAIL2+9
END	NAR+2, NAR+3
MAIL	WARN+7
P1	NAR+4
PAGE	XMPT+7, XMPT+9, XMPT+10, WARNX
PRT	DRUG
QUIT	XMPT+3, XMPT+4, XMPT+7, XMPT+9, XMPT+10
WARN	XMPT+11
WARNX	WARN+7
XMPT	XMPT+2

Naked Globals

Name	Field # of Occurrence
^(	DRUG
^(0	NAR+4, ELIG+4, ELIG+5

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
C	QUIT!
DA	XMPT+7, XMPT+9, XMPT+10, XMPT+11, QUIT!, WARN+1, WARNX+1, MAIL+2*
>> DFN	MAIL2+6*, ELIG+4
DIC	XMPT+3!, QUIT!, MAIL+2!
DIC(0	XMPT+3*
DIE	XMPT+3*, QUIT!
DIQ	MAIL+2*!
DIQ(0	MAIL+2*
DIR	PAGE+1!, WARN+6!
DIR("A"	PAGE+1, WARN+6
DIR("B"	WARN+6*
DIR(0	PAGE+1, WARN+6
DIWF	NAR+1*, P1+1!, END+2!
DIWL	NAR+1*, P1+1!, END+2!
DIWR	NAR+1*, P1+1!, END+2!
DR	XMPT+7, QUIT!, MAIL+2!
>> DRG	MAIL2+12*, MAIL2+14
DT	INV+4
>> DTOUT	XMPT+4
DUZ	MAIL+2, MAIL+8
DUZ("AUTO"	PAGE+1
>> EDT	INV+4*, INV+6
>> EXMT	MAIL2+26*, MAIL2+27, MAIL2+28
I	ELIG+1~, ELIG+4*
I1	ELIG+1~, ELIG+4*, ELIG+5, ELIG+6, ELIG+7
IOF	END+1
N	ELIG+1~, ELIG+2*
PSCNT	ELIG+1~, ELIG+5*, ELIG+6, ELIG+7
PSDIS	ELIG+1~, ELIG+5*, ELIG+6, ELIG+7
PSO9	NAR+4*, P1+1!, END+2!
>> PSOBAR0	INV+9
>> PSOBAR1	INV+9
>> PSOBARS	INV+3
PSOC	MAIL2+1~, MAIL2+10, MAIL2+11, MAIL2+13, MAIL2+14, MAIL2+15, MAIL2+16, MAIL2+17, MAIL2+18, MAIL2+19* , MAIL2+20, MAIL2+21, MAIL2+22, MAIL2+23, MAIL2+24, MAIL2+25, MAIL2+30, MAIL2+32, MAIL2+33, MAIL2+34* , MAIL2+35, MAIL2+36, MAIL2+37, MAIL2+38, MAIL2+39, MAIL2+40, MAIL2+41, MAIL2+42, MAIL2+43, MAIL2+44 , MAIL2+45, MAIL2+46, MAIL2+47, MAIL2+48, MAIL2+49, MAIL2+50, MAIL2+51, MAIL2+58!, ELIG, ELIG+2* , ELIG+3, ELIG+6, ELIG+7, ELIG+8*
PSOCFN	MAIL+1!, MAIL+2*, MAIL+3, MAIL+4, MAIL+10!
PSOCPBAR	INV+2, INV+3, INV+9, END+2!
PSOCPBN	INV+7*, INV+9, END+2!
PSOCPEDA	XMPT+1~, WARN+1*, WARN+10, WARN+11, WARNX+1!
PSOCPN	INV+1, DRUG, END+2!, PRT+2, PRT+3
PSOCXPDA	MAIL+6, MAIL+7, MAIL+10!, MAIL2+56*, MAIL2+58!
PSODCPA	MAIL+1!, MAIL+2!
PSODCPA(200	MAIL+2
PSODIV	MAIL2+7*, MAIL2+8, MAIL2+58!
PSOLTAG	MAIL2+28*, MAIL2+58!
>> PSOPAR	XMPT+2
PSOQUES	MAIL2+29, MAIL2+30, MAIL2+31, MAIL2+58!
>> PSOREF	MAIL2+10, MAIL2+53, MAIL2+54
PSORXPNM	XMPT+1~, XMPT+6*, XMPT+7, WARN+3, WARN+4, WARN+8, WARN+9, MAIL+3, MAIL+4
PSORXPRE	XMPT+1~, XMPT+5*, XMPT+9, XMPT+10, QUIT!, WARN+3, WARN+4, WARN+8, WARN+10, WARN+11 , MAIL+3, MAIL+4, MAIL+5
>> PSOSITE	NAR+2, NAR+3, NAR+4
PSOTG	MAIL2+58!
PSOTG(	MAIL2+26, MAIL2+27
PSOTXT	MAIL+1!, MAIL+10!, MAIL2+1~
PSOTXT(	MAIL2+10, MAIL2+14, MAIL2+16, MAIL2+18, MAIL2+20, MAIL2+22, MAIL2+24, MAIL2+30, MAIL2+32, MAIL2+33 , MAIL2+34, MAIL2+35, MAIL2+36, MAIL2+37, MAIL2+38, MAIL2+39, MAIL2+40, MAIL2+41, MAIL2+42, MAIL2+43 , MAIL2+44, MAIL2+45, MAIL2+46, MAIL2+47, MAIL2+48, MAIL2+49, MAIL2+50, MAIL2+51, ELIG, ELIG+2 , ELIG+3, ELIG+6, ELIG+7, ELIG+8
PSOTXT(1	MAIL+3, MAIL+4, MAIL2+5*
PSOTXT(2	MAIL+3, MAIL+4, MAIL2+8*
PSOTXT(3	MAIL+3, MAIL+4
PSOTXT(4	MAIL+5*
>> PSZ	DRUG*
PSZ1	INV+7*, END+2!
PSZ2	INV+7, DRUG, END+2!, PRT+1, PRT+2, PRT+3
>> RXP	INV+1, MAIL2+6, MAIL2+7, MAIL2+8, MAIL2+10, MAIL2+12, MAIL2+53, MAIL2+54, MAIL2+55
U	PRT+3
>> VA("BID"	MAIL2+8
>> VA("PID"	INV+6
>> VADM(1	INV+6
>> VADM(2	INV+7
>> VAEL(1	ELIG, ELIG+2
>> VAEL(3	ELIG
X	INV+9, NAR+4, QUIT!, MAIL2+1~
>> X2	INV+9*
XMDUZ	MAIL+9, MAIL+10!, MAIL2+4, MAIL2+58!
XMSUB	MAIL+9, MAIL+10!, MAIL2+3, MAIL2+7*, MAIL2+58!
XMTEXT	MAIL+9, MAIL+10!, MAIL2+57, MAIL2+58!
XMY	MAIL+10!, MAIL2+2!, MAIL2+58!
XMY(	MAIL+6, MAIL+7, MAIL+8, MAIL2+53, MAIL2+54, MAIL2+55, MAIL2+56*
Y	INV+4*, XMPT+3, XMPT+5, XMPT+6, XMPT+7, QUIT!, WARN+7

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPE

Information

Source Information

Call Graph

Call Graph Total: 9

Caller Graph

Caller Graph Total: 5

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend:

Marked Items