Routine: PSOCPIB

Package

Total

Call Graph

^%ZTLOAD $$HADD^XLFDT

($$STATUS,CANCEL)^IBARX

ACTLOG^PSOCPA

Name	Comments	DBIA/ICR reference
CANCEL	;
CANCHG	; Cancel charges if IB initiates a charge for a 'no copay' Rx
STATUS	;
CHKIB	; SEE IF IB NUMBER ALREADY EXISTS AND IS A BILL OR UPDATE NUMBER (NOT A CANCEL NUMBER)
FILE	; File IB number in ^PSRX

Name	Line Occurrences (* Changed, ! Killed)
^PSRX - [#52]	FILE+1, FILE+2, FILE+3, FILE+5, CANCHG+7, CANCHG+9, CANCHG+11, CANCHG+14, CANCHG+17*, CHKIB+2 , CHKIB+3

Name	Field # of Occurrence
DUZ	PSOCPIB+7, PSOCPIB+8, FILE+6, CANCHG+3*, CANCHG+7
PREA	PSOCPIB+5~, PSOCPIB+6, CANCHG+1~, CANCHG+2, CANCHG+15, CANCHG+18
PSOCOMM	PSOCPIB+5~, PSOCPIB+13, CANCHG+1~, CANCHG+15, CANCHG+18, STATUS+3
PSODA	PSOCPIB+5~, PSOCPIB+9, PSOCPIB+10, FILE+1, FILE+2, FILE+3, FILE+5, CANCHG+1~, CANCHG+4, CANCHG+7 , CANCHG+9, CANCHG+11, CANCHG+13, CANCHG+14, CANCHG+17, CHKIB+2, CHKIB+3
PSOIB	CHKIB+1~, CHKIB+2, CHKIB+3, CHKIB+4, STATUS+1
>> PSOPAR7	CANCEL+3, CANCHG+6*, CANCHG+7
PSOREF	PSOCPIB+5~, PSOCPIB+11, FILE+1, FILE+2, FILE+3, CANCHG+1~, CANCHG+5, CANCHG+8, CANCHG+10, CANCHG+11 , CANCHG+15, CANCHG+16, CANCHG+17, CHKIB+2, CHKIB+3
PSORSN	PSOCPIB+5~
>> PSORX	CANCEL+3*, CANCHG+3, CANCHG+4, CANCHG+5, CANCHG+6
PSOSTAT	CHKIB+1~, STATUS+1*, STATUS+2
SAVEDUZ	PSOCPIB+5~, PSOCPIB+7*, FILE+6, CANCHG+1~
X	CANCHG+1~, CANCHG+7*
X(	CANCHG+9, CANCHG+11
X(""	CANCHG+8, CANCHG+10
>> Y(	CANCHG+13, CANCHG+14!, CANCHG+16, CANCHG+17
>> Y(1	PSOCPIB+8, PSOCPIB+9, PSOCPIB+11, PSOCPIB+13, FILE+1, FILE+3, CANCEL+3
>> ZTDESC	CANCEL+2*
>> ZTDTH	CANCEL+5*
>> ZTIO	CANCEL+5*
>> ZTRTN	CANCEL+1*
>> ZTSAVE("PSORX"	CANCEL+4*

Information