Routine: IB20P823

Information

IB20P823 ;ALB/DMR - UPDATE MCCR UTILITY & POS ; 03/12/2024

Package	Total	Call Graph
VA FileMan	2	FILE^DICN ^DIE
Kernel	1	MES^XPDUTL

Name	Comments	DBIA/ICR reference
POST	;
MCR	; ; Condition code
MFILE	; Store in fields
EXCODE(IBCOD,IBPE)	; Returns IEN if code found in the IBPE piece
POS	; ; Place Of Service in fields #.01/piece 1, #.02/piece 2, #.03/piece 3
MSG(IBZ)	;
CONU	; Condition code^name^update (1)
POSU	; Place of Service code^name^abbreviation (1) -- Name, Max Length=50, Abbreviation Max Length=20

FileNo	Call Tags
^IBE(353.1 - [#353.1]	Classic Fileman Calls
^DGCR(399.1 - [#399.1]	Classic Fileman Calls

Name	Line Occurrences (* Changed, ! Killed)
^DGCR(399.1 - [#399.1]	MFILE+6, EXCODE+2
^IBE(353.1 - [#353.1]	POS+8, POS+10

Name	Line Occurrences
$$EXCODE	MFILE+4
MCR	POST+4
MFILE	MCR+6
MSG	POST+1, POST+2, POST+6, POST+7, MCR+5, MCR+8, MCR+9, MFILE+7, MFILE+12, MFILE+15 , POS+4, POS+11, POS+14, POS+17, POS+18, POS+19
POS	POST+5

Name	Field # of Occurrence
DA	MFILE+1~, MFILE+9, MFILE+13, POS+2~, POS+10, POS+15
DD	MFILE+1~, POS+2~
DIC	MFILE+1~, MFILE+11, POS+2~, POS+13
DIC(0	MFILE+11, POS+13
DIE	MFILE+1~, MFILE+14, POS+2~, POS+16
DLAYGO	MFILE+1~, MFILE+11, POS+2~, POS+13
DO	MFILE+1~, POS+2~
DR	MFILE+1~, MFILE+14, POS+2~, POS+16
IBA	MFILE+1~, MFILE+2, MFILE+3, MFILE+4, MFILE+6, MFILE+12, MFILE+14, POS+2~, POS+6, POS+7 , POS+8, POS+13, POS+14
IBB	MFILE+1~, MFILE+2, MFILE+3, MFILE+6, MFILE+11, MFILE+14, POS+2~, POS+6, POS+7, POS+14 , POS+16
IBC	MFILE+1~, MFILE+6, MFILE+7, POS+2~, POS+6, POS+7, POS+16
IBCNT	MCR+2~, MCR+4, MCR+8, MFILE+15, POS+2~, POS+3, POS+17, POS+18
IBCOD	MCR+2~, EXCODE~, EXCODE+2
IBD	POS+2~, POS+7*, POS+11
IBF	POS+2~, POS+8, POS+9, POS+10, POS+11, POS+12
IBFD	MCR+2~, MCR+4*, MFILE+14
IBFN	MFILE+1~, MFILE+4, MFILE+5, MFILE+6, MFILE+7, MFILE+9, MFILE+10
IBI	MCR+2~, MCR+6, POS+2~, POS+5
IBMS	MFILE+1~, MFILE+9, MFILE+13, MFILE+15, POS+2~, POS+10, POS+15, POS+17
IBPE	MCR+2~, MCR+4*, MFILE+4, MFILE+12, EXCODE~, EXCODE+2
IBX	MCR+2~, MCR+6, MFILE+2, EXCODE+1~, EXCODE+2, POS+2~, POS+5*, POS+6
IBX3	MFILE+1~, MFILE+6, MFILE+7, POS+2~, POS+10, POS+11
IBY	MFILE+1~, MFILE+3, MFILE+7, MFILE+15, EXCODE+1~, EXCODE+2, EXCODE+3, POS+2~, POS+7, POS+11 , POS+17
IBZ	POST+3~, MSG~, MSG+1
U	POST+3~*, MFILE+2, MFILE+6, MFILE+7, EXCODE+2, POS+6, POS+7, POS+11
X	MFILE+1~, MFILE+11, POS+2~, POS+13
Y	MFILE+1~, MFILE+10, MFILE+12, MFILE+13, POS+2~, POS+12, POS+14, POS+15

Name	Field # of Occurrence
$T(CONU+IBI	MCR+6
$T(POSU+IBI	POS+5