Routine: PSOCPIB3

Information

PSOCPIB3 ;BIR/EJW-Clean up to bill unbilled NON-SERVICE CONNECTED copays ;12/12/02

Name	Comments	DBIA/ICR reference
EN	;
PROCESS	;
MAIL	;
MAIL2	; SEND NAME INFO FOR USE BY AAC
BILL	; ; IF NO IB NUMBER FOR THIS FILL, SET UP VARIABLES AND CALL CP^PSOCP. IF THERE IS AN IB NUMBER AFTER THIS CALL, COUNT IT FOR SUMMARY MAIL MSG
GETDATE	; GET DATE/TIME OF WHEN BACKGROUND JOB SHOULD BE RUN
RPT	;
DVC
QUEUE
START	;
FULL	;
TITLE	;
END	;
DONE	;
PRTSSN	;
ACCUM	; ACCUMULATE TOTALS AND SEE IF PATIENT MET ANNUAL CAP
CHKTOT	; SEE IF BILLING THIS FILL WOULD GO OVER CAP

Name	Line Occurrences
Function Call: WRITE	Prompt: !,"Clean up job for PSO7123 is still running. Halting..." Line Location: RPT+2
Function Call: WRITE	Prompt: !!,"This report shows the patient name and prescription information for fills" Line Location: RPT+4
Function Call: WRITE	Prompt: !,"that were billed as part of patch PSO7123 clean-up." Line Location: RPT+5
Function Call: WRITE	Prompt: !!,"You may queue the report to print, if you wish.",! Line Location: RPT+6
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: !,PSONAM Line Location: START+11
Function Call: WRITE	Prompt: @IOF Line Location: TITLE+3
Function Call: WRITE	Prompt: !,"Patch PSO7123 -COPAY PRESCRIPTION FILLS BILLED" 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",?40,"RX# (FILL)",?66,"RELEASE DATE" Line Location: TITLE+7
Function Call: WRITE	Prompt: !,"------------------------",?40,"----------",?66,"------------" Line Location: TITLE+8
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: " ("_$G(VA("BID"))_")"_" "_PSODIV Line Location: PRTSSN+5