Routine: IBYZ20R

Information

IBYZ20R ;ALB/CPM - FIX CT ENTRIES FOR PATCH IB*2*62 ; 13-JUN-96

Source file <IBYZ20R.m>

Name	Comments	DBIA/ICR reference
CT	; Remove Scheduled Admission pointer from Claims Tracking entries.
INAC	; Inactivate a CT entry and delete the Sched Adm ptr.
LIST	; List CT entries which may have been overlaid.
LISTQ
ID	; Set the identifier for the Procedures (#399.0304) sub-file.

FileNo	Call Tags
^IBT(356 - [#356]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DD(399.0304	ID+4*
^DGS(41.1 - [#41.1]	CT+22
^DPT - [#2]	LIST+9
^IBT(356 - [#356]	CT+5, CT+6, CT+9, CT+10!
^IBT(356.1 - [#356.1]	CT+46
^IBT(356.2 - [#356.2]	CT+44
^TMP($J	CT+4!, CT+48*, CT+58!, LIST+2, LIST+8

Name	Field # of Occurrence
^(	LIST+8
^(0	LIST+9

Name	Field # of Occurrence
DA	CT+51!, INAC+1, INAC+2!
DFN	CT+16*, CT+31, CT+48, CT+58!
DIE	CT+51!, INAC+1, INAC+2!
DR	CT+51!, INAC+1, INAC+2!
IBADM	CT+16*, CT+21, CT+58!
IBCTED	CT+16*, CT+34, CT+44, CT+46, CT+58!, LIST+10
IBDATE	CT+44, CT+46, CT+58!
IBDELS	CT+4, CT+52, CT+55, CT+58!, INAC+2*
IBSCH	CT+5*, CT+6, CT+10, CT+22, CT+58!
IBSCHA	CT+4, CT+37, CT+56, CT+58!
IBSCHD	CT+22*, CT+25, CT+28, CT+31, CT+34, CT+58!
IBSTOP	CT+44, CT+46, CT+48, CT+58!
IBTRC	CT+44*, CT+58!
IBTRN	CT+6, CT+9, CT+10, CT+44, CT+46, CT+48, CT+51, CT+58!, INAC+1, LIST+1~ , LIST+8, LIST+10
IBTRND	CT+9*, CT+10, CT+13, CT+16, CT+58!
IBTRV	CT+46*, CT+58!
X	CT+2, CT+58!, LIST+1~, LIST+4, LIST+7!, LIST+9, LIST+10, LIST+11, ID+1~, ID+3
X(1	CT+1, LIST+1, ID+2*
X(2	CT+2, LIST+3, LIST+5, ID+3
X(3	LIST+6*
Y	CT+58!, LIST+1~, LIST+8*, LIST+9, LIST+10