Routine: IB20P244

Package	Total	Call Graph
VA FileMan	3	(C,NOW)^%DTC ^DIE ^DIK
Integrated Billing	2	$$VALHIC^IBCNSMM $$GETWNR^IBCNSMM1
Kernel	1	(BMES,MES)^XPDUTL
MailMan	1	SENDMSG^XMXAPI

Entry Points

Name	Comments	DBIA/ICR reference
POST	; This routine is to remove hyphens from the SUBSCRIBER ID (#1) field ; of the INSURANCE TYPE SUB-FIELD (#2.312) file of the PATIENT (#2) ; file. It also will delete invalid entries from the IB DM EXTRACT ; DATA (#351.71) file.
EN	; Start of Post-Init process.
SUBSCR	;Remove all hyphens from subscriber ID's in the INSURANCE TYPE
END	; display message that post-init has completed successfully
INSUR	;This will remove all future dates and all past date entries which
INSURQ
FUTURE	;This utility searches for and deletes future date entries from file
PAST	;This utility searches for and deletes past date entries from file
MESSAGE	; Send message reporting invalid HICN format
MSG1
SNDMSG	;
MSGHDR	;Creates message subject line

External References

Name	Field # of Occurrence
C^%DTC	EN+4
NOW^%DTC	EN+2, FUTURE+9
^DIE	SUBSCR+42
^DIK	FUTURE+13, PAST+14
$$VALHIC^IBCNSMM	SUBSCR+29
$$GETWNR^IBCNSMM1	SUBSCR+12
SENDMSG^XMXAPI	SNDMSG+1
BMES^XPDUTL	SUBSCR+44, END+3, INSUR+5, INSUR+14, SNDMSG+3
MES^XPDUTL	SUBSCR+2, SUBSCR+3, SUBSCR+4, SUBSCR+5, END+2, INSUR+4, INSUR+6, INSUR+9, INSUR+10, INSUR+11 , INSUR+12, INSUR+13, SNDMSG+5

Interaction Calls

Name	Line Occurrences
Function Call: WRITE	Prompt: ". " Line Location: SUBSCR+19
Routine Call	DIE Line Location: SUBSCR+42

FileMan Files Accessed Via FileMan Db Call

FileNo	Call Tags
^DPT - [#2]	Classic Fileman Calls
^IBE(351.71 - [#351.71]	Classic Fileman Calls

Global Variables Directly Accessed

Name	Line Occurrences (* Changed, ! Killed)
^DIC(36 - [#36]	SUBSCR+38, MESSAGE+24
^DPT - [#2]	SUBSCR+15, SUBSCR+18, SUBSCR+20, SUBSCR+23, SUBSCR+24, SUBSCR+29, SUBSCR+38
^IBE(351.71 - [#351.71]	FUTURE+11, FUTURE+12, PAST+10, PAST+13
^TMP("IB20P244"	SUBSCR+8!, SUBSCR+9, SUBSCR+29, SUBSCR+45, SUBSCR+46!, MESSAGE+5, MSG1+10, MSG1+11
^TMP($J	MESSAGE+10, MSG1+1, MSG1+2, MSG1+3, MSG1+4, MSG1+5, MSG1+6, MSG1+12, MSG1+16, MSG1+17* , MSG1+18, MSG1+20, MSG1+22, MSG1+24, MSG1+25*, SNDMSG+6!, MSGHDR+1!
^XMB("NETNAME"	MESSAGE+21
^XMB(3.8 - [#3.8]	MESSAGE+13, MESSAGE+14
^XTMP("IB20P244"	EN+6, SUBSCR+40, FUTURE+12, PAST+13

Label References

Name	Line Occurrences
END	EN+9
FUTURE	INSUR+7
INSUR	EN+8
MESSAGE	SUBSCR+45
MSG1	MSG1+10
MSGHDR	MESSAGE+8, MSG1+19
PAST	INSUR+8
SNDMSG	MSG1+19, MSG1+26
SUBSCR	EN+7

Local Variables

Legend:

>>	Not killed explicitly
*	Changed
!	Killed
~	Newed

Name	Field # of Occurrence
%	EN+1~, EN+2
CDT	FUTURE+7~, FUTURE+9*, FUTURE+11
DA	SUBSCR+6~, SUBSCR+42, FUTURE+7~, FUTURE+13, PAST+7~, PAST+14*
DA(1	SUBSCR+42*
DATE	FUTURE+7~, FUTURE+10, FUTURE+11, FUTURE+12, FUTURE+13, PAST+7~, PAST+9, PAST+10, PAST+11, PAST+12 , PAST+13, PAST+14
DFN	SUBSCR+6~, SUBSCR+13, SUBSCR+15, SUBSCR+18, SUBSCR+20, SUBSCR+23, SUBSCR+24, SUBSCR+29, SUBSCR+38, SUBSCR+40 , SUBSCR+42
DIE	SUBSCR+6~, SUBSCR+42*
DIK	FUTURE+7~, FUTURE+13, PAST+7~, PAST+14
DR	SUBSCR+6~, SUBSCR+42*
DUZ	EN+6, MESSAGE+9~*, MESSAGE+10, MESSAGE+18, SNDMSG+4
FTDT	INSUR+3~, INSUR+10, INSUR+11, FUTURE+8, FUTURE+14
IBBCNT	MESSAGE+1~, MSG1+8, MSG1+9, MSG1+17, MSG1+24
IBC	MESSAGE+1~, MSG1, MSG1+1, MSG1+2, MSG1+3, MSG1+4, MSG1+5, MSG1+6, MSG1+12, MSG1+15 , MSG1+16, MSG1+17, MSG1+18, MSG1+20, MSG1+22, MSG1+24, MSG1+25*
IBCHAR	SUBSCR+6~, SUBSCR+10*, SUBSCR+23, SUBSCR+27
IBCHAR1	SUBSCR+6~, SUBSCR+11*, SUBSCR+31
IBCNT	SUBSCR+6~, SUBSCR+13, SUBSCR+19, MESSAGE+1~, MSG1+8, MSG1+9, MSG1+13, MSG1+15, MSG1+22, MSG1+24
IBDATA	MESSAGE+1~, MSG1+11*, MSG1+12
IBDATE	EN+1~, EN+2*, SUBSCR+40, FUTURE+12, PAST+13
IBFCNT	MESSAGE+1~, MSG1+15*, MSG1+17
IBGROUP	MESSAGE+1~, MESSAGE+12*, MESSAGE+13, MESSAGE+15
IBGRP	MESSAGE+1~, MESSAGE+13*, MESSAGE+14
IBHICN	SUBSCR+6~
IBIDENT	MESSAGE+1~, MESSAGE+4, MESSAGE+5, MSG1+8, MSG1+10, MSG1+11, MSG1+12
IBINS	SUBSCR+6~, SUBSCR+16, SUBSCR+18, SUBSCR+20, SUBSCR+38, SUBSCR+40, SUBSCR+42
IBINSCO	SUBSCR+6~, SUBSCR+38, MESSAGE+1~, MESSAGE+24, MSG1+3
IBMMSG	MESSAGE+1~, MSG1+7, MSG1+14, MSG1+26
IBMSG	MESSAGE+2~, MSG1+7, MSG1+10, MSG1+19
IBNAME	SUBSCR+6~, SUBSCR+24*, SUBSCR+29
IBNETNM	MESSAGE+2~, MESSAGE+21*, MESSAGE+22
IBNODE	SUBSCR+6~, SUBSCR+20*, SUBSCR+22, SUBSCR+26, SUBSCR+30
IBNOW	EN+1~, EN+2*, EN+6
IBPARAM	MESSAGE+2~, SNDMSG+1
IBPARAM("FROM"	MESSAGE+11*
IBPURGE	EN+1~, EN+4*, EN+6
IBRC	SUBSCR+7~, SUBSCR+13, SUBSCR+39, SUBSCR+44
IBSSN	SUBSCR+7~, SUBSCR+23*, SUBSCR+29, SUBSCR+34
IBSUB	SUBSCR+7~, SUBSCR+22, SUBSCR+27, SUBSCR+29, SUBSCR+31, SUBSCR+37, SUBSCR+40, MESSAGE+2~, MESSAGE+7, MSG1+8 , MSG1+9, MSG1+21, MSG1+23, SNDMSG+2, MSGHDR+2*, MSGHDR+4
IBSUB1	SUBSCR+7~, SUBSCR+27, SUBSCR+29, SUBSCR+31, SUBSCR+33, SUBSCR+34*, SUBSCR+37, SUBSCR+40, SUBSCR+42
IBSUB2	SUBSCR+7~, SUBSCR+33*, SUBSCR+34
IBTCNT	MESSAGE+2~, MESSAGE+4, MESSAGE+6, MSG1+17, MSG1+24
IBTST	MESSAGE+2~, MESSAGE+20*, MESSAGE+22
IBTXT	MESSAGE+2~, SNDMSG+2, SNDMSG+3, SNDMSG+4, SNDMSG+5
IBWNR	SUBSCR+7~, SUBSCR+12*, SUBSCR+26, SUBSCR+30, MESSAGE+24
PTDT	INSUR+3~, INSUR+12, INSUR+13, PAST+8, PAST+15
U	SUBSCR+22, SUBSCR+23, SUBSCR+24, SUBSCR+26, SUBSCR+29, SUBSCR+30, SUBSCR+38, MESSAGE+14, MESSAGE+24
X	EN+1~, EN+2, EN+4, END+1!, FUTURE+9
X1	EN+1~, EN+2*
X2	EN+1~, EN+3*
XMDUZ	MESSAGE+2~, MESSAGE+10*, SNDMSG+1
XMERR	MESSAGE+2~, SNDMSG+2
XMSUB	MESSAGE+2~, SNDMSG+1, MSGHDR+3, MSGHDR+4
XMTEXT	MESSAGE+3~, MESSAGE+10*, SNDMSG+1
XMY	MESSAGE+3~, SNDMSG+1
XMY(	MESSAGE+18*
XMY("G."	MESSAGE+15*
XMY("G.IB EDI	SUPERVISOR" , SNDMSG+2
XMY("PHELPS,TY@DOMAIN.EXT"	MESSAGE+22*
Y	END+1!

Customize PDF page

Package: Integrated Billing

Routine: IB20P244

Information

Source Information

Call Graph

Call Graph Total: 7

Entry Points

External References

Interaction Calls

FileMan Files Accessed Via FileMan Db Call

Global Variables Directly Accessed

Label References

Local Variables

Legend: