Routine: PSOCPBK2

Information

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

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

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