Routine: IBYPSK

Information

IBYPSK ;ALB/ARH - IB*2.0*370 POST INIT: RC V3.0 DELETE PROVIDER DISCOUNTS ; 01-FEB-2007

Source file <IBYPSK.m>

Package	Total	Call Graph
Kernel	1	MES^XPDUTL
VA FileMan	1	^DIK

Name	Comments	DBIA/ICR reference
POST	;
PDDEL	; delete all RC Provider Discounts (except Zero Charge)
PDDELQ
MCCRUTL(X,P)	; returns IFN of item in 399.1 if Name is found and piece P is true
MSG(X)	;

Name	Field # of Occurrence
^DIK	PDDEL+13
MES^XPDUTL	POST+2, POST+6, PDDELQ+1, PDDELQ+4

FileNo	Call Tags
^IBE(363.34 - [#363.34]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MCCRUTL+2
^IBE(363.32 - [#363.32]	PDDEL+4
^IBE(363.34 - [#363.34]	PDDEL+7, PDDEL+8, PDDELQ+3

Name	Field # of Occurrence
DA	PDDEL+1~, PDDEL+13*!
DIC	PDDEL+1~
DIE	PDDEL+1~
DIK	PDDEL+1~, PDDEL+13*!
IBA	POST+1~, POST+2!, POST+6!, PDDEL+1~, PDDELQ+1!, PDDELQ+4
IBA(	MSG+2*
IBA(1	POST+2, POST+6, PDDELQ+4*
IBA(2	POST+2, POST+6, PDDELQ+4*
IBA(3	POST+2, POST+6
IBA(999999	MSG+1
IBC	PDDEL+1~, PDDEL+2, PDDEL+5, PDDEL+15, PDDELQ, PDDELQ+3*, PDDELQ+4
IBCNT	PDDEL+1~, PDDEL+13, PDDELQ
IBPD0	PDDEL+1~, PDDEL+8, PDDEL+10, PDDEL+11, PDDEL+15, PDDELQ+3
IBPDFN	PDDEL+1~, PDDEL+7*, PDDEL+8, PDDEL+13
IBSG	PDDEL+1~, PDDEL+4*, PDDEL+5, PDDEL+10
IBX	MCCRUTL+1~, MCCRUTL+2, MSG+1~, MSG+2
IBY	MCCRUTL+1~, MCCRUTL+2, MCCRUTL+3
P	MCCRUTL~, MCCRUTL+2
U	PDDEL+10, PDDEL+11, PDDEL+15, MCCRUTL+2
X	PDDEL+1~, MCCRUTL~, MCCRUTL+2, MSG~, MSG+2
Y	PDDEL+1~