Routine: PSOCPBK4

Information

PSOCPBK4 ;BIR/GN-Copay Back Bill for Automated-release refills cont. ;10/12/05 9:55am

Source Information

Call Graph

Call Graph Total: 13

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$NOW^XLFDT
Outpatient Pharmacy	4	CP^PSOCP (CHKIB,XTYPE1)^PSOCP1 $$NAMSP^PSOCPBK3 ^PSOLSET
Integrated Billing	3	XTYPE^IBARX $$RXST^IBARXEU $$PTCOV^IBCNSU3
Registration	1	DEM^VADPT
VA Fileman	1	^DIR

Entry Points

Name	Comments	DBIA/ICR reference
QUIT	;
TOTAL	;
END	;
XTYPE	;
START	;
PRTSSN	;
TITLE	;
RX	; Determine Original or Refill for RX
ADDBILL	;add to billable ^XTMP if ok, quit if not
DVC
SITE	; SET UP VARIABLES NEEDED BY BILLING
QUEUE
COPAYREL	; Recheck copay status at release
FULL	;
DONE	;
CP	; Entry point to Check if COPAY - Requires RXP,PSOSITE7
ACCUM	; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
ETIME(SECTIME)	;convert seconds to day:hr:min:sec
BILLIT	; ; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND TALLY
RPT	;

External References

Name	Field # of Occurrence
^%ZIS	DVC
^%ZISC	DONE+2
^%ZTLOAD	QUEUE
^DIR	TITLE+1, END+1
XTYPE^IBARX	XTYPE+6
$$RXST^IBARXEU	ADDBILL+5
$$PTCOV^IBCNSU3	START+27, START+28
CP^PSOCP	BILLIT+18
CHKIB^PSOCP1	RX+8, RX+14
XTYPE1^PSOCP1	COPAYREL+9
$$NAMSP^PSOCPBK3	RPT+2, START+4
^PSOLSET	CP+1
DEM^VADPT	XTYPE+2
$$NOW^XLFDT	BILLIT+7

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,"This report shows the patient name and prescription information for refills" Line Location: RPT+7
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPT+10
Function Call: WRITE	Prompt: !!,"Nothing queued to print.",! Line Location: DVC+0
Function Call: WRITE	Prompt: !,"Report queued to print.",! Line Location: QUEUE+0
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"Patch PSO7217 -COPAY PRESCRIPTION REFILLS "_JOBN Line Location: TITLE+4
Function Call: WRITE	Prompt: !,"Date printed: ",Y,?70,"Page: ",PSOPGCT,! Line Location: TITLE+5
Function Call: WRITE	Prompt: "=" Line Location: TITLE+6
Function Call: WRITE	Prompt: !,?69,"INS ON DTE" Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"PATIENT NAME (SSN) DIV",?43,"RX# (FILL)",?55,"RELEASE DATE",?69,"REL BILL" Line Location: TITLE+8
Function Call: WRITE	Prompt: !,"-------------- ------- ----------------",?42,"------------" Line Location: TITLE+9
Function Call: WRITE	Prompt: ?55,"------------",?69,"---- -----" Line Location: TITLE+10
Function Call: WRITE	Prompt: !!," End of Report " Line Location: END+1
Function Call: WRITE	Prompt: ! Line Location: END+2
Function Call: WRITE	Prompt: @IOF Line Location: END+3
Function Call: WRITE	Prompt: ?16,"("_PSOPATID_")"_" "_PSODIV Line Location: PRTSSN+5
Routine Call	DIR Line Location: TITLE+1 END+1
Routine Call	%ZIS Line Location: DVC

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DD("DD"	START+25, TITLE+5
^DPT - [#2]	ACCUM+21, START+20, PRTSSN+1
^IBAM(354.7	ACCUM+10, ACCUM+11
^PS(53 - [#53]	COPAYREL+3
^PS(59 - [#59]	XTYPE+4, CP+7, SITE+3, SITE+4, PRTSSN+4
^PSDRUG - [#50]	COPAYREL+6
^PSRX - [#52]	ADDBILL+2, ADDBILL+7, ADDBILL+8, ADDBILL+12, ADDBILL+13, ADDBILL+14, BILLIT+11, BILLIT+16, BILLIT+20, CP+3 , CP+4, CP+8, RX+5, RX+8, RX+11, RX+14, RX+17, COPAYREL+3, COPAYREL+6, COPAYREL+9 , COPAYREL+10, SITE+1, START+23, PRTSSN+3
^XTMP(	ADDBILL+18, TOTAL+5, TOTAL+7, BILLIT+5, BILLIT+6, BILLIT+7, BILLIT+9, BILLIT+12, BILLIT+14, ACCUM+6 , ACCUM+15, ACCUM+16, ACCUM+23*, RPT+3, RPT+4, RPT+6, START+5, START+8, START+11, START+13 , START+15, START+17, START+19

Name	Line Occurrences
ACCUM	BILLIT+20, BILLIT+21
COPAYREL	RX+21
CP	BILLIT+21, CP+1
DONE	DVC, QUEUE
END	START+29
FULL	START+20
PRTSSN	START+22
QUIT	RX+9, RX+11, RX+15, RX+17, RX+22, RX+23
SITE	BILLIT+17
TITLE	START+9, FULL+1

Name	Field # of Occurrence
^(	XTYPE+4
^("IB"	XTYPE+4

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%ZIS	DVC!*
%ZSI	QUEUE!
BLDT	START+2~, START+8*, START+28
>> CC	BILLIT+5*, BILLIT+6
CHKXTYPE	COPAYREL+8!
COUNT	TOTAL+1~, TOTAL+7*
COUNTED	TOTAL+1~, TOTAL+6, TOTAL+7
DAY	ETIME+1~, ETIME+2, ETIME+3, ETIME+9
DFN	XTYPE+1~, XTYPE+2*
DIR	TITLE+1!, END+1!, DONE+1!
DIR("A"	END+1*
DIR(0	TITLE+1, END+1
DIRUT	DONE+1!
DRG	COPAYREL+5~, COPAYREL+6*
DRGTYP	COPAYREL+5~, COPAYREL+6*, COPAYREL+7
DT	TITLE+5
DTOUT	DONE+1!
DUOUT	DONE+1!
ETIM	ETIME+1~, ETIME+7, ETIME+9, ETIME+10*, ETIME+11
>> FOUND	ADDBILL+11, ADDBILL+12, ADDBILL+15, ADDBILL+16
HR	ETIME+1~, ETIME+2, ETIME+4, ETIME+8*, ETIME+9
I	XTYPE+1~, XTYPE+8, TOTAL+3~, TOTAL+4, TOTAL+7, TOTAL+8
IO	START+1
IO("Q"	QUEUE, DONE+1!
IOF	TITLE+3, END+3
IOP	DVC!, DONE+1!
IOSL	START+7, FULL+1
IOST	START+6
J	XTYPE+1~, XTYPE+4, XTYPE+8, TOTAL+3~, TOTAL+7*
JOBN	RPT+1~, RPT+3, RPT+5, RPT+8, RPT+9, QUEUE, START+3~, START+5, TITLE+4
MIN	ETIME+1~, ETIME+2, ETIME+5, ETIME+8*, ETIME+9
MJT	TITLE+6*, DONE+1!
NAMSP	ADDBILL+18, TOTAL+5, TOTAL+7, BILLIT+5, BILLIT+6, BILLIT+7, BILLIT+9, BILLIT+12, BILLIT+14, ACCUM+6 , ACCUM+15, ACCUM+16, ACCUM+23, RPT+1~, RPT+2, RPT+3, RPT+4, RPT+6, START+2~, START+4 , START+5, START+8, START+11, START+13, START+15, START+17, START+19
POP	DVC!, DONE+1!
PREA	QUIT+1!
PSOCAP	BILLIT+2~
PSOCAP(	BILLIT+15
PSOCAP(304	BILLIT+8*
PSOCAP(305	BILLIT+8*
PSOCHG	RX+20, RX+22, RX+23, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+10
>> PSOCNT	TOTAL+8*
>> PSOCNT(	TOTAL+7*
>> PSOCNT("YR2004"	TOTAL+4*, TOTAL+8
>> PSOCNT("YR2005"	TOTAL+4*, TOTAL+8
PSOCP	CP+2!, CP+4*, CP+5, CP+8, RX+23
PSOCP1	QUIT+1!
PSOCP2	QUIT+1!
PSOCPN	CP+3*, CP+8, QUIT+1!
PSOCPUN	BILLIT+11, BILLIT+19, QUIT+1!, ACCUM+15, ACCUM+16
PSODFN	ADDBILL+5, ADDBILL+18, XTYPE+2, XTYPE+6, TOTAL+5, TOTAL+7, BILLIT+4, BILLIT+5, BILLIT+9, BILLIT+12 , BILLIT+14, ACCUM+6, ACCUM+10, ACCUM+11, ACCUM+15, ACCUM+16, ACCUM+21, ACCUM+23, START+2~, START+12 , START+13*, START+15, START+17, START+19, START+20, START+27, START+28, PRTSSN+1
PSODIV	BILLIT+2~, START+2~, PRTSSN+3, PRTSSN+4, PRTSSN+5
PSODV	BILLIT+2~, START+2~, START+6*, TITLE+1, END+1, END+2
PSOFILL	BILLIT+2~, START+2~, START+16, START+17, START+19, START+24
PSOIB	RX+1~, RX+2*, RX+9, RX+15
PSOLOG	BILLIT+2~, ACCUM+11*, ACCUM+12
PSONAM	ACCUM+20~, ACCUM+21, ACCUM+22, ACCUM+23, START+2~, START+10, START+11, START+13, START+15, START+17 , START+19, PRTSSN+2
PSONAME	START+18~, START+20*, START+21
PSOOUT	BILLIT+2~, START+2~, START+6, START+20, FULL+1, TITLE+1, END+1
PSOPAR	BILLIT+2~, CP+1, SITE+3*
PSOPATID	BILLIT+2~, START+3~, PRTSSN+2*, PRTSSN+5
PSOPGCT	START+7, TITLE+1, TITLE+5, TITLE+11, DONE+1!
PSOPGLN	START+7*, DONE+1!
PSOREF	BILLIT+13, BILLIT+19, BILLIT+21, RX+3, RX+5, RX+8, RX+11, RX+14, RX+17, QUIT+1! , ACCUM+23
>> PSOREL	ADDBILL+2, ADDBILL+3, ADDBILL+5, ADDBILL+18, BILLIT+14, BILLIT+15, ACCUM+1, ACCUM+23
PSORSN	QUIT+1!
PSOSAVE	CP+5*, QUIT+1!
>> PSOSCMX	XTYPE+2, XTYPE+3, XTYPE+8*, XTYPE+9, XTYPE+10
PSOSITE	BILLIT+2~, CP+7, SITE+1*, SITE+2, SITE+3, SITE+4
PSOSITE7	BILLIT+3~, CP+7, CP+8, SITE+4
PSOSQ	BILLIT+3~, ACCUM+10*, ACCUM+11
PSOTG	COPAYREL+8!
PSOTOT	BILLIT+3~, ACCUM+6, ACCUM+9, ACCUM+12, ACCUM+15
>> PSOTRF	ADDBILL+1*
>> PSOVETS	TOTAL+2, TOTAL+7
PSOYEAR	BILLIT+3~, ACCUM+2*, ACCUM+3, ACCUM+6, ACCUM+15, ACCUM+16
PSOYR	BILLIT+3~, ACCUM+1*, ACCUM+2, ACCUM+12
RXO	START+2~, START+18~, START+23*, START+24
RXP	ADDBILL+2, ADDBILL+7, ADDBILL+8, ADDBILL+12, ADDBILL+13, ADDBILL+14, ADDBILL+18, BILLIT+9, BILLIT+11, BILLIT+12 , BILLIT+14, BILLIT+16, BILLIT+20, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11, RX+14 , RX+17, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, ACCUM+23, SITE+1, START+2~, START+14, START+15* , START+17, START+19, START+23, PRTSSN+3
SAVCPUN	BILLIT+3~, BILLIT+11*, BILLIT+19
SAVREF	BILLIT+3~, BILLIT+13*, BILLIT+19
SAVY	XTYPE+1~, XTYPE+3, XTYPE+8, XTYPE+9
SEC	ETIME+1~, ETIME+2, ETIME+6, ETIME+8*, ETIME+10
SECTIME	ETIME~, ETIME+3, ETIME+4, ETIME+5*, ETIME+6
SSN	BILLIT+3~, START+2~, PRTSSN+1*, PRTSSN+2
>> STOP	BILLIT+5, BILLIT+7*
VADM	XTYPE+1~
VADM(6	XTYPE+2
X	XTYPE+1~, XTYPE+3, XTYPE+4, XTYPE+5, XTYPE+6, CP+8, QUIT+1!, DONE+1!
XX	ADDBILL+12, ADDBILL+13, ADDBILL+14, START+18~, START+19, START+25, START+27
Y	XTYPE+1~, XTYPE+7, QUIT+1!, START+18~, START+25, START+26, TITLE+1, TITLE+5, DONE+1!
Y(	XTYPE+8
>> YY	ADDBILL+2, ADDBILL+4, ADDBILL+7, ADDBILL+8, ADDBILL+13, ADDBILL+18, BILLIT+12*, BILLIT+13, BILLIT+14, BILLIT+16 , BILLIT+20, RX+5, SITE+1
ZTDESC	RPT+1~, QUEUE*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
ZTRTN	RPT+1~, QUEUE*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPBK4

Information

Source Information

Call Graph

Call Graph Total: 13

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Naked Globals

Local Variables

Legend: