Routine: PSOCPB

Information

PSOCPB ;BIR/BaB - pharmacy co-pay application cont'd ;1/30/07 9:08am

Source Information

Source file <PSOCPB.m>

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Outpatient Pharmacy	7	ACTLOG^PSOCPA (EXEMCHK,SETSUMM)^PSOCPC ASKCAN^PSOCPD ICN^PSODPT ^PSOLSET ($$LF,CHRG,PFS,PFSA)^PSOPFSU1 SCP^PSORN52D
Integrated Billing	2	($$STATUS,CANCEL,CANIBAM,STATUS,XTYPE)^IBARX $$SWSTAT^IBBAPI
VA Fileman	2	^DIC ^DIR
Registration	1	FULL^VALM1
Scheduling	1	DIS^SDROUT2

Caller Graph

Caller Graph Total: 7

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

Entry Points

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

External References

Name	Field # of Occurrence
^DIC	RESET+3, RESET+15, RESET+23, BILL2+3
^DIR	ASK+12, ASK+16, 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
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
$$LF^PSOPFSU1	RESET+9
CHRG^PSOPFSU1	ASKCAN+3
PFS^PSOPFSU1	BILL2+6
PFSA^PSOPFSU1	RESET+9
SCP^PSORN52D	COPAY+4
DIS^SDROUT2	COPAY+10
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+16
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	Prompt: "ENTER a REASON now? (Y/N) " Formatting: ! Timeout: DTIME Variable: X 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+12 ASK+16 RESET+13 RESET+21

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*

Label References

Name	Line Occurrences
ASKCAN	RESET+12, RESET+20
BILL2	ENDMSG+3
BILL2END	BILL2+6, BILL2+9
COPAY2	COPAY+6, ASK+16
CP	CP+3
CP1	CP+1
ENDMSG	BILL2+3, ENDMSG+2
EXIT	ASK+20
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

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

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
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
>> 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+16!, EXIT+2!, RESET+13!, RESET+21!
DIR("?"	ASK+7*
DIR("A"	ASK+6, ASK+16, RESET+13, RESET+21
DIR("B"	ASK+8, ASK+9, ASK+10, ASK+11!, RESET+13, RESET+21
DIR(0	ASK+6, ASK+16, RESET+13, RESET+21
DIRUT	ASK+3!, EXIT+2!
DTIME	ENDMSG+1
DTOUT	ASK+3!, ASK+14, EXIT+2!
DUOUT	ASK+3!, ASK+14, 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+13, ASK+19
>> PSOANSQD("SC"	ASK+9, ASK+13*
PSOANSR	ASK+16*, ASK+21, 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
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+16, ASK+21, COPAY2+2, COPAY2+4, EXIT+1, SETCP+4, CP+2, CP1+1 , CP1+2
>> PSOCPZ("DFLG"	ASK+2!, ASK+14*, ASK+20
PSODA	RESET+3*, RESET+4, RESET+5, RESET+6, RESET+7, RESET+9, RESET+11, RESET+12, RESET+18, RESET+20 , RESET+26, ASKCAN+3, 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+18
>> PSOFLAG	ASK+9, ASK+13, ASK+14, ASK+16, ASK+20
>> PSOIBQ	RESET+11*, RESET+12
PSOLFIL	RESET+1!, RESET+9*, ASKCAN+3
>> PSOMESFI	COPAY+9*
>> PSOMESOI	COPAY+8*
>> PSONEW("NEWCOPAY"	ASK+2!, COPAY2+4*
>> PSONEWFF	ASK+9, ASK+13
>> 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~*, COPAY2+4, RESET+1!, ASKCAN+3, BILL2+6
PSOPFSA	RESET+1!, ASKCAN+3
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+8
PSORSN	RESET+15, RESET+23, RESETE!, EXT!, BILL2+3*, BILL2+11, POTBILL2+4, REFILL+2, REFILL+3, REFILL+4 , PREVCAN+2
>> PSORX(	ASK+8
>> PSORX("SC"	ASK+4, ASK+5, ASK+8
>> 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+5*
>> PSOSCP	COPAY+4, ASK+5, ASK+18
PSOSUMM	RESET+1!, ASKCAN+1, PRTSUMM+1, PRTSUMM+5!
PSOSUMM(	PRTSUMM+4
PSOUFLAG	ASK+1~, ASK+10, ASK+16, ASK+17, ASK+19
SAVX	BILL2+5*, BILL2END!, POTBILL2+2
X	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+13, ASK+14, ASK+15, ASK+16, 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

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPB

Information

Source Information

Call Graph

Call Graph Total: 13

Caller Graph

Caller Graph Total: 7

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