Routine: PSOCPBK4

Information

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

Name	Comments	DBIA/ICR reference
ADDBILL	;add to billable ^XTMP if ok, quit if not
XTYPE	;
TOTAL	;
BILLIT	; ; 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

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