Routine: PSOCPB

Package	Total	Call Graph
Outpatient Pharmacy	8	ACTLOG^PSOCPA (EXEMCHK,SETSUMM)^PSOCPC ASKCAN^PSOCPD ICN^PSODPT ^PSOLSET (CHKPAG,DISSCD)^PSOMLLD2 ($$LF,PFS,PFSA)^PSOPFSU1 SCP^PSORN52D
VA FileMan	3	NOW^%DTC ^DIC ^DIR
Integrated Billing	2	($$STATUS,CANCEL,CANIBAM,STATUS,XTYPE)^IBARX $$SWSTAT^IBBAPI
List Manager	1	FULL^VALM1
National Drug File	1	$$CPTIER^PSNAPIS

Package	Total	Caller Graph
Outpatient Pharmacy	8	PSOCP RESET COPAY STATUS PSOCPD PSOCPF1 PSONEW2 PSONEWF PSONEWG PSOPFSU1 PSORN52

Entry Points

Name	Comments	DBIA/ICR reference
COPAY	;
ASK	;
COPAY2	;
COPAY21
EXIT	;
RESET	;RESET COPAY STATUS
ASKCAN
RESETE
EXT
BILLED	;Collect IB nums,cancel chrgs,reset flag.
BILL2	;
BILL2END
POTBILL2	;see if any potential charges (entries from file 354.71 -- bills that exceeded cap prev) to be cancelled before cancelling regular charges
REFILL
SETCP	;IF NOT COPAY MAKE ELIG CALL/SET FLAG FOR FUTURE
CP	;
CP1
INELIG
ENDMSG
MSG	;
POTMSG	;
MSGNOCAN	;
PRTSUMM	; prt sum of actions in reset/cancel
PREVCAN	; PREVIEW CANCELS IF "ALL" IS SELECTED

External References

Name	Field # of Occurrence
NOW^%DTC	COPAY2+5, COPAY2+12
^DIC	RESET+3, RESET+15, RESET+23, BILL2+3
^DIR	ASK+13, ASK+17, RESET+13, RESET+21
$$STATUS^IBARX	PREVCAN+3
CANCEL^IBARX	BILL2+12
CANIBAM^IBARX	POTBILL2+3, POTBILL2+7
STATUS^IBARX	PREVCAN+3
XTYPE^IBARX	SETCP+2
$$SWSTAT^IBBAPI	COPAY2+1
$$CPTIER^PSNAPIS	COPAY2+12
ACTLOG^PSOCPA	RESET+16, RESET+24, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, CP1+5
EXEMCHK^PSOCPC	RESET+10
SETSUMM^PSOCPC	RESET+17, RESET+25, ASKCAN+1, MSG+2, MSG+4, POTMSG+4, MSGNOCAN+2
ASKCAN^PSOCPD	ASKCAN
ICN^PSODPT	RESET+5
^PSOLSET	RESET+2
CHKPAG^PSOMLLD2	COPAY+10
DISSCD^PSOMLLD2	COPAY+10
$$LF^PSOPFSU1	RESET+9
PFS^PSOPFSU1	BILL2+6
PFSA^PSOPFSU1	RESET+9
SCP^PSORN52D	COPAY+4
FULL^VALM1	COPAY+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! Line Location: COPAY+8
Function Call: WRITE	Prompt: !!,"The Pharmacy Orderable Item has changed for this order. Please review any",!,"existing SC or Environmental Indicator defaults carefully for appropriateness.",! Line Location: COPAY+9
Function Call: WRITE	Prompt: ! Line Location: ASK+3
Function Call: WRITE	Prompt: ! Line Location: ASK+17
Function Call: WRITE	Prompt: ! Line Location: RESET+3
Function Call: WRITE	Prompt: !,?17,"PATIENT: ",$P($G(^DPT($P(^PSRX(PSODA,0),"^",2),0)),"^") Line Location: RESET+4
Function Call: WRITE	Prompt: !!,"Rx # ",PSORXN," is a ",$S(+PCOPAY:"Copay",1:"No Copay")," prescription" Line Location: RESET+8
Function Call: WRITE	Prompt: !!,"********Charges are on file for this Rx.********" Line Location: BILLED+1
Function Call: WRITE	Prompt: ! Line Location: SETCP+1
Function Call: WRITE	Prompt: !!,"Error in processing Copay eligibility, no action taken." Line Location: SETCP+3
Function Call: WRITE	Prompt: !,"COPAY status on this Rx has been reset.",!,"*** Future refills will be classified as COPAY." Line Location: CP1+3
Function Call: WRITE	Prompt: !,"This Rx does not meet patient eligibility requirement for Copay.",!,"**** Status unchanged *****" Line Location: INELIG+0
Function Call: WRITE	Prompt: !,"Unable to process CHARGE REMOVAL without REASON for Reset." Line Location: ENDMSG+0
Function Call: READ	Formatting: ! Prompt: "ENTER a REASON now? (Y/N) " Variable: X Timeout: DTIME Line Location: ENDMSG+1
Function Call: WRITE	Prompt: !,"Enter YES to select REASON and RESET STATUS." Line Location: ENDMSG+2
Function Call: WRITE	Prompt: ! Line Location: PRTSUMM+2
Function Call: WRITE	Prompt: !,PSOSUMM(PSI) Line Location: PRTSUMM+4
Routine Call	DIC Line Location: RESET+3 RESET+15 RESET+23 BILL2+3
Routine Call	DIR Line Location: ASK+13 ASK+17 RESET+13 RESET+21

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^IBE(350.3 - [#350.3]	Classic Fileman Calls
^PSRX - [#52]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DPT - [#2]	RESET+4
^PSRX - [#52]	RESET+4, RESET+5, RESET+6, RESET+7, RESET+11, RESET+12, RESET+18, RESET+20, RESET+26, BILL2+4 , BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, REFILL+1, REFILL+2, REFILL+3, REFILL+4, SETCP+1, CP1+2*
^XTMP("PSOTIEREFTST"	COPAY2+8

Label References

Name	Line Occurrences
ASKCAN	RESET+12, RESET+20
BILL2	ENDMSG+3
BILL2END	BILL2+6, BILL2+9
COPAY2	COPAY+6, ASK+17
COPAY21	COPAY2+10
CP	CP+3
CP1	CP+1
ENDMSG	BILL2+3, ENDMSG+2
EXIT	ASK+21, COPAY2+13
EXT	RESET+3
INELIG	CP1+1
MSG	BILL2+13, BILL2+16, BILL2+17, PREVCAN+5
MSGNOCAN	PREVCAN+6
POTBILL2	BILL2+8
POTMSG	POTBILL2+8, POTBILL2+9
PREVCAN	BILL2+10
PRTSUMM	ASKCAN+2
RESET	RESET+2, RESETE+1

Naked Globals

Name	Field # of Occurrence
^("IB"	REFILL+3

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	COPAY2+7
ACTYP	SETCP+4, CP+1, CP+2, CP1!
BL	SETCP+4, CP+2, CP1!
>> CANTYPE	BILL2+10, BILL2+11, BILL2+13, BILL2+16, BILL2+17, MSG+2, POTMSG+2
CPDATE	COPAY2+12~*!
>> DFN	COPAY+10*
DIC	RESET+3!, RESET+15!, RESET+23!, BILL2+3!
DIC("A"	RESET+15, RESET+23, BILL2+3*
DIC("S"	RESET+15, RESET+23, BILL2+3*
DIC(0	RESET+3, RESET+15, RESET+23, BILL2+3
DIR	ASK+3!, ASK+17!, EXIT+2!, RESET+13!, RESET+21!
DIR("?"	ASK+8*
DIR("A"	ASK+7, ASK+17, RESET+13, RESET+21
DIR("B"	ASK+9, ASK+10, ASK+11, ASK+12!, RESET+13, RESET+21
DIR(0	ASK+7, ASK+17, RESET+13, RESET+21
DIRUT	ASK+3!, EXIT+2!
DTIME	ENDMSG+1
DTOUT	ASK+3!, ASK+15, EXIT+2!
DUOUT	ASK+3!, ASK+15, EXIT+2!
DUZ	BILL2+4
I	BILL2+11, POTBILL2+1~, POTBILL2+4, CP+2, CP1!, PREVCAN+1~, PREVCAN+2, PREVCAN+3
III	BILL2+7~*
PCOPAY	RESET+7*, RESET+8, RESETE!, EXT!
PREA	RESET+6, RESET+16, RESET+24, RESETE!, EXT!, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, POTBILL2+10! , CP1+4
PSI	RESET+17, RESET+25, ASKCAN+1, RESETE!, MSG+1, POTMSG+1, MSGNOCAN+1, PRTSUMM+3, PRTSUMM+4
>> PSOANSQ("SC"	ASK+14, ASK+20
>> PSOANSQD("SC"	ASK+10, ASK+14*
PSOANSR	ASK+17*, ASK+22, EXIT+2!
PSOBILL	COPAY+6, SETCP+4, CP+2, CP1+1, PREVCAN+1~, PREVCAN+2, PREVCAN+3*
PSOCAN	BILL2+6, BILL2+9, BILL2END!
PSOCAN(	BILL2+7, BILL2+11, POTBILL2+4!, PREVCAN+2, PREVCAN+3
>> PSOCHG	COPAY2+13*
PSOCOMM	RESET+16, RESET+17, RESET+24, RESET+25, ASKCAN+1, RESETE!, POTBILL2+8, POTBILL2+9, POTBILL2+10!, MSG+2! , MSG+3, MSG+5!, POTMSG+3, POTMSG+5!, MSGNOCAN+2*!
PSOCOPAY	EXT!
>> PSOCPAY	COPAY+3, COPAY+5, ASK+17, ASK+22, COPAY21, COPAY21+2, EXIT+1, SETCP+4, CP+2, CP1+1 , CP1+2
PSOCPT	COPAY2+12~*, COPAY2+13
>> PSOCPZ("DFLG"	ASK+2!, ASK+15*, ASK+21
PSODA	RESET+3*, RESET+4, RESET+5, RESET+6, RESET+7, RESET+9, RESET+11, RESET+12, RESET+18, RESET+20 , RESET+26, RESETE!, EXT!, BILL2+4, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, REFILL+1, REFILL+2 , REFILL+3, REFILL+4, SETCP+1, CP1+2
>> PSODFN	COPAY+10
>> PSODRUG("DEA"	COPAY+5, ASK+5, ASK+19
>> PSODRUG("IEN"	COPAY2+12
>> PSOFLAG	ASK+10, ASK+14, ASK+15, ASK+17, ASK+21
>> PSOIBQ	RESET+11*, RESET+12
PSOLFIL	RESET+1!, RESET+9*
>> PSOMESFI	COPAY+9*
>> PSOMESOI	COPAY+8*
>> PSONEW("NEWCOPAY"	ASK+2!, COPAY2+13!, COPAY21+2*
>> PSONEWFF	ASK+10, ASK+14
>> PSONW	RESET+16, RESET+24, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, CP1+4*
>> PSOOLD	RESET+16, RESET+24, BILL2+16, BILL2+17, POTBILL2+8, POTBILL2+9, CP1+4*
>> PSOPAR	RESET+2
>> PSOPAR7	BILL2+4, SETCP+1
PSOPFS	COPAY2+1~*, COPAY21+2, RESET+1!, BILL2+6
PSOPFSA	RESET+1!
PSOPFSG	RESET+1!, BILL2+6, BILL2+7*
PSOPREV	BILL2+1~, BILL2+2, POTBILL2+6, PREVCAN+5
PSOREF	RESETE!, EXT!, BILL2+16, BILL2+17, BILL2END!, POTBILL2+8, POTBILL2+9, POTBILL2+10!, REFILL, REFILL+1 , REFILL+2, REFILL+3, REFILL+4*, MSG+3, POTMSG+3
>> PSORENW("OIRXN"	ASK+9
PSORSN	RESET+15, RESET+23, RESETE!, EXT!, BILL2+3*, BILL2+11, POTBILL2+4, REFILL+2, REFILL+3, REFILL+4 , PREVCAN+2
>> PSORX(	ASK+9
>> PSORX("SC"	ASK+4, ASK+5, ASK+9
>> PSORXED	COPAY+8
PSORXN	RESET+6*, RESET+8, RESETE!, EXT!, BILL2+16, POTBILL2+8, MSG+2, MSG+3, POTMSG+3, MSGNOCAN+2
PSOSAVE	COPAY+3*, EXIT+1, EXIT+2!
>> PSOSCA	COPAY+4, COPAY+6
>> PSOSCOTH	ASK+4, ASK+5
>> PSOSCOTX	ASK+6*
>> PSOSCP	COPAY+4, ASK+5, ASK+19
PSOSUMM	RESET+1!, ASKCAN+1, PRTSUMM+1, PRTSUMM+5!
PSOSUMM(	PRTSUMM+4
PSOTIERE	COPAY2+5~, COPAY2+6, COPAY2+7, COPAY2+8*, COPAY2+10
PSOUFLAG	ASK+1~, ASK+11, ASK+17, ASK+18, ASK+20
SAVX	BILL2+5*, BILL2END!, POTBILL2+2
X	COPAY2+12~!, EXIT+2!, RESETE!, EXT!, BILL2+4, BILL2+5, BILL2END!, POTBILL2+1~, POTBILL2+2, SETCP+1* , ENDMSG!, ENDMSG+1*, ENDMSG+2, ENDMSG+3
X(	BILL2+11, POTBILL2+4, POTBILL2+8!, POTBILL2+9, REFILL+2, REFILL+3, REFILL+4, PREVCAN+2*
X(""	BILL2+10, POTBILL2+5, PREVCAN+4
>> XX(	REFILL+4*
Y	ASK+14, ASK+15, ASK+16, ASK+17, EXIT+2!, RESET+3, RESET+14, RESET+15, RESET+22, RESET+23 , RESETE!, EXT!, BILL2+3, BILL2+14, BILL2+15, BILL2END!, SETCP+3, INELIG+1
Y(	BILL2+16!, BILL2+17, CP+1, CP+2

Marked Items

Name	Field # of Occurrence
$T(CANIBAM^IBARX	POTBILL2+3
$T(STATUS^IBARX	PREVCAN+3

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPB

Information

Source Information

Call Graph

Call Graph Total: 15

Caller Graph

Legends:

Package Component Superscript legend

Caller Graph Total: 8

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