Routine: PSOCPBK2

Information

PSOCPBK2 ;BIR/EJW,GN-Tally Automated-release refill copay cont. ;8/10/05 12:03pm

Source Information

Call Graph

Call Graph Total: 11

Package	Total	Call Graph
Kernel	4	^%ZIS ^%ZISC ^%ZTLOAD $$PROD^XUPROD
Outpatient Pharmacy	3	(CHKIB,XTYPE1)^PSOCP1 $$NAMSP^PSOCPBK1 ^PSOLSET
VA Fileman	3	DD^%DT NOW^%DTC ^DIR
MailMan	1	^XMD

Caller Graph

Caller Graph Total: 1

Package	Total	Caller Graph
Outpatient Pharmacy	1	PSOCPBK1

Entry Points

Name	Comments	DBIA/ICR reference
TITLE	;
QUIT	;
FULL	;
END	;
RPT	;
MAIL3(MSG)	;
START	;
PRTSSN	;
TALLY	; ; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND TALLY
RX	; Determine Original or Refill for RX
SITE	; SET UP VARIABLES NEEDED BY BILLING
DVC
QUEUE
COPAYREL	; Recheck copay status at release
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

Name	Field # of Occurrence
DD^%DT	MAIL3+2
NOW^%DTC	MAIL3+2
^%ZIS	DVC
^%ZISC	DONE+2
^%ZTLOAD	QUEUE
^DIR	TITLE+1, END+1
CHKIB^PSOCP1	RX+8, RX+14
XTYPE1^PSOCP1	COPAYREL+9
$$NAMSP^PSOCPBK1	RPT+1, START+2
^PSOLSET	CP+1
^XMD	MAIL3+16
$$PROD^XUPROD	MAIL3+7, MAIL3+10

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Copay Tally job for PSO7215 is still running. Halting..." Line Location: RPT+3
Function Call: WRITE	Prompt: !!,"This report shows the patient name and prescription information for refills" Line Location: RPT+5
Function Call: WRITE	Prompt: !,"that were indentified as billable by the tally patch PSO7215" Line Location: RPT+6
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPT+7
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 PSO7215 -COPAY PRESCRIPTION REFILLS BILLABLE" 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: !,"PATIENT NAME (SSN) DIV",?48,"RX# (FILL)",?66,"RELEASE DATE" Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"-------------- ------- ----------------",?47,"------------" Line Location: TITLE+8
Function Call: WRITE	Prompt: ?66,"------------" Line Location: TITLE+9
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: " ("_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+19, TITLE+5
^DIC(4 - [#4]	MAIL3+1
^DPT - [#2]	ACCUM+23, START+16, PRTSSN+1
^IBAM(354.7	ACCUM+10, ACCUM+11
^PS(53 - [#53]	COPAYREL+3
^PS(59 - [#59]	CP+7, SITE+3, SITE+4, PRTSSN+4
^PSDRUG - [#50]	COPAYREL+6
^PSRX - [#52]	TALLY+12, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11, RX+14, RX+17, RX+26 , COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, SITE+1, PRTSSN+3
^XMB(1 - [#4.3]	MAIL3+1
^XTMP(	TALLY+5, TALLY+6!, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+18, ACCUM+19, ACCUM+25*, RPT+2 , RPT+4, START+7, START+9, START+11, START+13, START+15

Name	Line Occurrences
ACCUM	RX+27
COPAYREL	RX+21
CP	TALLY+14, CP+1
DONE	DVC, QUEUE
END	START+21
FULL	START+16
PRTSSN	START+17
QUIT	RX+9, RX+11, RX+15, RX+17, RX+22, RX+23
SITE	TALLY+13
TITLE	START+5, FULL+1

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
>> %	MAIL3+2
%ZIS	DVC!*
%ZSI	QUEUE!
CHKXTYPE	COPAYREL+8!
DAY	ETIME+1~, ETIME+2, ETIME+3, ETIME+9
DIFROM	MAIL3+16~
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!
DUZ	MAIL3+4
ETIM	ETIME+1~, ETIME+7, ETIME+9, ETIME+10*, ETIME+11
HR	ETIME+1~, ETIME+2, ETIME+4, ETIME+8*, ETIME+9
IO	START+1
IO("Q"	QUEUE, DONE+1!
IOF	TITLE+3, END+3
IOP	DVC!, DONE+1!
IOSL	START+4, FULL+1
IOST	START+3
MIN	ETIME+1~, ETIME+2, ETIME+5, ETIME+8*, ETIME+9
MJT	TITLE+6*, DONE+1!
MSG	MAIL3~, MAIL3+15
NAMSP	TALLY+5, TALLY+6, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+18, ACCUM+19, ACCUM+25, RPT+1~* , RPT+2, RPT+4, START+2~*, START+7, START+9, START+11, START+13, START+15
POP	DVC!, DONE+1!
PREA	QUIT+1!
PSOCAP	TALLY+2~
PSOCAP(	TALLY+11, ACCUM+15*
PSOCAP(304	TALLY+7*
PSOCAP(305	TALLY+7*
PSOCHG	RX+20, RX+22, RX+23, QUIT+1!, COPAYREL+3, COPAYREL+7, COPAYREL+10
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	RX+26*, QUIT+1!, ACCUM+15, ACCUM+18, ACCUM+19
>> PSODFN	TALLY+4, TALLY+5, TALLY+8, TALLY+9, TALLY+10, ACCUM+6, ACCUM+10, ACCUM+11, ACCUM+18, ACCUM+19 , ACCUM+23, ACCUM+25, START+8, START+9, START+11, START+13, START+15, START+16, PRTSSN+1
PSODIV	TALLY+2~, PRTSSN+3, PRTSSN+4, PRTSSN+5
PSODV	TALLY+2~, START+3*, TITLE+1, END+1, END+2
>> PSOEND	MAIL3+2*
PSOFILL	TALLY+2~, START+12, START+13, START+15, START+18
PSOIB	RX+1~, RX+2*, RX+9, RX+15
>> PSOINST	MAIL3+1*, MAIL3+9
PSOLOG	TALLY+2~, ACCUM+11*, ACCUM+12
PSONAM	ACCUM+22~, ACCUM+23, ACCUM+24, ACCUM+25, START+6, START+7, START+9, START+11, START+13, START+15 , PRTSSN+2
PSONAME	START+14~, START+16*, START+17
PSOOUT	TALLY+2~, START+3, START+16, FULL+1, TITLE+1, END+1
PSOPAR	TALLY+2~, CP+1, SITE+3*
PSOPATID	TALLY+2~, PRTSSN+2*, PRTSSN+5
PSOPGCT	START+4, TITLE+1, TITLE+5, TITLE+10, DONE+1!
PSOPGLN	START+4*, DONE+1!
PSOREF	RX+3, RX+5, RX+8, RX+11, RX+14, RX+17, QUIT+1!, ACCUM+25
>> PSOREL	TALLY+10*, TALLY+11, ACCUM+1, ACCUM+25
PSORSN	QUIT+1!
PSOSAVE	CP+5*, QUIT+1!
PSOSITE	TALLY+2~, CP+7, SITE+1*, SITE+2, SITE+3, SITE+4
PSOSITE7	TALLY+3~, CP+7, CP+8, SITE+4
PSOSQ	TALLY+3~, ACCUM+10*, ACCUM+11
>> PSOSTART	MAIL3+13
PSOTEXT	MAIL3+3!
PSOTEXT(1	MAIL3+12*
PSOTEXT(2	MAIL3+13*
PSOTEXT(3	MAIL3+14*
PSOTEXT(4	MAIL3+15*
PSOTG	COPAYREL+8!
PSOTOT	TALLY+3~, ACCUM+6, ACCUM+9, ACCUM+12, ACCUM+15, ACCUM+18
PSOYEAR	TALLY+3~, ACCUM+2*, ACCUM+3, ACCUM+6, ACCUM+18, ACCUM+19
PSOYR	TALLY+3~, ACCUM+1*, ACCUM+2, ACCUM+12, ACCUM+15
>> QQ	TALLY+5*, TALLY+6
>> RXP	TALLY+8, TALLY+9, TALLY+10, TALLY+12, CP+3, CP+4, CP+8, RX+5, RX+8, RX+11 , RX+14, RX+17, RX+26, COPAYREL+3, COPAYREL+6, COPAYREL+9, COPAYREL+10, ACCUM+25, SITE+1, START+10 , START+11*, START+13, START+15, START+18, PRTSSN+3
SEC	ETIME+1~, ETIME+2, ETIME+6, ETIME+8*, ETIME+10
SECTIME	ETIME~, ETIME+3, ETIME+4, ETIME+5*, ETIME+6
SSN	TALLY+3~, PRTSSN+1*, PRTSSN+2
>> STOP	TALLY+5, TALLY+6*
X	CP+8*, QUIT+1!, DONE+1!
XMDUZ	MAIL3+8*, MAIL3+16!
XMSUB	MAIL3+9, MAIL3+10, MAIL3+11*, MAIL3+16!
XMTEXT	MAIL3+16*!
>> XMY(	MAIL3+4*
>> XMY("NAPOLIELLO.GREG@FORUM.VA.GOV"	MAIL3+5*
>> XMY("WHITE.ELAINE@FORUM.VA.GOV"	MAIL3+6*
>> XMY("WILLIAMSON.ERIC@FORUM.VA.GOV"	MAIL3+7*
XX	START+14~, START+15*, START+19
Y	QUIT+1!, START+19, START+20, TITLE+1, TITLE+5, DONE+1!, MAIL3+2*
>> YY	TALLY+9*, TALLY+10, TALLY+12, RX+5, SITE+1
>> ZTDESC	QUEUE*
>> ZTQUEUED	DONE+2
>> ZTREQ	DONE+2*
>> ZTRTN	QUEUE*

Customize PDF page

Package: Outpatient Pharmacy

Routine: PSOCPBK2

Information

Source Information

Call Graph

Call Graph Total: 11

Caller Graph

Caller Graph Total: 1

Entry Points

External References

Interaction Calls

Global Variables Directly Accessed

Label References

Local Variables

Legend: