Routine: PSO480P

Information

PSO480P ;BIR/PC-Automatic Cancel of Copay charges for DOM ;03/02/17 10:30am

Source file <PSO480P.m>

Name	Comments	DBIA/ICR reference
EN	;
START	;
QUIT	;
START1	;
INST	;get first install date for FMCT patch PSO7460 which will be the begin date for checking for DOMICILIARY copay charges
LOOP	;loop through AL cross reference
CHECK	;check IB nodes ; see if bill already exists - returned value of PSOIB1 means Rx is billed
ZERO	;
REFILL	;
GETIB	;get billing information from IB Billing Action file #350
CANCEL	;cancel copay ; verify again that it was billed and not already cancelled
SITE	; SET UP VARIABLES NEEDED BY BILLING
CHKACT	;check activity log for prev entry
CHKCAN	;verify that cancel copay worked
REPORT	;accumulate reports information for national and local
MAIL	;email reports
MAIL1	;management mail message for total patients and dollars
MAIL2	;site detailed report email
MAIL3	;delimited file
MAILL	;

Name	Line Occurrences
Function Call: WRITE	Prompt: !!,*7,"This job previously ran to completion on " Line Location: START+6
Function Call: WRITE	Prompt: $$FMTE^XLFDT($P($G(^XTMP(NAMSP,0,"LAST")),"^",2)),!! Line Location: START+7