Routine: IBY778PO

Package	Total	Call Graph
VA FileMan	3	$$FIND1^DIC ^DIE $$GET1^DIQ
Kernel	2	$$ADD^XPDMENU (BMES,MES)^XPDUTL

Entry Points

Name	Comments	DBIA/ICR reference
POST	; POST-INSTALL
FIXNM(IBXPD)	; update name in file 355.1 from HEALTH MAINTENANCE ORGANIZ to HEALTH MAINTENANCE ORGANIZATION
FIXEX	;
ADDRPT(IBXPD)	; add new report IBCN EDI PAYER ID REPT to IBCN INS RPTS
ADDRPTQ	; quit point
ADDRPT2(IBXPD)	; add new report IBCN DUP GRP PLAN BY INS RPT to IBCN INS RPTS
ADDRPT2Q	; quit point
ABBREV(IBXPD)	; update the ABBREVIATION field #.02 in the TYPE OF PLAN file #355.1
UPDAB	; save the updated ABBREVIATION #.02 in file #355.1
ABLIST	; List of Current and Change To abbreviations

Name	Field # of Occurrence
$$FIND1^DIC	FIXNM+7, UPDAB+2
^DIE	FIXNM+11, UPDAB+11
$$GET1^DIQ	UPDAB+6
$$ADD^XPDMENU	ADDRPT+18, ADDRPT2+18
BMES^XPDUTL	POST+21, FIXNM+3, FIXNM+9, FIXNM+12, FIXNM+13, FIXEX+2, ADDRPT+3, ADDRPT+5, ADDRPT+7, ADDRPTQ+3 , ADDRPT2+3, ADDRPT2+5, ADDRPT2+7, ADDRPT2Q+3, ABBREV+4, ABBREV+12, UPDAB+4, UPDAB+8, UPDAB+12
MES^XPDUTL	POST+6, POST+20, FIXNM+4, FIXEX+3, ADDRPT+4, ADDRPT+6, ADDRPT+20, ADDRPT+21, ADDRPT2+4, ADDRPT2+6 , ADDRPT2+20, ADDRPT2+21, ABBREV+5, ABBREV+6, ABBREV+7, ABBREV+13, UPDAB+5, UPDAB+9

FileNo	Call Tags
^IBE(355.1 - [#355.1]	Classic Fileman Calls, FIND1^DIC, GET1^DIQ

Name	Field # of Occurrence
DA	FIXNM+5~, FIXNM+11, UPDAB+1~, UPDAB+11
DIE	FIXNM+5~, FIXNM+11, UPDAB+1~, UPDAB+11
DR	FIXNM+5~, FIXNM+10, UPDAB+1~, UPDAB+10
IBCHK	ADDRPT+11~, ADDRPT+12, ADDRPT2+11~, ADDRPT2+12
IBCNT	ABBREV+2~, ABBREV+9*
IBERR	FIXNM+5~, UPDAB+1~
IBFNDNM	ABBREV+2~, UPDAB+6*, UPDAB+7
IBIEN	FIXNM+5~, FIXNM+7, FIXNM+8, FIXNM+11, UPDAB+1~, UPDAB+2, UPDAB+3, UPDAB+6, UPDAB+11
IBL	ABBREV+2~, ABBREV+9*, ABBREV+10
IBMENU	ADDRPT+11~, ADDRPT+15, ADDRPT+18, ADDRPT+20, ADDRPT+21, ADDRPT2+11~, ADDRPT2+15, ADDRPT2+18, ADDRPT2+20, ADDRPT2+21
IBNAM	ADDRPT+11~, ADDRPT+16, ADDRPT+18, ADDRPT+20, ADDRPT+21, ADDRPT2+11~, ADDRPT2+16, ADDRPT2+18, ADDRPT2+20, ADDRPT2+21
IBNEWAB	ABBREV+2~, ABBREV+8~, ABBREV+10*, UPDAB+10, UPDAB+12
IBNEWNM	FIXNM+5~, FIXNM+6*, FIXNM+10
IBOER	ADDRPT+11~, ADDRPT+12, ADDRPT+15, ADDRPT+21, ADDRPTQ+3, ADDRPT2+11~, ADDRPT2+12, ADDRPT2+15, ADDRPT2+21, ADDRPT2Q+3
IBOLDAB	ABBREV+2~, ABBREV+8~, ABBREV+9*, UPDAB+2, UPDAB+4, UPDAB+8
IBOLDNM	FIXNM+5~, FIXNM+6*, FIXNM+7
IBONAME	ABBREV+2~, ABBREV+10*, UPDAB+4, UPDAB+7, UPDAB+8, UPDAB+12
IBRET	ADDRPT+11~, ADDRPT+18, ADDRPT+20, ADDRPT2+11~, ADDRPT2+18, ADDRPT2+20
IBSYN	ADDRPT+11~, ADDRPT+16, ADDRPT+18, ADDRPT2+11~, ADDRPT2+16, ADDRPT2+18
IBXPD	POST+1~, FIXNM~, FIXNM+2, FIXNM+3, FIXEX+2, ADDRPT~, ADDRPT+2, ADDRPT+3, ADDRPT2~, ADDRPT2+2* , ADDRPT2+3, ABBREV~, ABBREV+3*, ABBREV+4, ABBREV+12
SITE	POST+1~
XPDIDTOT	POST+1~, POST+3, FIXNM+2, FIXNM+3, FIXEX+2, ADDRPT+3, ADDRPT2+3, ABBREV+3*, ABBREV+4, ABBREV+12

Name	Field # of Occurrence
$T(ABLIST+IBCNT	ABBREV+9